--- parser3/src/www/htdocs/Attic/index.html 2001/03/15 11:01:29 1.1 +++ parser3/src/www/htdocs/Attic/index.html 2001/05/08 06:42:58 1.172 @@ -1,15 +1,81 @@ @main[] -test: '$test'
-local auto: '$local_auto'
+$t2[^table:set{key a b +1 a1 b1 +2 a2 b2 +}] +^t2.record[] +
+#^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 +
+$splitURI[^request:uri.lsplit[/]] +$splitURI.0!$splitURI.1 +
-
-введите выражение - +$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}[,]}
+} +
+^t[x] +
+^if(in "/otherdeeper"){y;n} +
+^$form:проверка_имя=$form:проверка_имя
+ + +
+
+ +^^table:dir[/]:
+$d[^table:dir[/]] +$d{^menu{$name  ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};
}} +
+ +$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}! + +@t[a] +-${a}- +@end -птичка выпрыгнет тут: ^process[^^eval($form:expr)[%.4f]]? - -@Zexception[origin;source;comment;type;code] -Сервер испытывает временные трудности. -напишите болвану администратору, что у него в $origin есть $source, который $comment (насквозь).