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

(Ice) handle PNs that consist of multiple words

Browse Source
This commit is contained in:
Inari Listenmaa
2026-04-01 16:26:14 +02:00
parent 84e0e2c08f
commit 1e436d84a1
1 changed files with 15 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/icelandic/ParadigmsIce.gf
View File

@@ -249,11 +249,23 @@ resource ParadigmsIce = open
in lin N (nForms2Noun nfs (nForms2Suffix nfs gend) gend) ;
mkPN = overload {
-- this should be merged or swithced with N -> Gender
mkPN : Str -> Gender -> PN =
\name,g -> regPN name g ;
mkPN : Str -> Gender -> PN
= \name,g -> case name of {
head + " " + suf => suffixPN (regPN head g) suf ; -- fallback: use explicit constructors for more precision
_ => regPN name g } ;
mkPN : PN -> Str -> PN -- mkPN (mkPN "Annar" ) "í jólum"
= suffixPN ;
mkPN : Str -> PN -> PN -- mkPN "Sameinuðu" (mkPN "þjóðirnar")
= prefixPN
} ;
foreignPN : Str -> PN = \name -> lin PN {s = \\_ => name ; g = Masc} ;
prefixPN : Str -> PN -> PN = \prefix,pn -> pn ** {
s = \\c => prefix ++ pn.s ! c
} ;
suffixPN : PN -> Str -> PN = \pn,suffix -> pn ** {
s = \\c => pn.s ! c ++ suffix
} ;
oper mkLN : Str -> LN = \s -> lin LN {s=s} ;