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

generalized mkPrep in ParadigmsSpa by Daniel Vidal

Browse Source
This commit is contained in:
aarne
2015-03-17 17:41:43 +00:00
parent 9ce7b36024
commit 9af20d5c8b
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/src/spanish/ParadigmsSpa.gf
View File

@@ -60,7 +60,10 @@ oper
genitive : Prep ; -- preposition "de" and its contractions genitive : Prep ; -- preposition "de" and its contractions
dative : Prep ; -- preposition "a" and its contractions dative : Prep ; -- preposition "a" and its contractions
mkPrep : Str -> Prep ; -- other preposition mkPrep : overload {
mkPrep : Str -> Prep ; -- other preposition
mkPrep : Str -> Prep -> Prep ; -- compound prepositions, e.g. "antes de", made as mkPrep "antes" genitive
} ;
--2 Nouns --2 Nouns
@@ -318,7 +321,11 @@ oper
accusative = complAcc ** {lock_Prep = <>} ; accusative = complAcc ** {lock_Prep = <>} ;
genitive = complGen ** {lock_Prep = <>} ; genitive = complGen ** {lock_Prep = <>} ;
dative = complDat ** {lock_Prep = <>} ; dative = complDat ** {lock_Prep = <>} ;
mkPrep p = {s = p ; c = Acc ; isDir = False ; lock_Prep = <>} ;
mkPrep = overload {
mkPrep : Str -> Prep = \p -> {s = p ; c = Acc ; isDir = False ; lock_Prep = <>} ;
mkPrep : Str -> Prep -> Prep = \p,c -> {s = p ; c = c.c ; isDir = False ; lock_Prep = <>}
} ;
mk2N x y g = mkNounIrreg x y g ** {lock_N = <>} ; mk2N x y g = mkNounIrreg x y g ** {lock_N = <>} ;