Return to 232.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/232.html, revision 1.4

1.1       misha       1: @main[]
1.3       misha       2: ^print[^o1::create[]]
                      3: <br />
                      4: ^print[^o2::create[]]
1.1       misha       5: 
1.4     ! moko        6: allowed: ^json:string[^hash::create[non-blank string]]
        !             7: 
1.1       misha       8: 
1.3       misha       9: @print[o][v]
                     10: Class: <b>$o.CLASS_NAME</b><br />
                     11: 
                     12: expression: ^eval($o)<br />
1.1       misha      13: 
                     14: $v[^hash::create[$o]]
1.3       misha      15: hash: $v.key<br />
1.1       misha      16: 
                     17: $v[^table::create[$o]]
1.3       misha      18: table: $v.name<br />
                     19: 
                     20: def: ^if(def $o){true}{false}<br />
                     21: 
                     22: bool: ^if($o || 0){true}{false}<br />
1.1       misha      23: 
1.3       misha      24: double: ^eval($o + 0)<br />
1.1       misha      25: 
                     26: 
                     27: 
                     28: @CLASS
1.3       misha      29: o1
1.1       misha      30: 
                     31: @create[]
                     32: 
1.3       misha      33: @GET[mode]
                     34: ^switch[$mode]{
1.1       misha      35:        ^case[expression]{ $result(-1) }
1.3       misha      36:        ^case[hash]{ $result[$.key[hash-value]] }
                     37:        ^case[table]{ $result[^table::create{name^#0Atable-value}] }
                     38:        ^case[def]{ $result(true) }
1.1       misha      39:        ^case[bool]{ $result(false) }
1.3       misha      40:        ^case[double]{ $result(255) }
                     41:        ^case[DEFAULT]{ ^throw[;unsupported mode '$sMode'] }
                     42: }
                     43: 
                     44: 
                     45: @CLASS
                     46: o2
                     47: 
                     48: @create[]
                     49: 
                     50: @GET[mode]
                     51: ^switch[$mode]{
                     52:        ^case[expression]{ $result(0) }
                     53:        ^case[hash]{ $result[$.key[hash-value]] }
                     54:        ^case[table]{ $result[^table::create{name^#0Atable-value}] }
                     55:        ^case[def]{ $result(false) }
                     56:        ^case[bool]{ $result(true) }
                     57:        ^case[double]{ $result(32) }
1.1       misha      58:        ^case[DEFAULT]{ ^throw[;unsupported mode '$sMode'] }
                     59: }