mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
generalized mkPrep in ParadigmsSpa by Daniel Vidal
This commit is contained in:
@@ -60,7 +60,10 @@ oper
|
||||
genitive : Prep ; -- preposition "de" 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
|
||||
@@ -318,7 +321,11 @@ oper
|
||||
accusative = complAcc ** {lock_Prep = <>} ;
|
||||
genitive = complGen ** {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 = <>} ;
|
||||
|
||||
Reference in New Issue
Block a user