Rev 10778 | Blame | Compare with Previous | Last modification | View Log | RSS feed
# Modclass
# Modifie les proprietes de la classe qclass
!read scripts/check.class
!if $error!=$empty
!exit
!endif
data1=!nonempty lines $data1
n=!linecnt $data1
set=0
name_or_def=0
!for i=1 to $n
l=!line $i of $data1
l=!translate = to $\
$ in $l
!distribute lines $l into n_,v_
n_=!word 1 of $n_
v_=!trim $v_
!if $n_ isitemof $classdefs
!setdef !set class_$n_=$v_ in $classdeffile
!advance set
!endif
!if $n_ == connections
!readdef $classdeffile
!if $v_ notin $class_connections
!setdef !set class_connections = $class_connections $v_ in $classdeffile
!advance set
!endif
!endif
!if $n_ isitemof name,description
!advance name_or_def
!endif
!next i
!if $set<1
error=nothing done
!exit
!endif
# on ne recree l'index des classes que si un nom ou une description a change
!if $name_or_def>0
!if $class_superclass != $empty
!sh cd $wims_home/log/classes; ./.build-index $class_superclass
!else
!sh cd $wims_home/log/classes; ./.build-index $qclass
!endif
!endif