Subversion Repositories wimsdev

Rev

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

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