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

Changes in regNoun

Browse Source
This commit is contained in:
Julia Jansson
2020-04-19 18:52:25 +02:00
parent c47a6cd279
commit f8cbfcca96
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/hungarian/NounMorphoHun.gf
View File

@@ -91,7 +91,10 @@ oper
-- regNoun is a /smart paradigm/: it takes one or a couple of forms,
-- and decides which (non-smart) paradigm is the most likely to match.
-- regNounNomAcc : (nom : Str) -> (acc : Str) -> Noun = n, a -> mkNoun n ;
regNounNomAcc : (nom : Str) -> (acc : Str) -> Noun = n, a ->
let lastNom = last n ;
lastAccShort = shorten (last (init a)) ;
in ifTok Noun lastNom lastAccShort (dAlma n a) (mkNoun n) ;
-- regNounNomAcc n a | (last n) == shorten (last (init a)) = dAlma n a