Return to 253.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/253.html, revision 1.8

1.1       moko        1: @main[]
                      2: 
1.3       moko        3: $f[^file::load[text;253_json.txt; $.charset[windows-1251]]]
1.2       moko        4: $s[^taint[as-is][$f.text]]
1.1       moko        5: 
1.6       moko        6: ^try-catch{$o[^json:parse[$s]]}
1.2       moko        7: 
1.4       moko        8: $o[^json:parse[$s][ $.object[$hook] $.distinct[first] ]]
1.2       moko        9: ^print[$o]
                     10: 
                     11: $o[^json:parse[$s][ $.double(false) $.distinct[last] ]]
1.1       moko       12: ^print[$o]
                     13: 
1.7       misha      14: $o[^json:parse[$s][ $.int(false) $.distinct[last] ]]
                     15: ^print[$o]
                     16: 
1.4       moko       17: $o[^json:parse[$s][ $.object[$hook_key] $.distinct[all] ]]
1.1       moko       18: ^print[$o]
                     19: 
1.5       moko       20: $s[[1,{"type":"class1","value":"3"},4]]
                     21: 
                     22: $o[^json:parse[$s][ $.object[$hook] ]]
                     23: ^print[$o]
                     24: 
                     25: $o[^json:parse[$s]]
                     26: ^print[$o]
                     27: 
1.1       moko       28: @print[hash]
1.8     ! moko       29: $result[^json:string[$hash; $.indent(1)]]
        !            30: $result[^result.replace[e+0;e+]]
1.1       moko       31: 
                     32: @hook[key;value]
                     33: $result[^if(def $value.type){^reflection:create[$value.type;create;$value]}{$value}]
                     34: 
1.4       moko       35: @hook_key[key;value]
                     36: $result[^if($key eq 'object'){^reflection:create[$value.type;create;$value]}{$value}]
                     37: 
1.1       moko       38: @CLASS
                     39: class1
                     40: 
                     41: @create[h]
1.3       moko       42: $value[class1 $h.value]
1.1       moko       43: 
                     44: @CLASS
                     45: class2
                     46: 
                     47: @create[h]
1.3       moko       48: $value[class2 $h.value]