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 a few small bugs with discontinous APs

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-17 19:35:06 +02:00
parent f3726e9c0e
commit 70326b853a
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/hungarian/ConjunctionHun.gf
View File

@@ -20,7 +20,9 @@ lin
let xCont : AP = x ** {s = \\n => x.s ! n ++ x.compar} ; let xCont : AP = x ** {s = \\n => x.s ! n ++ x.compar} ;
yCont : AP = y ** {s = \\n => y.s ! n ++ y.compar} ; yCont : AP = y ** {s = \\n => y.s ! n ++ y.compar} ;
in twoTable Number xCont yCont ; in twoTable Number xCont yCont ;
ConsAP = consrTable Number comma ; 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 = []} ; ConjAP co as = conjunctDistrTable Number co as ** {compar = []} ;
-- Noun phrases -- Noun phrases

2
src/hungarian/NounHun.gf
View File

@@ -169,7 +169,7 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude, Coordination in {
-- : AP -> CN -> CN -- : AP -> CN -> CN
AdjCN ap cn = cn ** { AdjCN ap cn = cn ** {
s = \\n,c => ap.s ! Sg ++ cn.s ! n ! c s = \\n,c => ap.s ! Sg ++ cn.s ! n ! c ++ ap.compar
} ; } ;
-- : CN -> RS -> CN ; -- : CN -> RS -> CN ;