Subversion Repositories wimsdev

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
14506 czzmrn 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
3 
!endif
4 
 
5 
slib_author=Marina,Cazzola
6 
 
7 
slib_example=casa,f\
8 
muro,m\
9 
articolo,m\
10 
articoli,mg\
11 
albicocca,f\
12 
albicocca,f,di\
13 
albicocche,fg\
14 
ananas,mg\
15 
ananas,m\
16 
labbra,fg
17 
 
18 
!exit
19 
 
20 
:proc
21 
!distribute item $wims_read_parm into slib_word,slib_genere,slib_prop
22 
slib_out=
23 
 
24 
!! eventuali eccezioni: esempio "le labbra", diventano fg e mg
25 
 
26 
slib_iniz=!char 1 of $slib_word
27 
slib_iniz=!lower $slib_iniz
28 
slib_due=!char 1..2 of $slib_word
29 
slib_due=!lower $slib_due
30 
 
31 
!default slib_prop=
32 
 
33 
slib_out=$slib_word $slib_due $slib_genere
34 
slib_prenome=
35 
 
36 
!if $slib_prop=di
37 
 slib_prop=de
38 
!endif
39 
 
40 
!if $slib_prop=in
41 
 slib_prop=ne
42 
!endif
43 
 
44 
!if $slib_prop iswordof a da de su ne
45 
 slib_prenome=l
46 
!endif
47 
 
48 
!if $slib_genere=f
49 
!! femminile: l' quando segue vocale, altrimenti la
50 
 !if $slib_iniz isin aeiou
51 
  slib_out=$slib_prop$(slib_prenome)l'$slib_word
52 
  !goto fine
53 
 !else
54 
  slib_out=$slib_prop$(slib_prenome)la $slib_word
55 
  !goto fine
56 
 !endif
57 
!endif
58 
 
59 
!if $slib_genere=m
60 
!! lo se pn, ps, gn, z, x, y, s inpura, i + vocale
61 
 !if $slib_due iswordof pn ps gn sc st sp sg ia ie io iu ii
62 
  slib_out=$slib_prop$(slib_prenome)lo $slib_word
63 
  !goto fine
64 
 !endif
65 
 !if $slib_iniz isin zxy
66 
  slib_out=$slib_prop$(slib_prenome)lo $slib_word
67 
  !goto fine
68 
 !endif
69 
 !if $slib_iniz isin aeiou
70 
!! l' se (altra) vocale
71 
  slib_out=$slib_prop$(slib_prenome)l'$slib_word
72 
  !goto fine
73 
 !endif
74 
!! il in tutti gli altri casi
75 
 !if $slib_prop iswordof de su
76 
   slib_prenome=$(slib_prop)l
77 
 !else
78 
   slib_prenome=il
79 
 !endif
80 
 slib_out=$slib_prenome $slib_word
81 
 !goto fine
82 
!endif
83 
 
84 
!if $slib_genere=fg
85 
!! plurale femminile, articolo "le"
86 
 slib_out=$slib_prop$(slib_prenome)le $slib_word
87 
!endif
88 
 
89 
!if $slib_genere=mg
90 
!! plurale maschile, "i" e "gli" con le stesse regole sopra
91 
 !if $slib_due iswordof pn ps gn sc st sp sg
92 
   slib_out=$(slib_prop)gli $slib_word
93 
   !goto fine
94 
 !endif
95 
 !if $slib_iniz isin zxyaeiou
96 
   slib_out=$(slib_prop)gli $slib_word
97 
   !goto fine
98 
 !endif
99 
   slib_out=$(slib_prop)i $slib_word
100 
!endif
101 
 
102 
:fine