Return to 253.html CVS log

Up to [parser3project] / parser3 / tests

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

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.2       moko        6: ^try_catch{$o[^json:parse[$s]]}
                      7: 
                      8: $o[^json:parse[$s][ $.distinct[first] ]]
                      9: ^print[$o]
                     10: 
                     11: $o[^json:parse[$s][ $.double(false) $.distinct[last] ]]
1.1       moko       12: ^print[$o]
                     13: 
1.2       moko       14: $o[^json:parse[$s][ $.object[$hook] $.distinct[all] ]]
1.1       moko       15: ^print[$o]
                     16: 
1.2       moko       17: @try_catch[code]
                     18: ^try{
                     19:        $code
                     20: }{
                     21:        $exception.handled(true)
                     22:        $exception.source
                     23:        $exception.comment
                     24: }
                     25: 
1.1       moko       26: @print[hash]
1.3     ! moko       27: ^json:string[$hash; $.indent(1)]
1.1       moko       28: 
                     29: @hook[key;value]
                     30: $result[^if(def $value.type){^reflection:create[$value.type;create;$value]}{$value}]
                     31: 
                     32: @CLASS
                     33: class1
                     34: 
                     35: @create[h]
1.3     ! moko       36: $value[class1 $h.value]
1.1       moko       37: 
                     38: @CLASS
                     39: class2
                     40: 
                     41: @create[h]
1.3     ! moko       42: $value[class2 $h.value]