--- parser3/www/htdocs/Attic/index.html	2002/01/31 11:51:47	1.2
+++ parser3/www/htdocs/Attic/index.html	2002/03/26 08:51:00	1.25
@@ -1,10 +1,25 @@
-@auto[]
+#@USE
+#z/t.p
+
+@autoz[]
 $request:charset[windows-1251]
 $response:charset[windows-1251]
 $response:content-type[$.value[text/html]$.charset[$response:charset]]
 
 @main[]
-$form:if
+^rolls[]
+#^exceptions1[]
+#^locate_by_expr[]
+#^method_junction_params{...}
+#^verifyCookie[paf]
+#^execlangs[]
+#$t[^tobjeresult[]]$t.a
+#^xmlprobs[]
+#^doubleprobs[]
+#^math:random(-10)
+#^divnamestop[]
+#^arrayclone[]
+#^operator_tricks[]
 #^xoutputrusattr[]
 #^xdocset1[]
 #^regexp3[]
@@ -95,6 +110,130 @@ $form:if
 <hr>
 OK
 
+@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}
+
+@verifyCookie[value] 
+^if($cookie:dummyvote eq $value){ 
+	$result(1) 
+}{ 
+	$cookie:dummyvote[$value] 
+	$result(0) 
+}
+
+@execlangs[]
+$f[^file::exec[test.pl]]
+^process{$f.text}
+#$c[^t.columns[]]
+#^c.menu{
+#* $c.column<br>
+#}
+=$t.c=
+
+@tobjeresult[]
+^table::create{a
+12}
+
+@xmlprobs[]
+$xmlDataType[^xdoc::load[program.xml]]
+#<pre>^taint[^xmlDataType.string[]]
+$xmlDataTypes[^xmlDataType.select[programs/program[@id=4]/data]]
+#=^xmlDataTypes._count[]=
+=^xmlDataTypes.0.getAttribute[type-id]=
+
+@doubleprobs[]
+$1(^math:radians(180))
+$2($math:PI)
+^if(^1.format[%.10f]==^2.format[%.10f]){y;n}
+^if($1==$2){y;n}
+^if(^math:radians(180)==$math:PI){y;n}
+
+
+@divnamestop[]
+$a(10)
+^eval($a\3)
+
+@arrayclone[]
+$t[^table::create{a	b
+1	11
+2	22
+}]
+$c[^table::create[$t]]
+^c.append{2	33}
+^t.count[]
+^c.count[]
+
+@operator_tricks[]
+^if(1){$a[^t[]]}
+$a!
+$a($b)
+^if(1){y}{n}
+$MAIN:a(^t[] eq OK)
+#$MAIN:a(1)
+^if($a){y}{n}
+#^if(1){y}{n}
+$form:if
+$a[$.n[1]]
+$a.if
+
 @xoutputrusattr[]
 $d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><d attr="привет"/>}]
 ^show_xdoc2[$d]