Subversion Repositories wimsdev

Rev

Rev 20 | Blame | Compare with Previous | Last modification | View Log | RSS feed

!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