--- parser3/src/www/htdocs/Attic/index.html 2001/03/29 16:12:47 1.76 +++ parser3/src/www/htdocs/Attic/index.html 2001/09/10 09:49:45 1.300 @@ -1,132 +1,7 @@ -@auto[] -!!$html-typo[^table:set{user html comment -<< «^; длинные user вперёд ->> »^; -\n\n

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

-@func[n] -$n -@twop[a;b] -($a,$b) @main[] -$a[vasya] -^^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;] -^$request:browser.type=$request:browser.type
-^$request:browser.version=$request:browser.version
- -$tf[^file:load[test.zip;abc.zip]] -^$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:вот}=${cookie:вот}?
-^$request:query=$request:query
-^$request:uri=$request:uri
- -
-
$form:name
-
- -
- -@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} +^testdom0[] -@auto_test[] -^BASE.auto_test[] -
  • ${request:uri}! \ No newline at end of file +@testdom0[] +$dom[^dom::load[test.xml]] +^dom.save[write.xml] +^dom.string[windows-1251]