--- parser3/www/htdocs/Attic/index.html	2002/08/08 14:35:31	1.101
+++ parser3/www/htdocs/Attic/index.html	2002/08/15 10:38:18	1.114
@@ -1,11 +1,13 @@
-#@USE
-#t.p
+@USE
+/derived.p
 
 @auto[filespec]
 $selffilespec[$filespec]
 #$form:here
 #$request:charset[UTF-8]
 #$response:charset[windows-1251]
+#$request:charset[windows-1251]
+#$response:charset[UTF-8]
 #$response:content-type[$.value[text/html]$.charset[$response:charset]]
 
 #@postprocess[body]
@@ -17,17 +19,18 @@ $selffilespec[$filespec]
 #^a.format[%.10u]
 #$result[111]
 #^f[a]
-#^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
+^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
 #	^int:sql{select news_id from news where news_id=-1}[
 ##	$.default{2}
 #	]<br>
+    ^hash::sql{bad}
 #    ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
-#	^file::load[text;^string:sql{select '^^hello[]' }]
+#	^file::load[text;^string:sql{select 'from sql server' }]
 #	^string:sql{select '^^hello[]' }] $ORIGINS(1)
 #	^process{	^^h[]}
 #	^process{^string:sql{select '1
 #	^^hello[]' }]	}
-#}
+}
 #^eval(2)
 #^tcrashlocaljunctionsv2[]
 #^tcrashlocaljunctions[]
@@ -205,10 +208,57 @@ $selffilespec[$filespec]
 #^mail4[]
 #^datesaving[]
 #^badconstructor[]
-^calendar[]
+#^calendar[]
+#^monthdays(8)
+#^xdoctypetest[]
+#^xtabletest[]
+#^staticstest[]
+#^staticstest2[]
+^rbodytest[]
 <hr>
 OK
 
+@rbodytest[]
+$request:body=
+<form method=post>
+<input type=submit name=paf value=123>
+</form>
+
+@staticstest2[]
+^$derived:derived_var=$derived:derived_var<br>
+^$derived:a=$derived:a<br>
+$derived:a[changed] ^$derived:a=$derived:a<br>
+$derived:derived_var[changed] 
+^$derived:derived_var=$derived:derived_var<br>
+
+@staticstest[]
+$derived[^derived::create[]]
+^derived.test[]
+<hr>
+^$derived.a=$derived.a<br>
+^$derived.x=$derived.x<br>
+<hr>
+^if($derived is derived){derived is derived}{error: derived is not derived}<br>
+^if($derived is table){derived is table}{error:derived is not table}<br>
+<hr>
+^^eval(^$derived)=^eval($derived)<br>
+^^if(^$derived)=^if($derived){y}{n}<br>
+
+
+@xdoctypetest[]
+$xdoc[^xdoc::create[x]]
+^if($xdoc is xdoc){y}{n}
+
+@xtabletest[]
+$xtableo[^xtable::create[]]
+^if($xtableo is table){y}{n}
+#^xtableo.columns[]
+
+@monthdays[month]
+$from[^date::create(2000;$month;1)]
+$to[^date::create($from)] ^to.roll[month](+1)
+$result($to-$from)
+
 @badconstructor[]
 ^date::now[]
 
@@ -1698,7 +1748,7 @@ $abc[abc]
 ^abc.save[abc]
 
 @calendar[]
-$year(2007)
+$year(2002)
 $month(12)
 ${year}-${month}:<br>
 $week_days[^date:calendar[rus]($year;$month)]