added GN & SN categories for constructing names

This commit is contained in:
Krasimir Angelov committed 2022-12-15 08:44:42 +01:00
1 parent d0e433cd46
commit 7085acacc9
55 files changed
+371 -43

No files matched your search

+9
View File
@@ -271,6 +271,15 @@ oper
feminine : Gender = Fem ;
neutr : Gender = Neut ;
mkGN : Str -> Gender -> GN =
\s,g -> lin GN {s = s; g = g} ;
mkSN = overload {
mkSN : Str -> SN =
\s -> lin SN {s = s; g = Masc} ;
mkSN : Str -> Gender -> SN =
\s,g -> lin SN {s = s; g = g} ;
} ;
mkPN = overload {
mkPN : Str -> PN = \s -> {s = s; gn = GSg Masc ; lock_PN = <>} ;
mkPN : Str -> Gender -> PN =