Subversion Repositories wimsdev

Rev

Rev 20 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 12325
Line 1... Line 1...
1 
!if $postvarcnt>0
 1 
!if $postvarcnt>0
2 
 !read $deffile postdef
 2 
  !read $deffile postdef
3 
 thisstep_postdef=done
 3 
  thisstep_postdef=done
4 
!else
 4 
!else
5 
 !exit
 5 
  !exit
6 
!endif
 6 
!endif
7 
Nextstep=!trim $nextstep
 7 
Nextstep=!trim $nextstep
8 
!if $Nextstep=$empty
 8 
!if $Nextstep=$empty
9 
 !exit
 9 
  !exit
10 
!endif
 10 
!endif
11 
Nextstep=!lower $Nextstep
 11 
Nextstep=!lower $Nextstep
12 
Nextstep=!replace replies by r in $Nextstep
 12 
Nextstep=!replace replies by r in $Nextstep
13 
Nextstep=!replace choices by c in $Nextstep
 13 
Nextstep=!replace choices by c in $Nextstep
14 
Nextstep=!replace reply by r in $Nextstep
 14 
Nextstep=!replace reply by r in $Nextstep
Line 26... Line 26...
26 
!advance oefstepcnt
 26 
!advance oefstepcnt
27 
oefsteps=!append line $Nextstep to $oefsteps
 27 
oefsteps=!append line $Nextstep to $oefsteps
28 
 
 28 
 
29 
vsave=
 29 
vsave=
30 
!for v in $vsavelist
 30 
!for v in $vsavelist
31 
 vv=!translate internal $\
 31 
  vv=!translate internal $\
32 
$ to $	$ in $(val$v)
 32 
$ to $	$ in $(val$v)
33 
 vsave=$vsave$(vv)\
 33 
  vsave=$vsave$(vv)\
34 
 
 34 
 
35 
!next v
 35 
!next v
36 
 
 -