GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 14:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

restored one-arg mkPN

Browse Source
This commit is contained in:
aarne
2015-07-23 16:03:18 +00:00
parent 0d35bb1c03
commit 3fd7cf4e87
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/german/ParadigmsGer.gf
View File

@@ -126,6 +126,7 @@ mkN : overload {
-- taken into account. -- taken into account.
mkPN : overload { mkPN : overload {
mkPN : Str -> PN ; -- regular name with genitive in "s", masculine
mkPN : Str -> Gender -> PN ; -- regular name with genitive in "s" mkPN : Str -> Gender -> PN ; -- regular name with genitive in "s"
-- If only the genitive differs, two strings are needed. -- If only the genitive differs, two strings are needed.
@@ -461,6 +462,7 @@ mkV2 : overload {
mk2PN horst (ifTok Tok (Predef.dp 1 horst) "s" horst (horst + "s")) g ; mk2PN horst (ifTok Tok (Predef.dp 1 horst) "s" horst (horst + "s")) g ;
mkPN = overload { mkPN = overload {
mkPN : Str -> PN = \s -> regPN s Masc ;
mkPN : Str -> Gender -> PN = regPN ; mkPN : Str -> Gender -> PN = regPN ;
mkPN : N -> PN = \n -> lin PN {s = n.s ! Sg; g = n.g} ; mkPN : N -> PN = \n -> lin PN {s = n.s ! Sg; g = n.g} ;
mkPN : (nom,gen : Str) -> Gender -> PN = mk2PN ; mkPN : (nom,gen : Str) -> Gender -> PN = mk2PN ;