|
0
|
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
|
