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

(Hun) Add number as a parameter to APs complement

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-26 14:15:31 +02:00
parent d7e10e843b
commit b723ae1a75
6 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/ConjunctionHun.gf
+4 -4
View File
@@ -25,13 +25,13 @@ lincat
lin
BaseAP x y =
-- Don't try to have discontinuous comparative forms
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} ;
let xCont : AP = x ** {s = \\n,c => x.s ! n ! c ++ x.compl ! n} ;
yCont : AP = y ** {s = \\n,c => y.s ! n ! c ++ y.compl ! n} ;
in twoTable2 Number Case xCont yCont ;
ConsAP a as =
let aCont : AP = a ** {s = \\n,c => a.s ! n ! c ++ a.compar} ;
let aCont : AP = a ** {s = \\n,c => a.s ! n ! c ++ a.compl ! n} ;
in consrTable2 Number Case comma aCont as ;
ConjAP co as = conjunctDistrTable2 Number Case co as ** {compar = []} ;
ConjAP co as = conjunctDistrTable2 Number Case co as ** {compl = \\_ => []} ;
-- Noun phrases
lincat