Mercurial > pub > dyncall > bindings

diff R/scratch/test_json.R @ 0:0cfcc391201f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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/test_json.R	Thu Mar 19 22:26:28 2015 +0100
@@ -0,0 +1,20 @@
+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)