--- parser3/www/htdocs/Attic/index.html	2002/06/03 15:02:42	1.60
+++ parser3/www/htdocs/Attic/index.html	2002/08/20 08:19:00	1.117
@@ -1,20 +1,36 @@
 @USE
-t.p
+/derived.p
 
-@autoz[]
-$request:charset[windows-1251]
-$response:charset[windows-1251]
-$response:content-type[$.value[text/html]$.charset[$response:charset]]
+@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]
 #<b>$body</b>
 #$result[123]
 
 @main[]
-^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
-	^int:sql{select news_id from news where news_id=-1}[$.default{2}]<br>
-    ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
-}
+#$a(123)
+#^a.format[%.10u]
+#$result[111]
+#^f[a]
+#^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 'from sql server' }]
+#	^string:sql{select '^^hello[]' }] $ORIGINS(1)
+#	^process{	^^h[]}
+#	^process{^string:sql{select '1
+#	^^hello[]' }]	}
+#}
 #^eval(2)
 #^tcrashlocaljunctionsv2[]
 #^tcrashlocaljunctions[]
@@ -35,7 +51,6 @@ $response:content-type[$.value[text/html
 #^subjvaltest[]
 #^tableselect0[]
 #^memnotest1[]
-#^transparams[]
 #^voidparams[]
 #^rolls2[]
 #^cacheexpireschanging[]
@@ -65,7 +80,6 @@ $response:content-type[$.value[text/html
 #^precisionProblem[]
 #^xpath[]
 #^ttablesetlang[]
-#^mail3[]
 #^ttime[]
 #^tupper[]
 #^treplace[]
@@ -123,14 +137,12 @@ $response:content-type[$.value[text/html
 #$t[^methresult[]] ->$t
 #^terror[]
 #^ssave[]
-#^calendar[]
 #^thash[]
 #^tdef[]
 #^ford[]
 #^tif[]
 #^image[]
 #^mail2[]
-#^cookie[]
 #^response[]
 #^regexp2[]
 #^ttablerem[]
@@ -143,7 +155,6 @@ $response:content-type[$.value[text/html
 #^xslt[]
 #^xml[]
 #^header[]
-<<<<<<< index.html
 #^tablehasht[]
 #^datecreatestring[]
 #^mssqltypes1[]
@@ -158,7 +169,505 @@ $response:content-type[$.value[text/html
 #^tstoredproc2[]
 #^forkeys[]
 #^pngsize[]
-^checkList[]
+#^checkList[]
+#^datetest[]
+#^tserge[]
+#^envt[]
+#^selectt[]
+#^select2[]
+#^selectSingle2[]
+#^selectString2[]
+#^selectNumber2[]
+#^selectBool2[]
+#^xdoccreate[]
+#^xdoccreatetag[]
+#^xdocload[]
+#^xdocstring[]
+#^xdocsave[]
+#^div[]
+#^datecreatestring3[]
+#^tfilespec[]
+#^tcrypt[]
+#^cryptdocsample[]
+#^tnormalize[]
+#^xmltransformbyxdoc[]
+#^sergestrandef[]
+#^tstdin[]
+#^tfind[]
+#^mimet[]
+#^cgit[]
+#^joinlimit[]
+#^tableclonelimit[]
+#^transparams[]
+#^sendtests[]
+#^wwrapperpass[]
+#^badpos[]
+#^processtest[]
+#^mail3[]
+#^mail4[]
+#^datesaving[]
+#^badconstructor[]
+#^calendar[]
+#^monthdays(8)
+#^xdoctypetest[]
+#^xtabletest[]
+#^staticstest[]
+#^staticstest2[]
+#^rbodytest[]
+#^cookie[]
+#^cookieexpirestest[]
+<hr>
+OK
+
+@cookieexpirestest[]
+#$cookie:exptest[1]
+#$cookie:exptest[$.value[2] $.expires(+1)]
+$response:xxxx[^date::now(+10)]
+$response:yyy[$.value[^date::now(+20)]]
+$response:yyy[$.value[vvv] $.aaaa[^date::now(+20)]]
+
+@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[]
+
+@datesaving[]
+$now[^date::now[]]
+$now.daylightsaving<br>
+$now.yearday<br>
+#
+$date[^date::create(2002;1;3)]
+$date.daylightsaving<br>
+$date.yearday
+
+@mail4[]
+^mail:send[
+	$.from[paf@mail.design.ru]
+	$.to[paf@mail.design.ru]
+	$.subject[^taint[uri][москва]=2]
+	$.text[^taint[uri][москва]=]
+	$.html{<a href=http://there.ru/?city=^taint[uri][Москва]>link</a>}
+]
+@processtest[]
+    $f[^file::load[text;piece.p]]	^process{$f.text}
+	$ORIGINS(1)
+
+
+@badpos[]
+$s[123]
+^s.mid(0;2)
+
+@wwrapperpass[]
+$h[^hash::create[]]
+$h.a(1)
+^my_method[^if(1){$h}]
+работает. так и должно быть?
+
+@my_method[p]
+^p._count[]
+
+
+@tableclonelimit[]
+$source[^table::create{a
+aa
+bb
+cc}]
+^source.offset(1)
+#$dest[^table::create[$source]]
+$dest[^table::create[$source;$.offset(2)]]
+$dest[^table::create[$source;$.limit(2)]]
+$dest[^table::create[$source;$.offset(1)$.limit(1)]]
+$dest[^table::create[$source;$.offset(1)$.limit(2)]]
+$dest[^table::create[$source;$.offset[cur]$.limit(2)]]
+
+^dest.menu{$dest.a}[,]<br>
+
+@joinlimit[]
+$source[^table::create{a
+aa
+bb
+cc}]
+^source.offset(2)
+$dest[^table::create{a
+xx
+}]
+#^dest.join[$source]
+#^dest.join[$source;$.offset(2)]
+#^dest.join[$source;$.limit(2)]
+#^dest.join[$source;$.offset(1)$.limit(1)]
+#^dest.join[$source;$.offset(1)$.limit(2)]
+#^dest.join[$source;$.offset[cur]$.limit(1)]
+^dest.join[$source;$.limit(0)]
+
+^dest.menu{$dest.a}[,]<br>
+
+@cgit[]
+$f[^file::cgi[showenv.cmd]]
+$f.HELLO=<br>
+$f.CONTENT-TYPE=<br>
+$f.content-type=<br>
+
+
+@mimet[]
+$f[^file::stat[a.GIF]]
+$f.content-type
+
+
+@tfind[]
+^file:find[index.html]
+
+@tstdin[]
+$f[^file::exec[test.pl;$.stdin[проверка stdin потока]]]
+<pre>$f.text</pre>
+
+@sergestrandef[]
+$sQuantity[ ]
+^sQuantity.int(10)
+
+@xmltransformbyxdoc[]
+$xdoc[^xdoc::set{^process{<?xml version="1.0" encoding="windows-1251"?>
+<!--DOCTYPE people SYSTEM "D:\Y\parser3project\parser3\src\www\htdocs\people.dtd"-->
+<people>
+	<man id="1" имя="word слово">
+		<name>1  2</name>
+	</man>
+</people>
+}}]
+$sheet[^xdoc::create{<?xml version="1.0"?> 
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"
+
+>
+<!--<xsl:output doctype-public ="-//W3C//DTD XHTML" indent="yes"/>-->
+
+	<!--<xsl:import href="http://localhost/html.xsl"/>-->
+	<xsl:import href="html.xsl"/>
+
+<xsl:param name="param1">defparam1</xsl:param>
+<xsl:param name="param2">defparam2</xsl:param>
+
+
+	<xsl:template match="doc">
+		param1=<xsl:value-of select="^$param1"/><br/>
+		param2=<xsl:value-of select="^$param2"/><br/>
+
+		test return <something background=""/>
+	</xsl:template>
+
+	<xsl:template name="test">
+		test return3
+	</xsl:template>
+
+  <xsl:template match="people">
+     <html>
+     <head>z</head>
+   		para1=<xsl:copy-of select="^$param1"/>
+    	<xsl:apply-templates/>
+    	<hr/>
+    	<xsl:call-template name="test"/>
+     </html>	
+  </xsl:template>
+
+  <xsl:template match="name">
+    <b><xsl:value-of select="."/></b>
+  </xsl:template>
+</xsl:stylesheet>
+}]
+
+
+$xdoc[^xdoc.transform[$sheet]]
+$string[^xdoc.string[$.method[html]]]
+^string.save[a]
+^untaint[html]{$string}
+
+
+
+@tnormalize[]
+#s состоит из 1000 фрагментов
+$s[^for[i](0;999){фрагмент }]
+#это займет много ресурсов
+^s.match[фраг][g]{перга}
+#это займет меньше ресурсов
+#$normalized[^s.normalize[]]
+#^normalized.match[фраг][g]{перга}
+
+@sendtests[]
+^text[]
+#^html[]
+#^text-n-html[]
+#^file[]
+#^text-n-file[]
+#^text-n-html-n-file[]
+#^backwardcomp[]
+
+@backwardcomp[]
+^mail:send[
+	$.from[paf]
+	$.to[paf]
+	$.body[this is text value]
+]
+
+@text[]
+^mail:send[
+	$.from[paf]
+	$.to[paf]
+	$.text[
+		$.value[this is text value]
+	]
+]
+
+@html[]
+^mail:send[
+	$.from[paf]
+	$.to[paf]
+	$.html{this is <b>html</b> value ^taint[<] 10}
+]
+
+@text-n-html[]
+^mail:send[
+	$.from[paf]
+	$.to[paf]
+	$.text[
+		$.value[this is text value]
+	]
+	$.html[
+	$.value{this is <b>html</b> value ^taint[<] 10}
+	]
+]
+
+@file[]
+^mail:send[
+	$.from[paf]
+	$.to[paf]
+	$.file[^file::load[binary;image.jpg]]
+]
+
+@text-n-file[]
+^mail:send[
+	$.from[paf]
+	$.to[paf]
+	$.text[
+		$.value[this is text value]
+	]
+	$.file[^file::load[binary;image.jpg]]
+]
+
+@text-n-html-n-file[]
+^mail:send[
+	$.from[paf]
+	$.to[paf]
+	$.text[
+		$.value[this is text value]
+	]
+	$.html[
+	$.COntent-type[$.value[text/html]$.charset[windows-1251xx]]
+	$.value{this is <b>html</b> value ^taint[<] 10}
+	]
+	$.file[^file::load[binary;image.jpg]]
+]
+
+
+
+@md5salt[]
+1234
+
+@cryptdocsample[]
+$users[^table::create{name	password
+alice	***
+bob	***
+}]
+
+$htpasswd[^table::create[nameless]{}]
+^users.menu{
+	^htpasswd.append{$users.name:^math:crypt[$users.password;^$apr1^$^md5salt[]]}
+}
+
+^htpasswd.save[nameless;.htpasswd-parser-test]
+
+
+@tcrypt[]
+#^math:crypt[123;^$apr1^$1234567890abcdef]<br>
+^math:crypt[123;^$apr1^$]<br>
+
+@tfilespec[]
+src=$selffilespec<br>
+dirname=^file:dirname[$selffilespec]<br>
+basename=^file:basename[$selffilespec]<br>
+justname=^file:justname[$selffilespec]<br>
+justext=^file:justext[$selffilespec]<br>
+
+@datecreatestring3[]
+$new_after[^date::now(-3)]
+$articles[^table::create{id	title	last_update
+1	привет	2002-07-03}]
+^articles.menu{
+    $last_update[^date::create[$articles.last_update]]
+    <a href=${articles.id}.html>$articles.title</a>
+    ^if($last_update > $new_after){новая}
+    <br>
+}
+
+@div[]
+$var(5)
+^var.inc(7)
+^var.dec(3)
+^var.div(4)
+^var.mul(2)
+$var
+
+
+@xdocsave[]
+$document[^xdoc::create{<?xml version="1.0" encoding="windows-1251" ?>
+<document>
+строка1<br/>
+строка2<br/>
+</document>}]
+^document.save[test.xml]
+
+@xdocstring[]
+$document[^xdoc::create{<?xml version="1.0" encoding="windows-1251" ?>
+<document>
+строка1<br/>
+строка2<br/>
+</document>}]
+^document.string[
+    $.method[html]
+]
+
+
+@xdocload[]
+$document[^xdoc::load[article.xml]]
+$response:body[^document.file[$.media-type[text/xml]]]
+
+
+@xdoccreatetag[]
+$document[^xdoc::create[document]]
+$paraNode[^document.createElement[para]]
+$dummy[^document.documentElement.appendChild[$paraNode]]
+$response:body[^document.file[$.media-type[text/xml]]]
+
+
+@xdoccreate[]
+$document[^xdoc::create{<?xml version="1.0" encoding="windows-1251" ?>
+<document>
+текст
+</document>}]
+$response:body[^document.file[$.media-type[text/xml]]]
+
+@selectBool2[]
+$d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
+<t attr="привет" n="123"/>}]
+^if(^d.selectBool[/t/@n > 10]){
+    /t/@n больше 10
+}{
+    не больше
+}
+
+
+@selectNumber2[]
+$d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
+<t attr="привет" n="123"/>}]
+^d.selectNumber[number(/t/@n)+1]<br>
+^d.selectNumber[2*2]<br>
+
+
+@selectString2[]
+$d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
+<t attr="привет" n="123"/>}]
+# результат=привет
+^d.selectString[string(t/@attr)]
+
+
+@selectSingle2[]
+$d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?>
+<t attr="привет" n="123"/>}]
+# результат=один элемент "t"
+$element[^d.selectSingle[t]]
+# результат=2 (количество атрибутов <t>)
+Количество атрибутов: ^element.attributes._count[]<br>
+# результат=не существует (нет <x>)
+^if(^d.select[x]){
+    x существует
+}{
+    x не существует
+}
+
+@select2[]
+$d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><t attr="привет" n="123"/>}]
+# результат: список из одного элемента "t"
+$list[^d.select[t]]
+# результат: 2 = количество атрибутов <t>
+^list.0.attributes._count[]<br>
+^for[i](0;$list-1){
+    $attr[$list.$i]
+    $attr.nodeName = $attr.nodeType<br>
+}
+
+
+@selectt[]
+$d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><t attr="привет" n="123"/>}]
+$list[^d.select[t]]
+^list.0.attributes._count[]
+
+@envt[]
+$f[^file::exec[showenv.cmd;
+	$.bad[value]
+	$.CGI_good[value]
+]]
+$f.status<br>
+$f.stderr<br>
+<pre>$f.text</pre>
+
+
+@tserge[]
+^if(" 09 "){y}
+
+@datetest[]
+	$f[^file::stat[some.zip]]
+Размер в байтах: $f.size<br>
+Год создания: $f.cdate.year<br>
+$now[^date::now[]]
+$DAYS_CONSIDERED_NEW(3)
+Статус: ^if($f.mdate >= $now-$DAYS_CONSIDERED_NEW){новый;старый}
+
 
 @checkList[]
 ...^oneOf[a;a,b,c]...<br>
@@ -782,13 +1291,13 @@ $t[^table::set{^untaint{^taint[$a-tab-b]
 
 @mail3[]
 ^mail:send[
-	$.from[Александр Петросян <paf@design.ru>]
-	$.to[Александр Петросян <paf@design.ru>]
-	$.subject[проверка4]
+	$.from[Александр Петросян <paf@mail.design.ru>]
+	$.to[Александр Петросян <paf@mail.design.ru>]
+	$.subject[проверка2]
 	$.body[
 		$.text[
 			$.content-type[$.value[text/plain] $.charset[windows-1251]]
-			$.body[проверка]
+			$.body[проверка^taint[uri][москва]=]
 		]
 		$.attachment[
 			$.value[^file::load[text;index.html]]
@@ -1247,10 +1756,12 @@ $abc[abc]
 ^abc.save[abc]
 
 @calendar[]
-2001;11:<br>
-$week_days[^date:calendar[rus](2001;11)]
+$year(2002)
+$month(12)
+${year}-${month}:<br>
+$week_days[^date:calendar[rus]($year;$month)]
 <pre>
-^week_days.menu{^for[wday](0;7){^if($week_days.$wday){$week_days.$wday;&nbsp^;&nbsp^;} }<br>}
+^week_days.menu{^for[wday](0;6){^if($week_days.$wday){$week_days.$wday;&nbsp^;&nbsp^;} }=$week_days.week,$week_days.year=<br>}
 </pre>
 
 @thash[]
@@ -1295,7 +1806,7 @@ $response:body[^pict.gif[]]
 ]
 
 @cookie[]
-$env:HTTP_COOKIE<br>
+#$env:HTTP_COOKIE<br>
 
 #$cookie:переменная[test тест ТЕСТ2]
 =$cookie:переменная=<br>