--- parser3/www/htdocs/Attic/index.html	2002/04/25 09:54:08	1.52
+++ parser3/www/htdocs/Attic/index.html	2002/06/11 12:20:43	1.65
@@ -1,18 +1,21 @@
-@USE
-t.p
+#@USE
+#t.p
 
-@autoz[]
+@autoZ[]
+#$form:here
 $request:charset[windows-1251]
 $response:charset[windows-1251]
 $response:content-type[$.value[text/html]$.charset[$response:charset]]
 
-@postprocess[body]
-$body
-<hr>
-OK
+#@postprocess[body]
+#<b>$body</b>
+#$result[123]
 
 @main[]
-#^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}]
+#}
 #^eval(2)
 #^tcrashlocaljunctionsv2[]
 #^tcrashlocaljunctions[]
@@ -141,8 +144,176 @@ OK
 #^xslt[]
 #^xml[]
 #^header[]
-^tablehasht[]
+#^tablehasht[]
+#^datecreatestring[]
+#^mssqltypes1[]
+#^badthrows[]
+#^xmlspace[]
+#^counter[main.counter]
+#^xpath2[]
+#^callindirect[]
+#^junctionprob[]
+#^datecreatestring2[]
+#^tstoredproc[]
+#^tstoredproc2[]
+#^forkeys[]
+#^pngsize[]
+#^checkList[]
+#^datetest[]
+#^tserge[]
+^envt[]
+
+@envt[]
+$f[^file::exec[showenv.cmd]]
+$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
@@ -168,6 +339,10 @@ $h[^t.hash[p]]
 	^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[