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/NounHun.gf
+13 -5
View File
@@ -1,4 +1,5 @@
concrete NounHun of Noun = CatHun ** open ResHun, Prelude, Coordination in {
concrete NounHun of Noun = CatHun ** open
ResHun, Prelude, Coordination in {
flags optimize=all_subs ;
@@ -40,7 +41,13 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude, Coordination in {
-- : NP -> Adv -> NP ; -- Paris today
AdvNP np adv = np ** {
s = \\c => np.s ! c ++ adv.s ;
s = \\c => case adv.isPre of {
True => adv.s ++ np.s ! c ;
False => np.s ! c ++ adv.s } ;
-- compl = \\nc => case adv.isPre of {
-- True => np.compl ! nc ;
-- False => np.compl ! nc ++ adv.s } ;
} ;
-- : NP -> Adv -> NP ; -- boys, such as ..
ExtAdvNP np adv = np ** {
@@ -202,9 +209,10 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude, Coordination in {
} ;
-- : CN -> Adv -> CN ;
AdvCN cn adv = cn ** {
compl = \\n,c => cn.compl ! n ! c ++ adv.s
} ;
AdvCN cn adv = case adv.isPre of {
True => AdjCN (invarAP adv.s) cn ;
False => cn ** {compl = \\n,c => cn.compl ! n ! c ++ adv.s}
} ;
-- Nouns can also be modified by embedded sentences and questions.
-- For some nouns this makes little sense, but we leave this for applications