GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-13 06:49:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Predic works

Browse Source
This commit is contained in:
aarne
2005-09-02 13:49:02 +00:00
parent 1cce995197
commit a7732f2475
3 changed files with 9 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/resource/abstract/Predic.gf
View File

@@ -39,11 +39,11 @@ abstract Predic = Categories ** {
-}
UseV1 : V -> Verb Vt_ ;
UseV2 : V2 -> Verb (Vt CtN) ;
UseVS : VS -> Verb (Vt CtS) ;
UseV3 : V3 -> Verb (VtN CtN) ;
UseV2S : V2S -> Verb (VtN CtS) ;
UseV2Q : V2Q -> Verb (VtN CtQ) ;
VeV1 : V -> Verb Vt_ ;
VeV2 : V2 -> Verb (Vt CtN) ;
VeVS : VS -> Verb (Vt CtS) ;
VeV3 : V3 -> Verb (VtN CtN) ;
VeV2S : V2S -> Verb (VtN CtS) ;
VeV2Q : V2Q -> Verb (VtN CtQ) ;
---- etc
}

18
lib/resource/english/ClauseEng.gf
View File

@@ -2,7 +2,7 @@
--# -opt
concrete ClauseEng of Clause = CategoriesEng **
---- ClausePredI with (Predic = PredicEng) ;
---- ClausePredI with (Predic = PredicEng) ; {-
open Prelude, SyntaxEng in {
@@ -98,19 +98,3 @@ concrete ClauseEng of Clause = CategoriesEng **
IPredProgVP vp = predBeGroupI (vp.s ! VIPresPart) ;
}
{-
-- Use VPs
PredVP = predVerbGroupClause ;
IntVP = intVerbPhrase ;
RelVP = relVerbPhrase ;
PosVP tp = predVerbGroup True tp.a ;
NegVP tp = predVerbGroup False tp.a ;
AdvVP = adVerbPhrase ;
SubjVP = subjunctVerbPhrase ;
-}

4
lib/resource/english/PredicEng.gf
View File

@@ -53,8 +53,8 @@ concrete PredicEng of Predic = CategoriesEng **
cprep2 verb.c (compl.s2 ! a)
) ;
UseV1 v = v ** {isAux = False ; c = CVt_} ;
UseV2 v = v ** {isAux = False ; c = CVt (CCtN CP_)} ; ---- other preps
VeV1 v = v ** {isAux = False ; c = CVt_} ;
VeV2 v = v ** {isAux = False ; c = CVt (CCtN CP_)} ; ---- other preps
{-
Walk = {s = "walks" ; c = VC_} ;