--- parser3/www/htdocs/Attic/index.html	2002/03/26 12:19:07	1.26
+++ parser3/www/htdocs/Attic/index.html	2002/08/08 09:02:44	1.95
@@ -1,14 +1,66 @@
 #@USE
-#z/t.p
+#t.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]
+#$response:content-type[$.value[text/html]$.charset[$response:charset]]
+
+#@postprocess[body]
+#<b>$body</b>
+#$result[123]
 
 @main[]
+#$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>
+#    ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
+#	^file::load[text;^string:sql{select '^^hello[]' }]
+#	^string:sql{select '^^hello[]' }] $ORIGINS(1)
+	^process{here
+	^$aa[xxx]
+#	^string:sql{select '^^hello[]' }]
+	goes}
+	after
+	$aa
+	$ORIGINS(1)
+
+}
+#^eval(2)
+#^tcrashlocaljunctionsv2[]
+#^tcrashlocaljunctions[]
+#^tjunctions[]
+#^replacetest[]
+#^matchoptionpp[]
+#^txdocxnodechild[]
+#^tclasses[]
+#$math:PI
+#^b:method[]
+#^main[]
+#^errort[]
+#^tselectNumber[]
+#$result[hello]
+#^invaliddate2[]
+#^process2[]
+#^casehashtext[]
+#^subjvaltest[]
+#^tableselect0[]
+#^memnotest1[]
+#^voidparams[]
+#^rolls2[]
+#^cacheexpireschanging[]
+#^cacheexpiresfixed[]
+#^dateoffsets[]
+#^exceptionTypes[]
 #^roll2[]
-^rolls[]
+#^rolls[]
 #^exceptions1[]
 #^locate_by_expr[]
 #^method_junction_params{...}
@@ -88,7 +140,6 @@ $response:content-type[$.value[text/html
 #$t[^methresult[]] ->$t
 #^terror[]
 #^ssave[]
-#^calendar[]
 #^thash[]
 #^tdef[]
 #^ford[]
@@ -108,12 +159,851 @@ $response:content-type[$.value[text/html
 #^xslt[]
 #^xml[]
 #^header[]
+#^tablehasht[]
+#^datecreatestring[]
+#^mssqltypes1[]
+#^badthrows[]
+#^xmlspace[]
+#^counter[main.counter]
+#^xpath2[]
+#^callindirect[]
+#^junctionprob[]
+#^datecreatestring2[]
+#^tstoredproc[]
+#^tstoredproc2[]
+#^forkeys[]
+#^pngsize[]
+#^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[]
+#^calendar[]
+#^mimet[]
+#^cgit[]
+#^joinlimit[]
+#^tableclonelimit[]
+#^transparams[]
+#^sendtests[]
+#^wwrapperpass[]
+#^badpos[]
+<hr>
+OK
+
+
+@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>
+#...^oneOf[a;ax,b,c]...<br>
+...^oneWord[word]...<br>
+#...^oneWord[wo rd]...<br>
+
+
+@oneOf[s;list][t] выдаёт строку, если строка она есть в списке(разделенном запятыми)
+$t[^list.lsplit[,]]
+^if(!^t.locate[piece;$s]){^throw[user;$s;unknown]}
+$result[$s]
+
+@oneWord[s]
+^if(^s.match[\W]){^throw[user.data;$s;not word]}{$s}
+
+@pngsize[]
+$i[^image::measure[test.png]]
+^i.html[]
+
+
+@forkeys[]
+$text[^form:fields.foreach[key;val]{$key=$val
+}]
+^text.save[ttt.txt]
+=$text=
+
+
+@tstoredproc2[]
+^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
+	^void:sql{exec pafvoid}
+}
+
+@tstoredproc[]
+^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
+	$t[^table::sql{exec pafproc}]
+#	$t[^table::sql{{call pafproc}}]
+	$c[^t.columns[]]
+	^c.menu{$c.column}[<br>]
+}
+
+@datecreatestring2[]
+<table border=1>
+^datecreatestring2show[2000]
+^datecreatestring2show[2000-02]
+^datecreatestring2show[2000-2-03]
+^datecreatestring2show[2000-02-03 15]
+^datecreatestring2show[2000-02-03 15:30] 
+^datecreatestring2show[2000-02-03 15:30:04] 
+^datecreatestring2show[2000-02-03 15:30:04 hren] 
+^datecreatestring2show[15:30] 
+^datecreatestring2show[15:30:05] 
+^datecreatestring2show[15:30:05 hren] 
+</table>
+
+@datecreatestring2show[s]
+$date[^date::create[$s]]
+<tr>
+<td>$s</td><td align=right>^date.sql-string[]</td>
+</tr>
+
+
+@junctionprob[][l]
+$l[123]
+$a{$l}
+^junctionprobnested[$a]
+@junctionprobnested[p]
+$p
+
+
+@callindirecttarget[]
+callindirecttarget called
+@callindirect[]
+$f[$callindirecttarget]
+^f[]
+
+@xpath2[]
+$xdoc[^xdoc::create{<?xml version="1.0" encoding="windows-1251"?>
+<doc>
+<field-list>
+<field name="aa"/>
+<field name="bb"/>
+</field-list>
+</doc>
+}]
+
+#^xdoc.string[]
+
+$fieldList[^xdoc.selectSingle[/doc/field-list]]
+#^fieldList.childNodes._count[]
+$fields[^fieldList.select[field]]
+#^fields._count[]
+^fields.foreach[k;node]{
+	$node.nodeName<br>
+}
+@counter[filespec][f;s]
+^file:lock[$filespec]{
+	$f[^file::load[text;$filespec]]
+	$s[^eval($f.text+1)]
+	^s.save[$filespec]	
+}
+$s
+
+@xmlspace[]
+$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>
+}}]
+$xdoc[^xdoc.transform[global.xsl]]
+$string[^xdoc.string[$.method[html]]]
+^string.save[a]
+^untaint[html]{$string}
+
+@badthrows[]
+#^throw[a;b;]
+^throw[a;]
+
+@mssqltypes1[]
+^connect[odbc://DSN=nestle^;UID=nestle^;PWD=mbm32]{
+#    ^string:sql{select { ts '1998-05-02 01:23:56.123' }}
+#    ^string:sql{select CAST({ ts '1998-05-02 01:23:56.123' }AS smalldatetime)}
+#	^string:sql{select CAST({ts '2002-04-28 00:00:00.000'} AS smalldatetime)}
+	$t[^table::sql{select a from paf}]
+	^t.count[]
+}
+
+@datecreatestring[]
+$d[^date::create[2002-04-33 01:03:04]]
+^d.sql-string[]
+
+@method[hash]
+$hash.key
+@mainZ[]
+^method[
+    $.key{code}
+]
+
+@tablehasht[]
+$t[^table::create{p
+1
+3
+2
+4}]
+
+$h[^t.hash[p]]
+
+=^h._count[]=
+
+
+@sqldefaults[]
+^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}]
+}
+=======
 <hr>
 OK
+>>>>>>> 1.50
+
+@tcrashlocaljunctionsv2[]
+$a[
+	$b{  $c[1] }
+]
+$b
+$c
+
+@tcrashlocaljunctions[]
+$var[aaa]
+^if(1){
+^tcrashlocaljunctions1[]
+}
+
+$j
+
+@tcrashlocaljunctions1[][var]
+$var[varvalue]
+	$j{
+		$var
+	}
+$j
+
+@tjunctions[][tl]
+$t[^t::create[]]
+^tjunctionsi[]
+
+@tjunctionsi[][tl]
+$tl[12345]
+^t.tjunctionsm[
+	$.key{
+		$tl
+	}
+]
+
+@replacetest[]
+$b[b]
+$s[
+aaaaaaaaaa${b}aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa${b}aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+]
+^s.replace[^table::create{from	to
+ba	!_}]
+
+
+@matchoptionpp[]
+#$ORIGINS(1)
+$s[
+aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+]
+^s.match[b;g']{($match.prematch|$match.match|$match.postmatch)}
+
+
+@txdocxnodechild[]
+$xdoc[^xdoc::set{<?xml version="1.0" encoding="windows-1251" ?><d/>}]
+$xdoc.nodeName
+^xdoc.selectNumber[2*2]
+$xdoc:ELEMENT_NODE
+
+
+@tclasses[]
+$t[^t::create[]]
+^t.method[]
+<hr>
+^t.base_method[]
+
+
+@errort[]
+^xdoc::create[a]
+#^throw[user;here;this]
+
+@tselectNumber[]
+$d[^xdoc::set{<?xml version="1.0" encoding="windows-1251"?><d attr="привет" n="123"/>}]
+^d.selectString[string(d/@attr)]<br>
+^d.selectNumber[2*2]<br>
+^d.selectNumber[number(/d/@n)+1]<br>
+
+
+@invaliddate2[]
+$d[^date::create(1018946575/60/60)] ^d.sql-string[]
+
+@process2[]
+^^process{
+	^process{
+		^$a[^^if(0){^$.k[y]}{^$.k[^^hren[]n]}] ^$a.k
+	}
+}
+
+@casehashtext[]
+$tt[1]
+$tmp[
+        ^switch[$tt]{
+                ^case[1]{
+                        $.aaa[123]
+                }
+                ^case[DEFAULT]{
+                        $.bbb[456]
+                }
+        }
+        shit!
+]
+#$tmp
+$tmp.aaa
+
+@subjvaltest[]
+$a12[val]
+$b[12]
+$a$b
+
+@tableselect0[]
+$person[^table::create{name	height
+paf	1.77
+шохин	2.07
+moko	1.77
+}]
+$nottoohigh[^person.select($person.height<2)]
+^nottoohigh.menu{$nottoohigh.name<br>}
+
+@transparams[]
+$idoc[^xdoc::create{<?xml version="1.0" ?><doc/>}]
+$odoc[^idoc.transform[global.xsl;
+	$.param1['1']
+	$.param2['2']
+]]
+<pre>^taint[^odoc.string[$.method[html]]]
+
+@memnotest1[]
+^for[i](0;4000){
+
+ $xxxx[$i]
+ $xxxx
+
+}
+
+@memnotest1notes[]
+одна итерация цикла:
+[Mon Apr  8 20:12:02 2002] execution-------------------------|
+'469641+=28 wcodeframe -> 0 !optimize[3]''469669+=49 string от {} -> 0 optimize[3]'
+[Mon Apr  8 20:12:02 2002] 12:STRING__WRITE
+[Mon Apr  8 20:12:02 2002]  "|| "
+[Mon Apr  8 20:12:02 2002] 12:WITH_ROOT
+[Mon Apr  8 20:12:02 2002] 13:VALUE
+[Mon Apr  8 20:12:02 2002]  "xxxx" string
+[Mon Apr  8 20:12:02 2002] 14:CREATE_EWPOOL'469377+=24 wcodeframe -> 0 !optimize[1]''469401+=49 string -> 41 !optimize[7]'
+[Mon Apr  8 20:12:02 2002] 16:WITH_READ
+[Mon Apr  8 20:12:02 2002] 17:VALUE
+[Mon Apr  8 20:12:02 2002]  "i" string
+[Mon Apr  8 20:12:02 2002] 18:GET_ELEMENT
+[Mon Apr  8 20:12:02 2002] 17:WRITE_VALUE'469452+=40 MAX_NUMBER -> !~2 actual digits''469492+=49 -> 41 !'
+[Mon Apr  8 20:12:02 2002] 16:REDUCE_EWPOOL'469541+=24 VString -> 0 optimize[5]'
+[Mon Apr  8 20:12:02 2002] 15:CONSTRUCT_VALUE
+[Mon Apr  8 20:12:02 2002] 12:STRING__WRITE
+[Mon Apr  8 20:12:02 2002]  "| "
+[Mon Apr  8 20:12:02 2002] 12:WITH_READ
+[Mon Apr  8 20:12:02 2002] 13:VALUE
+[Mon Apr  8 20:12:02 2002]  "xxxx" string
+[Mon Apr  8 20:12:02 2002] 14:GET_ELEMENT
+[Mon Apr  8 20:12:02 2002] 13:WRITE_VALUE'469573+=41 string expand nothing for now'
+[Mon Apr  8 20:12:02 2002] 12:STRING__WRITE
+[Mon Apr  8 20:12:02 2002]  "||"'469617+=24 VString -> 0 !optimize[6]'
+[Mon Apr  8 20:12:02 2002] <-ja returned
+[Mon Apr  8 20:12:02 2002] ja->
+
+201/328=0.612804878049 %%optimized
+
+1.
+CREATE_*POOL
+    сделать
+*POOL_POOLED+CODE
+    где
+        wwrapper
+        и(возможно) wcodeframe
+        +string
+        стековая переменная
+
+2.
+избавиться от обёртки при возврате результата process [см. тело _for]
+
+3.
+сделать callback для process, чтобы вынести invariants из _for & co.
+
+4.
+ @todo склеить get_element и write_value (при вставлении? write_value)
+
+5.
+reduce_*pool -> вариант получить именно string, без VString обёртки [часто
+обёртка сразу выбрасывается = не нужна]
+
+6.
+process вариант получить именно string, без VString обёртки [часто обёртка
+сразу выбрасывается = не нужна]
+
+7.
+string head, убить 8 байт неправильной link
+
+@voidparams[]
+^voidparamsm[$form:field]
+
+@voidparamsm[p]
+^p.int(123)
+
+@rolls2[]
+$now[^date::now[]]
+$d[^date::create($now.year;$now.month)] ^d.sql-string[]<br>
+^for[i](1;12){
+	^d.roll[month](-1) ^d.sql-string[]<br>
+}
+
+@cacheexpireschanging[]
+^cache[$DB_HOME/keyключ][^date::now(+1)]{ ^rem{1 day}
+    ^cache[^date::now(+4/24/60/60)]
+#    ^cache(2)
+#    ^cache(0)
+	^math:random(100)
+}
+
+
+
+@cacheexpiresfixed[]
+^cache[$DB_HOME/keyключ][^date::now(+2/24/60/60)]{
+	^math:random(100)
+}
+
+@dateoffsets[]
+$d[^date::create(^date::now[]+1/24/60)]
+#$d[^date::now(+1/24/60)]
+^d.sql-string[]
+#$d
+
+@exceptionTypes[]
+#    parser.compile       ^test[}                компиляция (непарная скобка, ...)
+#    parser.runtime       ^if(0).                параметры (больше/меньше, чем нужно, не тех типов, ...)
+#    number.zerodivision  ^eval(1/0) ^eval(1%0)
+#    number.format        ^eval(abc*5)
+#    file.missing         ^file:delete[delme]                       not found
+#    file.access          ^table::load[.]                       no rights
+#    image.format         ^image::measure[index.html]                        not gif/jpg
+#    sql.connect          ^connect[mysql://baduser:pass@host/db]{}                       not found/timeout
+#    sql.execute          ^connect[mysql://okuser:pass@host/db]{^void:sql{select bad}}                       syntax error
+#    xml                  ^xdoc::create{<forgot?>}                       any error in xml/xslt libs
+#    smtp.connect                                not found/timeout
+#    smtp.execute                                communication error
 
 @roll2[]
 $d[^date::create(2002;4;2;2;2;3)] ^d.sql-string[]<br>
-^d.roll[day](-2) ^d.sql-string[]<br>
+^d.roll[day](+365*3+1) ^d.sql-string[]<br>
 
 
 @rolls[]
@@ -156,8 +1046,8 @@ $d[^date::create(2002;10;19)]
 	^throw[custom1;paf;is stupid]
 }{
 	^if($exception.type eq custom1){
-		$exception.handled(1)
-#	^throw[$exception]
+#		$exception.handled(1)
+	^throw[$exception]
 		type=$exception.type<br>
 	    source=$exception.source<br>
 	    file=$exception.file<br>
@@ -187,12 +1077,13 @@ $t[^table::create{a	b
 
 @execlangs[]
 $f[^file::exec[test.pl]]
+err:$f.stderr<br>
 ^process{$f.text}
 #$c[^t.columns[]]
 #^c.menu{
 #* $c.column<br>
 #}
-=$t.c=
+c:$t.c<br>
 
 @tobjeresult[]
 ^table::create{a
@@ -784,10 +1675,12 @@ $abc[abc]
 ^abc.save[abc]
 
 @calendar[]
-2001;11:<br>
-$week_days[^date:calendar[rus](2001;11)]
+$year(2002)
+$month(8)
+${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=<br>}
 </pre>
 
 @thash[]