Subversion Repositories wimsdev

Rev

Rev 11312 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11312 Rev 12981
Line 20... Line 20...
20 
cp_=!append item $classes to $progs
 20 
cp_=!append item $classes to $progs
21 
cp_=!translate internal / to _ in $cp_
 21 
cp_=!translate internal / to _ in $cp_
22 
idata=
 22 
idata=
23 
rdata=
 23 
rdata=
24 
!for c in $cp_
 24 
!for c in $cp_
25 
 rdata_$c=
 25 
  rdata_$c=
26 
 idata_$c=
 26 
  idata_$c=
27 
!next c
 27 
!next c
28 
 
 28 
 
29 
!for c in $levels
 29 
!for c in $levels
30 
 cdata_$c=
 30 
 cdata_$c=
31 
 pdata_$c=
 31 
 pdata_$c=
32 
 idata_$c=
 32 
 idata_$c=
33 
!next c
 33 
!next c
34 
!for c in $courses
 34 
!for c in $courses
35 
 c_=!translate internal / to , in $c
 35 
  c_=!translate internal / to , in $c
36 
 cc=!char 1 to 3 of $(c_[3])
 36 
  cc=!char 1 to 3 of $(c_[3])
37 
 l_=$(c_[1])
 37 
  l_=$(c_[1])
38 
 C_=$(c_[1])_$(c_[2])
 38 
  C_=$(c_[1])_$(c_[2])
39 
 p_=$(c_[1])_$cc
 39 
  p_=$(c_[1])_$cc
- 
 
 40 
  t_=!defof class_Supervisor\
- 
 
 41 
class_supervisor\
- 
 
 42 
class_description\
- 
 
 43 
class_connections\
- 
 
 44 
in $D_/$c/.def
- 
 
 45 
  !distribute lines $t_ into s_,n_,t_,co_
- 
 
 46 
  co_=!items2words $co_
- 
 
 47 
  L_=$c,$s_,$t_,$n_,$co_
- 
 
 48 
  rdata_$l_=!append line $L_ to $(rdata_$l_)
- 
 
 49 
  rdata_$C_=!append line $L_ to $(rdata_$C_)
- 
 
 50 
  rdata_$p_=!append line $L_ to $(rdata_$p_)
- 
 
 51 
  rdata=!append line $L_ to $(rdata)
- 
 
 52 
!next c
- 
 
 53 
!for c in $icourses
- 
 
 54 
  c_=!translate internal / to , in $c
- 
 
 55 
  l_=$(c_[1])
- 
 
 56 
  p_=$(c_[1])_$(c_[2])
40 
 t_=!defof class_Supervisor\
 57 
  t_=!defof class_Supervisor\
41 
class_supervisor\
 58 
class_supervisor\
42 
class_description\
 59 
class_description\
43 
class_connections\
 60 
class_connections\
44 
in $D_/$c/.def
 61 
in $D_/$c/.def
45 
 !distribute lines $t_ into s_,n_,t_,co_
 62 
  !distribute lines $t_ into s_,n_,t_
46 
 co_=!items2words $co_
 - 
 
47 
 L_=$c,$s_,$t_,$n_,$co_
 63 
  L_=$c,$s_,$t_,$n_
48 
 rdata_$l_=!append line $L_ to $(rdata_$l_)
 64 
  idata_$l_=!append line $L_ to $(idata_$l_)
49 
 rdata_$C_=!append line $L_ to $(rdata_$C_)
 65 
  idata_$p_=!append line $L_ to $(idata_$p_)
50 
 rdata_$p_=!append line $L_ to $(rdata_$p_)
 66 
  vistest=!defof class_visibility in $D_/$c/.def
- 
 
 67 
  !!ifval $vistest=2
51 
 rdata=!append line $L_ to $(rdata)
 68 
   idata=!append line $L_ to $idata
- 
 
 69 
  !!endif
52 
!next c
 70 
!next c
53 
!for c in $icourses
 - 
 
54 
 c_=!translate internal / to , in $c
 - 
 
55 
 l_=$(c_[1])
 - 
 
56 
 p_=$(c_[1])_$(c_[2])
 - 
 
57 
 t_=!defof class_Supervisor\
 - 
 
58 
class_supervisor\
 - 
 
59 
class_description\
 - 
 
60 
class_connections\
 - 
 
61 
in $D_/$c/.def
 - 
 
62 
 !distribute lines $t_ into s_,n_,t_
 - 
 
63 
 L_=$c,$s_,$t_,$n_
 - 
 
64 
 idata_$l_=!append line $L_ to $(idata_$l_)
 - 
 
65 
 idata_$p_=!append line $L_ to $(idata_$p_)
 - 
 
66 
 vistest=!defof class_visibility in $D_/$c/.def
 - 
 
67 
 !!ifval $vistest=2
 - 
 
68 
  idata=!append line $L_ to $idata
 - 
 
69 
 !!endif
 - 
 
70 
!next c
 - 
 
71 
 
 71 
 
72 
cdata=
 72 
cdata=
73 
!for c in $classes
 73 
!for c in $classes
74 
 c_=!translate internal / to , in $c
 74 
  c_=!translate internal / to , in $c
75 
 c_=!item 1 of $c_
 75 
  c_=!item 1 of $c_
76 
 t_=!defof class_Supervisor\
 76 
  t_=!defof class_Supervisor\
77 
class_supervisor\
 77 
class_supervisor\
78 
class_description\
 78 
class_description\
79 
class_connections\
 79 
class_connections\
80 
in $D_/$c/.def
 80 
in $D_/$c/.def
81 
 !distribute lines $t_ into s_,n_,t_,co_
 81 
  !distribute lines $t_ into s_,n_,t_,co_
82 
 co_=!items2words $co_
 82 
  co_=!items2words $co_
83 
 cdata=!append line $c,$s_,$t_,$n_,$co_ to $cdata
 83 
  cdata=!append line $c,$s_,$t_,$n_,$co_ to $cdata
84 
 cdata_$c_=!append line $c,$s_,$t_,$n_ to $(cdata_$c_)
 84 
  cdata_$c_=!append line $c,$s_,$t_,$n_ to $(cdata_$c_)
85 
 c_=!translate internal / to _ in $c
 85 
  c_=!translate internal / to _ in $c
86 
 !writefile $D_/$c/courses $(rdata_$c_)
 86 
  !writefile $D_/$c/courses $(rdata_$c_)
87 
!next c
 87 
!next c
88 
!writefile $D_/courses $(rdata_$c_)
 88 
!writefile $D_/courses $(rdata_$c_)
89 
 
 89 
 
90 
pdata=
 90 
pdata=
91 
!for c in $progs
 91 
!for c in $progs
92 
 c_=!translate internal / to , in $c
 92 
  c_=!translate internal / to , in $c
93 
 c_=!item 1 of $c_
 93 
  c_=!item 1 of $c_
94 
 t_=!defof class_Supervisor\
 94 
  t_=!defof class_Supervisor\
95 
class_supervisor\
 95 
class_supervisor\
96 
class_description\
 96 
class_description\
97 
class_connections\
 97 
class_connections\
98 
in $D_/$c/.def
 98 
in $D_/$c/.def
99 
 !distribute lines $t_ into s_,n_,t_,co_
 99 
  !distribute lines $t_ into s_,n_,t_,co_
100 
 co_=!items2words $co_
 100 
  co_=!items2words $co_
101 
 pdata=!append line $c,$s_,$t_,$n_,$co_ to $pdata
 101 
  pdata=!append line $c,$s_,$t_,$n_,$co_ to $pdata
102 
 pdata_$c_=!append line $c,$s_,$t_,$n_,$co_ to $(pdata_$c_)
 102 
  pdata_$c_=!append line $c,$s_,$t_,$n_,$co_ to $(pdata_$c_)
103 
 c_=!translate internal / to _ in $c
 103 
  c_=!translate internal / to _ in $c
104 
 !writefile $D_/$c/courses $(rdata_$c_)
 104 
  !writefile $D_/$c/courses $(rdata_$c_)
105 
 !writefile $D_/$c/icourses $(idata_$c_)
 105 
  !writefile $D_/$c/icourses $(idata_$c_)
106 
!next c
 106 
!next c
107 
 
 107 
 
108 
ldata=
 108 
ldata=
109 
!for c in $levels
 109 
!for c in $levels
110 
 t_=!defof class_Supervisor\
 110 
  t_=!defof class_Supervisor\
111 
class_supervisor\
 111 
class_supervisor\
112 
class_description\
 112 
class_description\
113 
class_connections\
 113 
class_connections\
114 
in $D_/$c/.def
 114 
in $D_/$c/.def
115 
 !distribute lines $t_ into s_,n_,t_,co_
 115 
  !distribute lines $t_ into s_,n_,t_,co_
116 
 co_=!items2words $co_
 116 
  co_=!items2words $co_
117 
 ldata=!append line $c,$s_,$t_,$n_,$co_ to $ldata
 117 
  ldata=!append line $c,$s_,$t_,$n_,$co_ to $ldata
118 
 !writefile $D_/$c/classes $(cdata_$c)
 118 
  !writefile $D_/$c/classes $(cdata_$c)
119 
 !writefile $D_/$c/programs $(pdata_$c)
 119 
  !writefile $D_/$c/programs $(pdata_$c)
120 
 !writefile $D_/$c/courses $(rdata_$c)
 120 
  !writefile $D_/$c/courses $(rdata_$c)
121 
 !writefile $D_/$c/icourses $(idata_$c)
 121 
  !writefile $D_/$c/icourses $(idata_$c)
122 
!next c
 122 
!next c
123 
 
 123 
 
124 
!writefile $D_/levels $ldata
 124 
!writefile $D_/levels $ldata
125 
!writefile $D_/classes $cdata
 125 
!writefile $D_/classes $cdata
126 
!writefile $D_/programs $pdata
 126 
!writefile $D_/programs $pdata
127 
!writefile $D_/icourses $idata
 127 
!writefile $D_/icourses $idata
128 
!writefile $D_/courses $rdata
 128 
!writefile $D_/courses $rdata
129 
 
 -