Subversion Repositories wimsdev

# Make index of subclasses for the gateway.
# No calling parameter.
!nocache
!if $wims_superclass=$empty
 !exit
!endif

D_=wimshome/log/classes/$wims_superclass
E_=$wims_home/log/classes/$wims_superclass

levels=!sh cd $E_; find . -maxdepth 1 -mindepth 1 -type d -name '[0-9]*' | sed 's!^\./!!'
classes=!sh cd $E_; find . -maxdepth 2 -mindepth 2 -type d -name '1[0-9][0-9]' | sed 's!^\./!!'
progs=!sh cd $E_; find . -maxdepth 2 -mindepth 2 -type d -name '2[0-9][0-9]' | sed 's!^\./!!'
courses=!sh cd $E_; find . -maxdepth 3 -mindepth 3 -type d -name '2[0-9][0-9]' | sed 's!^\./!!'
icourses=!sh cd $E_; find . -maxdepth 3 -mindepth 3 -type d -name '3[0-9][0-9]' | sed 's!^\./!!'
!for n_ in levels,classes,progs,courses,icourses
 $n_=!words2items $($n_)
!next n_

cp_=!append item $classes to $progs
cp_=!translate internal / to _ in $cp_
idata=
rdata=
!for c in $cp_
 rdata_$c=
 idata_$c=
!next c

!for c in $levels
 cdata_$c=
 pdata_$c=
 idata_$c=
!next c
!for c in $courses
 c_=!translate internal / to , in $c
 cc=!char 1 to 3 of $(c_[3])
 l_=$(c_[1])
 C_=$(c_[1])_$(c_[2])
 p_=$(c_[1])_$cc
 t_=!defof class_Supervisor\
class_supervisor\
class_description\
class_connections\
in $D_/$c/.def
 !distribute lines $t_ into s_,n_,t_,co_
 co_=!items2words $co_
 L_=$c,$s_,$t_,$n_,$co_
 rdata_$l_=!append line $L_ to $(rdata_$l_)
 rdata_$C_=!append line $L_ to $(rdata_$C_)
 rdata_$p_=!append line $L_ to $(rdata_$p_)
 rdata=!append line $L_ to $(rdata)
!next c
!for c in $icourses
 c_=!translate internal / to , in $c
 l_=$(c_[1])
 p_=$(c_[1])_$(c_[2])
 t_=!defof class_Supervisor\
class_supervisor\
class_description\
class_connections\
in $D_/$c/.def
 !distribute lines $t_ into s_,n_,t_
 L_=$c,$s_,$t_,$n_
 idata_$l_=!append line $L_ to $(idata_$l_)
 idata_$p_=!append line $L_ to $(idata_$p_)
 vistest=!defof class_visibility in $D_/$c/.def
 !!ifval $vistest=2
  idata=!append line $L_ to $idata
 !!endif
!next c

cdata=
!for c in $classes
 c_=!translate internal / to , in $c
 c_=!item 1 of $c_
 t_=!defof class_Supervisor\
class_supervisor\
class_description\
class_connections\
in $D_/$c/.def
 !distribute lines $t_ into s_,n_,t_,co_
 co_=!items2words $co_
 cdata=!append line $c,$s_,$t_,$n_,$co_ to $cdata
 cdata_$c_=!append line $c,$s_,$t_,$n_ to $(cdata_$c_)
 c_=!translate internal / to _ in $c
 !writefile $D_/$c/courses $(rdata_$c_)
!next c
!writefile $D_/courses $(rdata_$c_)

pdata=
!for c in $progs
 c_=!translate internal / to , in $c
 c_=!item 1 of $c_
 t_=!defof class_Supervisor\
class_supervisor\
class_description\
class_connections\
in $D_/$c/.def
 !distribute lines $t_ into s_,n_,t_,co_
 co_=!items2words $co_
 pdata=!append line $c,$s_,$t_,$n_,$co_ to $pdata
 pdata_$c_=!append line $c,$s_,$t_,$n_,$co_ to $(pdata_$c_)
 c_=!translate internal / to _ in $c
 !writefile $D_/$c/courses $(rdata_$c_)
 !writefile $D_/$c/icourses $(idata_$c_)
!next c

ldata=
!for c in $levels
 t_=!defof class_Supervisor\
class_supervisor\
class_description\
class_connections\
in $D_/$c/.def
 !distribute lines $t_ into s_,n_,t_,co_
 co_=!items2words $co_
 ldata=!append line $c,$s_,$t_,$n_,$co_ to $ldata
 !writefile $D_/$c/classes $(cdata_$c)
 !writefile $D_/$c/programs $(pdata_$c)
 !writefile $D_/$c/courses $(rdata_$c)
 !writefile $D_/$c/icourses $(idata_$c)
!next c

!writefile $D_/levels $ldata
!writefile $D_/classes $cdata
!writefile $D_/programs $pdata
!writefile $D_/icourses $idata
!writefile $D_/courses $rdata