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