Subversion Repositories wimsdev

Rev

Rev 10778 | 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
14384 obado 6
  !exit
23 reyssat 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
14384 obado 15
  l=!line $i of $data1
16
  l=!translate = to $\
23 reyssat 17
$ in $l
14384 obado 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
3261 obado 23
    !advance set
10120 obado 24
  !endif
14384 obado 25
  !if $n_ == connections
26
    !readdef $classdeffile
27
    !if $v_ notin $class_connections
28
      !setdef !set class_connections = $class_connections $v_ in $classdeffile
29
      !advance set
30
    !endif
31
  !endif
10120 obado 32
 
14384 obado 33
  !if $n_ isitemof name,description
3261 obado 34
    !advance name_or_def
14384 obado 35
  !endif
23 reyssat 36
!next i
37
 
38
!if $set<1
14384 obado 39
  error=nothing done
40
  !exit
23 reyssat 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
10778 obado 45
  !if $class_superclass != $empty
46
    !sh cd $wims_home/log/classes; ./.build-index $class_superclass
47
  !else
48
    !sh cd $wims_home/log/classes; ./.build-index $qclass
49
  !endif
10120 obado 50
!endif