Subversion Repositories wimsdev

Rev

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