Subversion Repositories wimsdev

!! search old technical variable. variable without values are forget
!if $version_class>=5
  !exit
!endif
olddon=!record 0 of wimshome/s2/$wims_session/oldtechvar.don
!if $olddon=$empty or $subjob=$empty
    olddon=!sh cd $wims_home/log/classes/$tv_Sclass/.users/;\
grep -r user__ * | awk -F= '$$2!=""{print $$0}'
    olddon=!replace internal :!set user__ by , in $olddon
    olddon=!replace internal = by , in $olddon
    !if $olddon=$empty
        !writefile wimshome/s2/$wims_session/oldtechvar.don EMPTY
    !else
      !writefile wimshome/s2/$wims_session/oldtechvar.don $olddon
    !endif
!endif
!if EMPTY=$olddon
    !reset olddon
!endif
nb=!linecnt $olddon
!if $nb<=0
    error=nooldvar
    job=listvar
    !changeto $job.proc
    !exit
!endif

listclsuser=$empty
nuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
!if $nuser>0
    !for k=1 to $nuser
      u=!record $k of wimshome/log/classes/$wims_class/.userlist
      listclsuser=!append item $(u[3]) to $listclsuser
    !next k
!endif
listlocalname=!item $tv_listlocal of $tv_listname

!! ------ description of used variables :
!! listforbname1 : contient les noms de variables non chargeables car affectés également à des participants extérieurs à la classe
!! listforbname2 : le nom est déjà utilisé comme une variable globale (non modifiable localement)
!! listforbname3 : nom de variable non exploitable ou liste des valeurs trop longue.
!! listnew : variable ajoutable en variable locale
!! listmodify : variable locale modifiable
!! listlogin_$name : contient la liste des logins contenant une valeur pour la variable name
!! listval_$name : liste des différentes valeurs trouvées pour la variable name

!for k=1 to $nb
    l=!line $k of $olddon
    !distribute item $l into varuser,varname,varval
    name2=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $varname
    name2=!nospace $name2
    n=!charcnt $name2
    !if $n>$MAXcharname or $n<1
      listforbname3=!listunion $listforbname3 and $varname
    !else
      varname=$name2
      !if $varname notitemof $tv_listallname
          # eventualy a new vartech
          listnew=!listunion $listnew and $varname
          # precheck condition of localisation (no participant use it outside class)
          !if $varuser notitemof $listclsuser
            listforbname1=!listunion $listforbname1 and $varname
          !endif
      !else
          !if $varname isitemof $listlocalname
            listmodify=!listunion $listmodify and $varname
          !else
            listforbname2=!listunion $listforbname2 and $varname
          !endif
      !endif
    !endif
!next k
listnew=!listcomplement $listforbname1 in $listnew
!! check list of value for new techvar
!for k in $listnew
    newval=!sh grep $k $wims_home/s2/$wims_session/oldtechvar.don
    newval=!column 3 of $newval
    newval=!listuniq $newval
    nb=!itemcnt $newval
    !if $nb>$MAXnbvalue
      listnew=!listcomplement $k in $listnew
      listforbname3=!listunion $listforbname3 and $k
    !endif
!next k
!! check list of value for modify techvar
!for k in $listmodify
    newval=!sh grep $k $wims_home/s2/$wims_session/oldtechvar.don
    newval=!column 3 of $newval
    num=!positionof item $techvar in $tv_listname
    don=!record $num of wimshome/log/classes/$wims_class/.techvar
    oldval=!line 2 of $don
    val=!listuniq $newval,$oldval
    nb=!itemcnt $val
    !if $nb>$MAXnbvalue
      listmodify=!listcomplement $k in $listmodify
      listforbname3=!listunion $listforbname3 and $k
    !endif
!next k

!!debug olddon : $olddon\
!!listforbname1 : $listforbname1\
!!listforbname2 : $listforbname2\
!!listforbname3 : $listforbname3\
!!listnew : $listnew \
!!listmodify : $listmodify

!if $listnew$listforbname1$listforbname2$listmodify=$empty
    error=nooldvar
    job=listvar
    !changeto $job.proc
    !exit
!endif

!! --------------------------- le processus make est à reprendre avec les nouvelles variables.

!if $subjob=make
   nb=!itemcnt $tv_listlocal
   !if $nb>=$MAXtechvar
     error=toomanytechvar
     !reset subjob
     !exit
   !endif
   !if $techvar notitemof $listnew
     error=oldvar_badvar
     !reset subjob
     !exit
   !endif
   num=!replace internal / by _ in $wims_class
   !increase nb
   num=$(num)_$nb
   liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don
   !if $liste=$empty
     error=oldvar_nouser
     !reset subjob
     !exit
   !endif
!! make the new technical variable
   listval=!column 3 of $liste
   listval=!listuniq $listval
   nbval=!itemcnt $listval
   !if $nbval>$MAXnbvalue
     error=badoldvaluesnb
     !reset subjob
     !exit
   !endif
   techvar=!lower $techvar
   !fileappend wimshome/log/classes/$wims_class/.techvar :$techvar\
$listval
    !fileappend wimshome/log/classes/$tv_Sclass/.indextechvar :$techvar,$wims_class,$[$nb]
!! put value in participant file.
    nb=!linecnt $liste
    !for k=1 to $nb
      udon=!line $k of $liste
      !distribute item $udon into login,bb,val
      !setdef !set user_techvar_$num=$val in wimshome/log/classes/$tv_Sclass/.users/$login
      listlogin=!append item $login to $listlogin
    !next k
    !restart module=adm/class/techvar
!endif

!if $subjob=modify
    !if $techvar notitemof $listmodify
      error=oldvar_badvar
      !reset subjob
      !exit
    !endif
    liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don
    !if $liste=$empty
       error=oldvar_nouser
      !reset subjob
      !exit
    !endif
    nb=!linecnt $liste
    num0=!positionof item $techvar in $tv_listname
    num=$(tv_listtechvar[$num0;3])
    cls=!item $num0 of $tv_listcode
    !for k=1 to $nb
      udon=!line $k of $liste
      !distribute item $udon into login,bb,val
      !setdef !set user_techvar_$(cls)=$val in wimshome/log/classes/$tv_Sclass/.users/$login
      listlogin=!append item $login to $listlogin
    !next k
!! modify list of values (if necessary) of technical variable
    listval=!column 3 of $liste
    listval=!listuniq $listval
    don=!record $num of wimshome/log/classes/$wims_class/.techvar
    oldval=!line 2 of $don
    new=!listcomplement $oldval in $listval
    !if $new!=$empty
      nb=!recordcnt wimshome/log/classes/$wims_class/.techvar
      output=$empty
      !for k=1 to $nb
          tmp=!record $k of wimshome/log/classes/$wims_class/.techvar
          !if $k=$num
            tmp=!replace line number 2 by $oldval,$new in $tmp
          !endif
          output=!append line :$tmp to $output
      !next k
        !filewrite wimshome/log/classes/$wims_class/.techvar $output
    !endif
    !restart module=adm/class/techvar&job=userlist
!endif