--- parser3/src/www/htdocs/Attic/index.html 2001/03/29 17:44:39 1.80
+++ parser3/src/www/htdocs/Attic/index.html 2001/04/03 14:39:05 1.93
@@ -16,13 +16,89 @@ _  ^;
}]
@dump[t]
-#^t.menu{$n
}
+^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[]
+$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
}
+
+}
+
$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
@@ -32,11 +108,13 @@ $a[vasya,fedya,kolya]
^^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
@@ -53,20 +131,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]
@@ -117,6 +195,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}]