Return to 253.html CVS log

Up to [parser3project] / parser3 / tests

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

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.9     ! moko        6: ^try-catch{$o[^json:parse[$s; $.array[hash] ]]}
1.2       moko        7: 
1.9     ! moko        8: ^test[$s][ $.object[$hook] $.distinct[first] ]
1.2       moko        9: 
1.9     ! moko       10: ^test[$s][ $.double(false) $.distinct[last] ]
1.1       moko       11: 
1.9     ! moko       12: ^test[$s][ $.int(false) $.distinct[last] ]
1.7       misha      13: 
1.9     ! moko       14: ^test[$s][ $.object[$hook_key] $.distinct[all] ]
1.1       moko       15: 
1.5       moko       16: $s[[1,{"type":"class1","value":"3"},4]]
                     17: 
1.9     ! moko       18: ^test[$s][ $.object[$hook] ]
        !            19: 
        !            20: ^test[$s]
1.5       moko       21: 
1.9     ! moko       22: @test[s;options]
        !            23: $o[^json:parse[$s][ $options $.array[hash] ]]
1.5       moko       24: ^print[$o]
                     25: 
1.1       moko       26: @print[hash]
1.8       moko       27: $result[^json:string[$hash; $.indent(1)]]
                     28: $result[^result.replace[e+0;e+]]
1.1       moko       29: 
                     30: @hook[key;value]
                     31: $result[^if(def $value.type){^reflection:create[$value.type;create;$value]}{$value}]
                     32: 
1.4       moko       33: @hook_key[key;value]
                     34: $result[^if($key eq 'object'){^reflection:create[$value.type;create;$value]}{$value}]
                     35: 
1.1       moko       36: @CLASS
                     37: class1
                     38: 
                     39: @create[h]
1.3       moko       40: $value[class1 $h.value]
1.1       moko       41: 
                     42: @CLASS
                     43: class2
                     44: 
                     45: @create[h]
1.3       moko       46: $value[class2 $h.value]