Annotation of parser3/src/www/htdocs/index.html, revision 1.229
1.222 parser 1: @USE
2: dtformat.p
3: input_date.p
4:
1.223 parser 5: @href[href zzz;title xxxx;ставить]
6: ^if($ставить){y;n}
7:
1.228 parser 8:
9: @call[name][method]
10: $method[$$name]
11: ^if(def $method){^method[]}
12:
13: @test1[]
14: test1 result
15:
1.212 parser 16: @main[]
1.229 ! parser 17: $ORIGINS(1)
! 18: ^eval(2*11)
1.228 parser 19: ^call[test1]
20: <hr>
1.227 parser 21: $input_date:input_date_auto_test
1.226 parser 22: <hr>
23: #$string:z[1]
24: #<hr>
1.224 parser 25: $path[/news/tululu/]
26: $pieces[^path.lsplit[/]]
27: $pieces{^count[]: ^menu{{$piece}}[,].}
28: <hr>
1.223 parser 29: ^href[href;title](1<2)
30:
31: <hr>
32: $stat[^file:stat[test.zip]]
33: $stat{
34: ^$size=$size<br>
35: adate=^long_date_format[$adate]<br>
36: mdate=^long_date_format[$mdate]<br>
37: cdate=^long_date_format[$cdate]<br>
38: }
39: <hr>
1.222 parser 40: $дата[^input_date:parse[9.7.2001]]
41: ^long_date_format[$дата]
42: <hr>
43: $дата[^parse_date[9.7.2001]]
44: ^long_date_format[$дата]
45: <hr>
1.221 parser 46: $сегодня[^date:now[]]
47: $недельный_календарь[^table:calendar[rus]($сегодня.year;$сегодня.month;$сегодня.day)]
48: <TT>
49: $недельный_календарь{^menu{
50: $year $month $day $weekday<BR>
51: }}
52: </TT>
53: <hr>
54: $сегодня[^date:now[]]
55: $месячный_календарь[^table:calendar[rus;$сегодня.year;$сегодня.month]]
56: <TT>
57: ^месячный_календарь.menu{^for[i;0;6]{
58: $day[$месячный_календарь.$i]
59: ^if($day){$day}{ ^; ^;}
60: }<BR>}
61: </TT>
62: <hr>
1.220 parser 63: before $время[^date:now[]]^время.string[]<br>
64: year+^время.roll[year](1)^время.string[]<br>
65: month+^время.roll[month](1)^время.string[]<br>
66: year-^время.roll[year](-1)^время.string[]<br>
67: month-^время.roll[month](-1)^время.string[]<br>
68: day+^время.roll[day](1)^время.string[]<br>
69: day-^время.roll[day](-1)^время.string[]<br>
70: <hr>
71: $русский_день_недели[
72: $0[Воскресенье]
73: $1[Понедельник]
74: $2[Вторник]
75: $3[Среда]
76: $4[Четверг]
77: $5[Пятница]
78: $6[Суббота]
79: ]
80:
81: $время[^date:set(0;1;1;3;30;4)]
82: $время{
83: ^string[]<br>
84: ${year}.${month}.${day} ${hour}:${minute}:${second}
85: }
86: <hr>
87: $время[^date:set(1.5)]
88: ^время.string[]
89: <hr>
90: $сейчас[^date:now[]]
91: ^^сейчас.string[]=^сейчас.string[] $день_недели($сейчас.weekday) $русский_день_недели.$день_недели<br>
92: $floatdays($сейчас) ^floatdays.format{%.20f}<br>
93: ^eval(^math:frac($floatdays)*24)<br>
94: ^eval(^math:frac($floatdays*24)*60)<br>
95: ^eval(^math:frac($floatdays*24*60)*60)
96: <hr>
97:
1.219 parser 98: PI=^math:PI.format{%.40f}
99: <hr>
1.218 parser 100: ^math:random(10)
101: <hr>
102: ^math:sqrt(16)
103: <hr>
1.216 parser 104: $люди[
105: $2федя[
106: $рост[176]
107: ]
108: $1василий[
109: $возраст[5]
110: ]
111: ]
112:
113: $имена[^люди.keys[]]
114: $имена{
115: ^sort{$key}
116: ^menu{$key}[,].
117: }
118: <hr>
119:
1.215 parser 120: $таблица[^table:set{a b
121: 1 2
122: }]
123: $колонки[^таблица.columns[]]
124: $колонки{
1.217 parser 125: ^menu{$column}[,].
1.215 parser 126: }
127:
128: <hr>
129:
1.214 parser 130: ^if($form:id ne 'z"'){
131: ne
132: }{
133: eq
134: }
135: <hr>
136:
137:
138: ^rem{
1.212 parser 139: $one(1)
140: $z(0)
1.214 parser 141: ^eval(^one.int[]%0)
1.212 parser 142: <hr>
1.214 parser 143: }
1.212 parser 144:
145: $form:id:
146: <hr>
147:
148: ^switch(2){
149: ^case(1;4;3){143}
150: ^case[DEFAULT]{default}
151: }
152: <hr>
153: ^switch(2){
154: ^case(1;2;3){143}
155: ^case[DEFAULT]{default}
156: }
157: <hr>
158: ^switch(2){
159: ^case(1;5;3){143}
160: }
161:
162: <hr>
163: ^switch(2){
164: ^case(2){2}
165: }
166:
167: <hr>
168: ^switch[2]{
169: ^case(2){![2]}
170: }
171: <hr>
172:
173:
174: $hash[$a[1]]
175: ^hash.default[0]
176: ^rem{
177: $target[targetval]
178: $form_admin[formadminval]
179: ^if(def $target){<head><base target=$target^if(def $form_admin){_a}></head>}
180: ^if(def $target){<head><base target=${target}^if(def $form_admin){_a}></head>}
181:
182: если $target и $form_admin defined получаем
183: <head><base target={_a}></head>
184: <hr>
185: }
186:
187: #$string:a(1)
188: #<hr>
189: #^if(^log(11)){y}{n}
190: #<hr>
191:
192: #@my_func[arg;z]
193: #2
194:
195: #@z[]
196: #^exp(^log(10))
197: #<hr>
198: #$a[^table:load[a<b]]
199: ^rem{
200: ^mail:send[
201: $from[paf@design.ru]
202: $to[paf@design.ru]
203: $subject[test]
204: $body[here]
205: ]
206: <hr>
207: }
208: -^eol[]-
209: <hr>
210: ^if(1<2){$a[1]}
211: ^$a=$a
212: <hr>
213:
214: <form method=post>
215: <input type=hidden name=a value=123>
216: <table border=1 width=250><tr><td>$form:name</td></tr></table>
217: <textarea name=name rows=5 cols=40>^untaint[html]{^default[$form:name;Пробный текст: А.Ф._Петросян <<Жизнь в Аду>>
218: нажми Submit]}</textarea><BR>
219: <input type=submit>
220: </form>
221: <hr>
222:
223: #^main[]
224: #^use[$form:file]
225:
226: $строка[вася ЗдЕсЬ]
227: ^^строка.upper[]=^строка.upper[]<br>
228: ^^строка.lower[]=^строка.lower[]<br>
229: <hr>
230:
1.211 parser 231:
1.212 parser 232: $a[12]
233: ^a.int[]
234:
235: <hr>
236:
237:
238: $t[^table:set{key value
239: 1 v1
240: 2 v2}]
241: $h[^t.hash[key]]
242:
243: ^sql_test[$SQL.connect-string]
244: #^sql_test[mysql://test:test@localhost/test/cp1251_koi8]
245:
246: <HR>
247: $abc{}
248: $tn[^table:set[nameless]{a1 b1
249: a2 b2
250: }]
251: $x[^tn.locate[0;a2]]
252: ^$tn.1=$tn.1
253: <hr>
254: $t0[^table:set{key a b
255: 1 a1
256: 2 a2 b2
257: }]
258: ^if(^t0.locate[key;2] && "a" ne "b"){y;n}
259: <hr>
260: $currentFolder[/a/b]
261: $path[^currentFolder.lsplit[/]]
262: ^path.flip[]
263: $path{
264: ^menu{$0}{,}
265: }
266: <hr>
267: $t1[^table:set{key value
268: 1 v1
269: 2 v2}]
270: $h1[^t1.hash[key]]
271: ^h1.default[$value[nothing]]
272: ^$h1.2.value=$h1.2.value<br>
273: ^$h1.2x.value=$h1.2x.value<br>
274: <hr>
275: $t2[^table:set{key a b
276: 1 a1
277: 2 a2 b2
278: }]
279: t2 ^if(^t2.empty[]){empty}{not empty}<br>
280: ^t2.offset(1)
281: $t2.b
282: $r[^t2.record[]]
283: <hr>
284: $th[^t2.hash[b]]
285: ^$th.b2.a=$th.b2.a<br>
286: <hr>
287: $th[^t2.hash[key;a]]
288: ^$th.2.a=$th.2.a<br>
289: <hr>
290: #^OP:eval(1<2)
291:
292: $filelist[^table:dir[.]]
293: <hr>
294: $t2[^table:set{dir title
295: /here Here
296: }]
297: $t2{^menu{${dir}-$title}[,]}
298: <HR>
299: $dir[news]
300: $list[^table:dir[$dir]]
301: ^list.menu{
302: $subdir[$dir/$list.name]
303: $sublist[^table:dir[$subdir]]
304: ${list.name}/ $sublist{^menu{$name}[,]}<br>
305: }
306: <HR>
307: ^if(in "/otherdeeper"){y;n}
308: <HR>
309:
310: ^^table:dir[/]:<BR>
311: $d[^table:dir[/]]
312: $d{^menu{$name  ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};<BR>}}
313: <HR>
314:
315: $files[^table:set{name}]
316: $d{^menu{
317: ^if(-d "$name"){
318: ^:files.append{$name}
319: }
320: }}
321:
322: $files{^menu{$name}[,]}
323: <HR>
324:
325: @exception[origin;source;comment;type;code][i;j]
326: <body bgcolor=black>
327: <font color=white>
328: ERROR:
329: ^if(def $source){$origin '$source'}
330: ${comment}.
331: ^if(def $type){type=$type}
332: ^if(def $code){code=$code}
333:
334: @auto_test[]
335: ^BASE.auto_test[]
336: <li>${request:uri}!
337: @end
338:
339:
340: @sql_test[connect-string]
341: #^rem{
342: #^for[i](1;2){
343: ^connect[$connect-string]{
344: $shit[^taint[our's]]
345: # $paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}]
1.229 ! parser 346: # ^void:sql{update paf set age=age+1}
1.212 parser 347: $paf[^table:sql{select * from paf order by id desc}(5)]
348: $paf{
349: ^if(^empty[]){query result is empty}{
350: <table border=1>
351: <tr><td>id</td><td>name</td><td>age</td></tr>
352: ^menu{<tr><td>$id</td><td>$name</td><td>$age</td></tr>}
1.211 parser 353: </table>
1.212 parser 354: }}
1.228 parser 355: # ^^string:sql{select name from paf where id=1}=^string:sql{select name from paf where id=1}{n/a}<br>
356: # ^^int:sql{select age from paf where id=1}=^int:sql{select age from paf where id=1}(111)<br>
357: # ^^double:sql{select age from paf where id=1}=^double:sql{select age from paf where id=1}(222)<br>
1.212 parser 358:
359: $paf[^hash:sql{select id,age from paf}]
360: ^$paf.2.age=$paf.2.age<br>
361: }
362: #}
363: #}
364:
365: @eol[]
366: eol
367:
368: @default[test;def]
369: $result[^if(^test.length[]){$test}{$def}]
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to index.html CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / www / htdocs