GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-26 19:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

discourse devices for English

Browse Source
This commit is contained in:
aarne
2011-02-09 22:57:27 +00:00
parent 78741bd973
commit 3b713801ad
5 changed files with 26 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/abstract/Verb.gf
View File

@@ -56,6 +56,10 @@ abstract Verb = Cat ** {
AdvVP : VP -> Adv -> VP ; -- sleep here AdvVP : VP -> Adv -> VP ; -- sleep here
AdVVP : AdV -> VP -> VP ; -- always sleep AdVVP : AdV -> VP -> VP ; -- always sleep
AdvVPSlash : VPSlash -> Adv -> VPSlash ; -- use (it) here
AdVVPSlash : AdV -> VPSlash -> VPSlash ; -- always use (it)
-- *Agents of passives* are constructed as adverbs with the -- *Agents of passives* are constructed as adverbs with the
-- preposition [Structural Structural.html]$.8agent_Prep$. -- preposition [Structural Structural.html]$.8agent_Prep$.

2
lib/src/api/Constructors.gf
View File

@@ -1366,6 +1366,8 @@ incomplete resource Constructors = open Grammar in { --%
= \a,p -> TUseRCl TPres a p ; --% = \a,p -> TUseRCl TPres a p ; --%
mkRS : (Tense) -> (Ant) -> (Pol) -> RCl -> RS -- that wouldn't have slept mkRS : (Tense) -> (Ant) -> (Pol) -> RCl -> RS -- that wouldn't have slept
= TUseRCl ; --% = TUseRCl ; --%
mkRS : Temp -> (Pol) -> RCl -> RS -- that wouldn't have slept
= UseRCl ; --%
mkRS : Conj -> RS -> RS -> RS -- who sleeps and whose mother runsx mkRS : Conj -> RS -> RS -> RS -- who sleeps and whose mother runsx
= \c,x,y -> ConjRS c (BaseRS x y) ; --% = \c,x,y -> ConjRS c (BaseRS x y) ; --%
mkRS : Conj -> ListRS -> RS -- who sleeps, whom I see and who sleeps --: mkRS : Conj -> ListRS -> RS -- who sleeps, whom I see and who sleeps --:

14
lib/src/english/ExtraEng.gf
View File

@@ -108,4 +108,18 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
EmbedPresPart vp = {s = infVP VVPresPart vp (agrP3 Sg)} ; --- agr EmbedPresPart vp = {s = infVP VVPresPart vp (agrP3 Sg)} ; --- agr
UttVPShort vp = {s = infVP VVAux vp (agrP3 Sg)} ; UttVPShort vp = {s = infVP VVAux vp (agrP3 Sg)} ;
do_VV = {
s = table {
VVF VInf => ["do"] ;
VVF VPres => "does" ;
VVF VPPart => ["done"] ; ----
VVF VPresPart => ["doing"] ;
VVF VPast => ["did"] ; --# notpresent
VVPastNeg => ["didn't"] ; --# notpresent
VVPresNeg => "doesn't"
} ;
typ = VVAux
} ;
} }

3
lib/src/english/ExtraEngAbs.gf
View File

@@ -21,4 +21,7 @@ abstract ExtraEngAbs = Extra - [ProDrop] ** {
UttVPShort : VP -> Utt ; UttVPShort : VP -> Utt ;
-- emphasizing "do", e.g. "John does walk"
do_VV : VV ;
} }

4
lib/src/english/VerbEng.gf
View File

@@ -34,9 +34,11 @@ concrete VerbEng of Verb = CatEng ** open ResEng in {
UseComp comp = insertObj comp.s (predAux auxBe) ; UseComp comp = insertObj comp.s (predAux auxBe) ;
AdvVP vp adv = insertObj (\\_ => adv.s) vp ; AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
AdVVP adv vp = insertAdV adv.s vp ; AdVVP adv vp = insertAdV adv.s vp ;
AdvVPSlash vp adv = insertObj (\\_ => adv.s) vp ** {c2 = vp.c2} ;
AdVVPSlash adv vp = insertAdV adv.s vp ** {c2 = vp.c2} ;
ReflVP v = insertObjPre (\\a => v.c2 ++ reflPron ! a) v ; ReflVP v = insertObjPre (\\a => v.c2 ++ reflPron ! a) v ;
PassV2 v = insertObj (\\_ => v.s ! VPPart) (predAux auxBe) ; PassV2 v = insertObj (\\_ => v.s ! VPPart) (predAux auxBe) ;