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