Return to 014.html CVS log

Up to [parser3project] / parser3 / tests

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

1.2       paf         1: @main[]
                      2: ^setdata[]
1.3     ! misha       3: ^$a: ^print[$a]
        !             4: ^$b: ^print[$b]
        !             5: <br />
        !             6: 
1.2       paf         7: ^a.add[$b]
1.3     ! misha       8: ^^a.add[^$b]: ^print[$a]
1.2       paf         9: 
                     10: ^setdata[]
                     11: ^a.sub[$b]
1.3     ! misha      12: ^^a.sub[^$b]: ^print[$a]
1.2       paf        13: 
                     14: ^setdata[]
1.3     ! misha      15: $c[^a.intersection[$b]]
        !            16: ^$c[^^a.intersection[^$b]]: ^print[$c]
1.2       paf        17: 
                     18: ^setdata[]
1.3     ! misha      19: $c[^a.union[$b]]
        !            20: ^$c[^^a.union[^$b]]: ^print[$c]
1.2       paf        21: 
                     22: ^setdata[]
1.3     ! misha      23: ^^a.intersects[^$b]? ^if(^a.intersects[$b]){y;n}<br />
        !            24: ^^a.intersects[ ]? ^if(^a.intersects[ ]){y;n}<br />
        !            25: ^^a.intersects[^$.5[x5]]? ^if(^a.intersects[$.5[x5]]){y;n}<br />
        !            26: 
        !            27: ^^c.contains[1] ? ^if(^c.contains[1]){y;n}<br />
        !            28: ^c.delete[2]
        !            29: ^^c.delete[2], ^^c.contains[2] ? ^if(^c.contains[2]){y;n}<br />
        !            30: 
        !            31: ^^c.delete[^$empty]^c.delete[$empty]<br />
        !            32: ^^c.delete[]: ^try{^c.delete[]}{$exception.handled(1)error}<br />
        !            33: ^print[$c]
        !            34: <hr />
1.2       paf        35: 
                     36: 
                     37: @setdata[]
1.3     ! misha      38: $a[$.1[a1] $.2[a2] $.3[a3]]
        !            39: $b[            $.2[b2] $.3[b3] $.4[b4]]
        !            40: 
        !            41: 
        !            42: @print[h][t;k;v]
        !            43: $t[^table::create{key  value
        !            44: ^h.foreach[k;v]{$k     $v}[^#0A]
        !            45: }]
        !            46: ^t.sort{$t.key}
        !            47: ^t.menu{$t.key='$t.value'}[, ]<br />