Subversion Repositories wimsdev

Rev

Rev 4561 | Rev 10778 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4561 obado 1
# Modclass
10120 obado 2
# Modifie les proprietes de la classe qclass
4561 obado 3
 
23 reyssat 4
!read scripts/check.class
5
!if $error!=$empty
6
 !exit
7
!endif
8
 
9
data1=!nonempty lines $data1
10
n=!linecnt $data1
11
set=0
3261 obado 12
name_or_def=0
23 reyssat 13
 
14
!for i=1 to $n
15
 l=!line $i of $data1
16
 l=!translate = to $\
17
$ in $l
18
 !distribute lines $l into n_,v_
19
 n_=!word 1 of $n_
20
 v_=!trim $v_
21
 !if $n_ isitemof $classdefs
22
  !setdef !set class_$n_=$v_ in $classdeffile
23
  !advance set
24
 !endif
3261 obado 25
 !if $n_ == connections
26
  !readdef $classdeffile
27
  !if $v_ notin $class_connections
3319 obado 28
    !setdef !set class_connections = $class_connections $v_ in $classdeffile
3261 obado 29
    !advance set
10120 obado 30
  !endif
3261 obado 31
 !endif
10120 obado 32
 
3261 obado 33
 !if $n_ isitemof name,description
34
    !advance name_or_def
35
 !endif
23 reyssat 36
!next i
37
 
38
!if $set<1
39
 error=nothing done
40
 !exit
41
!endif
42
 
10120 obado 43
# on ne recree l'index des classes que si un nom ou une description a change
3261 obado 44
!if $name_or_def>0
10120 obado 45
  !sh cd $wims_home/log/classes; ./.build-index $qclass
46
!endif