Parsing XML and JSON documents

(!******************************************************
   Mosel Example Problems
   ======================

   file xparse.mos
   ```````````````
   A simple example of the use of the SAX parser in mmxml
   
   (c) 2014 Fair Isaac Corporation
       author: Y. Colombani, October 2014
*******************************************************!)

model xparse
uses 'mmxml'

declarations
 d:xmldoc
end-declarations

forward public procedure myload(d:xmldoc,fname:text)

myload(d,"refexample.xml")
save(d,"")

!------------------------------------------------------

! The following structure will be used to store the state of the parser
declarations
 public s_ctx=
    record
	doc:xmldoc
	curnode:integer
    end-record
end-declarations

!------------------------------------------------------

! **** Callback function: Beginning of an element ****
public function start_elt(c:s_ctx,name:text,nba:integer):integer
 declarations
  att,val:text
 end-declarations

 c.curnode:=addnode(c.doc,c.curnode,XML_ELT,name)
 ! 'xmlattr' is used to retrieve attributes associated to current node
 ! 'xmlattr(att,val)' can also be used to retrieve the value of attribute 'att'
 forall(i in 1..nba) do
  xmlattr(i,att,val)
  setattr(c.doc,c.curnode,string(att),val)
 end-do
 xmlattr("name",val)
end-function

! **** Callback function: Mark the end of a an element ****
public function end_elt(c:s_ctx):integer
 c.curnode:=getparent(c.doc,c.curnode)
end-function

! **** Callback function: Store a text object 
!     'type' indicates the XML node type (e.g. TEXT, CDATA...) ****
public function txthdl(c:s_ctx,type:integer,data:text):integer
 n:=addnode(c.doc,c.curnode,type,data)
end-function

! **** Callback function: Record document declaration details ****
public function xdecl(c:s_ctx,vers:text,encoding:text,std:integer):integer
 setencoding(c.doc,string(encoding))
 setstandalone(c.doc,std)
 setxmlversion(c.doc,string(vers))
end-function

! **** Callback function: Store a processing instruction ****
public function pinst(c:s_ctx,target:text,data:text):integer
 n:=addnode(c.doc,c.curnode,XML_PINST,string(target),data)
end-function

!------------------------------------------------------

! **** An implementation of 'load(xmldoc,text)' using the SAX parser ****
public procedure myload(d:xmldoc,fname:text)
 declarations
  afct:array(range) of string
  ctx:s_ctx
 end-declarations

 afct(XML_FCT_DECL):="xdecl"         ! Declaration (XML version, encoding)
 afct(XML_FCT_TXT):="txthdl"         ! Text
 afct(XML_FCT_CDATA):="txthdl"       ! Cdata
 afct(XML_FCT_COM):="txthdl"         ! Comment
 afct(XML_FCT_DATA):="txthdl"        ! Data (non qualifiee)
 afct(XML_FCT_PINST):="pinst"        ! Processing instruction
 afct(XML_FCT_OPEN_ELT):="start_elt" ! Start of an element
 afct(XML_FCT_CLOSE_ELT):="end_elt"  ! End of an element

 ctx.curnode:=0;
 fopen(fname,F_INPUT)
 ! 'xmlparse' expects a table of functions (all are optional)
 ! the option indicates whether spaces should be kept (0: keep spaces;
 ! 1: skip spaces)
 ! the last argument will be passed to all functions
 rts:=xmlparse(afct,1,ctx)
 fclose(F_INPUT)
 d:=ctx.doc
end-procedure

end-model

(!******************************************************
   Mosel Example Problems
   ======================

   file xparse.mos
   ```````````````
   A simple example of the use of the JSON parser in mmxml
   
   (c) 2014 Fair Isaac Corporation
       author: Y. Colombani, October 2014
*******************************************************!)

model jparse

uses 'mmxml'

declarations
 d:xmldoc
 public src=`
[
 {
  "name": "bob",
  "age": 25,
  "student": true,
  "phone":
  [
   { "type": "home", "number": "1234567900" },
   { "type": "work", "number": "6789012345" }
  ],
  "empty":null
  }
]
`
end-declarations

forward public procedure myjsonload(d:xmldoc,fname:text)

myjsonload(d,"text:src")
save(d,"")

!------------------------------------------------------

! The following structure will be used to store the state of the parser
declarations
 public s_ctx=
    record
	doc:xmldoc
	jtype:array(0..3) of string
	curnode:integer
    end-record
end-declarations

!------------------------------------------------------

! **** Callback function: Start an object ****
public function open_obj(c:s_ctx,name:text):integer
 c.curnode:=addnode(c.doc,c.curnode,XML_ELT,if(name="","jsv",string(name)))
 setattr(c.doc,c.curnode,"jst","obj")
end-function

! **** Callback function: End an object ****
public function close_obj(c:s_ctx):integer
 c.curnode:=getparent(c.doc,c.curnode)
end-function

! **** Callback function: Start an array ****
public function open_arr(c:s_ctx,name:text):integer
 c.curnode:=addnode(c.doc,c.curnode,XML_ELT,if(name="","jsv",string(name)))
 setattr(c.doc,c.curnode,"jst","arr")
end-function

! **** Callback function: End an array ****
public function close_arr(c:s_ctx):integer
 c.curnode:=getparent(c.doc,c.curnode)
end-function

! **** Callback function: Store a value ****
public function setvalue_all(c:s_ctx,name:text,type:integer,val:text):integer
 n:=addnode(c.doc,c.curnode,XML_ELT,if(name="","jsv",string(name)),val)
 setattr(c.doc,n,"jst",c.jtype(type))
end-function

! **** Callback function: Store a numerical value 
!      ('JSON_FCT_TEXT' is used if this one is not defined) ****
public function setvalue_num(c:s_ctx,name:text,val:real):integer
 n:=addnode(c.doc,c.curnode,XML_ELT,if(name="","jsv",string(name)),text(val))
 setattr(c.doc,n,"jst","num")
end-function

! **** Callback function: Store a Boolean value 
!      ('JSON_FCT_TEXT' is used if this one is not defined) ****
public function setvalue_bool(c:s_ctx,name:text,val:boolean):integer
 n:=addnode(c.doc,c.curnode,XML_ELT,if(name="","jsv",string(name)),text(val))
 setattr(c.doc,n,"jst","boo")
end-function

! **** Callback function: Store the null value 
!      ('JSON_FCT_TEXT' is used if this one is not defined) ****
public function setvalue_null(c:s_ctx,name:text):integer
 n:=addnode(c.doc,c.curnode,XML_ELT,if(name="","jsv",string(name)),"null")
 setattr(c.doc,n,"jst","nul")
end-function

!------------------------------------------------------

! **** An implementation of 'jsonload(xmldoc,text)' using the JSON parser ****
public procedure myjsonload(d:xmldoc,fname:text)
 declarations
  afct:array(range) of string
  ctx:s_ctx
 end-declarations

 afct(JSON_FCT_OPEN_OBJ):="open_obj"      ! Start an object
 afct(JSON_FCT_CLOSE_OBJ):="close_obj"    ! End an object
 afct(JSON_FCT_OPEN_ARR):="open_arr"      ! Start an array
 afct(JSON_FCT_CLOSE_ARR):="close_arr"    ! End an array
 afct(JSON_FCT_TEXT):="setvalue_all"      ! A value as a text
 afct(JSON_FCT_NUM):="setvalue_num"       ! A numerical value
 afct(JSON_FCT_BOOL):="setvalue_bool"     ! A Boolean value
 afct(JSON_FCT_NULL):="setvalue_null"     ! The "null" value

 fopen(fname,F_INPUT)
 ctx.curnode:=0;
 ctx.jtype::([0,1,2,3])["nul","str","num","boo"]
 ! 'jsonparse' expects a table of functions (all are optional)
 ! the last argument will be passed to all functions
 rts:=jsonparse(afct,ctx)
 fclose(F_INPUT)
 d:=ctx.doc
end-procedure

end-model