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 |