view R/scratch/dynport_dyp.R @ 22:4ee8d6aa7721

- java binding cleanup, exposed free functions (not very oo, this entire binding) - java binding examples
author cslag
date Sat, 09 Apr 2016 18:18:34 -0500
parents 0cfcc391201f
children
line wrap: on
line source

#
# 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)
  }
}