Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!nocache
2
oefstepcnt=0
3
!if $oefsteps=$empty
4
 oefstep=0
5
 !exit
6
!endif
7
oefsteps=!translate $	\
8
$ to ;; in $oefsteps
9
oefsteps=!lower $oefsteps
10
oefsteps=!replace replies by r in $oefsteps
11
oefsteps=!replace choices by c in $oefsteps
12
oefsteps=!replace reply by r in $oefsteps
13
oefsteps=!replace choice by c in $oefsteps
14
oefsteps=!nospace $oefsteps
15
oefsteps=!rows2lines $oefsteps
16
!if $dynstep=yes
17
 oefsteps=!line 1 of $oefsteps
18
!endif
19
oefsteps=!nonempty lines $oefsteps
20
oefstepcnt=!linecnt $oefsteps
21
rr=!text select r in $oefsteps
22
cc=!text select c in $oefsteps
23
creplycnt=!charcnt $rr
24
cchoicecnt=!charcnt $cc
25
!default oefstep=1