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

(Hun) Make comparative discontinuous

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-17 14:45:44 +02:00
parent 738dd44ec8
commit cc85e4aaeb
4 changed files with 36 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/hungarian/ConjunctionHun.gf
View File

@@ -40,9 +40,13 @@ lincat
[AP] = {s1,s2 : Number => Str} ;
lin
BaseAP = twoTable Number ;
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 ;
ConsAP = consrTable Number comma ;
ConjAP = conjunctDistrTable Number ;
ConjAP co as = conjunctDistrTable Number co as ** {compar = []} ;
-- Noun phrases
lincat