--- parser3/www/htdocs/Attic/index.html	2002/03/11 08:00:01	1.19
+++ parser3/www/htdocs/Attic/index.html	2002/03/29 10:26:01	1.30
@@ -7,9 +7,18 @@ $response:charset[windows-1251]
 $response:content-type[$.value[text/html]$.charset[$response:charset]]
 
 @main[]
+^rolls2[]
+#^cacheexpireschanging[]
+#^cacheexpiresfixed[]
+#^dateoffsets[]
+#^exceptionTypes[]
+#^roll2[]
+#^rolls[]
+#^exceptions1[]
+#^locate_by_expr[]
 #^method_junction_params{...}
 #^verifyCookie[paf]
-^execlangs[]
+#^execlangs[]
 #$t[^tobjeresult[]]$t.a
 #^xmlprobs[]
 #^doubleprobs[]
@@ -107,6 +116,111 @@ $response:content-type[$.value[text/html
 <hr>
 OK
 
+@rolls2[]
+$now[^date::now[]]
+$d[^date::create($now.year;$now.month)] ^d.sql-string[]<br>
+^for[i](1;12){
+	^d.roll[month](-1) ^d.sql-string[]<br>
+}
+
+@cacheexpireschanging[]
+^cache[$DB_HOME/keyключ][^date::now(+1)]{ ^rem{1 day}
+    ^cache[^date::now(+4/24/60/60)]
+#    ^cache(2)
+#    ^cache(0)
+	^math:random(100)
+}
+
+
+
+@cacheexpiresfixed[]
+^cache[$DB_HOME/keyключ][^date::now(+2/24/60/60)]{
+	^math:random(100)
+}
+
+@dateoffsets[]
+$d[^date::create(^date::now[]+1/24/60)]
+#$d[^date::now(+1/24/60)]
+^d.sql-string[]
+#$d
+
+@exceptionTypes[]
+#    parser.compile       ^test[}                компиляция (непарная скобка, ...)
+#    parser.runtime       ^if(0).                параметры (больше/меньше, чем нужно, не тех типов, ...)
+#    number.zerodivision  ^eval(1/0) ^eval(1%0)
+#    number.format        ^eval(abc*5)
+#    file.missing         ^file:delete[delme]                       not found
+#    file.access          ^table::load[.]                       no rights
+#    image.format         ^image::measure[index.html]                        not gif/jpg
+#    sql.connect          ^connect[mysql://baduser:pass@host/db]{}                       not found/timeout
+#    sql.execute          ^connect[mysql://okuser:pass@host/db]{^void:sql{select bad}}                       syntax error
+#    xml                  ^xdoc::create{<forgot?>}                       any error in xml/xslt libs
+#    smtp.connect                                not found/timeout
+#    smtp.execute                                communication error
+
+@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}
 
@@ -119,7 +233,7 @@ OK
 }
 
 @execlangs[]
-$f[^file::exec[test.pl2]]
+$f[^file::exec[test.pl]]
 ^process{$f.text}
 #$c[^t.columns[]]
 #^c.menu{