Subversion Repositories wimsdev

Rev

Rev 23 | Rev 3319 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 23 Rev 3261
Line 4... Line 4...
4 
!endif
 4 
!endif
5 
 
 5 
 
6 
data1=!nonempty lines $data1
 6 
data1=!nonempty lines $data1
7 
n=!linecnt $data1
 7 
n=!linecnt $data1
8 
set=0
 8 
set=0
- 
 
 9 
name_or_def=0
9 
 
 10 
 
10 
!for i=1 to $n
 11 
!for i=1 to $n
11 
 l=!line $i of $data1
 12 
 l=!line $i of $data1
12 
 l=!translate = to $\
 13 
 l=!translate = to $\
13 
$ in $l
 14 
$ in $l
Line 15... Line 16...
15 
 n_=!word 1 of $n_
 16 
 n_=!word 1 of $n_
16 
 v_=!trim $v_
 17 
 v_=!trim $v_
17 
 !if $n_ isitemof $classdefs
 18 
 !if $n_ isitemof $classdefs
18 
  !setdef !set class_$n_=$v_ in $classdeffile
 19 
  !setdef !set class_$n_=$v_ in $classdeffile
19 
  !advance set
 20 
  !advance set
- 
 
 21 
 !endif
- 
 
 22 
 !if $n_ == connections
- 
 
 23 
  !readdef $classdeffile
- 
 
 24 
  !if $v_ notin $class_connections
- 
 
 25 
    !setdef !set class_connections = $class_connections+$v_ in $classdeffile
- 
 
 26 
    !advance set
- 
 
 27 
  !endif
- 
 
 28 
 !endif
- 
 
 29
- 
 
 30 
 !if $n_ isitemof name,description
- 
 
 31 
    !advance name_or_def
20 
 !endif
 32 
 !endif
21 
!next i
 33 
!next i
22 
 
 34 
 
23 
!if $set<1
 35 
!if $set<1
24 
 error=nothing done
 36 
 error=nothing done
25 
 !exit
 37 
 !exit
26 
!endif
 38 
!endif
27 
 
 - 
 
28 
!sh cd $wims_home/log/classes; ./.build-index
 - 
 
29 
 
 39 
 
- 
 
 40 
#on ne recrŽe l'index des classes que si un nom ou une description a changŽ
- 
 
 41 
!if $name_or_def>0
- 
 
 42 
  !sh cd $wims_home/log/classes; ./.build-index
- 
 
 43 
!endif