1
0
forked from GitHub/gf-rgl

geonames in DictionaryHin ; partial implementation of ConstructionHin from Phrasebook and Wiktionary ; to be checked by an expert

This commit is contained in:
aarne
2014-06-18 15:01:04 +00:00
parent ca93c55c2d
commit 192a6f87df
6 changed files with 2721 additions and 7 deletions
+7 -1
View File
@@ -46,7 +46,13 @@ oper
-- Proper names
mkPN : Str -> PN = \s -> let n = regNoun s in {s = n.s ! Sg ; g = n.g ; lock_PN = <>} ;
mkPN = overload {
mkPN : Str -> PN
= \s -> let n = regNoun s in {s = n.s ! Sg ; g = n.g ; lock_PN = <>} ;
mkPN : N -> PN
= \n -> {s = n.s ! Sg ; g = n.g ; lock_PN = <>} ;
} ;
personalPN : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Number -> Gender -> UPerson -> Pron =
\s1,s2,s3,smp,sfp,pmp,pfp,nn,g,p -> let n = mkPron s1 s2 s3 in
{s = n.s ;