Rev 11371 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | |
2879 | bpr | 2 | listfile=wimshome/public_html/scripts/model/$lang/list |
23 | reyssat | 3 | !reset list_exists |
4 | !read $listfile |
||
5 | !if $list_exists=yes |
||
6 | !exit |
||
7 | !endif |
||
8 | |||
2879 | bpr | 9 | src=!sh cd $wims_home/public_html/scripts/model/$lang/src; ls *.oef | sed 's/.oef$$//' |
23 | reyssat | 10 | src=!words2items $src |
11 | |||
12 | !writefile $listfile |
||
11371 | bpr | 13 | !! allow to order types. The types not written here are automatically added at the end |
11377 | bpr | 14 | !set types=first,datalist,question,select,gapfill,classify,order,game,imaudio,chemistry |
23 | reyssat | 15 | !for f in $src |
2455 | bpr | 16 | def=!record 0 of model/$lang/src/$f.oef |
23 | reyssat | 17 | type=!getopt type in $def |
6439 | bpr | 18 | !if $type!=$empty and text/css notin $type |
23 | reyssat | 19 | !if $type notitemof $types |
20 | types=!append item $type to $types |
||
21 | type_$type= |
||
22 | !endif |
||
23 | type_$type=!append item $f to $(type_$type) |
||
2455 | bpr | 24 | desc=!record 1 of model/$lang/src/$f.oef |
23 | reyssat | 25 | desc=!line 1 of $desc |
26 | tit= |
||
27 | !for i=2 to 8 |
||
2455 | bpr | 28 | r=!record $i of model/$lang/src/$f.oef |
23 | reyssat | 29 | r=!trim $r |
30 | c=!char 1 of $r |
||
31 | !if \ = $c and +++\title isin +++$r |
||
32 | tit=!embraced extract $r |
||
33 | !break |
||
34 | !endif |
||
35 | !next i |
||
36 | !appendfile $listfile tit_$f=$tit\ |
||
37 | desc_$f=$desc |
||
38 | !endif |
||
39 | !next f |
||
40 | |||
41 | !appendfile $listfile list_exists=yes\ |
||
42 | types=$types |
||
43 | |||
44 | !for t in $types |
||
45 | !appendfile $listfile type_$t=$(type_$t) |
||
46 | !next t |
||
47 | |||
48 | !read $listfile |