Subversion Repositories wimsdev

Rev

Rev 12115 | Rev 12895 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12115 Rev 12555
Line 20... Line 20...
20
as_t_cdt=cdt
20
as_t_cdt=cdt
21
as_t_livret=livret
21
as_t_livret=livret
22
as_t_userphoto=photoboard
22
as_t_userphoto=photoboard
23
as_list=exo,sheet,exam,vote,doc,forum,user,motd,sup,cdt,livret,seq,userphoto
23
as_list=exo,sheet,exam,vote,doc,forum,user,motd,sup,cdt,livret,seq,userphoto
24
!if sharing notwordof $wims_prefix
24
!if sharing notwordof $wims_prefix
25
 wims_prefix=$wims_prefix n sharing sharable
25
  wims_prefix=$wims_prefix n sharing sharable
26
!endif
26
!endif
27
 
27
 
28
!if all isitemof $as_l
28
!if all isitemof $as_l
29
 as_l=$as_list
29
  as_l=$as_list
30
!else
30
!else
31
 !if exo isitemof $as_l
31
  !if exo isitemof $as_l
32
  as_l=!listunion $as_l and sheet
32
    as_l=!listunion $as_l and sheet
33
 !endif
33
  !endif
34
 !if sheet iswordof $as_l
34
  !if sheet iswordof $as_l
35
  as_l=!listunion $as_l and exam
35
    as_l=!listunion $as_l and exam
36
 !endif
36
  !endif
37
!endif
37
!endif
38
 
38
 
39
1_=!translate internal / to , in $as_1
39
1_=!translate internal / to , in $as_1
40
2_=!translate internal / to , in $as_2
40
2_=!translate internal / to , in $as_2
41
1=!itemcnt $1_
41
1=!itemcnt $1_
42
2=!itemcnt $2_
42
2=!itemcnt $2_
43
3=$[min($1,$2)]
43
3=$[min($1,$2)]
44
 
44
 
45
!for i=1 to $3+1
45
!for i=1 to $3+1
46
 !if $(1_[$i]) != $(2_[$i])
46
  !if $(1_[$i]) != $(2_[$i])
47
  !break
47
    !break
48
 !endif
48
  !endif
49
!next i
49
!next i
50
 
50
 
51
1_=!item $i to -1 of $1_
51
1_=!item $i to -1 of $1_
52
!if $i<=$2
52
!if $i<=$2
53
 4_=!makelist .. for x=$i to $2
53
  4_=!makelist .. for x=$i to $2
54
 1_=$4_,$1_
54
  1_=$4_,$1_
55
!endif
55
!endif
56
1_=!nonempty items $1_
56
1_=!nonempty items $1_
57
1_=!nospace $1_
57
1_=!nospace $1_
58
1_=!translate internal , to / in $1_
58
1_=!translate internal , to / in $1_
59
 
59
 
60
!for t in $as_list
60
!for t in $as_list
61
 !reset sharing_$t
61
  !reset sharing_$t
62
!next t
62
!next t
63
!readdef wimshome/log/classes/$as_2/neighbors
63
!readdef wimshome/log/classes/$as_2/neighbors
64
as_l1=
64
as_l1=
65
!for t in $as_l
65
!for t in $as_l
66
 !if $(sharing_$t) = $as_1
66
  !if $(sharing_$t) = $as_1
67
  as_l1=!append item $t to $as_l1
67
    as_l1=!append item $t to $as_l1
68
 !endif
68
  !endif
69
!next t
69
!next t
70
as_l=$as_l1
70
as_l=$as_l1
71
!if $as_l=$empty
71
!if $as_l=$empty
72
 error=stopshare_notsharing
72
  error=stopshare_notsharing
73
 !exit
73
  !exit
74
!endif
74
!endif
75
 
75
 
76
L_=
76
L_=
77
!for t in $as_list
77
!for t in $as_list
78
 !if $t isitemof $as_l
78
  !if $t isitemof $as_l
79
  L_=$L_ $(as_t_$t)
79
    L_=$L_ $(as_t_$t)
80
 !endif
80
  !endif
81
!next t
81
!next t
82
!if $L_=$empty
82
!if $L_=$empty
83
 !exit
83
  !exit
84
!endif
84
!endif
85
 
85
 
86
!goto skip_sharable
86
!goto skip_sharable
87
!for t in $as_list
87
!for t in $as_list
88
 !reset sharable_$t
88
  !reset sharable_$t
89
!next t
89
!next t
90
!readdef wimshome/log/classes/$as_1/neighbors
90
!readdef wimshome/log/classes/$as_1/neighbors
91
as_=
91
as_=
92
!for t in $as_l
92
!for t in $as_l
93
 sharable_$t=!listcomplement $as_2 in $(sharable_$t)
93
  sharable_$t=!listcomplement $as_2 in $(sharable_$t)
94
 as_=$as_\
94
  as_=$as_\
95
sharable_$t=$(sharable_$t)
95
sharable_$t=$(sharable_$t)
96
!next t
96
!next t
97
as_all=
97
as_all=
98
!for t in $as_list
98
!for t in $as_list
99
 as_all=$as_all,$(sharing_$t)
99
  as_all=$as_all,$(sharing_$t)
100
!next t
100
!next t
101
!if $as_2 notitemof $as_all
101
!if $as_2 notitemof $as_all
102
 sharable_all=!listcomplement $as_2 in $sharable_all
102
  sharable_all=!listcomplement $as_2 in $sharable_all
103
 as_=$as_\
103
  as_=$as_\
104
sharable_all=$sharable_all
104
sharable_all=$sharable_all
105
!endif
105
!endif
106
!setdef $as_ in wimshome/log/classes/$as_1/neighbors
106
!setdef $as_ in wimshome/log/classes/$as_1/neighbors
107
:skip_sharable
107
:skip_sharable
108
 
108
 
109
!for t in $as_list
109
!for t in $as_list
110
 !reset sharing_$t
110
  !reset sharing_$t
111
!next t
111
!next t
112
!readdef wimshome/log/classes/$as_2/neighbors
112
!readdef wimshome/log/classes/$as_2/neighbors
113
as_=
113
as_=
114
!for t in $as_l
114
!for t in $as_l
115
 sharing_$t=
115
  sharing_$t=
116
 as_=$as_\
116
  as_=$as_\
117
sharing_$t=
117
sharing_$t=
118
!next t
118
!next t
119
as_all=
119
as_all=
120
!for t in $as_list
120
!for t in $as_list
121
 as_all=$as_all,$(sharing_$t)
121
  as_all=$as_all,$(sharing_$t)
122
!next t
122
!next t
123
!if $as_1 notitemof $as_all
123
!if $as_1 notitemof $as_all
124
 sharing_all=!listcomplement $as_1 in $sharing_all
124
  sharing_all=!listcomplement $as_1 in $sharing_all
125
 as_=$as_\
125
  as_=$as_\
126
sharing_all=$sharing_all
126
sharing_all=$sharing_all
127
!endif
127
!endif
128
!setdef $as_ in wimshome/log/classes/$as_2/neighbors
128
!setdef $as_ in wimshome/log/classes/$as_2/neighbors
129
 
129
 
130
!sh cd $wims_home/log/classes/$as_2\
130
!sh cd $wims_home/log/classes/$as_2\
131
 rm -Rf $L_\
131
 rm -Rf $L_\
132
 for f in $L_; do\
132
 for f in $L_; do\
133
  cp -R $1_/$$f . 2>/dev/null\
133
  cp -R $1_/$$f . 2>/dev/null\
134
 done
134
 done
135
 
-