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 case to A and AP

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-26 13:30:00 +02:00
parent 5b8e2eeb23
commit d7e10e843b
8 changed files with 44 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/ConjunctionHun.gf
+7 -7
View File
@@ -20,18 +20,18 @@ lin
-- Adjectival phrases
lincat
[AP] = {s1,s2 : Number => Str} ;
[AP] = {s1,s2 : Number => Case => Str} ;
lin
BaseAP x y =
-- Don't try to have discontinuous comparative forms
let xCont : AP = x ** {s = \\n => x.s ! n ++ x.compar} ;
yCont : AP = y ** {s = \\n => y.s ! n ++ y.compar} ;
in twoTable Number xCont yCont ;
let xCont : AP = x ** {s = \\n,c => x.s ! n ! c ++ x.compar} ;
yCont : AP = y ** {s = \\n,c => y.s ! n ! c ++ y.compar} ;
in twoTable2 Number Case xCont yCont ;
ConsAP a as =
let aCont : AP = a ** {s = \\n => a.s ! n ++ a.compar} ;
in consrTable Number comma aCont as ;
ConjAP co as = conjunctDistrTable Number co as ** {compar = []} ;
let aCont : AP = a ** {s = \\n,c => a.s ! n ! c ++ a.compar} ;
in consrTable2 Number Case comma aCont as ;
ConjAP co as = conjunctDistrTable2 Number Case co as ** {compar = []} ;
-- Noun phrases
lincat