JSON parsing and composing library

Gx_l
¨!0…jüo·pn_.É[­ï

System.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument    L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}

Gx_l
ª!0…jüo¹vdhƒÉ[­ï

System.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument    L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}

TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagTextÒ
(*=======================================================================================================JSONVAR()VAuthor: Tim Van Meppelen, Pro Electric Inc.(timv@proelectric.com"Date: Nov 2, 2018(local JSON variablesVfor use with JSON_TO_STRUCT, STRUCT_TO_JSON 
variable type and size are automatically determined when a value is set, either:Ò
    -with the set accessor of the AsString Property, which will make a guess at the type, based on the value¾
    -with any of the set accessors of the CharString, Boolean, Integer, Number, or Null propertiesZvariable name is set automatically in FB_Init@ -variable name is the JSON nameÆ
  -JSON allows some object names that are not valid variable names in IEC61131, for example "type", Â
    "3h", etc.  Workaround is to put an underscore at the beginning of the variable name.  This will¼
    match in JSON_TO_STRUCT, and STRUCT_TO_JSON will create a name without the leading underscore Ô
========================================================================================================*)!Interface"L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}#<{attribute 'pack_mode' := '4'}$0{attribute 'reflection'}%<{attribute 'symbol' := 'none'}&,FUNCTION_BLOCK JSONVAR'VAR(`  {attribute 'instance-path'}{attribute 'noinit'})°
  _VarNameFull:       STRING(GPL_JSON.MAX_VAR_NAME);             //JSON name uses the variable name*¨    _VarNameArray:      ARRAY[1..GPL_JSON.MAX_LEVELS] OF JSONVARNAME; //variable path as an array. [1] is variable name, [2..x] are higher level structures+Æ  {attribute 'hide'}_ValueType:       JSONVALUETYPE:= JSONVALUETYPE.json_null;   //type of variable contained in the value field, also implicity defines size of local var,þ
  {attribute 'hide'}_InternalValue:    ARRAY[1..GPL_JSON.MAX_VALUE_SIZE+1] OF BYTE;   //value stored internally as an array of bytes-ž    {attribute 'hide'}_Size:            UINT;                            //size of internal value in bytes, automatically determined when any of the type properties are set.Ò
  {attribute 'hide'}_ParentVar:       INT;                              //array position which points to the highest variable name/END_VAR0VAR_OUTPUT1‚  {attribute 'symbol' := 'read'}HMIVarAsString: STRING(GPL_JSON.MAX_VALUE_SIZE); //properties can't be linked to visualizations, so this output var is updated every time AsString property is set2VAR_STAT3Ä
  {attribute 'hide'}PrevParentVar:      REFERENCE TO INT;    //highest variable name in previous variable4ø
    {attribute 'hide'}PrevNameArray:      REFERENCE TO ARRAY[1..GPL_JSON.MAX_LEVELS] OF JSONVARNAME;//path of the previous variable5"UniqueIdGenerator61117POULevel8L{8e575c5b-1d37-49c6-941b-5c0ec7874787}9Standard: ChildObjectGuids;8System.Collections.ArrayList<,AddAttributeSubsequent=boolÐÐ-Ð
Ð  
E

TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagTextÒ
(*=======================================================================================================JSONVAR()VAuthor: Tim Van Meppelen, Pro Electric Inc.(timv@proelectric.com"Date: Nov 2, 2018(local JSON variablesVfor use with JSON_TO_STRUCT, STRUCT_TO_JSON 
variable type and size are automatically determined when a value is set, either:Ò
    -with the set accessor of the AsString Property, which will make a guess at the type, based on the value¾
    -with any of the set accessors of the CharString, Boolean, Integer, Number, or Null propertiesZvariable name is set automatically in FB_Init@ -variable name is the JSON nameÆ
  -JSON allows some object names that are not valid variable names in IEC61131, for example "type", Â
    "3h", etc.  Workaround is to put an underscore at the beginning of the variable name.  This will¼
    match in JSON_TO_STRUCT, and STRUCT_TO_JSON will create a name without the leading underscore Ô
========================================================================================================*)!Interface"L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}#<{attribute 'pack_mode' := '4'}$0{attribute 'reflection'}%<{attribute 'symbol' := 'none'}&,FUNCTION_BLOCK JSONVAR'VAR(`  {attribute 'instance-path'}{attribute 'noinit'})°
  _VarNameFull:       STRING(GPL_JSON.MAX_VAR_NAME);             //JSON name uses the variable name*¨    _VarNameArray:      ARRAY[1..GPL_JSON.MAX_LEVELS] OF JSONVARNAME; //variable path as an array. [1] is variable name, [2..x] are higher level structures+Æ  {attribute 'hide'}_ValueType:       JSONVALUETYPE:= JSONVALUETYPE.json_null;   //type of variable contained in the value field, also implicity defines size of local var,þ
  {attribute 'hide'}_InternalValue:    ARRAY[1..GPL_JSON.MAX_VALUE_SIZE+1] OF BYTE;   //value stored internally as an array of bytes-ž    {attribute 'hide'}_Size:            UINT;                            //size of internal value in bytes, automatically determined when any of the type properties are set.È
  {attribute 'hide'}_ApplicationLevel:   INT;                              //array position which points to the application/END_VAR0VAR_OUTPUT1‚  {attribute 'symbol' := 'read'}HMIVarAsString: STRING(GPL_JSON.MAX_VALUE_SIZE); //properties can't be linked to visualizations, so this output var is updated every time AsString property is set2VAR_STAT3Ð
  {attribute 'hide'}PrevApplicationLevel: REFERENCE TO INT;    //highest variable name in previous variable4ø
    {attribute 'hide'}PrevNameArray:      REFERENCE TO ARRAY[1..GPL_JSON.MAX_LEVELS] OF JSONVARNAME;//path of the previous variable5"UniqueIdGenerator61127POULevel8L{8e575c5b-1d37-49c6-941b-5c0ec7874787}9Standard: ChildObjectGuids;8System.Collections.ArrayList<,AddAttributeSubsequent=boolÐÐ-Ð
Ð  
E