--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R/scratch/dynport_dyp.R	Thu Mar 19 22:26:28 2015 +0100
@@ -0,0 +1,50 @@
+#
+# 1. install functions
+# 2. install function variables
+# 3. install enums
+# 4. install defines
+#
+
+
+
+begin.info <- function()
+{  
+}
+
+begin.funs <- function()
+{
+  
+}
+
+parse.funs <- function(line)
+{
+    
+}
+
+
+parse <- function(path)
+{
+  file <- file(path)
+  eof  <- FALSE
+  while(!eof)
+  {
+    line <- readLines(file, 1)
+  }
+}
+
+parse("rdyncall/scratch/test.dyp")
+
+currentSection <- ""
+
+
+if ( substr(line, 1, 1) == "!" ) {
+  paste("end.", currentSection)
+  do.call( paste("end.", currentSection, sep="") )
+  type <- substr(line,2)
+  handler <- paste("begin.",type,sep="")
+  envs <- find(handler)
+  if (length(envs) == 1)
+    do.call(handler)
+  }
+}
+