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 |