--- parser3/src/www/htdocs/Attic/index.html 2001/03/29 17:23:23 1.78 +++ parser3/src/www/htdocs/Attic/index.html 2001/04/03 07:24:45 1.91 @@ -16,26 +16,72 @@ _  ^; }] @dump[t] -#^t.menu{$n
} +^t.menu{$n
}
@func[n] $n @twop[a;b] ($a,$b) + +@post-process[data] +($data) @main[] +$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.menu{$0;|}
+^^"$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;]=^twop[a;]
^$request:browser.type=$request:browser.type
^$request:browser.version=$request:browser.version
-$tf[^file:load[test.zip;abc.zip]] +$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
@@ -52,20 +98,20 @@ $t[^table:set{n 1.2 2 }] -#$t{^locate[n;2z]^found{$n}{not found}}
-#$t{^locate[n;3]^found{found:$n}{not found}}
+$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) ^^t.sort(^$n):
^dump[$t] -#^t.sort{^:func($n)} +^t.sort{^:func($n)} ^^t.sort{^^:func(^$n)}:
^dump[$t] -#^t.sort{$n} +^t.sort{$n} ^^t.sort{^$n}:
^dump[$t] -#^t.sort{$n}[desc] +^t.sort{$n}[desc] ^^t.sort{^$n}[desc]:
^dump[$t]
@@ -116,6 +162,35 @@ $response:location[http://parser3/123] +
+$свойства_когда_пьян[ + $цвет_глаз[красный] +] +$вася[ + $свойства[$свойства_когда_пьян] +] + +$кусок_имени_поля[ства] +^$кусок_имени_поля=$кусок_имени_поля
+^$вася.свой^$кусок_имени_поля.цвет_глаз=$вася.свой$кусок_имени_поля.цвет_глаз +
+
+ + +
+
+^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}]