Subversion Repositories wimsdev

Rev

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

Rev 23 Rev 2455
Line 1... Line 1...
1
 
1
 
2
listfile=model/list
2
listfile=model/$lang/list
3
!reset list_exists
3
!reset list_exists
4
!read $listfile
4
!read $listfile
5
!if $list_exists=yes
5
!if $list_exists=yes
6
 !exit
6
 !exit
7
!endif
7
!endif
8
 
8
 
9
src=!sh cd modules/$module/model/src; ls *.oef | sed 's/.oef$$//'
9
src=!sh cd model/$lang/src; ls *.oef | sed 's/.oef$$//'
10
src=!words2items $src
10
src=!words2items $src
11
 
11
 
12
!writefile $listfile
12
!writefile $listfile
13
types=
13
types=
14
!for f in $src
14
!for f in $src
15
 def=!record 0 of model/src/$f.oef
15
 def=!record 0 of model/$lang/src/$f.oef
16
 type=!getopt type in $def
16
 type=!getopt type in $def
17
 !if $type!=$empty
17
 !if $type!=$empty
18
  !if $type notitemof $types
18
  !if $type notitemof $types
19
   types=!append item $type to $types
19
   types=!append item $type to $types
20
   type_$type=
20
   type_$type=
21
  !endif
21
  !endif
22
  type_$type=!append item $f to $(type_$type)
22
  type_$type=!append item $f to $(type_$type)
23
  desc=!record 1 of model/src/$f.oef
23
  desc=!record 1 of model/$lang/src/$f.oef
24
  desc=!line 1 of $desc
24
  desc=!line 1 of $desc
25
  tit=
25
  tit=
26
  !for i=2 to 8
26
  !for i=2 to 8
27
   r=!record $i of model/src/$f.oef
27
   r=!record $i of model/$lang/src/$f.oef
28
   r=!trim $r
28
   r=!trim $r
29
   c=!char 1 of $r
29
   c=!char 1 of $r
30
   !if \ = $c and +++\title isin +++$r
30
   !if \ = $c and +++\title isin +++$r
31
    tit=!embraced extract $r
31
    tit=!embraced extract $r
32
    !break
32
    !break