--- parser3/src/www/htdocs/Attic/index.html 2001/09/28 09:37:09 1.337
+++ parser3/src/www/htdocs/Attic/index.html 2001/10/09 08:13:04 1.371
@@ -1,31 +1,124 @@
@main[]
+^ford[]
+#^tif[]
+#^image[]
+#^mail2[]
+#^cookie[]
+#^response[]
+#^regexp2[]
+#^ttablerem[]
+#^pcre[]
+#^regexp[]
+#^mail[]
#^exec[]
#^fori[]
-#^connect[mysql://hren]{^void:sql{nothing}}
-$response:content-type[$.value[text/html] $.charset[windows-125odin]]
-^xslt[]
+#^tconnect[]
+#^xslt[]
+#^xml[]
+#^header[]
OK
+@ford[]
+^for[i](0;5){$i}[!]
+
+@tif[]
+^if[def]{y;n}
+
+@image[]
+$pict[^image::create(400;200)]
+^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0x000000)
+^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-5;0x000000)
+$response:body[^pict.gif[]]
+
+
+
+@mail2[]
+^mail:send[
+ $.content-type[$.value[text/plain] $.charset[windows-1251]]
+ $.from[Александр Петросян ]
+ $.to[Александр Петросян ]
+ $.subject[проверка]
+ $.body[проверка]
+]
+
+@cookie[]
+$env:HTTP_COOKIE
+
+#$cookie:переменная[test тест ТЕСТ2]
+=$cookie:переменная=
+#$cookie:переменная2[test тест ТЕСТ3]
+=$cookie:переменная2=
+
+@response[]
+#^if($form:reload){
+ $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]]
+#}
+
+@xslt[]
+^xdata[]
+^show-xdoc2[^xdoc.transform[global.xsl]]
+
+@regexp2[]
+$s[ select]
+$s[^s.match[^^\s*][]{!}]
+$s
+
+@header[]
+$response:refresh[
+ $.value[0]
+ $.url[http://design.ru?a=^taint[123]]
+]
+
+@ttablerem[]
+$table[^table::load[a.cfg]]
+^table.menu{$table.a}
+
+@tconnect[]
+^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{
+$tables[^table::sql{show tables}]
+#$cols[^tables.columns[]]
+#$cols.column
+^tables.menu{
+ $tables.[Tables_in_test]
+}
+}
+
+@pcre[]
+$s[1 2]
+^s.match[\s;ig]{!}
+#^s.match[\d;ig]{!}
+
+
+@regexp[]
+$s[abcАБВ]
+^if(^s.match[б][i]){y}{n}
+
+@mail[]
+#$ORIGINS(1)
+^mail:send[
+ $.from[paf@design.ru]
+ $.to[paf@design.ru]
+ $.body[1
+
+ 2
+
+
+ 3]
+]
+
@exec[]
-$a[^file::exec[fc.exe;a;b]]
+$a[^file::exec[fc.exe;;a;b]]
$a.status|$a.stderr
@fori[][i]
^for[i](1;3){... =$i= ...}
-@xslt[]
-$xdoc[^xdoc::set{
-
+@xdata[]
+#$response:content-type[$.value[text/html] $.charset[windows-1251]]
+$xdoc[^xdoc::load[input.xml]]
-
-
- P«^;AF
-
-
- ПИФ
-
-
-}]
+@xml[]
+^xdata[]
^show-xdoc2[$xdoc]
#^show-xnode1[$xdoc]
@@ -64,7 +157,7 @@ by id:
$pairs[$x.attributes]
^if(def $pairs){
$names[^pairs._keys[]]
- ^names.menu{$names.key=$pairs.[$names.key].nodeValue }
+ ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
}
>^;
}{
@@ -92,7 +185,7 @@ $file[^xdoc.file[
$.method[html]
]]
^file.save[text;save_file.html]
-taint[^xdoc.string[]]
+^taint[^xdoc.string[]]
# $.encoding[windows-1251]
# $.method[xml]
-]]
+#]]