(Cat,Por,Spa) Export CopulaType and {ser,estar}Copula in Paradigms

This commit is contained in:
Inari Listenmaa
2019-03-29 12:29:48 +01:00
parent a16c900d34
commit d96db3992b
3 changed files with 30 additions and 2 deletions
+13
View File
@@ -35,6 +35,7 @@ resource ParadigmsPor =
Prelude,
MorphoPor,
BeschPor,
DiffPor,
CatPor in {
flags optimize=all ;
@@ -79,6 +80,18 @@ oper
dative : Prep ; -- preposition "a" and its contractions
dative = lin Prep complDat ;
CopulaType : Type ;
CopulaType = DiffPor.CopulaType ;
serCopula : CopulaType ;
serCopula = DiffPor.serCopula ;
estarCopula : CopulaType ;
estarCopula = DiffPor.estarCopula ;
ficarCopula : CopulaType ;
ficarCopula = DiffPor.ficarCopula ;
mkPrep = overload {
mkPrep : Str -> Prep -- other preposition
= \p -> lin Prep {s = p ; c = Acc ; isDir = False} ;