Subversion Repositories wimsdev

Rev

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