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