Subversion Repositories wimsdev

Rev

Rev 23 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

ask=!item 1 of $ask
!if $ask notitemof $remlist
 ask=
 !exit
!endif

comment=
!read $deffile info
!if $(weight$ask)<0
 badask=yes
 badname=!line 1 of $(parm$ask)
 !default comment=!line 4 of $(parm$ask)
 ask=
 !exit
!endif

gotlist=!append item $ask to $gotlist
remlist=!listcomplement $ask in $remlist
ask=