Rev 15857 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 15857 | Rev 15910 | ||
---|---|---|---|
Line 34... | Line 34... | ||
34 | p=!positionof item $indivtechvar_ in $tv_listcode |
34 | p=!positionof item $indivtechvar_ in $tv_listcode |
35 | p=!line $p of $tv_listtechvar |
35 | p=!line $p of $tv_listtechvar |
36 | !distribute item $p into n_,cls_,num_ |
36 | !distribute item $p into n_,cls_,num_ |
37 | tmp_=!record $num_ of wimshome/log/classes/$cls_/.techvar |
37 | tmp_=!record $num_ of wimshome/log/classes/$cls_/.techvar |
38 | listval_=!line 2 of $tmp_ |
38 | listval_=!line 2 of $tmp_ |
39 | !for k_ in |
39 | !for k_ in $listval_ |
40 |
|
40 | !distribute item ,, into active_$(k_),require_$(k_),weight_$(k_) |
41 | !next k_ |
41 | !next k_ |
42 | !endif |
42 | !endif |
43 | !distribute item |
43 | !distribute item , into requires_,weights_ |
44 | !for e=1 to $ecnt |
44 | !for e=1 to $ecnt |
45 | r=!record $e of wimshome/log/classes/$wims_class/sheets/.sheet$s |
45 | r=!record $e of wimshome/log/classes/$wims_class/sheets/.sheet$s |
46 | !distribute lines $r into |
46 | !distribute lines $r into t_,t_,require,weight,t_,t_,t_,t_,t_,t_,indiv_ |
47 |
|
47 | !for j_ in require,weight |
48 |
|
48 | $(j_)d_=!row 1 of $($j_) |
49 |
|
49 | $(j_)s_=!append word $($(j_)d_) to $($(j_)s_) |
50 |
|
50 | tmp_=!row 2 to -1 of $($(j_)) |
- | 51 | $(j_)1_=!column 1 of $tmp_ |
|
- | 52 | $(j_)2_=!column 2 of $tmp_ |
|
- | 53 | !next j_ |
|
51 | !if $indivtechvar_!=$empty |
54 | !if $indivtechvar_!=$empty |
52 | !for k_ in $listval_ |
55 | !for k_ in $listval_ |
53 | !if $k_ isitemof $indiv_ |
56 | !if $k_ isitemof $indiv_ |
54 | active_$k_=!append word 1 to $(active_$k_) |
57 | active_$k_=!append word 1 to $(active_$k_) |
55 | !else |
58 | !else |
56 | active_$k_=!append word 0 to $(active_$k_) |
59 | active_$k_=!append word 0 to $(active_$k_) |
57 | !endif |
60 | !endif |
- | 61 | !for j_ in require,weight |
|
- | 62 | p_=!positionof item $k_ in $($(j_)1_) |
|
- | 63 | !if $p_!=$empty |
|
- | 64 | $(j_)_$k_=!append word $($(j_)2_[$p_]) to $($(j_)_$k_) |
|
- | 65 | !else |
|
- | 66 | $(j_)_$k_=!append word $($(j_)d_) to $($(j_)_$k_) |
|
- | 67 | !endif |
|
- | 68 | !next j_ |
|
58 | !next k_ |
69 | !next k_ |
59 | !endif |
70 | !endif |
60 | !next e |
71 | !next e |
61 | !appendfile wimshome/log/classes/$wims_class/sheets/.require : |
72 | !appendfile wimshome/log/classes/$wims_class/sheets/.require :$requires_ |
62 | !appendfile wimshome/log/classes/$wims_class/sheets/.weight : |
73 | !appendfile wimshome/log/classes/$wims_class/sheets/.weight :$weights_ |
63 | --- build of require and weight (but with a simple copy of default weight and require |
- | |
64 | v_=!values 1 for v=1 to $ecnt |
74 | v_=!values 1 for v=1 to $ecnt |
65 | v_=!items2words $v_ |
75 | v_=!items2words $v_ |
66 | !appendfile wimshome/log/classes/$wims_class/sheets/.active :$v_ |
76 | !appendfile wimshome/log/classes/$wims_class/sheets/.active :$v_ |
67 | !if $indivtechvar_!=$empty |
77 | !if $indivtechvar_!=$empty |
68 | t_=!items2words $listval_ |
78 | t_=!items2words $listval_ |
69 | !appendfile wimshome/log/classes/$wims_class/sheets/.vars :$indivtechvar_ _EMPTY_ $t_ |
79 | !appendfile wimshome/log/classes/$wims_class/sheets/.vars :$indivtechvar_ _EMPTY_ $t_ |
70 | !for k_ in $listval_ |
80 | !for k_ in $listval_ |
71 | !appendfile wimshome/log/classes/$wims_class/sheets/.active $(active_$k_) |
81 | !appendfile wimshome/log/classes/$wims_class/sheets/.active $(active_$k_) |
72 | !appendfile wimshome/log/classes/$wims_class/sheets/.require |
82 | !appendfile wimshome/log/classes/$wims_class/sheets/.require $(require_$k_) |
73 | !appendfile wimshome/log/classes/$wims_class/sheets/.weight |
83 | !appendfile wimshome/log/classes/$wims_class/sheets/.weight $(weight_$k_) |
74 | !next k_ |
84 | !next k_ |
75 | !else |
85 | !else |
76 | !appendfile wimshome/log/classes/$wims_class/sheets/.vars : |
86 | !appendfile wimshome/log/classes/$wims_class/sheets/.vars : |
77 | !endif |
87 | !endif |
78 | !next s |
88 | !next s |