Rev 4158 | Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !if $wims_read_parm!=slib_header |
2 | !goto proc |
||
3 | !endif |
||
4 | slib_title=Output random words in the dictionary |
||
5 | slib_parms=2\ |
||
6 | ,word lengths (as items or as words)\ |
||
7 | ,language (optional, defauts to the module's language) |
||
8 | slib_author=Gang Xiao |
||
9 | slib_out=the random words according to specified word lengths, separated by spaces. |
||
10 | slib_example= 3,4,8,fr\ |
||
11 | 3,4,8,en\ |
||
12 | 3,4,8,es |
||
13 | !exit |
||
14 | |||
15 | :proc |
||
16 | slib_lang=!item -1 of $wims_read_parm |
||
17 | slib_lang_save=$module_language |
||
18 | !if $slib_lang iswordof $wims_site_languages |
||
19 | slib_lens=!item 1 to -2 of $wims_read_parm |
||
20 | module_language=$slib_lang |
||
21 | !else |
||
22 | slib_lens=$wims_read_parm |
||
23 | !endif |
||
24 | slib_lens=!items2words $slib_lens |
||
25 | slib_out=!exec randic $slib_lens |
||
26 | slib_out=!singlespace $slib_out |
||
27 | module_language=$slib_lang_save |
||
28 |