--- parser3/www/htdocs/Attic/_bug.html 2004/12/23 14:51:32 1.74 +++ parser3/www/htdocs/Attic/_bug.html 2005/01/20 14:10:29 1.80 @@ -1,41 +1,29 @@ -@print[title;hash][key;value] -
$title ^hash.foreach[key;value]{$key}[ | ]
-=$hash.[zzz].rrggbb= - @main[] -$table[^table::create{color rrggbb -red ff0000 -green 00ff00 -blue 0000ff -_default 000000} -] - -$c_hash[ - $.red[ - $.color[red] - $.rrggbb[ff0000] - ] - $.green[ - $.color[green] - $.rrggbb[00ff00] - ] - $.blue[ - $.color[blue] - $.rrggbb[0000ff] - ] - $._default[ - $.color[_default] - $.rrggbb[000000] - ] -] - -$a_hash[^table.hash[color]] -^print[a_hash:;$a_hash] +^first[] +^if(def $error){ + ^if(^error.pos[koshmar]>=0){ + $error, TODO:recover + }{ + $error, TODO:die + } +} +@first[] +^second[] +^if(!def $error){ + working1 +} +@second[] +^if(^math:random(2)){ + $error[koshmar,test1] +} +^if(!def $error){ + working2 -$b_hash[^hash::create[]] -^table.menu{ - ^b_hash.add[$.[$table.color][$table.fields]] + ^if(^math:random(2)){ + $error[uzhas,test2] + } + ^if(!def $error){ + working3 + } } -^print[b_hash:;$b_hash] -^print[c_hash:;$c_hash] \ No newline at end of file