Mercurial > pub > dyncall > bindings
diff R/scratch/dynport_dyp.R @ 0:0cfcc391201f
initial from svn dyncall-1745
author | Daniel Adler |
---|---|
date | Thu, 19 Mar 2015 22:26:28 +0100 |
parents | |
children |
line wrap: on
line diff
--- /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) + } +} +