--- parser3/www/htdocs/Attic/index.html	2002/03/05 07:48:07	1.17
+++ parser3/www/htdocs/Attic/index.html	2002/03/26 13:08:30	1.27
@@ -7,8 +7,11 @@ $response:charset[windows-1251]
 $response:content-type[$.value[text/html]$.charset[$response:charset]]
 
 @main[]
-^method_junction_params{...}
-
+^roll2[]
+#^rolls[]
+#^exceptions1[]
+#^locate_by_expr[]
+#^method_junction_params{...}
 #^verifyCookie[paf]
 #^execlangs[]
 #$t[^tobjeresult[]]$t.a
@@ -108,6 +111,69 @@ $response:content-type[$.value[text/html
 <hr>
 OK
 
+@roll2[]
+$d[^date::create(2002;4;2;2;2;3)] ^d.sql-string[]<br>
+^d.roll[day](+365*3+1) ^d.sql-string[]<br>
+
+
+@rolls[]
+$d[^date::create(2002;4;4)]
+^d.sql-string[]<br>
+^for[i](1;7){
+^d.roll[day](-1)
+^d.sql-string[]<br>
+}
+<hr>
+$d[^date::create(2002;3;28)]
+^d.sql-string[]<br>
+^for[i](1;7){
+^d.roll[day](+1)
+^d.sql-string[]<br>
+}
+<hr>
+$d[^date::create(2002;12;3)]
+^d.sql-string[]<br>
+^for[i](1;14){
+^d.roll[day](-1)
+^d.sql-string[]<br>
+}
+<hr>
+$d[^date::create(2002;10;19)]
+^d.sql-string[]<br>
+^for[i](1;14){
+^d.roll[day](+1)
+^d.sql-string[]<br>
+}
+
+
+
+
+
+
+@exceptions1[]
+^try{
+	aaa
+	^throw[custom1;paf;is stupid]
+}{
+	^if($exception.type eq custom1){
+		$exception.handled(1)
+#	^throw[$exception]
+		type=$exception.type<br>
+	    source=$exception.source<br>
+	    file=$exception.file<br>
+	    lineno=$exception.lineno<br>
+    	comment=$exception.comment<br>
+	}
+}
+
+@locate_by_expr[]
+$t[^table::create{a	b
+1	nok
+2	ok
+3	nok
+}]
+^if(^t.locate($t.a==2)){$t.b}{n}
+
 @method_junction_params[param]
 ^if($param is junction){junction}{ne junction}