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