--- parser3/www/htdocs/Attic/index.html 2002/06/10 13:50:03 1.63
+++ parser3/www/htdocs/Attic/index.html 2002/06/25 16:04:00 1.80
@@ -1,7 +1,8 @@
#@USE
#t.p
-@autoZ[]
+@auto[filespec]
+$selffilespec[$filespec]
#$form:here
$request:charset[windows-1251]
$response:charset[windows-1251]
@@ -12,6 +13,10 @@ $response:content-type[$.value[text/html
#$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}]
# ^string:sql{select news_id from news where news_id=-1}[$.default{2}]
@@ -160,14 +165,333 @@ $response:content-type[$.value[text/html
#^pngsize[]
#^checkList[]
#^datetest[]
-^tserge[]
+#^tserge[]
+#^envt[]
+#^selectt[]
+#^select2[]
+#^selectSingle2[]
+#^selectString2[]
+#^selectNumber2[]
+#^selectBool2[]
+#^xdoccreate[]
+#^xdoccreatetag[]
+#^xdocload[]
+#^xdocstring[]
+#^xdocsave[]
+#^div[]
+#^datecreatestring3[]
+#^tfilespec[]
+#^tcrypt[]
+#^cryptdocsample[]
+#^sendtests[]
+#^tnormalize[]
+#^xmltransformbyxdoc[]
+^sergestrandef[]
+
+OK
-@tserge[]
-$a[ 2 ]
-^tsergesub($a)
+@sergestrandef[]
+$sQuantity[ ]
+^sQuantity.int(10)
+
+@xmltransformbyxdoc[]
+$xdoc[^xdoc::set{^process{
+
+
+
+ 1 2
+
+
+}}]
+$sheet[^xdoc::create{
+
+
+
+
+
+
+defparam1
+defparam2
+
+
+
+ param1=
+ param2=
+
+ test return
+
+
+
+ test return2
+
+
+
+
+ z
+ para1=
+
+
+
+
+
+
+
+
+
+
+}]
+
+
+$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 html value ^taint[<] 10}
+]
+
+@text-n-html[]
+^mail:send[
+ $.from[paf]
+ $.to[paf]
+ $.text[
+ $.value[this is text value]
+ ]
+ $.html[
+ $.value{this is html 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 html 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[]]}
+}
-@tsergesub[i]
-=$i=
+^htpasswd.save[nameless;.htpasswd-parser-test]
+
+
+@tcrypt[]
+#^math:crypt[123;^$apr1^$1234567890abcdef]
+^math:crypt[123;^$apr1^$]
+
+@tfilespec[]
+src=$selffilespec
+dirname=^file:dirname[$selffilespec]
+basename=^file:basename[$selffilespec]
+justname=^file:justname[$selffilespec]
+justext=^file:justext[$selffilespec]
+
+@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]]