18 lines
303 B
Plaintext
18 lines
303 B
Plaintext
#include "inc/fbJSON.bas"
|
|
|
|
Sub printNodeChildren(Byval n As fbJSON Ptr, Byval level As Integer)
|
|
End Sub
|
|
|
|
Dim test As fbJSON Ptr = fbJSON_ImportFile("test1.json")
|
|
|
|
If test = NULL Then
|
|
Print "Unable to load json file/string!"
|
|
End 1
|
|
End If
|
|
|
|
Print fbJSON_ExportString(test, 1)
|
|
|
|
fbJSON_Delete(test)
|
|
|
|
Sleep
|