annotate R/scratch/test_json.R @ 29:6cc2b7fc7ea2
bigger pydc update:
- cleanups and refactoring
- python 2 fixes in var conversions (especially w/ respect to int vs long)
- fix to pydc.free() which didn't work at all
- fix to return python bool as actual bool
- test lib covering all conversions (manual verification, though :-/)
| author |
Tassilo Philipp |
| date |
Wed, 08 Apr 2020 22:17:43 +0200 |
| parents |
0cfcc391201f |
| children |
|
| rev |
line source |
|
0
|
1 library(rjson)
|
|
|
2
|
|
|
3 parseJSON <- function(path)
|
|
|
4 {
|
|
|
5 parser <- newJSONParser()
|
|
|
6 f <- file(path)
|
|
|
7 open(f)
|
|
|
8 while(TRUE)
|
|
|
9 {
|
|
|
10 aLine <- readLines(f, 1)
|
|
|
11 if (length(aLine) == 0) break
|
|
|
12 parser$addData( aLine )
|
|
|
13 }
|
|
|
14 close(f)
|
|
|
15 parser$getObject()
|
|
|
16 }
|
|
|
17 # TEST:
|
|
|
18 testfile <- "/lab/eclipse/dyncall/rdyncall/inst/dynports/GL.json"
|
|
|
19 x <- parseJSON(testfile)
|
|
|
20 # print(glinfo)
|
