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 |