Subversion Repositories wimsdev

!! Add sharing between two classes.
!! Calling parameters: 2 lines.
!! Line 1: initiating class, destination class
!! Line 2: list of resources to share.

as_1=!translate internal , to $ $ in $wims_read_parm
!distribute lines $as_1 into as_1,as_l
!distribute words $as_1 into as_1,as_2
as_l=!words2items $as_l

as_t_exo=src def Exindex Extitles
as_t_sheet=sheets
as_t_exam=exams
as_t_doc=doc
as_t_vote=vote
as_t_cdt=cdt
as_t_livret=livret
as_t_forum=forum
as_t_user=.users .userlist .userlist_external
as_t_motd=.motd
as_t_sup=supervisor
as_t_seq=seq
as_t_userphoto=photoboard
as_t_tool=tool
as_t_freework=freeworks
as_list=doc,exo,sheet,exam,vote,cdt,livret,forum,user,motd,sup,livret,seq,userphoto,tool,freework
!if sharing notwordof $wims_prefix
  wims_prefix=$wims_prefix n sharing sharable
!endif

!if all isitemof $as_l
  as_l=$as_list
!else
  !if exam isitemof $as_l
    as_l=!listunion $as_l and sheet
  !endif
  !if sheet iswordof $as_l
    as_l=!listunion $as_l and exo
  !endif
!endif

L_=
!for t in $as_list
  !if $t isitemof $as_l
    L_=$L_ $(as_t_$t)
  !endif
!next t
!if $L_=$empty
  !exit
!endif
as_n1=!defof n_sup\
n_part in wimshome/log/classes/$as_1/neighbors
as_n2=!defof n_sup\
n_part in wimshome/log/classes/$as_2/neighbors
!distribute lines $as_n1 into as_nsup1,as_npart1
!distribute lines $as_n2 into as_nsup2,as_npart2
as_test=!listcomplement user in $as_l
!if ($as_test!=$empty and \
    ($as_2 notitemof $as_nsup1 or $as_1 notitemof $as_nsup2)) or \
    (user isitemof $as_l and \
    ($as_2 notitemof $as_npart1 or $as_1 notitemof $as_npart2))
  error=addshare_noright
  !exit
!endif

1_=!translate internal / to , in $as_1
2_=!translate internal / to , in $as_2
1=!itemcnt $1_
2=!itemcnt $2_
3=$[min($1,$2)]

!for i=1 to $3+1
  !if $(1_[$i]) != $(2_[$i])
    !break
  !endif
!next i

1_=!item $i to -1 of $1_
!if $i<=$2
  4_=!makelist .. for x=$i to $2
  1_=$4_,$1_
!endif
1_=!nonempty items $1_
1_=!nospace $1_
1_=!translate internal , to / in $1_

!for t in $as_list
  !reset sharing_$t
!next t
!readdef wimshome/log/classes/$as_1/neighbors
!for t in $as_l
  !if $(sharing_$t) != $empty
    error=addshare_conflict
    !exit
  !endif
!next t
!for t in $as_list
  !reset sharable_$t
!next t
!readdef wimshome/log/classes/$as_2/neighbors
as_already=
!for t in $as_l
  !if $(sharable_$t) != $empty
    error=addshare_conflict
    !exit
  !endif
  !if $(sharing_$t) != $empty
    !if $(sharing_$t) = $as_1
      as_already=!append item $t to $as_already
    !else
      error=addshare_conflict
      !exit
    !endif
  !endif
!next t
!if $as_already!=$empty
  as_l=!listcomplement $as_already in $as_l
!endif
!for t in $as_list
  !reset sharable_$t
!next t
!readdef wimshome/log/classes/$as_1/neighbors
as_=
!for t in $as_l,all
  sharable_$t=!listunion $(sharable_$t) and $as_2
  as_=$as_\
sharable_$t=$(sharable_$t)
!next t
!setdef $as_ in wimshome/log/classes/$as_1/neighbors
!for t in $as_list
  !reset sharing_$t
!next t
!readdef wimshome/log/classes/$as_2/neighbors
as_=
!for t in $as_l
  as_=$as_\
sharing_$t=$as_1
!next t
sharing_all=!listunion $sharing_all and $as_1
as_=$as_\
sharing_all=$sharing_all
!setdef $as_ in wimshome/log/classes/$as_2/neighbors

as_copy=
!if sheet isitemof $as_l
  as_copy=$1_/.[0-9]*
!endif
!if exam isitemof $as_l
  as_copy=$as_copy $1_/.E[0-9]*
!endif
!if $as_copy!=$empty
  as_copy=cp -f $as_copy . 2>/dev/null
!endif
!if user isitemof $as_l
  as_touch=touch $1_/.userlist_external
!endif

!sh cd $wims_home/log/classes/$as_2\
 rm -Rf $L_\
 $as_touch\
 for f in $L_; do\
  ln -s $1_/$$f .\
 done\
 $as_copy