GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-26 03:26:27 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Add 2-argument smart paradigm for A

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-26 20:16:45 +02:00
parent 22cadd2ac6
commit bbcde26d72
2 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/ResHun.gf
+10 -8
View File
@@ -320,14 +320,16 @@ oper
c2 : Adposition ;
} ;
mkAdj : Str -> Adjective = \sgnom -> {
s = \\d,nc =>
let adj = case d of {
Compar => comparAdj sgnom ;
Superl => "leg" + comparAdj sgnom ;
_ => sgnom } ;
in (mkNoun adj).s ! nc ;
h = (mkNoun sgnom).h ;
mkAdj : Str -> Adjective = \sgnom -> mkAdj2 sgnom (mkNoun sgnom) ;
mkAdj2 : Str -> Noun -> Adjective = \sgnom,adjAsNoun -> adjAsNoun ** {
s = \\d =>
let adj : Noun = case d of {
Compar => mkNoun (comparAdj sgnom) ;
Superl => mkNoun ("leg" + comparAdj sgnom) ;
_ => adjAsNoun } ;
in adj.s ;
} ;
invarAP : Str -> AdjPhrase = \s -> emptyAP ** {s = \\_,_ => s} ;