Return to 232.html CVS log

Up to [parser3project] / parser3 / tests

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

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