--- parser3/src/www/htdocs/Attic/index.html	2001/07/07 16:38:02	1.220
+++ parser3/src/www/htdocs/Attic/index.html	2001/07/24 15:43:56	1.235
@@ -1,4 +1,79 @@
+@USE
+dtformat.p
+input_date.p
+
+@href[href zzz;title xxxx;ставить]
+^if($ставить){y;n}
+
+
+@call[name][method]
+$method[$$name]
+^if(def $method){^method[]}
+
+@test1[]
+test1 result
+
+@odbc_test[]
+^connect[odbc://dsn=voz7^;uid=voz^;pwd=pwd]{
+	$пресса[^table:sql{select * from press}]
+	$пресса{^menu{
+		$id, $date_row, $header, $short_text^rem{, $full_text}, $mode
+	}[<br>]}
+}
+<hr>
+
 @main[]
+#^file:move[a/t.html;t.html]
+#<hr>
+^odbc_test[]
+$a_1[a_1 value]
+$a_1<hr>
+
+^eval(2*11)
+^call[test1]
+<hr>
+$input_date:input_date_auto_test
+<hr>
+#$string:z[1]
+#<hr>
+$path[/news/tululu/]
+$pieces[^path.lsplit[/]]
+$pieces{^count[]: ^menu{{$piece}}[,].}
+<hr>
+^href[href;title](1<2)
+
+<hr>
+$stat[^file:stat[test.zip]]
+$stat{
+^$size=$size<br>
+adate=^long_date_format[$adate]<br>
+mdate=^long_date_format[$mdate]<br>
+cdate=^long_date_format[$cdate]<br>
+}
+<hr>
+$дата[^input_date:parse[9.7.2001]]
+^long_date_format[$дата]
+<hr>
+$дата[^parse_date[9.7.2001]]
+^long_date_format[$дата]
+<hr>
+$сегодня[^date:now[]]
+$недельный_календарь[^table:calendar[rus]($сегодня.year;$сегодня.month;$сегодня.day)]
+<TT>
+$недельный_календарь{^menu{
+	$year $month $day $weekday<BR>
+}}
+</TT>
+<hr>
+$сегодня[^date:now[]]
+$месячный_календарь[^table:calendar[rus;$сегодня.year;$сегодня.month]]
+<TT>
+^месячный_календарь.menu{^for[i;0;6]{
+	$day[$месячный_календарь.$i]
+	^if($day){$day}{&nbsp^;&nbsp^;}
+}<BR>}
+</TT>
+<hr>
 before $время[^date:now[]]^время.string[]<br>
 year+^время.roll[year](1)^время.string[]<br>
 month+^время.roll[month](1)^время.string[]<br>
@@ -230,20 +305,6 @@ $th[^t2.hash[key;a]]
 
 $filelist[^table:dir[.]]
 <hr>
-$path[/news/tululu/]
-#^path.flip[]
-<hr>
-$branches[^table:set{name	val
-index.cgihtml	123
-}]
-$splitURI[^request:uri.lsplit[/]]
-name ^if(^branches.locate[name;$splitURI.1]){found;not found}:
-$branches.name
-<HR>
-$splitURI[^request:uri.lsplit[/]]
-$splitURI.0!$splitURI.1
-<HR>
-
 $t2[^table:set{dir	title
 /here	Here
 }]
@@ -287,7 +348,6 @@ ${comment}.
 @auto_test[]
 ^BASE.auto_test[]
 <li>${request:uri}!
-@end
 
 
 @sql_test[connect-string]
@@ -296,7 +356,7 @@ ${comment}.
 ^connect[$connect-string]{
 	$shit[^taint[our's]]
 #	$paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}]
-	^void:sql{update paf set age=age+1}
+#	^void:sql{update paf set age=age+1}
 	$paf[^table:sql{select * from paf order by id desc}(5)]
 	$paf{
 	^if(^empty[]){query result is empty}{
@@ -305,9 +365,9 @@ ${comment}.
 		^menu{<tr><td>$id</td><td>$name</td><td>$age</td></tr>}
 	</table>
 	}}
-	^^string:sql{select name from paf where id=1}=^string:sql{select name from paf where id=1}<br>
-	^^int:sql{select age from paf where id=1}=^int:sql{select age from paf where id=1}<br>
-	^^double:sql{select age from paf where id=1}=^double:sql{select age from paf where id=1}<br>
+	^^string:sql{select name from paf where id=1}=^string:sql{select name from paf where id=1}{n/a}<br>
+	^^int:sql{select age from paf where id=1}=^int:sql{select age from paf where id=1}(111)<br>
+	^^double:sql{select age from paf where id=1}=^double:sql{select age from paf where id=1}(222)<br>
 
 	$paf[^hash:sql{select id,age from paf}]
 	^$paf.2.age=$paf.2.age<br>