Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
20 reyssat 1
!nocache
2
oefstepcnt=0
3
!if $oefsteps=$empty
12325 bpr 4
  oefstep=0
5
  !exit
20 reyssat 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
12325 bpr 17
  oefsteps=!line 1 of $oefsteps
20 reyssat 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