GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Fix partially the case with takony in dMajom

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-09 19:54:06 +02:00
parent 4ed862617c
commit 6d9fa59863
1 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/hungarian/NounMorphoHun.gf
View File

@@ -98,10 +98,23 @@ oper
-- "bokrot, cukrot, csokrot, epret, fészket, fodrot, gödröt, ikret, izmot, kölyköt, körmet, mérget, piszkot, sarkot, selymet, szedret, szobrot, taknyot, termet, titkot, torkot, tornyot, tükröt, vödröt" -- "bokrot, cukrot, csokrot, epret, fészket, fodrot, gödröt, ikret, izmot, kölyköt, körmet, mérget, piszkot, sarkot, selymet, szedret, szobrot, taknyot, termet, titkot, torkot, tornyot, tükröt, vödröt"
--<Sg,Sup> case handled --<Sg,Sup> case handled
dMajom : Str -> Noun = \majom -> dMajom : Str -> Noun = \majom ->
let mo = last majom + last (init majom); -- Str*Str is syntactic sugar for {p1 : Str ; p2 : Str} ;
maj = init (init majom) ; -- confusing syntax: you can't write let <tako,ny> : Str*Str = …
majmo = maj + mo ; -- it has to be called something else, and then you
nMajmo = mkNounHarm (getHarm majmo) "k" majmo ; -- can get "tako" and "ny" with p1, p2.
let tako_ny : Str*Str = case majom of {
x + trigraph@("dzs") => <x,trigraph> ;
x + digraph@("cs"|"dz"|"gy"|"ly"|"ny"|"sz"|"ty"|"zs")
=> <x,digraph> ;
-- ? pattern matches exactly 1 character
x + unigraph@? => <x,unigraph> } ;
tako = tako_ny.p1 ;
ny = tako_ny.p2 ;
nyo = ny + last tako ;
tak = init tako ;
taknyo = tak + nyo ;
nMajmo = mkNounHarm (getHarm taknyo) "k" taknyo ;
nMajom = mkNoun majom ; nMajom = mkNoun majom ;
in {s = \\n,c => case <n,c> of { in {s = \\n,c => case <n,c> of {
-- All plural forms and Sg Acc and Sg Sup use the "majmo" stem -- All plural forms and Sg Acc and Sg Sup use the "majmo" stem