Rev 20 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !if $postvarcnt>0 |
12325 | bpr | 2 | !read $deffile postdef |
3 | thisstep_postdef=done |
||
20 | reyssat | 4 | !else |
12325 | bpr | 5 | !exit |
20 | reyssat | 6 | !endif |
7 | Nextstep=!trim $nextstep |
||
8 | !if $Nextstep=$empty |
||
12325 | bpr | 9 | !exit |
20 | reyssat | 10 | !endif |
11 | Nextstep=!lower $Nextstep |
||
12 | Nextstep=!replace replies by r in $Nextstep |
||
13 | Nextstep=!replace choices by c in $Nextstep |
||
14 | Nextstep=!replace reply by r in $Nextstep |
||
15 | Nextstep=!replace choice by c in $Nextstep |
||
16 | Nextstep=!nospace $Nextstep |
||
17 | Nextstep=!rows2lines $Nextstep |
||
18 | Nextstep=!nonempty lines $Nextstep |
||
19 | Nextstep=!line 1 of $Nextstep |
||
20 | rr=!text select r in $Nextstep |
||
21 | cc=!text select c in $Nextstep |
||
22 | rrcnt=!charcnt $rr |
||
23 | cccnt=!charcnt $cc |
||
24 | creplycnt=$[$creplycnt+$rrcnt] |
||
25 | cchoicecnt=$[$cchoicecnt+$cccnt] |
||
26 | !advance oefstepcnt |
||
27 | oefsteps=!append line $Nextstep to $oefsteps |
||
28 | |||
29 | vsave= |
||
30 | !for v in $vsavelist |
||
12325 | bpr | 31 | vv=!translate internal $\ |
20 | reyssat | 32 | $ to $ $ in $(val$v) |
12325 | bpr | 33 | vsave=$vsave$(vv)\ |
20 | reyssat | 34 | |
35 | !next v |