|
|
| version 1.80, 2005/01/20 14:10:29 | version 1.92, 2005/07/29 06:17:38 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @USE |
| ^first[] | /_bug_derived.p |
| ^if(def $error){ | #/_bug.p |
| ^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 | |
| ^if(^math:random(2)){ | @main[] |
| $error[uzhas,test2] | $bug[^bug_derived::create[value from ctor]] |
| } | read:$bug.paf<br> |
| ^if(!def $error){ | write:$bug.paf[works]<br> |
| working3 | read:$bug.paf<br> |
| } | |
| } | |