--- parser3/www/htdocs/Attic/_bug.html 2004/03/25 11:51:19 1.35 +++ parser3/www/htdocs/Attic/_bug.html 2005/11/16 14:18:06 1.84.4.7 @@ -1,66 +1,41 @@ -@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] - - -} +@opt[] +$result[ + $.encloser["] +# $.separator[^#09] +] @main[] -^connect[mysql://root@localhost/paf]{ - $participants[^hash::sql{select 'feodor' as participant }] -} - -#:даст хеш такой структуры: -$participantsZ[ - $.alex(1) - $.boris(1) +$filename[/t.cfg] +$options2[ + $.encloser["] +# $.separator[^#09] ] -#:из которого можно эффективно извлекать информацию, например, так: -$person[feodor] -$person ^if($participants.$person){участвует}{не участвует} в мероприятии -} - - -@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} +$t1[^table::create{a b +1 " +2 "" +3 """}] + +^t1.save[$filename][$options2] + +# if we try load with $options - we receive error +$t2[^table::load[$filename][$options2]] +#$t2[^table::load[$filename][^opt[]]] +#$t2[^table::load[$filename][$.encloser["]]] + + +
| t1 | +t2 | +eq? | +
| $t1.b | +$t2.b | +^if($t1.b eq $t2.b){YES}{NO} | +