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

Merge pull request #99 from inariksit/catalan

Browse Source 
(Cat) Add per as another preposition that fuses with article
This commit is contained in:
Inari Listenmaa
2018-12-11 21:20:33 +02:00
committed by GitHub
parent 8d7366cb0a 0479820b8f
commit bb4b371994
1 changed files with 33 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/catalan/DiffCat.gf
View File

@@ -13,17 +13,19 @@ instance DiffCat of DiffRomance - [partAgr,vpAgrSubj,vpAgrClits] = open CommonRo
--------------------------------
param
Prepos = P_de | P_a ;
Prepos = P_de | P_a | P_per ;
VType = VHabere | VRefl ;
oper
dative : Case = CPrep P_a ;
genitive : Case = CPrep P_de ;
ablative : Case = CPrep P_per ;
prepCase = \c -> case c of {
Nom => [] ;
Acc => [] ;
CPrep P_de => elisDe ;
CPrep P_per => "per" ;
CPrep P_a => "a"
} ;
@@ -32,12 +34,16 @@ oper
case <g,n,c> of { ---- TODO: check the NP forms
<Masc,Sg, CPrep P_de> => pre {"del" ; ("de l'" ++ Predef.BIND) / vocalForta} ;
<Masc,Sg, CPrep P_a> => pre {"al" ; ("a l'" ++ Predef.BIND) / vocalForta} ;
<Masc,Sg, _> => elisEl ;
<Fem, Sg, _> => prepCase c ++ elisLa ;
<Masc,Pl, CPrep P_de> => "dels" ;
<Fem, Pl, CPrep P_de> => ["de les"] ;
<Masc,Sg, CPrep P_per> => "pel" ;
<Fem, Sg, CPrep P_per> => ["per la"] ;
<Masc,Pl, CPrep P_per> => "pels" ;
<Fem, Pl, CPrep P_per> => ["per les"] ;
<Masc,Pl, CPrep P_a> => "als" ;
<Fem, Pl, CPrep P_a> => ["a les"] ;
<Masc,Sg, _> => elisEl ;
<Fem, Sg, _> => prepCase c ++ elisLa ;
<Masc, Pl, _ > => "els" ;
<Fem, Pl, _ > => "les"
} ;