Return to 253.html CVS log

Up to [parser3project] / parser3 / tests

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

1.1       moko        1: @main[]
                      2: 
                      3: $f[^file::load[text;253_json.txt]]
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]
                     27: ^hash.foreach[k;v]{
1.2     ! moko       28:        $k = ^if($v is 'hash'){{^print[$v] 
        !            29:        }}{
        !            30:                $v.CLASS_NAME ^if($v is 'bool'){ ^if($v){true}{false} }($v is 'class1' || $v is 'class2'){^v.print[]}{$v}
        !            31:        }
1.1       moko       32: }
                     33: 
                     34: @hook[key;value]
                     35: $result[^if(def $value.type){^reflection:create[$value.type;create;$value]}{$value}]
                     36: 
                     37: @CLASS
                     38: class1
                     39: 
                     40: @create[h]
                     41: $value[$h.value]
                     42: 
                     43: @print[]
                     44: value "$value"
                     45: 
                     46: @CLASS
                     47: class2
                     48: 
                     49: @create[h]
                     50: $value[$h.value]
                     51: 
                     52: @print[]
                     53: value "$value"