make mkPN more portable across languages

This commit is contained in:
Krasimir Angelov
2022-08-02 16:07:27 +02:00
parent a181ab36a4
commit 607f4d68ae
4 changed files with 26 additions and 3 deletions

View File

@@ -78,7 +78,11 @@ resource ParadigmsMlt = open
mkNDual : Str -> Str -> Str -> Str -> Gender -> N ; -- Noun paradigm 4x: Explicit gender
} ;
mkPN : Str -> Gender -> Number -> ProperNoun ; -- Proper noun
mkPN : overload {
mkPN : Str -> PN ;
mkPN : Str -> Gender -> PN ;
mkPN : Str -> Gender -> Number -> PN ;
} ;
mkN2 : overload {
mkN2 : N -> Prep -> N2 ;
@@ -324,8 +328,14 @@ resource ParadigmsMlt = open
}
) ;
mkPN = overload {
mkPN : Str -> PN = \s -> regPN s masculine singular ;
mkPN : Str -> Gender -> PN = \s,g -> regPN s g singular ;
mkPN : Str -> Gender -> Number -> PN = \s,g,n -> regPN s g n ;
} ;
-- Proper noun
mkPN : Str -> Gender -> Number -> ProperNoun = \name,g,n -> {
regPN : Str -> Gender -> Number -> PN = \name,g,n -> lin PN {
s = name ;
a = mkAgr n P3 g ;
} ;