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 |