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

ExtendFre with some definitions

Browse Source
This commit is contained in:
Aarne Ranta
2017-11-08 10:36:49 +01:00
parent 161e981a29
commit 72b257b9b7
3 changed files with 54 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/romance/ResRomance.gf
View File

@@ -178,6 +178,16 @@ oper
mkVPSlash : Compl -> VP -> VP ** {c2 : Compl} = \c,vp -> vp ** {c2 = c} ;
Clause : Type = {s : Direct => RTense => Anteriority => RPolarity => Mood => Str} ;
-- for pos/neg variation other than negation word, e.g. "il y a du vin" / "il n'y a pas de vin"
posNegClause : Clause -> Clause -> RPolarity -> Clause = \pos,neg,pol -> {
s = \\d,t,a,b,m => case b of {
RPos => pos.s ! d ! t ! a ! b ! m ;
_ => neg.s ! d ! t ! a ! pol ! m
}
} ;
mkClause : Str -> Bool -> Bool -> Agr -> VP ->
{s : Direct => RTense => Anteriority => RPolarity => Mood => Str} =
mkClausePol False ;