1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
!if $wims_read_parm!=slib_header
!goto proc
!endif
slib_author=Gang, XIAO
slib_example=manger
!exit
:proc
!distribute items $wims_read_parm into $slib_inf,slib_co
slib_inf=!word 1 of $slib_inf
!if $slib_inf=$empty
!exit
!endif
slib_1=!char 1 of $slib_inf
slib_1=!lower $slib_1
slib_1=!deaccent $slib_1
!if $slib_co iswordof cod coi
slib_out=!lookup $slib_inf in bases/dic/fr/$slib_co/$slib_1
!goto continue
!endif
slib_out=!lookup $slib_inf in bases/dic/fr/cod/$slib_1
!if $slib_out=$empty
slib_out=!lookup $slib_inf in bases/dic/fr/coi/$slib_1
!endif
:continue
slib_out=!lines2items $slib_out
slib_out=!nonempty items $slib_out
slib_out=!randitem $slib_out
slib_loop=1
:reloop
!if _ isin $slib_out
slib_n=!wordcnt $slib_out
slib_o=
!for slib_i=1 to $slib_n
slib_w=!word $slib_i of $slib_out
!if _ isin $slib_w
slib_w2=!lookup $slib_w in bases/dic/fr/Noms
!if $slib_w2!=$empty
slib_w=!lines2items $slib_w2
slib_w=!nonempty items $slib_w
slib_w=!randitem $slib_w
!else
slib_w=!replace _ by $ in $slib_w
!endif
!endif
slib_o=$slib_o $slib_w
!next slib_i
slib_out=!trim $slib_o
!endif
!if _ isin $slib_out and $slib_loop<3
!increase slib_loop
!goto reloop
!endif
slib_1=!word 1 of $slib_out
!if $slib_1 iswordof un le du ce mon son ton
slib_out=1 $slib_out
!endif
!if $slib_1 iswordof une la cette ma sa ta
slib_out=2 $slib_out
!endif
!if $slib_1 iswordof des les ces mes ses tes
slib_out=3 $slib_out
!endif
!if $slib_1 iswordof de
slib_2=!word 2 of $slib_out
!if $slib_2 iswordof la cette ma une
slib_out=2 $slib_out
!endif
!endif
!read slib/lang/frapostrophe $slib_out
|
