Mercurial > pub > dyncall > bindings

view R/scratch/test_json.R @ 43:1086ca649715

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- fixed use after free issue with string handling (keeping strings as copy until after call)
author Tassilo Philipp
date Wed, 15 Apr 2020 21:58:13 +0200
parents 0cfcc391201f
children
line wrap: on
line source

library(rjson)

parseJSON <- function(path)
{
  parser <- newJSONParser()
  f <- file(path)
  open(f)
  while(TRUE) 
  {
    aLine <- readLines(f, 1)
    if (length(aLine) == 0) break    
    parser$addData( aLine )
  }
  close(f)
  parser$getObject()
}
# TEST:
testfile <- "/lab/eclipse/dyncall/rdyncall/inst/dynports/GL.json"
x <- parseJSON(testfile)
# print(glinfo)