--- parser3/src/www/htdocs/Attic/index.html 2001/04/19 15:38:08 1.145 +++ parser3/src/www/htdocs/Attic/index.html 2001/05/21 17:19:49 1.196 @@ -1,452 +1,167 @@ -@auto[] -$html-typo[^table:set{user html comment -<< «^; длинные user вперёд ->> »^; -\n\n

!эти есть в таблице по умолчанию -\n
!но т.к. заменяем, надо повторить. -< <^; !можно этим воспользоваться, -> >^; !и что-то сделать ДО обычных замен -" "^; !например из << и >> -& &^; !сделать ёлочки-кавычки. -_  ^; -^#AB «^; windows коды ёлочек -^#BB »^; windows коды ёлочек -(c) ©^; -^#A9 ©^; windows (c) -}] +@main[] +

+ +
$form:name
+
+ +
+
-@dump[t] -^t.menu{$n
} -
-@func[n] -$n -@twop[a;b] -($a,$b) - -@Я post-process[data] -#(
$data)
-^data.match[1][g]{X} +#^main[] +#^use[$form:file] -@mt[s;m] -$m ^if(^s.match[$:m;i]){matches}{does not match} $s
+$строка[вася ЗдЕсЬ] +^^строка.upper[]=^строка.upper[]
+^^строка.lower[]=^строка.lower[]
+
-@main[] -image:create
-$itext[^image:create(300;100)] -$itext{ -^font[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя0123456789-+=!\"%:,.^^^;<>?@()[]'&*/;font.gif](13) -^^text(10;10)[ПАФ сделал это]
-^text(10;10)[ПАФ сделал это] -^font[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя0123456789-+=!\"%:,.^^^;<>?@()[]'&*/;font.gif](13;8) -^^text(10;30)[ПАФ сделал это fixed]
-^text(10;30)[ПАФ сделал это fixed] -} -$ff[^itext.gif[]] -^ff.save[itext.gif] -^itext.html[$src[itext.gif]] +$a[12] +^a.int[] +
-
-$t[^table:set{id}] -^^t.id.int[]=^t.id.int[]
-^^hren.double[]=^hren.double[]
-
-#image:create
-#$drawing[^image:create(300;100)] -drawing:load
-$drawing[^image:load[001004paf(c)lena_karin.gif]] -$drawing{ -^$drawing.width=$width
-^$drawing.height=$height
-^for[i](0;$width/4){ -^line(0;0)($:i*4;$height-1)(0x00FF00) -} -^rectangle(100;10)(180;40)(0xFF0000) -^bar(100+20;10+20)(180+20;40+20)(0xFFFF00) -^fill(0;0)(0x0000FF) -^replace(0xFFffFF;0x00FF00)(30;0)(150;99)(200;50) -^polybar(0x00FFFF)(200;100)(170;99)(280;50) -^polygon(0xFFFF00)(210;100)(160;90)(250;50) +$t[^table:set{key value +1 v1 +2 v2}] +$h[^t.hash[key]] -} -
-#$response:body[^drawing.gif[]] -$ff[^drawing.gif[]] -^ff.save[drawing.gif] -^drawing.html[$src[drawing.gif]] -
-image:load
-$face[^image:load[001004paf(c)lena_karin.gif]] -^$face.src=$face.src
-^$face.width=$face.width
-^$face.height=$face.height
-
+^sql_test[$SQL.connect-string] +#^sql_test[mysql://test:test@localhost/test/cp1251_koi8] -^if($form:photo){ -upload file:
-$face[^image:measure[$form:photo]] -$face.src=$face.src
-^$face.width=$face.width
-^$face.height=$face.height
+$abc{} +$tn[^table:set[nameless]{a1 b1 +a2 b2 +}] +$x[^tn.locate[0;a2]] +^$tn.1=$tn.1 +
+$t0[^table:set{key a b +1 a1 +2 a2 b2 +}] +^if(^t0.locate[key;2] && "a" ne "b"){y;n} +
+$currentFolder[/a/b] +$path[^currentFolder.lsplit[/]] +^path.flip[] +$path{ +^menu{$0}{,} } -gif file class:
-$face[^image:measure[^file:load[001004paf(c)lena_karin.gif]]] -^$face.src=$face.src
-^$face.width=$face.width
-^$face.height=$face.height
-^^face.html[]=^face.html[]
-
-gif:
-$face[^image:measure[001004paf(c)lena_karin.gif]] -^$face.src=$face.src
-^$face.width=$face.width
-^$face.height=$face.height
-^^face.html[]=^face.html[]
+
+$t1[^table:set{key value +1 v1 +2 v2}] +$h1[^t1.hash[key]] +^h1.default[$value[nothing]] +^$h1.2.value=$h1.2.value
+^$h1.2x.value=$h1.2x.value
+
+$t2[^table:set{key a b +1 a1 +2 a2 b2 +}] +t2 ^if(^t2.empty[]){empty}{not empty}
+^t2.offset(1) +$t2.b +$r[^t2.record[]] +
+$th[^t2.hash[b]] +^$th.b2.a=$th.b2.a
+
+$th[^t2.hash[key;a]] +^$th.2.a=$th.2.a
+
+#^OP:eval(1<2) + +$filelist[^table:dir[.]] +
+$path[/news/tululu/] +#^path.flip[] +
+$branches[^table:set{name val +index.cgihtml 123 +}] +$splitURI[^request:uri.lsplit[/]] +name ^if(^branches.locate[name;$splitURI.1]){found;not found}: +$branches.name
-jpeg:
-$face[^image:measure[001004paf(c)lena_karin.jpg]] -^$face.src=$face.src
-^$face.width=$face.width
-^$face.height=$face.height
-^^face.html[^$border(1) ^$ismap(-1)]=^face.html[$border(1) $ismap(-1)] +$splitURI[^request:uri.lsplit[/]] +$splitURI.0!$splitURI.1
-^rem{ -^mail:send[ - $to[paf@design.ru] - $subject[test] - $body[test] -] +$t2[^table:set{dir title +/here Here +}] +$t2{^menu{${dir}-$title}[,]}
+$dir[news] +$list[^table:dir[$dir]] +^list.menu{ + $subdir[$dir/$list.name] + $sublist[^table:dir[$subdir]] + ${list.name}/ $sublist{^menu{$name}[,]}
} - -env.pl
-$e[^file:cgi[env.pl;$t[1]]] -^$e.exit-code=$e.exit-code
-^$e.stderr="$e.stderr"
-$e.text
- -^rem{^mail:send[ - $to[paf@design.ru] - $from[paf@design.ru] - $body[ - $1[ - $content-type[ - $value[text/plain] - $charset[windows-1251] - ] - $body[привет, PAF. - -sincerily yours, -PAF -] - ] - $attach[ - $value[^file:load[test.zip]] - $type[uue] - $file-name[retest.zip] - ] - ] -] -} - -^rem{^mail:send[ - $content-type[ - $value[text/plain] - $charset[windows-1251] - ] - $to[paf@design.ru] - $from[paf@design.ru] - $body[привет, PAF. - -sincerily yours, -PAF -] -] -} - -^rem{^mail:send[ - $to[paf@design.ru] - $from[paf@design.ru] - $body[ - $2[ - $content-type[$value[message/rfc822] $name[letter.eml]] - $body[to: paul -from: paf -subject: 2 - -2.body - ] - ] - $1[ - $to[paul] - $from[paf] - $subject[1] - $content-type[text/plain] - $body[image] - ] - ] -]} - +^if(in "/otherdeeper"){y;n} +
^^table:dir[/]:
$d[^table:dir[/]] -^d.menu{$name;
} +$d{^menu{$name  ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};
}}
-^^table:dir[/;html^$]
-$d[^table:dir[/;html^$]] -^d.menu{$name;
} +$files[^table:set{name}] +$d{^menu{ + ^if(-d "$name"){ + ^:files.append{$name} + } +}} + +$files{^menu{$name}[,]}
+@exception[origin;source;comment;type;code][i;j] + + +ERROR: +^if(def $source){$origin '$source'} +${comment}. +^if(def $type){type=$type} +^if(def $code){code=$code} + +@auto_test[] +^BASE.auto_test[] +
  • ${request:uri}! +@end + + +@sql_test[connect-string] #^rem{ -^connect[$SQL.connect-string]{ +#^for[i](1;2){ +^connect[$connect-string]{ $shit[^taint[our's]] # $paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}] + ^nothing:sql{update paf set age=age+1} $paf[^table:sql{select * from paf order by id desc}(5)] $paf{ - ^empty{query result is empty}{ + ^if(^empty[]){query result is empty}{ ^menu{}
    idnameage
    $id$name$age
    }} -} -#} - -
    - -$with-cr[^table:set{a b -^taint[<1 -2>] 3 -}] -"$with-cr.a"
    -
    -^if(def $form:s){ - $form:s
    - ^form:s.match[!][g]{!}
    -
    -} + ^^string:sql{select name from paf where id=1}=^string:sql{select name from paf where id=1}
    + ^^int:sql{select age from paf where id=1}=^int:sql{select age from paf where id=1}
    + ^^double:sql{select age from paf where id=1}=^double:sql{select age from paf where id=1}
    -$r[1223] -^^"$r".match[2][]{(^$match)}=^r.match[2][]{($match)}
    -^^"$r".match[2][i]{(^$match)}=^r.match[2][i]{($match)}
    -^^"$r".match[2][g]{(^$match)}=^r.match[2][g]{($match)}
    -^^"$r".match[2+][g]{(^$match)}=^r.match[2+][g]{($match)}
    -
    -$s[abcЯ] -$sm[^s.match[(.)][g]] -^^"$s".match[(.)][g]:
    -^sm.menu{ - ^line[]:
    - ^$pre-match=$pre-match
    - ^$match=$match
    - ^$post-match=$post-match
    - ^$1=$1
    + $paf[^hash:sql{select id,age from paf}] + ^$paf.2.age=$paf.2.age
    } -
    -$sm[^s.match[(.)][]] -^^"$s".match[(.)][]:
    -^sm.menu{ - ^line[]:
    - ^$pre-match=$pre-match
    - ^$match=$match
    - ^$post-match=$post-match
    - ^$1=$1
    -} -
    -^mt[$s;я] -^mt[$s;Я] -^mt[$s;b] -^mt[$s;^^b] -^mt[$s;^^a] -^mt[$s;x] - -
    - -$dest[^table:set[nameless]{ -$form:d11 d12 d13 -d21 d22 d23 -}] -$src[^table:set{a b c d - -s1 s2 s3 s4 -}] -1:
    ^dest.menu{$0!$1!$2!$3!
    } -^dest.join[$src] -2:
    ^dest.menu{$0!$1!$2!$3!
    } - -
    -$dest[^table:set{a b c -d11 d12 d13 -d21 d22 d23 -}] -$src[^table:set{a b c d -s1 s2 s3 s4 -}] -^dest.join[$src] -^dest.menu{$a!$b!$c!
    } - -
    -^^random:generate(10)=^random:generate(10)
    - - -
    -$t[^table:load[/test.cfg]] -$t{ -^menu{$a!$b!$c
    } -
    -^append{x y z} -^menu{$a!$b!$c
    } -
    -^flip[] -^menu{$0!$1!$2!$3
    } -
    -} - -$a[vasya,fedya,kolya] -^^"$a".lsplit[,]=$as[^a.lsplit[,]]$as.0|$as.1|$as.2|$as.3
    -^^"$a".rsplit[,]=$as[^a.rsplit[,]]$as.0|$as.1|$as.2|$as.3
    -^^a.pos(sy]="^a.pos[sy]"
    -^^a.pos[zsy]="^a.pos[zsy]"
    -^^a.left(3)="^a.left(3)"
    -^^a.right(3)="^a.right(3)"
    -^^a.mid(1;3)="^a.mid(1;3)"
    -
    -^^twop[a;]=^twop[a;]
    -^$request:browser.type=$request:browser.type
    -^$request:browser.version=$request:browser.version
    - -$tf[^file:load[test.zip;abc.zip]] -#$response:body[$tf] - -^$tf.name=$tf.name
    -^$tf.size=$tf.size
    -^$tf.mime-type=$tf.mime-type
    -^$tf.text:
    -$tf.text
    -
    -^file:find[test.cfg]
    -^file:find[tes.cfg]{not found}
    -
    - -$t[^table:set{n -3 -01.3 -1.2 -2 -}] -$t{^locate[n;2z]^found{$n}{not found}}
    -$t{^locate[n;3]^found{found:$n}{not found}}
    -^$t:
    -^dump[$t] -^t.sort($n) -^^t.sort(^$n):
    -^dump[$t] -^t.sort{^:func($n)} -^^t.sort{^^:func(^$n)}:
    -^dump[$t] -^t.sort{$n} -^^t.sort{^$n}:
    -^dump[$t] -^t.sort{$n}[desc] -^^t.sort{^$n}[desc]:
    -^dump[$t] -
    - -^if(-f index.html){y}{n}
    -^taint[html-typo;не знаю -я ничего - -<<слово длинное>> - -(c) by Я -]
    -$t[^table:load[/test.cfg]] -^process[@b[] -f -] -^b[]
    - -^$t.a=$t.a
    -^t.offset[2] -#$r[^t.record[]] -#^$r.a=$r.a
    - -^$request:uri=$request:uri
    -^$env:PATH_INFO=$env:PATH_INFO
    -^$env:REMOTE_ADDR=$env:REMOTE_ADDR
    - -^rem{ -$response:body[] -$response:location[http://parser3/123] -} - - -
    -^^auto_test[]:
    -
      -^auto_test[] -
    -
    - -#$cookie:вот[прислал "browser"] -^${cookie:вот}=${cookie:вот}?
    -^$request:query=$request:query
    -^$request:uri=$request:uri
    - -
    - -
    $form:name
    -
    - -
    - -
    -$свойства_когда_пьян[ - $цвет_глаз[красный] -] -$вася[ - $свойства[$свойства_когда_пьян] -] - -$кусок_имени_поля[ства] -^$кусок_имени_поля=$кусок_имени_поля
    -^$вася.свой^$кусок_имени_поля.цвет_глаз=$вася.свой$кусок_имени_поля.цвет_глаз -
    -
    - - -
    -
    -^if($form:photo){ - 
    -	^$form:photo.name='$form:photo.name'
-	^$form:photo.size='$form:photo.size'
-	^$form:photo.text='$form:photo.text'
-	^form:photo.save[paf.txt]
-
    -} - -#todo proper! untaint $response:refresh[$value[2] $content[url=http://design.ru]] - +#} +#} @default[test;def] $result[^if(^test.length[]){$test}{$def}] - -@exception[origin;source;comment;type;code] - - -ERROR: -^if(def $source){$origin '$source'} -${comment}. -^if(def $type){type=$type} -^if(def $code){code=$code} - -@auto_test[] -^BASE.auto_test[] -
  • ${request:uri}! \ No newline at end of file