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

(Por) more mkN paradigms

Browse Source 
- add compN and compNN as mkN paradigms

- rm tossir_V from Irreg since it is very wrong
- fix oper `a` (contraction of preposition a + definite articles)
This commit is contained in:
odanoburu
2019-02-21 11:59:53 -03:00
parent b825c0e14a
commit 7e8270381d
3 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/portuguese/DiffPor.gf
View File

@@ -129,7 +129,7 @@ instance DiffPor of DiffRomance - [iAdvQuestionInv,chooseTA,otherInv,partAgr,sta
oper oper
a : Gender => Number => Str ; a : Gender => Number => Str ;
a = genNumForms "a" "à" "aos" "às" ; a = genNumForms "ao" "à" "aos" "às" ;
de : Gender => Number => Str ; de : Gender => Number => Str ;
de = genNumForms "do" "da" "dos" "das" ; de = genNumForms "do" "da" "dos" "das" ;

1
src/portuguese/IrregPor.gf
View File

@@ -281,7 +281,6 @@ lin encobrir_V = mkV (dormir_Besch "encobrir") ;
lin recobrir_V = mkV (dormir_Besch "recobrir") ; lin recobrir_V = mkV (dormir_Besch "recobrir") ;
lin explodir_V = mkV (dormir_Besch "explodir") ; lin explodir_V = mkV (dormir_Besch "explodir") ;
lin engolir_V = mkV (dormir_Besch "engolir") ; lin engolir_V = mkV (dormir_Besch "engolir") ;
lin tossir_V = mkV (dormir_Besch "tossir") ;
lin erguer_V = mkV (erguer_Besch "erguer") ; lin erguer_V = mkV (erguer_Besch "erguer") ;
lin soerguer_V = mkV (erguer_Besch "soerguer") ; lin soerguer_V = mkV (erguer_Besch "soerguer") ;
lin estar_V = mkV (estar_Besch "estar") ; lin estar_V = mkV (estar_Besch "estar") ;

16
src/portuguese/ParadigmsPor.gf
View File

@@ -114,8 +114,14 @@ oper
mkN : (mapa : Str) -> Gender -> N -- force gender, guess plural mkN : (mapa : Str) -> Gender -> N -- force gender, guess plural
= \s,g -> regN s ** {g = g} ; = \s,g -> regN s ** {g = g} ;
mkN : (mão,mãos : Str) -> Gender -> N -- the worst case demands two forms (singular + plural) and the gender. mkN : (mão, mãos : Str) -> Gender -> N -- the worst case demands two forms (singular + plural) and the gender.
= mk2N = mk2N ;
mkN : (número : N) -> (de_telefone : Str) -> N -- compound noun with non-inflecting second art, e.g. "número" + "de telefone"
= compN ;
mkN : (forma, finita : N) -> N -- compound with inflecting second part, e.g. "forma" + "finita"
= compNN
} ; } ;
--3 Compound nouns --3 Compound nouns
@@ -125,10 +131,10 @@ oper
-- could be formed in syntax, but we give a shortcut here since they -- could be formed in syntax, but we give a shortcut here since they
-- are frequent in lexica. -- are frequent in lexica.
compN : N -> Str -> N ; -- compound with non-inflecting second part, e.g. "número" + "de telefone" compN : N -> Str -> N ; --%
compN x y = {s = \\n => x.s ! n ++ y ; g = x.g ; lock_N = <>} ; compN x y = x ** {s = \\n => x.s ! n ++ y} ;
compNN : N -> N -> N ; -- compound with inflecting second part, e.g. "forma" + "finita" compNN : N -> N -> N ; --%
compNN x y = x ** {s = \\n => x.s ! n ++ y.s ! n} ; compNN x y = x ** {s = \\n => x.s ! n ++ y.s ! n} ;
--3 Relational nouns --3 Relational nouns