Return to 014.html CVS log

Up to [parser3project] / parser3 / tests

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

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: 
1.4     ! misha      42: @print[h][t]
        !            43: $t[^h._keys[]]
        !            44: ^t.sort($t.key)
        !            45: ^t.menu{$t.key='$h.[$t.key]'}[, ]<br />