Subversion Repositories wimsdev

Rev

Rev 10778 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10778 Rev 14384
Line 1... Line 1...
1
# Modclass
1
# Modclass
2
# Modifie les proprietes de la classe qclass
2
# Modifie les proprietes de la classe qclass
3
 
3
 
4
!read scripts/check.class
4
!read scripts/check.class
5
!if $error!=$empty
5
!if $error!=$empty
6
 !exit
6
  !exit
7
!endif
7
!endif
8
 
8
 
9
data1=!nonempty lines $data1
9
data1=!nonempty lines $data1
10
n=!linecnt $data1
10
n=!linecnt $data1
11
set=0
11
set=0
12
name_or_def=0
12
name_or_def=0
13
 
13
 
14
!for i=1 to $n
14
!for i=1 to $n
15
 l=!line $i of $data1
15
  l=!line $i of $data1
16
 l=!translate = to $\
16
  l=!translate = to $\
17
$ in $l
17
$ in $l
18
 !distribute lines $l into n_,v_
18
  !distribute lines $l into n_,v_
19
 n_=!word 1 of $n_
19
  n_=!word 1 of $n_
20
 v_=!trim $v_
20
  v_=!trim $v_
21
 !if $n_ isitemof $classdefs
21
  !if $n_ isitemof $classdefs
22
  !setdef !set class_$n_=$v_ in $classdeffile
22
    !setdef !set class_$n_=$v_ in $classdeffile
23
  !advance set
-
 
24
 !endif
-
 
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
23
    !advance set
30
  !endif
24
  !endif
-
 
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
31
  !endif
32
 
32
 
33
 !if $n_ isitemof name,description
33
  !if $n_ isitemof name,description
34
    !advance name_or_def
34
    !advance name_or_def
35
 !endif
35
  !endif
36
!next i
36
!next i
37
 
37
 
38
!if $set<1
38
!if $set<1
39
 error=nothing done
39
  error=nothing done
40
 !exit
40
  !exit
41
!endif
41
!endif
42
 
42
 
43
# on ne recree l'index des classes que si un nom ou une description a change
43
# on ne recree l'index des classes que si un nom ou une description a change
44
!if $name_or_def>0
44
!if $name_or_def>0
45
  !if $class_superclass != $empty
45
  !if $class_superclass != $empty