--- parser3/www/htdocs/Attic/index.html	2002/10/16 08:22:14	1.167
+++ parser3/www/htdocs/Attic/index.html	2002/10/31 15:01:58	1.175
@@ -6,15 +6,18 @@
 $selffilespec[$filespec]
 #$form:here
 #$request:charset[UTF-8]
-$request:charset[windows-1251]
-$response:charset[windows-1251]
+##$request:charset[windows-1251]
+##$response:charset[windows-1251]
 #$response:charset[UTF-8]
 #$response:charset[empty]
 #$response:content-type[$.value[text/html]$.charset[$response:charset]]
 
-#@postprocess[body]
+@postprocess[body]
 #<b>$body</b>
 #$result[123]
+$body
+<hr>
+OK
 
 @main[]
 #$a(123)
@@ -270,6 +273,104 @@ $response:charset[windows-1251]
 #$derived[^derived::create[]]^derived.inclass_process_test[]
 #^domorigint[]
 #^junctiontest2[]
+#^junctionselftest[]
+#^bad-compiletosystem[]
+#^steppedfor[i](1;10;2){$i }
+#^file:fullpath[a.gif]<br>
+#^file:fullpath[/abs/a.gif]<br>
+#$form:a/$form:image-map=
+#^foreachform[]
+#^selectSingleoct[]
+#^compilebug[]
+#^badhashcreate[]
+#^badsendmail[]
+#^keygenedhash[]<br>
+#<hr>[$env:HTTP_REFERER]
+#$response:Content-TypE[bad]
+#^emailhead2[]
+#^includet2overridedynamic[]
+^includet2overridestatic[]
+
+@includet2overridedynamic[]
+$derived[^derived::create[]]
+^derived.includet2override[]
+
+@includet2overridestatic[]
+^derived:includet2override[]
+
+@emailhead2[]
+^mail:send[
+	$.charset[koi8-r]
+	$.from[paf@design.ru]
+	$.to[paf@mail]
+#	$.reply-to[^taint[agat] <^taint[ag_7k@mail.ru]>]
+$user[^taint[agat]]
+$email[^taint[ag_7k@mail.ru]]
+	$.reply-to[$user $email]
+	$.subject[test2]
+]
+
+@keygenedhash[]
+$table[^table::create{key	value
+1	a
+2	b
+}]
+$hash[^table.hash($table.key*2)]
+'$hash.4.value' must be 'b'
+
+@badsendmail[]
+^mail:send[
+	$.from[hren < paf@design.ru
+	>]
+	$.to[paf@design.ru]
+	$.subject[test]
+]
+
+@badhashcreate[]
+$hash[
+	$.ok[1]
+]
+$.bad[1]
+
+@compilebug[]
+^a[]^#31=
+
+@selectSingleoct[]
+$d[^xdoc::create[doc]]
+$element[^d.selectSingle[$nothing]]
+
+
+@foreachform[]
+<a href=index.cgihtml?one&a=1&two&b=2&three?1,2>one</a><br>
+<a href=index.cgihtml?one&a=1&two&b=2&three?shit>two</a><br>
+
+^form:fields.foreach[key;value]{
+        $key -- $value
+}[<br>]
+<hr>
+$nameless[$form:tables.nameless]
+^if(def $nameless){
+	nameless table -- ^nameless.menu{$nameless.field}[,]
+}
+^if(def $form:imap){
+	<hr>
+	IMAP $form:imap.x : $form:imap.y
+}
+
+@steppedfor[name;from;to;step;code]
+$caller.$name($from)
+^while($caller.$name<=$to){
+	$code
+	^caller.$name.inc($step)
+}
+
+@bad-compiletosystem[]
+^process[$string:CLASS]{@a[]
+}
+
+@junctionselftest[]
+$derived[^derived::create[]]^derived.explodejunction{$tomain[tomainOK]}
+^$tomain=$tomain
 
 @junctiontest2[]
 ^if($if is junction){is junction;not junction}<br>