Subversion Repositories wimsdev

Rev

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