Subversion Repositories wimsdev

Rev

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