--- parser3/www/htdocs/Attic/index.html	2002/08/23 07:32:25	1.122
+++ parser3/www/htdocs/Attic/index.html	2002/09/20 14:12:00	1.153
@@ -1,13 +1,15 @@
 @USE
 /derived.p
+/operators.p
 
 @auto[filespec]
 $selffilespec[$filespec]
 #$form:here
 #$request:charset[UTF-8]
-#$response:charset[windows-1251]
-#$request: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]
@@ -21,7 +23,7 @@ $selffilespec[$filespec]
 #^f[a]
 #^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
 #	^int:sql{select news_id from news where news_id=-1}[
-##	$.default{2}
+#	$.default{2}
 #	]<br>
 #    ^hash::sql{bad}
 #    ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
@@ -30,6 +32,9 @@ $selffilespec[$filespec]
 #	^process{	^^h[]}
 #	^process{^string:sql{select '1
 #	^^hello[]' }]	}
+#	^double:sql{select '2*' ^; }
+#$card_sequence_expect_no(^double:sql{select 20020909131047 #card_sequence_expect_no from card_sequence})
+#^card_sequence_expect_no.format[%15.f]
 #}
 #^eval(2)
 #^tcrashlocaljunctionsv2[]
@@ -142,14 +147,12 @@ $selffilespec[$filespec]
 #^ford[]
 #^tif[]
 #^image[]
-#^mail2[]
 #^response[]
 #^regexp2[]
 #^ttablerem[]
 #^pcre[]
 #^regexp[]<hr>
 #^mail[]
-#^exec[]
 #^fori[]
 #^tconnect[]
 #^xslt[]
@@ -195,7 +198,6 @@ $selffilespec[$filespec]
 #^tstdin[]
 #^tfind[]
 #^mimet[]
-#^cgit[]
 #^joinlimit[]
 #^tableclonelimit[]
 #^transparams[]
@@ -218,11 +220,278 @@ $selffilespec[$filespec]
 #^cookieexpirestest[]
 #^postest[]
 #^voidpostest[]
-^virtualtest[]
+#^virtualtest[]
 #^badcolumntest[]
+#^delimiters[]
+#^новый-split[]
+#^грязные-cookie[]
+#^html-почта[]
+#^badswitchtest[]
+#^okswitchtest[]
+#^cgit[]
+#^ttransformsep[]
+#^calltest[]
+#^xpath3[]
+#^doubleliterals[]
+#^newxor[]
+#^mail2[]
+#^exec[]
+#^passpost[]
+#^menudelim[]
+#^fordelim[]
+#^duplicatetable2hashkey[]
+#^duplicatehashsqlkey[]
+#^longlreplace[]
+#^table2hash_onecolumn[]
+#^crossopvars[]
+#^three[]
+#^badLangAfterCatch[]
+#^zeroinstdin[]
+#^shifts[]
+#^jspace[]
+#^user-foreach-test[]
+#^touchittest[]
+#^hashselfmodification[]
+#^emptyTransformResult[]
+#^badxdoccreate[]
+^if(-d "CVS"){y}{n}
 <hr>
 OK
 
+
+@badxdoccreate[]
+$xdoc[^xdoc::create[вася]]
+#$xdoc[^xdoc::create{<?xml version="1.0" encoding="$request:charset"?><doc>вася</doc>}]
+
+^xdoc.firstChild.setAttribute[name;значение]
+^xdoc.string[]
+
+
+@emptyTransformResult[]
+$input[^xdoc::create[docBad]]
+$sheet[^xdoc::create{<?xml version="1.0"?> 
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+	<xsl:template match="doc">
+		output
+	</xsl:template>
+</xsl:stylesheet>
+}]
+$output[^input.transform[$sheet]]
+$response:body[^output.file[]]
+
+@hashselfmodification[]
+$hash[
+	$.a[1]
+	$.b[2]
+]
+^hash.foreach[key;value]{
+#	$hash.c[1]
+	$hash.a[1]
+}	
+
+@touchittest[][i]
+^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)
+^jspace_call{^eval($a*2)}
+#$a(2)
+#$junction
+
+@jspace_call[param][a]
+$a[unrelcfgdfgated]
+$junction<br>
+$junction.a(2)
+$junction<br>
+
+@shifts[]
+^eval(1<<3)<br>
+^eval(8>>2)<br>
+#^if(1=1){y;n}<br>
+
+
+@zeroinstdin[]
+#$f[^file::exec[a.pl;$.stdin[$.shit[]]]]
+$f[^file::exec[a.pl;$.stdin[^file::load[binary;1z2.txt]]]]
+=$f.text=
+^f.save[binary;1z2.out]
+
+@badLangAfterCatch[]
+^try{
+	$a[ 
+		тут язык сменился на pass_appended
+		^throw[user;test]
+		и улетело с не тем  языком
+	]
+}{
+	$exception.handled(1)
+}
+1  2
+
+@crossopvars[]
+#^one[]<hr>
+^two[]<hr>
+
+@table2hash_onecolumn[]
+$t[^table::create{a
+1
+1
+}]
+#^t.hash[a]
+#^t.hash[a;b]
+$h[^t.hash[a][$.distinct(1)]]
+$h.1.a
+
+@longlreplace[]
+$str1[  мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла мыла ]
+$str2[ела]
+$str[Мама $str1 раму]
+
+^str.replace[^table::create[nameless]{мыла	$str2}]
+
+@duplicatehashsqlkey[]
+^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
+	$t[^table::sql{select * from news}]
+	$c[^t.columns[]]
+	^c.menu{$c.column}[,]
+
+	$h[^hash::sql{select news_type_id, name from news}[$.distinct(1)]]
+}
+
+@duplicatetable2hashkey[]
+$t[^table::create{a	b
+1	2
+1	3
+}]
+#^t.hash[a]
+#^t.hash[a;b]
+^t.hash[a][$.distinct[1]]
+
+@menudelim[]
+$t[^table::create{a
+1
+2
+3
+4
+5
+}]
+
+^t.menu{^if($t.a<3){}{$t.a}}[,]
+
+@fordelim[]
+^for[a](0;6){^if($a<3){}{$a}}[,]
+
+
+@passpost[]
+<form method=post name="test" id="test">
+<textarea name="text" cols=20 rows =6>^taint[html][1
+2
+
+3]</textarea><br>
+<input type=submit>
+</form>
+
+^if(def $form:text){
+	$a[^file::cgi[a.pl]]
+	$a.text|$a.status|$a.stderr<hr>
+}
+
+@exec[]
+#$a[^file::exec[a.cmd]]
+$a[^file::cgi[a.cmd]]
+$a.text|$a.status|$a.stderr<hr>
+
+
+@newxor[]
+^eval(1!|2 #примечание()zzz
+|0x100)<br>
+#^eval(1!||2)<br>
+^if(1!|1){y}{n}
+
+#@method[$bad]
+
+@doubleliterals[]
+#^eval(1e-10)
+^eval("1e-20")
+
+@xpath3[]
+$constr[^xdoc::create{<?xml version="1.0" encoding="$request:charset" standalone="no"?> <constructor-data><object object_type_id="1" template_id="1" data_process_id="1" is_published="1">проверка</object> <block-list> <block name="date" type="0" label="Дата" is_hide_pub="1" data_type="1"/> <block name="content" type="0" label="Текст" is_hide_pub="1" data_type=""/> </block-list></constructor-data>}]
+$objectData[^constr.selectSingle[/constructor-data/object]]
+$objectData.nodeType<br>
+$objectData.firstChild.nodeValue
+
+@calltest[]
+^calltest2[string]
+
+@calltest2[s]
+$s
+
+@ttransformsep[]
+$input[^xdoc::load[20020909131046.xml]]
+$output[^input.transform[generated.xsl]]
+^output.string[]
+
+@okswitchtest[]
+$local[local value]
+^switch[1]{
+	^case[1]{1code $local}
+}
+
+@badswitchtest[]
+^switch[1]{
+	^badswitchtestcase[]
+}
+@badswitchtestcase[][local]
+$local[local value]
+	^case[1]{1code $local}
+
+@badjunction[]
+^badj1[]
+^badj2[]
+
+@html-почта[]
+$переменная[значение]
+^mail:send[
+	$.from[paf@mail]
+	$.to[paf@mail]
+	$.subject[htmltest1]
+	$.html{тест$переменная=  !}
+]
+
+                 
+@грязные-cookie[]
+$cookie:a[&]
+$cookie:a
+
+@новый-split[]
+$abc[a.b.c]
+#$table[^abc.split[.]]
+#$table[^abc.split[.;l]]
+#$table[^abc.split[.;v]]
+$table[^abc.split[.;lv]]
+^table.menu{$table.piece}[,]
+<hr>
+#$table[^abc.split[.;h]]
+$table[^abc.split[.;hr]]
+$table.0,$table.1,$table.2<br>
+
+@delimiters[]
+$a#1[1]<br>
+$a#1=<br>
+
+
 @badcolumntest[]
 $table[^table::load[ext.cfg]]
 $table.b
@@ -1820,11 +2089,12 @@ $response:body[^pict.gif[]]
 
 @mail2[]
 ^mail:send[
+	$.message-id[<6615%1@parser.ru>]
 	$.content-type[$.value[text/plain] $.charset[windows-1251]]
 	$.from[Александр Петросян <paf@design.ru>]
 	$.to[Александр Петросян <paf@design.ru>]
-	$.subject[проверка]
-	$.body[проверка]
+	$.subject[проверка проверка]
+	$.text[проверка]
 ]
 
 @cookie[]
@@ -1894,10 +2164,6 @@ $s[abcАБВ]
 		3]
 ]
 
-@exec[]
-$a[^file::exec[fc.exe;;a;b]]
-$a.status|$a.stderr<hr>
-
 @fori[][i]
 ^for[i](1;3){... =$i= ...}