--- parser3/www/htdocs/Attic/index.html	2002/09/20 13:09:49	1.152
+++ parser3/www/htdocs/Attic/index.html	2002/11/25 15:03:42	1.181
@@ -12,9 +12,12 @@ $response:charset[windows-1251]
 #$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)
@@ -102,7 +105,6 @@ $response:charset[windows-1251]
 #^if($form:test){y}{n}
 #^tablecolumnerror[]
 #^roll[]
-#^cookie2[]
 #^tableset[]
 #^math:PI.format{%.30f}
 #^xchildren[]
@@ -156,7 +158,6 @@ $response:charset[windows-1251]
 #^fori[]
 #^tconnect[]
 #^xslt[]
-#^xml[]
 #^header[]
 #^tablehasht[]
 #^datecreatestring[]
@@ -206,7 +207,6 @@ $response:charset[windows-1251]
 #^badpos[]
 #^processtest[]
 #^mail3[]
-#^mail4[]
 #^datesaving[]
 #^badconstructor[]
 #^calendar[]
@@ -220,7 +220,6 @@ $response:charset[windows-1251]
 #^cookieexpirestest[]
 #^postest[]
 #^voidpostest[]
-#^virtualtest[]
 #^badcolumntest[]
 #^delimiters[]
 #^новый-split[]
@@ -237,7 +236,6 @@ $response:charset[windows-1251]
 #^mail2[]
 #^exec[]
 #^passpost[]
-#^menudelim[]
 #^fordelim[]
 #^duplicatetable2hashkey[]
 #^duplicatehashsqlkey[]
@@ -249,15 +247,303 @@ $response:charset[windows-1251]
 #^zeroinstdin[]
 #^shifts[]
 #^jspace[]
-#^user-foreach-test[]
-#^touchittest[]
 #^hashselfmodification[]
 #^emptyTransformResult[]
 #^badxdoccreate[]
-^if(-d "/"){y}{n}
+#^if(-d "CVS"){y}{n}
+#^badjunctioncall[]
+#^russianindex[]
+#^virtualtest[]
+#^xml[]
+#^mail4[]
+#^voidconstructorpass[]
+#^$form:CLASS.a=$form:CLASS.a<br>
+#^cookie2[]
+#^menudelim[]
+#^touchittest[]
+#^touchittest2[]
+#^opauto[]
+#^trycontextt[]
+#^tfor[]
+#^user-foreach-test[]
+#^includet[]
+#^derived:includet[]
+#^fortestsep[]
+#^derived:inclass_process_test[]
+#$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[]
+#^virtualtest2[]
+#^message-id-test[]
+#^test_exif[jpg]
+^http_prefix[]
+#^http_prefix_table[]
+#^http_prefix_xml[]
+
+@http_prefix_xml[]
+ $xdoc[^xdoc::load[http://www.cbr.ru/scripts/XML_daily.asp?date_req=02/03/2002;
+# 	$.method[HEAD]
+ 	$.headers[
+ 		$.user-agent[1]
+ 	]
+]]
+
+<pre>^taint[^xdoc.string[]]</pre>
+
+@http_prefix_table[]
+$table[^table::load[nameless;http://www.artlebedev.ru;$.USER-AGENT[paf]]]
+^table.count[]
+<hr>
+<pre>$table.0</pre>
+
+@http_prefix[]
+#$file[^file::load[text;http://www.artlebedev.ru]]
+#$file[^file::load[text;http://www.artlebedev.ru;alt]]
+$file[^file::load[text;http://parser3/none;
+	$.headers[
+		$.USER-AGENT[paf]
+	]
+]]
+server: $file.SERVER<br>
+$file.status
+<hr>
+<pre>$file.text</pre>
+
+@test_exif[dir]
+$file[^file:list[$dir;\.(jpe?g|JPE?G)^$]]
+<table border=1>
+^file.menu{
+<tr valign=top>
+	$image[^image::measure[$dir/$file.name]]
+	<td>^image.html[$.width(100)$.height(100)]</td>
+	<td>
+		$file.name<hr>
+     	$exif[$image.exif]
+     	^if($exif){
+     		$keys[^exif._keys[]] ^keys.sort{$keys.key}
+     		^keys.menu{
+     			$key[$keys.key]
+     			$value[$exif.$key]
+
+     			${key}: <b>^show_exif_value[$value]</b><br>
+     		}
+     	}{
+     		no EXIF info<br>
+     	}
+    </td>
+</tr>
+}
+</table>
+
+@show_exif_value[value][i]
+^if($value is hash){
+	^for[i](0;$value-1){$value.$i}[,]
+}{
+	$value
+}
+
+
+@message-id-test[]
+^mail:send[
+	$.from[paf@mail]
+	$.to[paf@mail]
+	$.subject[test]
+#	$.message-id[<1@parser.ru>]
+	$.Message-id[<2@parser.ru>]
+	$.subject[проверка]
+	$.text[мычит!]
+]
+
+@virtualtest2[]
+$derived[^derived::create[]]
+^derived.first[]
+
+
+@includet2overridedynamic[]
+includet2overridedynamic:<br>
+shold say 'hello in some.p'<br>
+<hr>
+$derived[^derived::create[]]
+^derived.includet2override[]
+
+@includet2overridestatic[]
+includet2overridestatic:<br>
+shold say 'hello in derived.p'<br>
+because in static classes there's no way to determine derived class (no virtual mech becase of no virtual table)<br>
+<hr>
+^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>
+^if(def $if){defined;not defined}<br>
+
+@domorigint[]
+$xdoc[^xdoc::create[вася]]
+^xdoc.firstChild.setAttribute[name;значение]
+$var[$xdoc.firstChild.nodeName]
+^throw[paf;$var]
+
+
+@fortestsep[][i]
+^for[i](1;3){$i}[,]
+
+@includet[]
+^include[some.p]
+^included_method[2]
+
+@user-foreach-test[][key;value]
+^user-foreach[key;value]{$key=$value<br>}
+
+@user-foreach[key;value;code]
+^for[i](1;10){
+	$caller.$key($i)
+	$caller.$value($i*2)
+	$code
+}
+
+
+@tfor[][i]
+^for[i](1;10){
+$i
+}
+
+@trycontextt[]
+^try{
+	^trycontexttsub[]
+}{
+	$exception.handled(0)
+}
+
+
+@trycontexttsub[]
+^bad[]
+
+
+@opauto[]
+^reada[]
+
+
+@rusage2[]
 <hr>
 OK
 
+@rusage2[]
+$s[$status:rusage]
+
+^s.tv_sec.format[%.0f].^s.tv_usec.format[%06.0f]
+
+
+@voidconstructorpass[]
+$a[$form:a]
+=^form:a.int(1)=
+=^a.int(1)=
+
+
+@russianindex[]
+#dir with files with russian-lang names
+$where[dir]
+
+$dir[^file:list[$where;\.txt^$]]
+^dir.menu{
+	<a href=$where/^untaint[uri]{$dir.name}>$dir.name</a><br>
+}
+
+@badjunctioncall[]
+^badjunctioncallinside{code}
+
+@badjunctioncallinside[code]
+xx^code[]
 
 @badxdoccreate[]
 $xdoc[^xdoc::create[вася]]
@@ -290,19 +576,15 @@ $hash[
 }	
 
 @touchittest[][i]
+$i[before]
 ^touchit[]
 $i
 
+@touchittest2[]
+$i[before]
+^touchit[]
+$i
 
-@user-foreach-test[][key;value]
-^user-foreach[key;value]{$key=$value<br>}
-
-@user-foreach[key;value;code]
-^for[i](1;10){
-	$code.$key($i)
-	$code.$value($i*2)
-	$code
-}
 
 @jspace[]
 $a(1)
@@ -574,7 +856,7 @@ $date.yearday
 ^mail:send[
 	$.from[paf@mail.design.ru]
 	$.to[paf@mail.design.ru]
-	$.subject[^taint[uri][москва]=2]
+	$.subject[^taint[uri][москва=E0_+ ]=2]
 	$.text[^taint[uri][москва]=]
 	$.html{<a href=http://there.ru/?city=^taint[uri][Москва]>link</a>}
 ]
@@ -689,7 +971,9 @@ $sheet[^xdoc::create{<?xml version="1.0"
 
   <xsl:template match="people">
      <html>
-     <head>z</head>
+     <head>
+<link type='text/xml' rel='alternate' href='/Default.vsdisco'/>
+z</head>
    		para1=<xsl:copy-of select="^$param1"/>
     	<xsl:apply-templates/>
     	<hr/>
@@ -1715,7 +1999,7 @@ $date.year  $date.month  $date.day
 
 @cookie2[]
 #=$cookie:clientType[$.value[test]]=<br>
-=$cookie:clientType=<br>
+=$cookie:CLASS.clientType=<br>
 
 
 @tableset[]
@@ -2183,7 +2467,7 @@ $xdoc[^xdoc::set{<?xml version="1.0" enc
 
 @xdata[]
 #$response:content-type[$.value[text/html] $.charset[windows-1251]]
-$xdoc[^xdoc::set{^process{<?xml version="1.0" encoding="windows-1251"?>
+$xdoc[^xdoc::create{<?xml version="1.0" encoding="windows-1251"?>
 <!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"-->
 <people>
 	<man id="1" имя="word слово">
@@ -2193,7 +2477,7 @@ $xdoc[^xdoc::set{^process{<?xml version=
             <name>ПИФ^taint[&]</name>
 	   	</man>
 </people>
-}}]
+}]
 
 @xml[]
 ^xdata[]