msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Hun) Add possibility to prepose Advs

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-24 17:00:44 +02:00
parent 346360d54a
commit f24d9c2cad
8 changed files with 38 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/SymbolHun.gf
+3 -3
View File
@@ -24,16 +24,16 @@ oper
lin
-- : CN -> Int -> NP
CNIntNP cn i = NH.MassNP (cn ** {
s = \\n,c => cn.s ! n ! c ++ i.s}) ;
compl = \\n,c => cn.compl ! n ! c ++ i.s}) ;
-- : Det -> CN -> [Symb] -> NP ; -- (the) (2) numbers x and y
CNSymbNP det cn xs =
let cnSymb : CN = cn ** {s = \\n,c => cn.s ! n ! c ++ xs.s}
let cnSymb : CN = cn ** {compl = \\n,c => cn.compl ! n ! c ++ xs.s}
in NH.DetCN det cnSymb ;
-- : CN -> Card -> NP ; -- level five ; level 5
CNNumNP cn i = NH.MassNP (cn ** {
s = \\n,c => cn.s ! n ! c ++ i.s ! Indep}) ;
compl = \\n,c => cn.compl ! n ! c ++ i.s ! Indep}) ;
-- : Symb -> S ;
SymbS sy = sy ;