Rev 7692 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7692 | Rev 13585 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !if $wims_read_parm!=slib_header |
1 | !if $wims_read_parm!=slib_header |
2 | !goto proc |
2 | !goto proc |
3 | !endif |
3 | !endif |
4 | 4 | ||
5 | slib_author=Gang, XIAO |
5 | slib_author=Gang, XIAO |
6 | slib_example= un avion \ |
6 | slib_example= un avion \ |
7 | une\ |
7 | une\ |
Line 11... | Line 11... | ||
11 | 11 | ||
12 | :proc |
12 | :proc |
13 | slib_inp=!word 1 of $wims_read_parm |
13 | slib_inp=!word 1 of $wims_read_parm |
14 | slib_out= |
14 | slib_out= |
15 | !if $slib_inp=$empty |
15 | !if $slib_inp=$empty |
16 | !exit |
16 | !exit |
17 | !endif |
17 | !endif |
18 | slib_1=!word 1 of $slib_inp |
18 | slib_1=!word 1 of $slib_inp |
19 | !if $slib_1 notwordof de des du un une |
19 | !if $slib_1 notwordof de des du un une |
20 | slib_out=$slib_inp |
20 | slib_out=$slib_inp |
21 | !exit |
21 | !exit |
22 | !endif |
22 | !endif |
23 | 23 | ||
24 | slib_2=!word 2 of $slib_inp |
24 | slib_2=!word 2 of $slib_inp |
25 | slib_c=!char 1 of $slib_2 |
25 | slib_c=!char 1 of $slib_2 |
26 | slib_2c=!word 2 to -1 of $slib_inp |
26 | slib_2c=!word 2 to -1 of $slib_inp |
27 | slib_3c=!word 3 to -1 of $slib_inp |
27 | slib_3c=!word 3 to -1 of $slib_inp |
28 | 28 | ||
29 | !if $slib_1=de |
29 | !if $slib_1=de |
30 | slib_out=$slib_2c |
30 | slib_out=$slib_2c |
31 | !exit |
31 | !exit |
32 | !endif |
32 | !endif |
33 | 33 | ||
34 | !if $slib_1=des |
34 | !if $slib_1=des |
35 | slib_out=les $slib_2c |
35 | slib_out=les $slib_2c |
36 | !exit |
36 | !exit |
37 | !endif |
37 | !endif |
38 | 38 | ||
39 | !if $slib_1 iswordof du un |
39 | !if $slib_1 iswordof du un |
40 | !read slib/lang/frapostrophe le $slib_2c |
40 | !read slib/lang/frapostrophe le $slib_2c |
41 | !exit |
41 | !exit |
42 | !endif |
42 | !endif |
43 | 43 | ||
44 | !if $slib_1=une |
44 | !if $slib_1=une |
45 | !read slib/lang/frapostrophe la $slib_2c |
45 | !read slib/lang/frapostrophe la $slib_2c |
46 | !exit |
46 | !exit |
47 | !endif |
47 | !endif |