--- parser3/www/htdocs/Attic/_bug.html 2004/03/25 11:51:19 1.35
+++ parser3/www/htdocs/Attic/_bug.html 2006/04/09 13:38:48 1.117
@@ -1,66 +1,42 @@
-@auto[]
-$request:charset[windows-1251]
-$response:charset[windows-1251]
-
-@main[]
-$table[^table::create{pet
-cat milk}]
-$hash[^table.hash[pet]]
-^display[$hash]
-
-@main[]
-^connect[mysql://root@localhost/paf]{
-
-$hash[^hash::sql{select 'cat' as pet
-#, 'milk' as food
-}]
-^display_hash[$hash]
-
-
-}
-
-@main[]
-^connect[mysql://root@localhost/paf]{
- $participants[^hash::sql{select 'feodor' as participant }]
-}
-
-#:даст хеш такой структуры:
-$participantsZ[
- $.alex(1)
- $.boris(1)
+$hash[
+ $.1(1)
+ $.2(2)
]
-
-#:из которого можно эффективно извлекать информацию, например, так:
-$person[feodor]
-$person ^if($participants.$person){участвует}{не участвует} в мероприятии
+^hash.foreach[k;v]{
+ k=$k,v=$v^break[];!
}
-
-@display_hash[hash]
-#$hash.a.a
-^hash.foreach[k;v]{hash $k=(
-^if($v is hash){^display_hash[$v]}{
-^if($v is bool){bool ^if($v){true;false}}{string $v}
-}
+$table[^table::create{a
+1
+2
+3}]
+^table.menu{
+ <$table.a^if($table.a==2){^break[]!}>
}[,]
+-------------
-)^#0A}]
-
-
-@main[]
-$name[ Вася ]
-"$name"
-"^name.trim[]"
+^while(1<2){
+ $i($i+1)
+ ^if(1<3){
+ {
+ <$i^if($i==3){^break[]}>
+ }
+ }
+}
-$path[/section/subsection/]
-^path.trim[end;/]
+^for[i](1;3){
+ $i before
+ ^if($i==2){^continue[]}
+ after
+}[,]
-@main[]
-$xdoc[^xdoc::create{
-
- string
-
-}]
-$xdoc.search-namespaces.s[urn:special]
-^xdoc.selectString[string(//s:code)]
+$response:paf[test]
+$response:paf[]
+---
+$hashfile[^hashfile::open[hf]]
+$hashfile.1(1)
+$hashfile.2(2)
+^hashfile.foreach[k;v]{
+ k=$k,v=$v^break[];!
+}