--- parser3/src/www/htdocs/Attic/index.html 2001/10/11 10:21:44 1.383 +++ parser3/src/www/htdocs/Attic/index.html 2001/10/13 15:59:43 1.390 @@ -1,5 +1,13 @@ @main[] -^tnomethbyref[] +^ifassignhash[] +#^tintdefault[] +#$response:status[404] +#^ifpasshash[] +#^movedir[] +#^replace[] +#^set[] +#^hash[]
+#$t[^methresult[]] ->$t #^terror[] #^ssave[] #^calendar[] @@ -24,11 +32,76 @@ #^header[] OK -@tnomethbyref[nothing] -#^nothing[] -$t[^table::set{name -value}] -$t.$nothing +@tintdefault[] +#$abc[abc] +$abc[33] +^abc.int[z] +#^abc.int(123) + +@ifassignhash[] +$h[^if(1){$.a(1);$.a(2)}] +$h.a + +@ifpasshash[] +$a[$.e[a]] +$b[$.e[b]] +^ifpasshashdest[^if(1){$a;$b}] +#$x[^if(1){$a}{$b}] +#^ifpasshashdest[$x] + +@ifpasshashdest[p] +$p.e + +@movedir[] +^file:move[a;deeper/a] + +@replace[] +$a[12^;3] +^a.replace[^table::set{from to +2^; ! +}] + + +@set[] +^setdata[] +^a.add[$b] +add:$a.3
+ +^setdata[] +^a.sub[$b] +sub2:$a.2
+sub1:$a.1
+ +^setdata[] +$c[^a.union[$b]] +union3:$c.3
+union2:$c.2
+ +^setdata[] +$c[^a.intersection[$b]] +intersection3:$c.3
+intersection2:$c.2
+ +^setdata[] +intersects:^if(^a.intersects[$b]){y;n}
+intersects2:^if(^a.intersects[ ]){y;n}
+ + +
+ +@setdata[] +$a[$.1[a1] $.2[a2]] +$b[ $.2[b2] $.3[b3]] + + +@hash[] +$h[^hash::create[$._default[123]]] +$h.paf[not kretin] +$h.paf
+=$h.that=
+ +@methresult[] +$result[^table::set{1}] @terror[] ^error[method z must be called with z]