Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | |
| 2 | casecnt=!linecnt $allcases |
||
| 3 | !bound gotocase between integer 1 and $casecnt-1 default 0 |
||
| 4 | !if $gotocase=0 |
||
| 5 | !exit |
||
| 6 | !endif |
||
| 7 | !reset newobject newObject |
||
| 8 | caseline=!line 1 of $allcases |
||
| 9 | caseline=!translate internal $ $ to $\ |
||
| 10 | $ in $caseline |
||
| 11 | caseline=!replace line number 1 by $gotocase in $caseline |
||
| 12 | caseline=!translate internal $\ |
||
| 13 | $ to $ $ in $caseline |
||
| 14 | cases=!line 2 to -1 of $allcases |
||
| 15 | allcases=$caseline\ |
||
| 16 | $cases |
||
| 17 | !read deduc/objects.get |
||
| 18 | !read deduc/methreset erase |
||
| 19 |