--- parser3/www/htdocs/Attic/index.html 2002/04/25 09:54:08 1.52
+++ parser3/www/htdocs/Attic/index.html 2002/06/20 14:50:24 1.71
@@ -1,18 +1,31 @@
-@USE
-t.p
+#@USE
+#t.p
-@autoz[]
+@auto[a]
+^throw[user;$a]
+
+@autoZ[]
+#$form:here
$request:charset[windows-1251]
$response:charset[windows-1251]
$response:content-type[$.value[text/html]$.charset[$response:charset]]
-@postprocess[body]
-$body
-
-OK
+#@postprocess[body]
+#$body
+#$result[123]
+
+@f[a;b]
@main[]
-#^sqldefaults[]
+$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}]
+# ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
+#}
#^eval(2)
#^tcrashlocaljunctionsv2[]
#^tcrashlocaljunctions[]
@@ -141,9 +154,306 @@ 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[]
+#^selectt[]
+#^select2[]
+#^selectSingle2[]
+#^selectString2[]
+#^selectNumber2[]
+#^selectBool2[]
+#^xdoccreate[]
+#^xdoccreatetag[]
+#^xdocload[]
+#^xdocstring[]
+#^xdocsave[]
+#^div[]
+#^datecreatestring3[]
+
+@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]]
+ $articles.title
+ ^if($last_update > $new_after){новая}
+
+}
+
+@div[]
+$var(5)
+^var.inc(7)
+^var.dec(3)
+^var.div(4)
+^var.mul(2)
+$var
+
+
+@xdocsave[]
+$document[^xdoc::create{
+
+строка1
+строка2
+}]
+^document.save[test.xml]
+
+@xdocstring[]
+$document[^xdoc::create{
+
+строка1
+строка2
+}]
+^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{
+
+текст
+}]
+$response:body[^document.file[$.media-type[text/xml]]]
+
+@selectBool2[]
+$d[^xdoc::set{
+}]
+^if(^d.selectBool[/t/@n > 10]){
+ /t/@n больше 10
+}{
+ не больше
+}
+
+
+@selectNumber2[]
+$d[^xdoc::set{
+}]
+^d.selectNumber[number(/t/@n)+1]
+^d.selectNumber[2*2]
+
+
+@selectString2[]
+$d[^xdoc::set{
+}]
+# результат=привет
+^d.selectString[string(t/@attr)]
+
+
+@selectSingle2[]
+$d[^xdoc::set{
+}]
+# результат=один элемент "t"
+$element[^d.selectSingle[t]]
+# результат=2 (количество атрибутов )
+Количество атрибутов: ^element.attributes._count[]
+# результат=не существует (нет )
+^if(^d.select[x]){
+ x существует
+}{
+ x не существует
+}
+
+@select2[]
+$d[^xdoc::set{}]
+# результат: список из одного элемента "t"
+$list[^d.select[t]]
+# результат: 2 = количество атрибутов
+^list.0.attributes._count[]
+^for[i](0;$list-1){
+ $attr[$list.$i]
+ $attr.nodeName = $attr.nodeType
+}
+
+
+@selectt[]
+$d[^xdoc::set{}]
+$list[^d.select[t]]
+^list.0.attributes._count[]
+
+@envt[]
+$f[^file::exec[showenv.cmd;
+ $.bad[value]
+ $.CGI_good[value]
+]]
+$f.status
+$f.stderr
+$f.text
+
+
+@tserge[]
+^if(" 09 "){y}
+
+@datetest[]
+ $f[^file::stat[some.zip]]
+Размер в байтах: $f.size
+Год создания: $f.cdate.year
+$now[^date::now[]]
+$DAYS_CONSIDERED_NEW(3)
+Статус: ^if($f.mdate >= $now-$DAYS_CONSIDERED_NEW){новый;старый}
+
+
+@checkList[]
+...^oneOf[a;a,b,c]...
+#...^oneOf[a;ax,b,c]...
+...^oneWord[word]...
+#...^oneWord[wo rd]...
+
+
+@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}[
]
+}
+
+@datecreatestring2[]
+
+^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]
+
+
+@datecreatestring2show[s]
+$date[^date::create[$s]]
+
+| $s | ^date.sql-string[] |
+
+
+
+@junctionprob[][l]
+$l[123]
+$a{$l}
+^junctionprobnested[$a]
+@junctionprobnested[p]
+$p
+
+
+@callindirecttarget[]
+callindirecttarget called
+@callindirect[]
+$f[$callindirecttarget]
+^f[]
+
+@xpath2[]
+$xdoc[^xdoc::create{
+
+
+
+
+
+
+}]
+
+#^xdoc.string[]
+
+$fieldList[^xdoc.selectSingle[/doc/field-list]]
+#^fieldList.childNodes._count[]
+$fields[^fieldList.select[field]]
+#^fields._count[]
+^fields.foreach[k;node]{
+ $node.nodeName
+}
+@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{
+
+
+
+ 1 2
+
+
+}}]
+$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[]
@@ -168,6 +478,10 @@ $h[^t.hash[p]]
^int:sql{select news_id from news where news_id=-1}[$.default{2}]
^string:sql{select news_id from news where news_id=-1}[$.default{2}]
}
+=======
+
+OK
+>>>>>>> 1.50
@tcrashlocaljunctionsv2[]
$a[