forked from GitHub/gf-rgl
(Ara) WIP: noun compounds
This commit is contained in:
@@ -193,5 +193,15 @@ lin
|
|||||||
-- AdvCN cn ad = {s = \\n,c => cn.s ! n ! c ++ ad.s} ;
|
-- AdvCN cn ad = {s = \\n,c => cn.s ! n ! c ++ ad.s} ;
|
||||||
--
|
--
|
||||||
-- SentCN cn sc = {s = \\n,c => cn.s ! n ! c ++ sc.s} ;
|
-- SentCN cn sc = {s = \\n,c => cn.s ! n ! c ++ sc.s} ;
|
||||||
ApposCN cn np = cn ** { np = np.s } ;
|
ApposCN cn np = cn ** { np = \\c => cn.np ! c ++ np.s ! c } ;
|
||||||
|
|
||||||
|
-- : CN -> NP -> CN ; -- house of Paris, house of mine
|
||||||
|
PossNP cn np = cn ** {
|
||||||
|
s = \\n,_d,c => cn.s ! n ! Const ! c ;
|
||||||
|
np = \\c => cn.np ! c ++ np.s ! Gen
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
-- : CN -> NP -> CN ; -- glass of wine
|
||||||
|
--PartNP
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user