GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-09 11:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

separate independent (NP without CN) forms of IndefArt and DefArt in Romance languages. The choice of words was unsure in some cases, but at least this eliminates the problem of empty NP's translating to "ones".

Browse Source
This commit is contained in:
aarne
2014-09-12 11:59:50 +00:00
parent 6b47126c8c
commit 7ddf965061
8 changed files with 66 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lib/src/italian/DiffIta.gf
View File

@@ -25,8 +25,14 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
}
} ;
artDef : Gender -> Number -> Case -> Str = \g,n,c ->
case <g,n,c> of {
artDef : Bool -> Gender -> Number -> Case -> Str = \isNP,g,n,c ->
case isNP of {
True => prepCase c ++ case <g,n> of {
<Masc,Sg> => "lui" ;
<Fem ,Sg> => "lei" ;
<_,Pl> => "loro"
} ;
_ => case <g,n,c> of {
<_, _, CPrep P_di> => prepArt "de" ;
<_, _, CPrep P_da> => prepArt "da" ;
<_, _, CPrep P_a> => prepArt "a" ;
@@ -37,7 +43,8 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
<Fem ,Sg, _> => elision "la" "l'" "la" ;
<Masc,Pl, _> => elision "i" "gli" "gli" ;
<Fem ,Pl, _> => "le"
}
}
}
where {
prepArt : Tok -> Tok = \de -> case <g,n> of {
<Masc,Sg> => elision (de + "l") (de + "ll'") (de + "llo") ;
@@ -50,17 +57,21 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
-- In these two, "de de/du/des" becomes "de".
artIndef = \g,n,c -> case <n,c> of {
<Sg,_> => prepCase c ++
genForms (pre {"un" ; "uno" / sImpuro}) (elision "una" "un'" "una") ! g ;
_ => prepCase c
artIndef = \isNP, g,n,c -> case <n,isNP> of {
<Sg,True> => prepCase c ++
genForms "uno" "una" ! g ;
<Sg,_> => prepCase c ++
genForms (pre {"un" ; "uno" / sImpuro}) (elision "una" "un'" "una") ! g ;
<Pl,True> => prepCase c ++
genForms "alcuni" "alcune" ! g ;
_ => prepCase c
} ;
possCase = artDef ;
possCase = artDef False ;
partitive = \g,c -> case c of {
CPrep P_di => "di" ;
_ => prepCase c ++ artDef g Sg (CPrep P_di)
_ => prepCase c ++ artDef False g Sg (CPrep P_di)
} ;
conjunctCase : Case -> Case = \c -> case c of {