Subversion Repositories wimsdev

Rev

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 $list_val_
39
    !for k_ in $listval_
40
      active_$k_=$empty
40
      !distribute item ,, into active_$(k_),require_$(k_),weight_$(k_)
41
    !next k_
41
    !next k_
42
  !endif
42
  !endif
43
  !distribute item ,,, into reqs,weis
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 t_,t_,r_,w_,t_,t_,t_,t_,t_,t_,indiv_
46
    !distribute lines $r into t_,t_,require,weight,t_,t_,t_,t_,t_,t_,indiv_
47
    r_=$[$r_]
47
    !for j_ in require,weight
48
    w_=$[$w_]
48
      $(j_)d_=!row 1 of $($j_)
49
    reqs=!append word $r_ to $reqs
49
      $(j_)s_=!append word $($(j_)d_) to $($(j_)s_)
50
    weis=!append word $w_ to $weis
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 :$reqs
72
  !appendfile wimshome/log/classes/$wims_class/sheets/.require :$requires_
62
  !appendfile wimshome/log/classes/$wims_class/sheets/.weight :$weis
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 $reqs
82
      !appendfile wimshome/log/classes/$wims_class/sheets/.require $(require_$k_)
73
      !appendfile wimshome/log/classes/$wims_class/sheets/.weight $weis
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