Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1
ask=!item 1 of $ask
2
!if $ask notitemof $remlist
3
 ask=
4
 !exit
5
!endif
6
 
7
comment=
8
!read $deffile info
9
!if $(weight$ask)<0
10
 badask=yes
11
 badname=!line 1 of $(parm$ask)
12
 !default comment=!line 4 of $(parm$ask)
13
 ask=
14
 !exit
15
!endif
16
 
17
gotlist=!append item $ask to $gotlist
18
remlist=!listcomplement $ask in $remlist
19
ask=
20