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 |
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 |