mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
dLó cases
This commit is contained in:
@@ -45,6 +45,7 @@ oper
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
-- NB. arguments are Sg Nom, Pl Nom
|
-- NB. arguments are Sg Nom, Pl Nom
|
||||||
|
-- handles words like: falu, daru, tetű -> falvak, darvak, tetvek
|
||||||
dFalu : (nomsg : Str) -> (nompl : Str) -> Noun = \falu,falvak ->
|
dFalu : (nomsg : Str) -> (nompl : Str) -> Noun = \falu,falvak ->
|
||||||
let falva = init falvak ;
|
let falva = init falvak ;
|
||||||
nFalva = mkNoun falva ;
|
nFalva = mkNoun falva ;
|
||||||
@@ -138,9 +139,15 @@ regNounNomAcc : (nom : Str) -> (acc : Str) -> Noun = \n,a ->
|
|||||||
<_ + "ó", -- ló, lovat
|
<_ + "ó", -- ló, lovat
|
||||||
_ + "o" + #c + #v + "t">
|
_ + "o" + #c + #v + "t">
|
||||||
|
|
||||||
|
|<_ + "ó", -- tó, tavat
|
||||||
|
_ + "a" + #c + #v + "t">
|
||||||
|
|
||||||
|<_ + "ő", -- kő, követ
|
|<_ + "ő", -- kő, követ
|
||||||
_ + "ö" + #c + #v + "t">
|
_ + "ö" + #c + #v + "t">
|
||||||
|
|
||||||
|
|<_ + "ű", -- fű, füvet
|
||||||
|
_ + "ü" + #c + #v + "t">
|
||||||
|
|
||||||
|<_ + "é", -- lé, levet
|
|<_ + "é", -- lé, levet
|
||||||
_ + "e" + #c + #v + "t"> => dLó n a ;
|
_ + "e" + #c + #v + "t"> => dLó n a ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user