--- parser3/www/htdocs/Attic/index.html	2002/10/31 15:01:58	1.175
+++ parser3/www/htdocs/Attic/index.html	2002/11/29 08:06:59	1.192
@@ -6,8 +6,8 @@
 $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]]
@@ -289,13 +289,159 @@ OK
 #$response:Content-TypE[bad]
 #^emailhead2[]
 #^includet2overridedynamic[]
-^includet2overridestatic[]
+#^includet2overridestatic[]
+#^virtualtest2[]
+#^message-id-test[]
+#^test_exif[jpg]
+#^http_prefix[]
+#^http_prefix_table[]
+^http_prefix_xml[]
+#^imagefont[]
+#^downloadtest[]
+#^cachebug[]
+#^quickregexatend[]
+#^docsamplehttpfileload[]
+
+@docsamplehttpfileload[]
+$file[^file::load[text;http://parser.ru/]]
+Ïðîãðàììíîå îáåñïå÷åíèå ñåðâåðà: $file.SERVER
+<hr>
+<pre>$file.text</pre>
+
+@quickregexatend[]
+#$subject[xxxabcd]
+#^if(^subject.match[^(?>.*)(?<=abcd)]){y;n}
+$subject[^for[i](0;1000){xxxxxyyyyy}   ]
+^for[j](0;1000){
+#$trimmed[^subject.match[\s+^$][]{}]
+#$table[^subject.match[^(.*\S)\s+^$]]
+$table[^subject.match[^(.*\S)\s+^$]]
+$trimmed[$table.1]
+}
+^untaint[html]{"$trimmed"}
+#$table[^subject.match[^(.*?)\s+^$]]
+#^untaint[html]{"$table.1"}
+
+
+@cachebug[]
+^cache[test](10){body}
+
+@downloadtest[]
+$response:body[^file::load[binary;index.html]]
+
+
+@imagefont[]
+$image[^image::create(200;30;0x00FFFF)]
+height(font)=1950<br>
+$alph[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ0123456789-+=!\"%:,.^;<>?@()^[^]'&*/]
+^^alph.length[]=^alph.length[]<br>
+^eval(1950/^alph.length[])[%.10f]
+
+^image.font[$alph;font.gif](20)
+$text[AÏðèâåò*]
+^image.text(0;0)[$text]
+$length[^image.length[$text]]
+#^image.rectangle(0;50)(2;2)(0x000000)
+^image.rectangle(0;0)($length-1;5)(0x000000)
+$response:body[^image.gif[]]
+
+@http_prefix_xml[]
+$xdoc[^xdoc::load[http://www.cbr.ru/scripts/XML_daily.asp?^taint[ñåãîäíÿ];
+    $.headers[
+		$.user-agent[ÏÀÔ]
+		$.accept-test[$.value[çíà÷åíèå]$.with-option[îïöèÿ]]
+	]
+]]
+Íà ^xdoc.selectString[string(/ValCurs/@Date)]
+êóðñ âàëþòû
+$USD_node[^xdoc.selectSingle[/ValCurs/Valute[CharCode='USD']]]
+"^USD_node.selectString[string(Name)]" ðàâåí ^USD_node.selectString[string(Value)]
+
+<hr>
+<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/exif.html;
+$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[]