Annotation of parser3/src/www/htdocs/index.html, revision 1.372
1.364 parser 1: @main[]
1.372 ! parser 2: ^tdef[]
! 3: #^ford[]
1.371 parser 4: #^tif[]
1.370 parser 5: #^image[]
1.369 parser 6: #^mail2[]
1.367 parser 7: #^cookie[]
1.365 parser 8: #^response[]
1.364 parser 9: #^regexp2[]
10: #^ttablerem[]
11: #^pcre[]
12: #^regexp[]<hr>
13: #^mail[]
14: #^exec[]
15: #^fori[]
16: #^tconnect[]
1.365 parser 17: #^xslt[]
1.366 parser 18: #^xml[]
1.364 parser 19: #^header[]
20: OK
1.372 ! parser 21:
! 22: @tdef[]
! 23: $s[0]
! 24: if 0=^if($s){}{n}<br>
! 25: if def 0=^if(def $s){y}{}<br>
! 26: <hr>
1.371 parser 27:
28: @ford[]
29: ^for[i](0;5){$i}[!]
1.368 parser 30:
1.370 parser 31: @tif[]
32: ^if[def]{y;n}
33:
1.368 parser 34: @image[]
35: $pict[^image::create(400;200)]
36: ^pict.arc($pict.width/2;$pict.height/2;$pict.width;$pict.height;0;360;0x000000)
37: ^pict.circle($pict.width/2;$pict.height/2;$pict.height/2-5;0x000000)
38: $response:body[^pict.gif[]]
39:
40:
1.366 parser 41:
1.369 parser 42: @mail2[]
1.367 parser 43: ^mail:send[
1.369 parser 44: $.content-type[$.value[text/plain] $.charset[windows-1251]]
45: $.from[Александр Петросян <paf@design.ru>]
1.367 parser 46: $.to[Александр Петросян <paf@design.ru>]
1.369 parser 47: $.subject[проверка]
48: $.body[проверка]
1.367 parser 49: ]
50:
1.366 parser 51: @cookie[]
1.367 parser 52: $env:HTTP_COOKIE<br>
53:
54: #$cookie:переменная[test тест ТЕСТ2]
55: =$cookie:переменная=<br>
56: #$cookie:переменная2[test тест ТЕСТ3]
57: =$cookie:переменная2=<br>
1.365 parser 58:
59: @response[]
60: #^if($form:reload){
61: $response:refresh[$.value[0] $.url[./t.html?uri=$env:SERVER_NAME]]
62: #}
1.364 parser 63:
64: @xslt[]
65: ^xdata[]
66: ^show-xdoc2[^xdoc.transform[global.xsl]]
67:
68: @regexp2[]
69: $s[ select]
70: $s[^s.match[^^\s*][]{!}]
71: $s
72:
73: @header[]
74: $response:refresh[
75: $.value[0]
76: $.url[http://design.ru?a=^taint[123]]
77: ]
78:
79: @ttablerem[]
80: $table[^table::load[a.cfg]]
81: ^table.menu{$table.a}
82:
83: @tconnect[]
84: ^connect[mysql://test:test@paf/test?charset=cp1251_koi8&compress=1&timeout=1&named_pipe=1]{
85: $tables[^table::sql{show tables}]
86: #$cols[^tables.columns[]]
87: #$cols.column
88: ^tables.menu{
89: $tables.[Tables_in_test]<br>
90: }
91: }
92:
93: @pcre[]
94: $s[1 2]
95: ^s.match[\s;ig]{!}
96: #^s.match[\d;ig]{!}
97:
98:
99: @regexp[]
100: $s[abcАБВ]
101: ^if(^s.match[б][i]){y}{n}
102:
103: @mail[]
104: #$ORIGINS(1)
105: ^mail:send[
106: $.from[paf@design.ru]
107: $.to[paf@design.ru]
108: $.body[1
109:
110: 2
111:
112:
113: 3]
114: ]
115:
116: @exec[]
1.370 parser 117: $a[^file::exec[fc.exe;;a;b]]
1.364 parser 118: $a.status|$a.stderr<hr>
119:
120: @fori[][i]
121: ^for[i](1;3){... =$i= ...}
122:
123: @xdata[]
124: #$response:content-type[$.value[text/html] $.charset[windows-1251]]
125: $xdoc[^xdoc::load[input.xml]]
126:
127: @xml[]
128: ^xdata[]
129:
130: ^show-xdoc2[$xdoc]<hr>
131: #^show-xnode1[$xdoc]<hr>
132: $people[^xdoc.select[*/man]]
133: #^show1[]
134: ^show-xnodes1[$people]<hr>
135: #^people.0.owner.hren[]
136:
137: ^show-xnode1[^xdoc.select-single[*/man[2]/name];0;1]<hr>
138:
139: by id:
140: ^show-xnode1[^xdoc.getElementById[1];0;1]
141: <hr>
142:
143: @show1[array]
144: ^for[i](0;^array._count[]-1){
145: $x[$array.$i]
146: $x.firstChild.nodeValue:
147: $pattributes[$x.parentNode.attributes]
148: ^if(^pattributes._count[]){
149: $pattributes.id.name=$pattributes.id.nodeValue
150: }
151: <br>
152: }
153:
154: @show-xnodes1[array][i]
155: ^for[i](0;^array._count[]-1){
156: ^show-xnode1[$array.$i;0;1]
157: }
158:
159: @show-xnode1[x;level;single][l]
160: ^if(def $x){
161: ^for[l](0;$level-1){ ^; ^; ^; ^;}
162: ^if($x.nodeType == $xnode:ELEMENT_NODE){
163: <^;$x.nodeName
164: $pairs[$x.attributes]
165: ^if(def $pairs){
166: $names[^pairs._keys[]]
167: ^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
168: }
169: >^;
170: }{
171: [$x.nodeType]
172: }
173:
174: ^if(def $x.nodeValue){$x.nodeValue}<br>
175: ^show-xnode1[$x.firstChild]($level+1)
176: ^if(!$single){
177: ^show-xnode1[$x.nextSibling]($level)
178: }
179:
180: ^if($x.nodeType == $xnode:ELEMENT_NODE){
181: ^for[l](0;$level-1){ ^; ^; ^; ^;}<^;/$x.nodeName>^;<br>
182: }
183: }
184:
185: @show-xdoc2[xdoc]
186: ^xdoc.save[save.xml;
187: # $.encoding[windows-1251]
188: $.method[xml]
189: ]
190: $file[^xdoc.file[
191: # $.encoding[windows-1251]
192: $.method[html]
193: ]]
194: ^file.save[text;save_file.html]
195: <pre>^taint[^xdoc.string[]]</pre>
196: # $.encoding[windows-1251]
197: # $.method[xml]
198: #]]
E-mail: