File:  [parser3project] / parser3 / tests / 014.html
Revision 1.4: download - view: text, annotated - select for diffs - revision graph
Tue Jul 7 23:45:30 2009 UTC (17 years, 2 months ago) by misha
Branches: MAIN
CVS tags: release_3_4_0, HEAD
- small changes in printing hash

@main[]
^setdata[]
^$a: ^print[$a]
^$b: ^print[$b]
<br />

^a.add[$b]
^^a.add[^$b]: ^print[$a]

^setdata[]
^a.sub[$b]
^^a.sub[^$b]: ^print[$a]

^setdata[]
$c[^a.intersection[$b]]
^$c[^^a.intersection[^$b]]: ^print[$c]

^setdata[]
$c[^a.union[$b]]
^$c[^^a.union[^$b]]: ^print[$c]

^setdata[]
^^a.intersects[^$b]? ^if(^a.intersects[$b]){y;n}<br />
^^a.intersects[ ]? ^if(^a.intersects[ ]){y;n}<br />
^^a.intersects[^$.5[x5]]? ^if(^a.intersects[$.5[x5]]){y;n}<br />

^^c.contains[1] ? ^if(^c.contains[1]){y;n}<br />
^c.delete[2]
^^c.delete[2], ^^c.contains[2] ? ^if(^c.contains[2]){y;n}<br />

^^c.delete[^$empty]^c.delete[$empty]<br />
^^c.delete[]: ^try{^c.delete[]}{$exception.handled(1)error}<br />
^print[$c]
<hr />


@setdata[]
$a[$.1[a1] $.2[a2] $.3[a3]]
$b[    	$.2[b2] $.3[b3] $.4[b4]]


@print[h][t]
$t[^h._keys[]]
^t.sort($t.key)
^t.menu{$t.key='$h.[$t.key]'}[, ]<br />

E-mail: