--- parser3/src/www/htdocs/Attic/index.html 2001/03/29 17:11:44 1.77 +++ parser3/src/www/htdocs/Attic/index.html 2001/05/08 09:44:32 1.174 @@ -1,127 +1,76 @@ -@auto[] -!!$html-typo[^table:set{user html comment -<< «^; длинные user вперёд ->> »^; -\n\n

!эти есть в таблице по умолчанию -\n
!но т.к. заменяем, надо повторить. -< <^; !можно этим воспользоваться, -> >^; !и что-то сделать ДО обычных замен -" "^; !например из << и >> -& &^; !сделать ёлочки-кавычки. -_  ^; -^#AB «^; windows коды ёлочек -^#BB »^; windows коды ёлочек -(c) ©^; -^#A9 ©^; windows (c) +@main[] +$t2[^table:set{key a b +1 a1 +2 a2 b2 }] - -@dump[t] -#^t.menu{$n
} +^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
-@func[n] -$n -@twop[a;b] -($a,$b) -@main[] -$a[vasya] -^^"$a".lsplit[as]= -$as[^a.lsplit[as]] -^as.menu{$0;,}
-^^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 +$splitURI[^request:uri.lsplit[/]] +$splitURI.0!$splitURI.1 +
+ +$t2[^table:set{dir title +/here Here }] -#$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] +$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}[,]}
} - -
-^^auto_test[]:
-
    -^auto_test[] -
+^t[x]
- -^${cookie:вот}=${cookie:вот}?
-^$request:query=$request:query
-^$request:uri=$request:uri
- +^if(in "/otherdeeper"){y;n} +
+^$form:проверка_имя=$form:проверка_имя
-
$form:name
-
+
+
+ +^^table:dir[/]:
+$d[^table:dir[/]] +$d{^menu{$name  ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};
}} +
-@default[test;def] -$result[^if(^test.length[]){$test}{$def}] +$files[^table:set{name}] +$d{^menu{ + ^if(-d "$name"){ + ^:files.append{$name} + } +}} -@exception[origin;source;comment;type;code] +$files{^menu{$name}[,]} +
+ +@exception[origin;source;comment;type;code][i;j] ERROR: @@ -132,4 +81,9 @@ ${comment}. @auto_test[] ^BASE.auto_test[] -
  • ${request:uri}! \ No newline at end of file +
  • ${request:uri}! + +@t[a] +-${a}- +@end +