Rev 3261 | Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | !read scripts/check.class |
2 | !if $error!=$empty |
||
3 | !exit |
||
4 | !endif |
||
5 | |||
6 | data1=!nonempty lines $data1 |
||
7 | n=!linecnt $data1 |
||
8 | set=0 |
||
9 | |||
10 | !for i=1 to $n |
||
11 | l=!line $i of $data1 |
||
12 | l=!translate = to $\ |
||
13 | $ in $l |
||
14 | !distribute lines $l into n_,v_ |
||
15 | n_=!word 1 of $n_ |
||
16 | v_=!trim $v_ |
||
17 | !if $n_ isitemof $classdefs |
||
18 | !setdef !set class_$n_=$v_ in $classdeffile |
||
19 | !advance set |
||
20 | !endif |
||
21 | !next i |
||
22 | |||
23 | !if $set<1 |
||
24 | error=nothing done |
||
25 | !exit |
||
26 | !endif |
||
27 | |||
28 | !sh cd $wims_home/log/classes; ./.build-index |
||
29 |