Mercurial > pub > dyncall > bindings
comparison 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 |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:0cfcc391201f |
|---|---|
| 1 # | |
| 2 # 1. install functions | |
| 3 # 2. install function variables | |
| 4 # 3. install enums | |
| 5 # 4. install defines | |
| 6 # | |
| 7 | |
| 8 | |
| 9 | |
| 10 begin.info <- function() | |
| 11 { | |
| 12 } | |
| 13 | |
| 14 begin.funs <- function() | |
| 15 { | |
| 16 | |
| 17 } | |
| 18 | |
| 19 parse.funs <- function(line) | |
| 20 { | |
| 21 | |
| 22 } | |
| 23 | |
| 24 | |
| 25 parse <- function(path) | |
| 26 { | |
| 27 file <- file(path) | |
| 28 eof <- FALSE | |
| 29 while(!eof) | |
| 30 { | |
| 31 line <- readLines(file, 1) | |
| 32 } | |
| 33 } | |
| 34 | |
| 35 parse("rdyncall/scratch/test.dyp") | |
| 36 | |
| 37 currentSection <- "" | |
| 38 | |
| 39 | |
| 40 if ( substr(line, 1, 1) == "!" ) { | |
| 41 paste("end.", currentSection) | |
| 42 do.call( paste("end.", currentSection, sep="") ) | |
| 43 type <- substr(line,2) | |
| 44 handler <- paste("begin.",type,sep="") | |
| 45 envs <- find(handler) | |
| 46 if (length(envs) == 1) | |
| 47 do.call(handler) | |
| 48 } | |
| 49 } | |
| 50 |