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