Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !if $postvarcnt>0 |
2 | !read $deffile postdef |
||
3 | thisstep_postdef=done |
||
4 | !else |
||
5 | !exit |
||
6 | !endif |
||
7 | Nextstep=!trim $nextstep |
||
8 | !if $Nextstep=$empty |
||
9 | !exit |
||
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 |
||
31 | vv=!translate internal $\ |
||
32 | $ to $ $ in $(val$v) |
||
33 | vsave=$vsave$(vv)\ |
||
34 | |||
35 | !next v |
||
36 |