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