Subversion Repositories wimsdev

!bound job2 within first,mod1,mod2,del1,del2,pub\

	default $

devcnt=!recordcnt wimshome/log/.developers

!for d=1 to $devcnt

  drec$d=!record $d of wimshome/log/.developers

  d_=!word 1 of $(drec$d)

  devlist=$devlist $d_

!next d

!bound devno between integer 0 and $devcnt default 0

dlist=!record 0 to -1 of wimshome/log/.developers

!if $job2=pub

  dp=!items2words $devpublisher

  dp=!words2items $dp

  !for dp_ in $dp

    !if :$dp_ notin :$dlist

      !set dp=!listcomplement $dp_ in $dp

      error=bad_devpub

    !endif

  !next

  !sh echo "$dp" >$wims_home/log/.devpublishers

  job2=first

!endif

devpublisher=!record 0 of wimshome/log/.devpublishers

!read developer/$job2.proc