--- parser3/src/www/htdocs/Attic/index.html 2001/04/03 15:54:48 1.95 +++ parser3/src/www/htdocs/Attic/index.html 2001/07/26 12:25:37 1.246 @@ -1,245 +1,39 @@ -@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) - -@post-process[data] -(
$data)
- -@mt[s;m] -$m ^if(^s.match{$:m}[i]){matches}{do not match} $s
- @main[] -$r[1223] -^^"$r".match{2}[i]{!}=^r.match{2}[i]{($match)}
-^^"$r".match{2}[g]{!}=^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
-} -
-$sm[^s.match{(.)}[]] -^^"$s".match{(.)}[]:
-^sm.menu{ - ^line[]:
- ^$pre-match=$pre-match
- ^$match=$match
- ^$post-match=$post-match
- ^$1=$1
-} -
-^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
} -
+^connect[odbc://dsn=voz7^;uid=voz^;pwd=pwd]{ +# ^void::sql{insert into хрен (a) values (1)} + $id(^int:sql{select 5}) + $id + + $пресса[^table::sql{select * from press where header='$form:h'}] + ^пресса.menu{ + $пресса.id, $пресса.date_row, $пресса.header, $пресса.short_text^rem{, $пресса.full_text}, $пресса.mode + }[
] } - -$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;image/gif]] -#$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 +
+#$response:status[404] +#$response:location[/inh.html] +#
+$таблица[^table::set{a b +1 2 +11 22 }] -$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
-
- -
+^$таблица.fields.a=$таблица.fields.a
+^$таблица.a=$таблица.a
+
+$n[] +=^n.match[sdf][]{123}= +
-
-$свойства_когда_пьян[ - $цвет_глаз[красный] -] -$вася[ - $свойства[$свойства_когда_пьян] -] +=$3= +
-$кусок_имени_поля[ства] -^$кусок_имени_поля=$кусок_имени_поля
-^$вася.свой^$кусок_имени_поля.цвет_глаз=$вася.свой$кусок_имени_поля.цвет_глаз -
-
- - -
-
-^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]
-
+$строка[123] +^строка.match[(.);g]{($match.1)} +
+$a{ + $b[1] } - -#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 +^$b=$b
    +^$a!$a
    +^$b=$b
    +