msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

fixed a bug in PhonoIta.elision, which caused gluing of articles with nouns beginning with a vowel also when there was no apostrophe

Browse Source
This commit is contained in:
aarne
2014-07-20 08:06:45 +00:00
parent 9702746c0e
commit 7b34b8bbe9
3 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/italian/DiffIta.gf
View File

@@ -52,7 +52,7 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
artIndef = \g,n,c -> case <n,c> of { artIndef = \g,n,c -> case <n,c> of {
<Sg,_> => prepCase c ++ <Sg,_> => prepCase c ++
genForms (elision "un" "un" "uno") (elision "una" "un'" "una") ! g ; genForms (pre {"un" ; "uno" / sImpuro}) (elision "una" "un'" "una") ! g ;
_ => prepCase c _ => prepCase c
} ; } ;

3
src/italian/PhonoIta.gf
View File

@@ -17,7 +17,8 @@ oper
} ; } ;
elision : (_,_,_ : Str) -> Str = \il, l', lo -> elision : (_,_,_ : Str) -> Str = \il, l', lo ->
pre {il ; (l' ++ Predef.BIND) / vocale ; lo / sImpuro} ; let ll = case last l' of {"'" => l' ++ Predef.BIND ; _ => l'} in
pre {il ; ll / vocale ; lo / sImpuro} ;
--- pre {vocale => l' ; sImpuro => lo ; _ => il} ; --- doesn't work properly 15/4/2014 --- pre {vocale => l' ; sImpuro => lo ; _ => il} ; --- doesn't work properly 15/4/2014
} }

2
src/italian/StructuralIta.gf
View File

@@ -81,7 +81,7 @@ lin
mkPronoun mkPronoun
"lei" "la" "le" "glie" "lei" "suo" "sua" "suoi" "sue" "lei" "la" "le" "glie" "lei" "suo" "sua" "suoi" "sue"
Fem Sg P3 ; Fem Sg P3 ;
so_AdA = ss "così" ; so_AdA = ss "così" ;
somebody_NP = pn2np (mkPN ["qualcuno"] Masc) ; somebody_NP = pn2np (mkPN ["qualcuno"] Masc) ;
somePl_Det = {s,sp = \\_,c => prepCase c ++ "qualche" ; n = Pl ; s2 = [] ; isNeg = False} ; somePl_Det = {s,sp = \\_,c => prepCase c ++ "qualche" ; n = Pl ; s2 = [] ; isNeg = False} ;
someSg_Det = {s,sp = \\_,c => prepCase c ++ "qualche" ; n = Sg ; s2 = [] ; isNeg = False} ; someSg_Det = {s,sp = \\_,c => prepCase c ++ "qualche" ; n = Sg ; s2 = [] ; isNeg = False} ;