--- parser3/www/htdocs/Attic/_bug.html 2005/01/20 14:10:29 1.80 +++ parser3/www/htdocs/Attic/_bug.html 2005/08/08 08:41:52 1.93 @@ -1,29 +1,11 @@ -@main[] -^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 +@USE +/_bug_derived.p +/_bug.p - ^if(^math:random(2)){ - $error[uzhas,test2] - } - ^if(!def $error){ - working3 - } -} +@main[] +$bug[^bug_derived::create[value from ctor]] +read:$bug.paf
+write:$bug.paf[works]
+read:$bug.paf
+^taint[uri]["|&]