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

VPS and conjunction in Romance, by means of repeated unstressed pronouns (in Fre) or prodrop (other languages)

Browse Source
This commit is contained in:
aarne
2012-05-27 20:50:59 +00:00
parent ae9229fdc9
commit 68c8b7c43a
8 changed files with 51 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/romance/ExtraRomance.gf
View File

@@ -37,4 +37,33 @@ incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
PrepCN prep cn = {s = prep.s ++ prepCase prep.c ++ cn.s ! Sg} ;
lincat
VPS = {s : Mood => Agr => Bool => Str} ;
[VPS] = {s1,s2 : Mood => Agr => Bool => Str} ;
lin
BaseVPS x y = {
s1 = \\m,a,b => x.s ! m ! a ! b ;
s2 = \\m,a,b => subjPron a ++ y.s ! m ! a ! b
} ;
ConsVPS x y = {
s1 = \\m,a,b => x.s ! m ! a ! b ;
s2 = \\m,a,b => subjPron a ++ y.s1 ! m ! a ! b ++ y.s2 ! m ! a ! b
} ;
PredVPS np vpi = {
s = \\m => (np.s ! Nom).comp ++ vpi.s ! m ! np.a ! np.isNeg
} ;
MkVPS tm p vp = {
s = \\m,agr,isNeg =>
tm.s ++ p.s ++
(mkClausePol (orB isNeg vp.isNeg) [] False False agr vp).s
! DDir ! tm.t ! tm.a ! p.p ! m
} ;
ConjVPS = conjunctDistrTable3 Mood Agr Bool ;
}