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