GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki 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, -- 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. -- 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 -- regNounNomAcc n a | (last n) == shorten (last (init a)) = dAlma n a