2021-07-03 05:07:57 +01:00
< ! DOCTYPE HTML >
< html >
< head >
< meta http - equiv = " Content-Type " content = " text/html;charset=US-ASCII " >
< meta name = " generator " content = " ZealOS V0.05 " >
< style type = " text/css " >
body { background - color : # 000000 ; }
. cF0 { color : # ffffff ; background - color : # 000000 ; }
. cF1 { color : # 3465 a4 ; background - color : # 000000 ; }
. cF2 { color : # 4e9 a06 ; background - color : # 000000 ; }
. cF3 { color : # 06 989 a ; background - color : # 000000 ; }
. cF4 { color : # a24444 ; background - color : # 000000 ; }
. cF5 { color : # 75507 b ; background - color : # 000000 ; }
. cF6 { color : # ce982f ; background - color : # 000000 ; }
. cF7 { color : # bcc0b9 ; background - color : # 000000 ; }
. cF8 { color : # 555753 ; background - color : # 000000 ; }
. cF9 { color : # 729f cf ; background - color : # 000000 ; }
. cFA { color : # 82 bc49 ; background - color : # 000000 ; }
. cFB { color : # 34e2 e2 ; background - color : # 000000 ; }
. cFC { color : # ac3535 ; background - color : # 000000 ; }
. cFD { color : # ad7fa8 ; background - color : # 000000 ; }
. cFE { color : # fce94f ; background - color : # 000000 ; }
. cFF { color : # 000000 ; background - color : # 000000 ; }
< / style >
< / head >
< body >
2021-07-05 01:12:38 +01:00
< pre style = " font-family:monospace;font-size:12pt " >
2021-07-03 05:07:57 +01:00
< a name = " l1 " > < / a > < span class = cF0 > # < / span > < span class = cF1 > define < / span > < span class = cF0 > JSONT_INVALID < / span > < span class = cFE > 0 < / span > < span class = cF0 >
< a name = " l2 " > < / a > # < / span > < span class = cF1 > define < / span > < span class = cF0 > JSONT_STRING < / span > < span class = cFE > 1 < / span > < span class = cF0 >
< a name = " l3 " > < / a > # < / span > < span class = cF1 > define < / span > < span class = cF0 > JSONT_INTEGER < / span > < span class = cFE > 2 < / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = " l4 " > < / a > # < / span > < span class = cF1 > define < / span > < span class = cF0 > JSONT_FLOAT < / span > < span class = cFE > 3 < / span > < span class = cF0 >
< a name = " l5 " > < / a > # < / span > < span class = cF1 > define < / span > < span class = cF0 > JSONT_ARRAY < / span > < span class = cFE > 4 < / span > < span class = cF0 >
< a name = " l6 " > < / a > # < / span > < span class = cF1 > define < / span > < span class = cF0 > JSONT_BOOL < / span > < span class = cFE > 5 < / span > < span class = cF0 >
< a name = " l7 " > < / a > # < / span > < span class = cF1 > define < / span > < span class = cF0 > JSONT_OBJ < / span > < span class = cFE > 6 < / span > < span class = cF0 >
< a name = " l8 " > < / a > # < / span > < span class = cF1 > define < / span > < span class = cF0 > JSONT_NULL < / span > < span class = cFE > 7 < / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = " l9 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l10 " > < / a > # < / span > < span class = cF1 > define < / span > < span class = cF0 > JSON_HASHTABLE_SIZE < / span > < span class = cFE > 1024 < / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = " l11 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l12 " > < / a > # < / span > < span class = cF1 > define < / span > < span class = cF0 > HTT_JSON < / span > < span class = cFE > 0x00100 < / span > < span class = cF0 > < / span > < span class = cF2 > //identical to HTT_DICT_WORD</span><span class=cF0>
2021-07-03 05:07:57 +01:00
< a name = " l13 " > < / a >
< a name = " l14 " > < / a > < / span > < span class = cF1 > class < / span > < span class = cF0 > CJSONDataEntry : < / span > < span class = cF9 > CQueue < / span > < span class = cF0 >
< a name = " l15 " > < / a > {
2021-07-04 23:11:34 +01:00
< a name = " l16 " > < / a > < / span > < span class = cF1 > U8 < / span > < span class = cF0 > type ;
2021-07-03 05:07:57 +01:00
< a name = " l17 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l18 " > < / a > < / span > < span class = cF9 > I64 < / span > < span class = cF0 > int_data ;
< a name = " l19 " > < / a > < / span > < span class = cF1 > F64 < / span > < span class = cF0 > float_data ;
< a name = " l20 " > < / a > < / span > < span class = cF1 > U8 < / span > < span class = cF0 > * string_data ;
< a name = " l21 " > < / a > < / span > < span class = cF1 > Bool < / span > < span class = cF0 > bool_data ;
< a name = " l22 " > < / a > CJSONDataEntry * list_data ;
< a name = " l23 " > < / a > < / span > < span class = cF9 > CHashTable < / span > < span class = cF0 > * hash_table ;
2021-07-03 05:07:57 +01:00
< a name = " l24 " > < / a > } ;
< a name = " l25 " > < / a >
< a name = " l26 " > < / a > < / span > < span class = cF1 > class < / span > < span class = cF0 > CJSONDataHash : < / span > < span class = cF9 > CHash < / span > < span class = cF0 >
< a name = " l27 " > < / a > {
2021-07-04 23:11:34 +01:00
< a name = " l28 " > < / a > CJSONDataEntry * data ;
2021-07-03 05:07:57 +01:00
< a name = " l29 " > < / a > } ;
< a name = " l30 " > < / a >
< a name = " l31 " > < / a > < / span > < span class = cF1 > U8 < / span > < span class = cF0 > * * JSONGetKeys ( < / span > < span class = cF9 > CHashTable < / span > < span class = cF0 > * table )
< a name = " l32 " > < / a > {
2021-07-04 23:11:34 +01:00
< a name = " l33 " > < / a > < / span > < span class = cF9 > I64 < / span > < span class = cF0 > i , count = < / span > < span class = cFE > 0 < / span > < span class = cF0 > ;
< a name = " l34 " > < / a > < / span > < span class = cF9 > CHash < / span > < span class = cF0 > * temp_hash ;
< a name = " l35 " > < / a > < / span > < span class = cF1 > U8 < / span > < span class = cF0 > * * keys ;
< a name = " l36 " > < / a > < / span > < span class = cF9 > I64 < / span > < span class = cF0 > key_index = < / span > < span class = cFE > 0 < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l37 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l38 " > < / a > < / span > < span class = cF1 > for < / span > < span class = cF0 > ( i = < / span > < span class = cFE > 0 < / span > < span class = cF0 > ; i & lt ; = table - & gt ; mask ; i + + ) < / span > < span class = cF2 > //mask is table length 0-based</span><span class=cF0>
< a name = " l39 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( temp_hash = table - & gt ; body [ i ] ) < / span > < span class = cF2 > //if temp_hash exists</span><span class=cF0>
< a name = " l40 " > < / a > count + + ;
2021-07-03 05:07:57 +01:00
< a name = " l41 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l42 " > < / a > keys = < / span > < span class = cF5 > CAlloc < / span > < span class = cF0 > ( < / span > < span class = cF1 > sizeof < / span > < span class = cF7 > ( < / span > < span class = cF1 > U8 < / span > < span class = cF0 > * < / span > < span class = cF7 > ) < / span > < span class = cF0 > * count ) ; < / span > < span class = cF2 > // alloc string list</span><span class=cF0>
< a name = " l43 " > < / a > < / span > < span class = cF1 > for < / span > < span class = cF0 > ( i = < / span > < span class = cFE > 0 < / span > < span class = cF0 > ; i & lt ; = table - & gt ; mask ; i + + )
< a name = " l44 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( temp_hash = table - & gt ; body [ i ] )
< a name = " l45 " > < / a > < / span > < span class = cF7 > { < / span > < span class = cF0 >
< a name = " l46 " > < / a > keys [ key_index ] = < / span > < span class = cF5 > StrNew < / span > < span class = cF0 > ( temp_hash - & gt ; str ) ; < / span > < span class = cF2 > //add key string to list</span><span class=cF0>
< a name = " l47 " > < / a > key_index + + ;
< a name = " l48 " > < / a > < / span > < span class = cF7 > } < / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = " l49 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l50 " > < / a > < / span > < span class = cF1 > return < / span > < span class = cF0 > keys ;
2021-07-03 05:07:57 +01:00
< a name = " l51 " > < / a > }
< a name = " l52 " > < / a >
< a name = " l53 " > < / a > < / span > < span class = cF1 > U0 < / span > < span class = cF0 > JSONIndentLine ( < / span > < span class = cF9 > I64 < / span > < span class = cF0 > indent )
< a name = " l54 " > < / a > {
2021-07-04 23:11:34 +01:00
< a name = " l55 " > < / a > < / span > < span class = cF9 > I64 < / span > < span class = cF0 > i ;
< a name = " l56 " > < / a > < / span > < span class = cF2 > //</span><span class=cF0> </span><span class=cF2>for (i = 0; i < indent; i++) {" ";}</span><span class=cF0>
< a name = " l57 " > < / a > < / span > < span class = cF1 > for < / span > < span class = cF0 > ( i = < / span > < span class = cFE > 0 < / span > < span class = cF0 > ; i & lt ; indent ; i + + ) < / span > < span class = cF7 > { < / span > < span class = cF6 > & quot ; < / span > < span class = cF0 > < / span > < span class = cF6 > & quot ; < / span > < span class = cF0 > ; < / span > < span class = cF7 > } < / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = " l58 " > < / a >
< a name = " l59 " > < / a > }
< a name = " l60 " > < / a >
< a name = " l61 " > < / a > < / span > < span class = cF1 > U0 < / span > < span class = cF0 > JSONDataRep ( CJSONDataEntry * data , < / span > < span class = cF9 > I64 < / span > < span class = cF0 > indent = < / span > < span class = cFE > 0 < / span > < span class = cF0 > )
< a name = " l62 " > < / a > {
2021-07-04 23:11:34 +01:00
< a name = " l63 " > < / a > < / span > < span class = cF1 > U8 < / span > < span class = cF0 > * * keys ; < / span > < span class = cF2 > // = JSONGetKeys(data->hash_table);</span><span class=cF0>
< a name = " l64 " > < / a > < / span > < span class = cF9 > I64 < / span > < span class = cF0 > index ;
< a name = " l65 " > < / a > < / span > < span class = cF9 > I64 < / span > < span class = cF0 > count ; < / span > < span class = cF2 > // = MSize(keys) / sizeof(U8*);</span><span class=cF0>
< a name = " l66 " > < / a > CJSONDataEntry * entry ; < / span > < span class = cF2 > // = data->list_data->next;//one after head.</span><span class=cF0>
< a name = " l67 " > < / a > CJSONDataHash * temp_hash ;
2021-07-03 05:07:57 +01:00
< a name = " l68 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l69 " > < / a > JSONIndentLine ( indent ) ;
2021-07-03 05:07:57 +01:00
< a name = " l70 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l71 " > < / a > < / span > < span class = cF1 > switch < / span > < span class = cF0 > ( data - & gt ; type )
< a name = " l72 " > < / a > < / span > < span class = cF7 > { < / span > < span class = cF0 >
< a name = " l73 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > JSONT_INVALID :
< a name = " l74 " > < / a > < / span > < span class = cF6 > & quot ; Invalid JSON . \ n & quot ; < / span > < span class = cF0 > ;
< a name = " l75 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l76 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l77 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > JSONT_STRING :
< a name = " l78 " > < / a > < / span > < span class = cF6 > & quot ; % s \ n & quot ; < / span > < span class = cF0 > , data - & gt ; string_data ;
< a name = " l79 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l80 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l81 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > JSONT_INTEGER :
< a name = " l82 " > < / a > < / span > < span class = cF6 > & quot ; % d \ n & quot ; < / span > < span class = cF0 > , data - & gt ; int_data ;
< a name = " l83 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l84 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l85 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > JSONT_FLOAT :
< a name = " l86 " > < / a > < / span > < span class = cF6 > & quot ; % .9f \ n & quot ; < / span > < span class = cF0 > , data - & gt ; float_data ;
< a name = " l87 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l88 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l89 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > JSONT_BOOL :
< a name = " l90 " > < / a > < / span > < span class = cF6 > & quot ; % Z \ n & quot ; < / span > < span class = cF0 > , data - & gt ; bool_data , < / span > < span class = cF6 > & quot ; ST_FALSE_TRUE & quot ; < / span > < span class = cF0 > ;
< a name = " l91 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l92 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l93 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > JSONT_NULL :
< a name = " l94 " > < / a > < / span > < span class = cF6 > & quot ; Null . \ n & quot ; < / span > < span class = cF0 > ;
< a name = " l95 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l96 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l97 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > JSONT_ARRAY :
< a name = " l98 " > < / a > < / span > < span class = cF6 > & quot ; Array : \ n & quot ; < / span > < span class = cF0 > ;
< a name = " l99 " > < / a > JSONIndentLine ( indent ) ;
< a name = " l100 " > < / a > < / span > < span class = cF6 > & quot ; [ \ n & quot ; < / span > < span class = cF0 > ;
< a name = " l101 " > < / a > entry = data - & gt ; list_data - & gt ; next ; < / span > < span class = cF2 > //one after head.</span><span class=cF0>
< a name = " l102 " > < / a > < / span > < span class = cF1 > while < / span > < span class = cF0 > ( entry ! = data - & gt ; list_data ) < / span > < span class = cF2 > //head ignored, stop on head.</span><span class=cF0>
< a name = " l103 " > < / a > {
< a name = " l104 " > < / a > JSONDataRep ( entry , indent + < / span > < span class = cFE > 1 < / span > < span class = cF0 > ) ; < / span > < span class = cF2 > // recursive Rep on the list entry</span><span class=cF0>
< a name = " l105 " > < / a > entry = entry - & gt ; next ;
< a name = " l106 " > < / a > }
< a name = " l107 " > < / a > JSONIndentLine ( indent ) ;
< a name = " l108 " > < / a > < / span > < span class = cF6 > & quot ; ] \ n & quot ; < / span > < span class = cF0 > ;
< a name = " l109 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l110 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l111 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > JSONT_OBJ :
< a name = " l112 " > < / a > < / span > < span class = cF6 > & quot ; Object . \ n & quot ; < / span > < span class = cF0 > ;
< a name = " l113 " > < / a > JSONIndentLine ( indent ) ;
< a name = " l114 " > < / a > < / span > < span class = cF6 > & quot ; { \ n & quot ; < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l115 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l116 " > < / a > keys = JSONGetKeys ( data - & gt ; hash_table ) ;
< a name = " l117 " > < / a > count = < / span > < span class = cF5 > MSize < / span > < span class = cF0 > ( keys ) / < / span > < span class = cF1 > sizeof < / span > < span class = cF0 > ( < / span > < span class = cF1 > U8 < / span > < span class = cF0 > * ) ;
2021-07-03 05:07:57 +01:00
< a name = " l118 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l119 " > < / a > < / span > < span class = cF1 > for < / span > < span class = cF0 > ( index = < / span > < span class = cFE > 0 < / span > < span class = cF0 > ; index & lt ; count ; index + + )
< a name = " l120 " > < / a > {
< a name = " l121 " > < / a > JSONIndentLine ( indent ) ;
< a name = " l122 " > < / a > < / span > < span class = cF6 > & quot ; Key : % s \ n & quot ; < / span > < span class = cF0 > , keys [ index ] ;
< a name = " l123 " > < / a > temp_hash = < / span > < span class = cF5 > HashFind < / span > < span class = cF0 > ( keys [ index ] , data - & gt ; hash_table , HTT_JSON ) ;
< a name = " l124 " > < / a > JSONDataRep ( temp_hash - & gt ; data , indent + < / span > < span class = cFE > 1 < / span > < span class = cF0 > ) ;
< a name = " l125 " > < / a > }
< a name = " l126 " > < / a > JSONIndentLine ( indent ) ;
< a name = " l127 " > < / a > < / span > < span class = cF6 > & quot ; } \ n & quot ; < / span > < span class = cF0 > ;
< a name = " l128 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
< a name = " l129 " > < / a > < / span > < span class = cF7 > } < / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = " l130 " > < / a > }
< a name = " l131 " > < / a >
< a name = " l132 " > < / a > CJSONDataEntry * JSONParse ( < / span > < span class = cF9 > CCompCtrl < / span > < span class = cF0 > * cc )
< a name = " l133 " > < / a > {
2021-07-04 23:11:34 +01:00
< a name = " l134 " > < / a > CJSONDataEntry * result = < / span > < span class = cF5 > CAlloc < / span > < span class = cF0 > ( < / span > < span class = cF1 > sizeof < / span > < span class = cF7 > ( < / span > < span class = cF0 > CJSONDataEntry < / span > < span class = cF7 > ) < / span > < span class = cF0 > ) ;
< a name = " l135 " > < / a > < / span > < span class = cF9 > I64 < / span > < span class = cF0 > tk , last_tk ;
< a name = " l136 " > < / a > < / span > < span class = cF1 > Bool < / span > < span class = cF0 > is_done = < / span > < span class = cF3 > FALSE < / span > < span class = cF0 > ;
< a name = " l137 " > < / a > CJSONDataEntry * temp_entry ; < / span > < span class = cF2 > // = JSONParse(cc);</span><span class=cF0>
< a name = " l138 " > < / a > CJSONDataHash * temp_hash = < / span > < span class = cF5 > CAlloc < / span > < span class = cF0 > ( < / span > < span class = cF1 > sizeof < / span > < span class = cF7 > ( < / span > < span class = cF0 > CJSONDataHash < / span > < span class = cF7 > ) < / span > < span class = cF0 > ) ;
2021-07-03 05:07:57 +01:00
< a name = " l139 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l140 " > < / a > < / span > < span class = cF1 > while < / span > < span class = cF0 > ( tk = < / span > < span class = cF5 > Lex < / span > < span class = cF7 > ( < / span > < span class = cF0 > cc < / span > < span class = cF7 > ) < / span > < span class = cF0 > )
< a name = " l141 " > < / a > < / span > < span class = cF7 > { < / span > < span class = cF0 >
< a name = " l142 " > < / a > < / span > < span class = cF2 > //</span><span class=cF0> </span><span class=cF2>ClassRep(cc);</span><span class=cF0>
< a name = " l143 " > < / a > < / span > < span class = cF1 > switch < / span > < span class = cF0 > ( tk )
< a name = " l144 " > < / a > {
2021-07-03 05:07:57 +01:00
< a name = " l145 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l146 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > < / span > < span class = cF6 > ' } ' < / span > < span class = cF0 > :
< a name = " l147 " > < / a > < / span > < span class = cF5 > LexExcept < / span > < span class = cF0 > ( cc , < / span > < span class = cF6 > & quot ; Expected Value , got ' } ' . & quot ; < / span > < span class = cF0 > ) ;
< a name = " l148 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > < / span > < span class = cF3 > TK_STR < / span > < span class = cF0 > :
< a name = " l149 " > < / a > result - & gt ; type = JSONT_STRING ;
< a name = " l150 " > < / a > result - & gt ; string_data = < / span > < span class = cF5 > StrNew < / span > < span class = cF0 > ( cc - & gt ; cur_str ) ;
2021-07-03 05:07:57 +01:00
< a name = " l151 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l152 " > < / a > is_done = < / span > < span class = cF3 > TRUE < / span > < span class = cF0 > ;
< a name = " l153 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l154 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l155 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > < / span > < span class = cF3 > TK_I64 < / span > < span class = cF0 > : < / span > < span class = cF2 > //todo, LexExcept on 0x or 0b vals.</span><span class=cF0>
< a name = " l156 " > < / a > result - & gt ; type = JSONT_INTEGER ;
< a name = " l157 " > < / a > result - & gt ; int_data = cc - & gt ; cur_i64 ;
2021-07-03 05:07:57 +01:00
< a name = " l158 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l159 " > < / a > < / span > < span class = cF2 > //</span><span class=cF0> </span><span class=cF2>LexPush(cc);</span><span class=cF0>
< a name = " l160 " > < / a > < / span > < span class = cF2 > //</span><span class=cF0> </span><span class=cF2>"got hex val, token string is %s\n",cc->cur_str;</span><span class=cF0>
< a name = " l161 " > < / a > < / span > < span class = cF2 > //</span><span class=cF0> </span><span class=cF2>ClassRep(cc);</span><span class=cF0>
< a name = " l162 " > < / a > < / span > < span class = cF2 > //</span><span class=cF0> </span><span class=cF2>Break;</span><span class=cF0>
2021-07-03 05:07:57 +01:00
< a name = " l163 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l164 " > < / a > is_done = < / span > < span class = cF3 > TRUE < / span > < span class = cF0 > ;
< a name = " l165 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l166 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l167 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > < / span > < span class = cF3 > TK_F64 < / span > < span class = cF0 > :
< a name = " l168 " > < / a > result - & gt ; type = JSONT_FLOAT ;
< a name = " l169 " > < / a > result - & gt ; float_data = cc - & gt ; cur_f64 ;
2021-07-03 05:07:57 +01:00
< a name = " l170 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l171 " > < / a > is_done = < / span > < span class = cF3 > TRUE < / span > < span class = cF0 > ;
< a name = " l172 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l173 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l174 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > < / span > < span class = cF3 > TK_IDENT < / span > < span class = cF0 > :
< a name = " l175 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( ! < / span > < span class = cF5 > StrCompare < / span > < span class = cF7 > ( < / span > < span class = cF0 > cc - & gt ; cur_str , < / span > < span class = cF6 > & quot ; true & quot ; < / span > < span class = cF7 > ) < / span > < span class = cF0 > | |
< a name = " l176 " > < / a > ! < / span > < span class = cF5 > StrCompare < / span > < span class = cF7 > ( < / span > < span class = cF0 > cc - & gt ; cur_str , < / span > < span class = cF6 > & quot ; false & quot ; < / span > < span class = cF7 > ) < / span > < span class = cF0 > )
< a name = " l177 " > < / a > < / span > < span class = cF7 > { < / span > < span class = cF0 >
< a name = " l178 " > < / a > result - & gt ; type = JSONT_BOOL ;
2021-07-03 05:07:57 +01:00
< a name = " l179 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l180 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( ! < / span > < span class = cF5 > StrCompare < / span > < span class = cF7 > ( < / span > < span class = cF0 > cc - & gt ; cur_str , < / span > < span class = cF6 > & quot ; true & quot ; < / span > < span class = cF7 > ) < / span > < span class = cF0 > )
< a name = " l181 " > < / a > result - & gt ; bool_data = < / span > < span class = cF3 > TRUE < / span > < span class = cF0 > ;
< a name = " l182 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( ! < / span > < span class = cF5 > StrCompare < / span > < span class = cF7 > ( < / span > < span class = cF0 > cc - & gt ; cur_str , < / span > < span class = cF6 > & quot ; false & quot ; < / span > < span class = cF7 > ) < / span > < span class = cF0 > )
< a name = " l183 " > < / a > result - & gt ; bool_data = < / span > < span class = cF3 > FALSE < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l184 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l185 " > < / a > is_done = < / span > < span class = cF3 > TRUE < / span > < span class = cF0 > ;
< a name = " l186 " > < / a > < / span > < span class = cF7 > } < / span > < span class = cF0 >
< a name = " l187 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( ! < / span > < span class = cF5 > StrCompare < / span > < span class = cF7 > ( < / span > < span class = cF0 > cc - & gt ; cur_str , < / span > < span class = cF6 > & quot ; null & quot ; < / span > < span class = cF7 > ) < / span > < span class = cF0 > )
< a name = " l188 " > < / a > < / span > < span class = cF7 > { < / span > < span class = cF0 >
< a name = " l189 " > < / a > result - & gt ; type = JSONT_NULL ;
2021-07-03 05:07:57 +01:00
< a name = " l190 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l191 " > < / a > is_done = < / span > < span class = cF3 > TRUE < / span > < span class = cF0 > ;
< a name = " l192 " > < / a > < / span > < span class = cF7 > } < / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = " l193 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l194 " > < / a > is_done = < / span > < span class = cF3 > TRUE < / span > < span class = cF0 > ;
< a name = " l195 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l196 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l197 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > < / span > < span class = cF6 > ' [ ' < / span > < span class = cF0 > :
< a name = " l198 " > < / a > result - & gt ; type = JSONT_ARRAY ;
< a name = " l199 " > < / a > result - & gt ; list_data = < / span > < span class = cF5 > CAlloc < / span > < span class = cF0 > ( < / span > < span class = cF1 > sizeof < / span > < span class = cF7 > ( < / span > < span class = cF0 > CJSONDataEntry < / span > < span class = cF7 > ) < / span > < span class = cF0 > ) ;
< a name = " l200 " > < / a > < / span > < span class = cF5 > QueueInit < / span > < span class = cF0 > ( result - & gt ; list_data ) ;
2021-07-03 05:07:57 +01:00
< a name = " l201 " > < / a >
< a name = " l202 " > < / a > lex_listitem :
< a name = " l203 " > < / a > < / span > < span class = cF2 > /*</span><span class=cF0>
2021-07-04 23:11:34 +01:00
< a name = " l204 " > < / a > < / span > < span class = cF2 > CCompCtrl * temp_cc = NULL ; < / span > < span class = cF0 >
< a name = " l205 " > < / a > < / span > < span class = cF2 > MemCopy ( temp_cc , cc , CompCtrlSize ( cc ) ) ; < / span > < span class = cF0 >
< a name = " l206 " > < / a > < / span > < span class = cF2 > tk = Lex ( temp_cc ) ; < / span > < span class = cF0 >
< a name = " l207 " > < / a > < / span > < span class = cF2 > //</span><span class=cF0> </span><span class=cF2>CompCtrlDel(temp_cc);</span><span class=cF0>
2021-07-03 05:07:57 +01:00
< a name = " l208 " > < / a > < / span > < span class = cF2 > */ < / span > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = " l209 " > < / a > last_tk = tk ;
< a name = " l210 " > < / a > < / span > < span class = cF5 > LexPush < / span > < span class = cF0 > ( cc ) ;
< a name = " l211 " > < / a > tk = < / span > < span class = cF5 > Lex < / span > < span class = cF0 > ( cc ) ;
2021-07-03 05:07:57 +01:00
< a name = " l212 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l213 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( last_tk = = < / span > < span class = cF6 > ' , ' < / span > < span class = cF0 > & amp ; & amp ; tk = = < / span > < span class = cF6 > ' ] ' < / span > < span class = cF0 > )
< a name = " l214 " > < / a > < / span > < span class = cF5 > LexExcept < / span > < span class = cF0 > ( cc , < / span > < span class = cF6 > & quot ; Expected List value , got ' ] ' & quot ; < / span > < span class = cF0 > ) ;
2021-07-03 05:07:57 +01:00
< a name = " l215 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l216 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( tk = = < / span > < span class = cF6 > ' ] ' < / span > < span class = cF0 > )
< a name = " l217 " > < / a > < / span > < span class = cF1 > goto < / span > < span class = cF0 > lex_listdone ;
2021-07-03 05:07:57 +01:00
< a name = " l218 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l219 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( tk = = < / span > < span class = cF6 > ' , ' < / span > < span class = cF0 > )
< a name = " l220 " > < / a > < / span > < span class = cF5 > LexExcept < / span > < span class = cF0 > ( cc , < / span > < span class = cF6 > & quot ; Expected List Value , got comma . & quot ; < / span > < span class = cF0 > ) ;
2021-07-03 05:07:57 +01:00
< a name = " l221 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l222 " > < / a > < / span > < span class = cF5 > LexPopRestore < / span > < span class = cF0 > ( cc ) ;
< a name = " l223 " > < / a > temp_entry = JSONParse ( cc ) ;
< a name = " l224 " > < / a > < / span > < span class = cF5 > QueueInsert < / span > < span class = cF0 > ( temp_entry , result - & gt ; list_data - & gt ; last ) ;
2021-07-03 05:07:57 +01:00
< a name = " l225 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l226 " > < / a > tk = < / span > < span class = cF5 > Lex < / span > < span class = cF0 > ( cc ) ;
< a name = " l227 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( tk = = < / span > < span class = cF6 > ' , ' < / span > < span class = cF0 > )
< a name = " l228 " > < / a > < / span > < span class = cF1 > goto < / span > < span class = cF0 > lex_listitem ;
2021-07-03 05:07:57 +01:00
< a name = " l229 " > < / a >
< a name = " l230 " > < / a > lex_listdone :
< a name = " l231 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l232 " > < / a > < / span > < span class = cF2 > //</span><span class=cF0> </span><span class=cF2>LexPopNoRestore(cc);</span><span class=cF0>
< a name = " l233 " > < / a > is_done = < / span > < span class = cF3 > TRUE < / span > < span class = cF0 > ;
< a name = " l234 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = " l235 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l236 " > < / a > < / span > < span class = cF1 > case < / span > < span class = cF0 > < / span > < span class = cF6 > ' { ' < / span > < span class = cF0 > :
< a name = " l237 " > < / a > result - & gt ; type = JSONT_OBJ ;
< a name = " l238 " > < / a > result - & gt ; hash_table = < / span > < span class = cF5 > HashTableNew < / span > < span class = cF0 > ( JSON_HASHTABLE_SIZE ) ;
2021-07-03 05:07:57 +01:00
< a name = " l239 " > < / a >
< a name = " l240 " > < / a > lex_objkey :
2021-07-04 23:11:34 +01:00
< a name = " l241 " > < / a > < / span > < span class = cF2 > //lex next. expect TK_STR. Make a temp_hash.</span><span class=cF0>
< a name = " l242 " > < / a > last_tk = tk ;
< a name = " l243 " > < / a > tk = < / span > < span class = cF5 > Lex < / span > < span class = cF0 > ( cc ) ;
2021-07-03 05:07:57 +01:00
< a name = " l244 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l245 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( last_tk = = < / span > < span class = cF6 > ' , ' < / span > < span class = cF0 > & amp ; & amp ; tk = = < / span > < span class = cF6 > ' } ' < / span > < span class = cF0 > )
< a name = " l246 " > < / a > < / span > < span class = cF5 > LexExcept < / span > < span class = cF0 > ( cc , < / span > < span class = cF6 > & quot ; Expected Key after comma . & quot ; < / span > < span class = cF0 > ) ;
2021-07-03 05:07:57 +01:00
< a name = " l247 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l248 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( tk = = < / span > < span class = cF6 > ' } ' < / span > < span class = cF0 > )
< a name = " l249 " > < / a > < / span > < span class = cF1 > goto < / span > < span class = cF0 > lex_objdone ;
2021-07-03 05:07:57 +01:00
< a name = " l250 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l251 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( tk ! = < / span > < span class = cF3 > TK_STR < / span > < span class = cF0 > )
< a name = " l252 " > < / a > < / span > < span class = cF5 > LexExcept < / span > < span class = cF0 > ( cc , < / span > < span class = cF6 > & quot ; Expected Key String . & quot ; < / span > < span class = cF0 > ) ;
2021-07-03 05:07:57 +01:00
< a name = " l253 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l254 " > < / a > temp_hash = < / span > < span class = cF5 > CAlloc < / span > < span class = cF0 > ( < / span > < span class = cF1 > sizeof < / span > < span class = cF7 > ( < / span > < span class = cF0 > CJSONDataHash < / span > < span class = cF7 > ) < / span > < span class = cF0 > ) ;
2021-07-03 05:07:57 +01:00
< a name = " l255 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l256 " > < / a > < / span > < span class = cF2 > //set hash type and StrNew with cc->cur_str into hash str.</span><span class=cF0>
< a name = " l257 " > < / a > temp_hash - & gt ; type = HTT_JSON ;
< a name = " l258 " > < / a > temp_hash - & gt ; str = < / span > < span class = cF5 > StrNew < / span > < span class = cF0 > ( cc - & gt ; cur_str ) ;
2021-07-03 05:07:57 +01:00
< a name = " l259 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l260 " > < / a > < / span > < span class = cF2 > //lex next. expect ':'. </span><span class=cF0>
< a name = " l261 " > < / a > tk = < / span > < span class = cF5 > Lex < / span > < span class = cF0 > ( cc ) ;
< a name = " l262 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( tk ! = < / span > < span class = cF6 > ' : ' < / span > < span class = cF0 > )
< a name = " l263 " > < / a > < / span > < span class = cF5 > LexExcept < / span > < span class = cF0 > ( cc , < / span > < span class = cF6 > & quot ; Expected ' : ' after Key String . & quot ; < / span > < span class = cF0 > ) ;
2021-07-03 05:07:57 +01:00
< a name = " l264 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l265 " > < / a > < / span > < span class = cF2 > //now expect JSONDataEntry-able value next.</span><span class=cF0>
< a name = " l266 " > < / a > < / span > < span class = cF2 > //Recursive JSONParse into hash data member.</span><span class=cF0>
< a name = " l267 " > < / a > temp_hash - & gt ; data = JSONParse ( cc ) ;
2021-07-03 05:07:57 +01:00
< a name = " l268 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l269 " > < / a > < / span > < span class = cF2 > //JSONParse leaves off on the last token. e.g. int, tk will</span><span class=cF0>
< a name = " l270 " > < / a > < / span > < span class = cF2 > //still be TK_I64.</span><span class=cF0>
2021-07-03 05:07:57 +01:00
< a name = " l271 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l272 " > < / a > < / span > < span class = cF2 > //add hash to result hash_table.</span><span class=cF0>
< a name = " l273 " > < / a > < / span > < span class = cF5 > HashAdd < / span > < span class = cF0 > ( temp_hash , result - & gt ; hash_table ) ;
< a name = " l274 " > < / a > < / span > < span class = cF2 > //</span><span class=cF0> </span><span class=cF2>"Debugging.\nHash added with str:%s.\n",temp_hash->str;</span><span class=cF0>
< a name = " l275 " > < / a > < / span > < span class = cF2 > //</span><span class=cF0> </span><span class=cF2>ClassRep(temp_hash->data);</span><span class=cF0>
2021-07-03 05:07:57 +01:00
< a name = " l276 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l277 " > < / a > < / span > < span class = cF2 > //lex next. expect ',' or '}'.</span><span class=cF0>
< a name = " l278 " > < / a > tk = < / span > < span class = cF5 > Lex < / span > < span class = cF0 > ( cc ) ;
< a name = " l279 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( tk ! = < / span > < span class = cF6 > ' , ' < / span > < span class = cF0 > & amp ; & amp ; tk ! = < / span > < span class = cF6 > ' } ' < / span > < span class = cF0 > )
< a name = " l280 " > < / a > < / span > < span class = cF5 > LexExcept < / span > < span class = cF0 > ( cc , < / span > < span class = cF6 > & quot ; Expected ' , ' or ' } ' after Object Value . & quot ; < / span > < span class = cF0 > ) ;
< a name = " l281 " > < / a > < / span > < span class = cF2 > //if ',' ... Terry's parsing code would imply labels and gotos.</span><span class=cF0>
< a name = " l282 " > < / a > < / span > < span class = cF2 > //i wonder if there's a better, less BASIC way.</span><span class=cF0>
< a name = " l283 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( tk = = < / span > < span class = cF6 > ' , ' < / span > < span class = cF0 > )
< a name = " l284 " > < / a > < / span > < span class = cF1 > goto < / span > < span class = cF0 > lex_objkey ;
2021-07-03 05:07:57 +01:00
< a name = " l285 " > < / a > lex_objdone :
< a name = " l286 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l287 " > < / a > is_done = < / span > < span class = cF3 > TRUE < / span > < span class = cF0 > ;
< a name = " l288 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
< a name = " l289 " > < / a > }
2021-07-03 05:07:57 +01:00
< a name = " l290 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l291 " > < / a > < / span > < span class = cF1 > if < / span > < span class = cF0 > ( is_done )
< a name = " l292 " > < / a > < / span > < span class = cF1 > break < / span > < span class = cF0 > ;
< a name = " l293 " > < / a > < / span > < span class = cF7 > } < / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = " l294 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l295 " > < / a > < / span > < span class = cF1 > return < / span > < span class = cF0 > result ;
2021-07-03 05:07:57 +01:00
< a name = " l296 " > < / a > }
< a name = " l297 " > < / a >
< a name = " l298 " > < / a > < / span > < span class = cF1 > U0 < / span > < span class = cF0 > Test ( < / span > < span class = cF1 > U8 < / span > < span class = cF0 > * filename )
< a name = " l299 " > < / a > {
2021-07-04 23:11:34 +01:00
< a name = " l300 " > < / a > < / span > < span class = cF9 > CCompCtrl < / span > < span class = cF0 > * cc = < / span > < span class = cF5 > CompCtrlNew < / span > < span class = cF0 > ( < / span > < span class = cF5 > MStrPrint < / span > < span class = cF7 > ( < / span > < span class = cF6 > & quot ; # include \ & quot ; % s \ & quot ; & quot ; < / span > < span class = cF0 > , filename < / span > < span class = cF7 > ) < / span > < span class = cF0 > ) ;
< a name = " l301 " > < / a > CJSONDataEntry * result = JSONParse ( cc ) ;
2021-07-03 05:07:57 +01:00
< a name = " l302 " > < / a >
2021-07-04 23:11:34 +01:00
< a name = " l303 " > < / a > JSONDataRep ( result ) ;
2021-07-03 05:07:57 +01:00
< a name = " l304 " > < / a > }
< a name = " l305 " > < / a >
< a name = " l306 " > < / a > < / span > < span class = cF5 > Cd < / span > < span class = cF0 > ( < / span > < span class = cF3 > __DIR__ < / span > < span class = cF0 > ) ;
< a name = " l307 " > < / a > Test ( < / span > < span class = cF6 > & quot ; JSON1 . TXT & quot ; < / span > < span class = cF0 > ) ; < / span > < / pre > < / body >
< / html >
