Subversion Repositories wimsdev

Rev

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