--- parser3/src/www/htdocs/Attic/index.html	2001/06/27 14:23:21	1.208
+++ parser3/src/www/htdocs/Attic/index.html	2001/07/07 17:59:02	1.221
@@ -1,10 +1,130 @@
 @main[]
+$сегодня[^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>
+year-^время.roll[year](-1)^время.string[]<br>
+month-^время.roll[month](-1)^время.string[]<br>
+day+^время.roll[day](1)^время.string[]<br>
+day-^время.roll[day](-1)^время.string[]<br>
+<hr>
+$русский_день_недели[
+	$0[Воскресенье]
+	$1[Понедельник]
+	$2[Вторник]
+	$3[Среда]
+	$4[Четверг]
+	$5[Пятница]
+	$6[Суббота]
+]
+
+$время[^date:set(0;1;1;3;30;4)]
+$время{
+	^string[]<br>
+	${year}.${month}.${day} ${hour}:${minute}:${second}
+}
+<hr>
+$время[^date:set(1.5)]
+^время.string[]
+<hr>
+$сейчас[^date:now[]]
+^^сейчас.string[]=^сейчас.string[] $день_недели($сейчас.weekday) $русский_день_недели.$день_недели<br>
+$floatdays($сейчас) ^floatdays.format{%.20f}<br>
+^eval(^math:frac($floatdays)*24)<br>
+^eval(^math:frac($floatdays*24)*60)<br>
+^eval(^math:frac($floatdays*24*60)*60)
+<hr>
+
+PI=^math:PI.format{%.40f}
+<hr>
+^math:random(10)
+<hr>
+^math:sqrt(16)
+<hr>
+$люди[
+	$2федя[
+		$рост[176]
+	]
+	$1василий[
+		$возраст[5]
+	]
+]
+
+$имена[^люди.keys[]]
+$имена{
+	^sort{$key}
+	^menu{$key}[,].
+}
+<hr>
+
+$таблица[^table:set{a	b
+1	2
+}]
+$колонки[^таблица.columns[]]
+$колонки{
+	^menu{$column}[,].
+}
+
+<hr>
+
+^if($form:id ne 'z"'){
+	ne
+}{
+	eq
+}
+<hr>
+
+
+^rem{
+$one(1)
+$z(0)
+^eval(^one.int[]%0)
+<hr>
+}
+
+$form:id:
+<hr>
+
 ^switch(2){
 	^case(1;4;3){143}
 	^case[DEFAULT]{default}
 }
+<hr>
+^switch(2){
+	^case(1;2;3){143}
+	^case[DEFAULT]{default}
+}
+<hr>
+^switch(2){
+	^case(1;5;3){143}
+}
+
+<hr>
+^switch(2){
+	^case(2){2}
+}
 
 <hr>
+^switch[2]{
+	^case(2){![2]}
+}
+<hr>
 
 
 $hash[$a[1]]
@@ -193,7 +313,7 @@ ${comment}.
 ^connect[$connect-string]{
 	$shit[^taint[our's]]
 #	$paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}]
-	^nothing: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}{