Subversion Repositories wimsdev

parent=level

thiscode=$prog

proghome=$classdir1/$prog

!readdef $proghome/.def

other_description=!defof class_description in $classdir1/$shareprog/.def

l_=!translate / to , in $shareprog

other_level=!defof class_description in $classdir1/$(l_[1])/.def

!if $confirm!=yes or $other_level=$empty or $other_description=$empty or

  $class_description=$empty or $class_recshare!=$empty

  !exit

!endif

ready=!defof class_recshare in $classdir1/$shareprog/.def

!if $ready!=$empty and $ready!=main

  !exit

!endif

!sh cd $classdir2/$prog\

 for f in def doc exams sheets src vote seq Exindex Extitles freeworks; do\

  rm -fR $$f\

  ln -s ../../$shareprog/$$f .\

 done

!setdef !set class_recshare=$shareprog in $proghome/.def

!setdef !set class_recshare=main in $classdir1/$shareprog/.def

job=prog

confirm=

!changeto jobs/prog.proc