GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 02:12:50 -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_ ; VeV1 : V -> Verb Vt_ ;
UseV2 : V2 -> Verb (Vt CtN) ; VeV2 : V2 -> Verb (Vt CtN) ;
UseVS : VS -> Verb (Vt CtS) ; VeVS : VS -> Verb (Vt CtS) ;
UseV3 : V3 -> Verb (VtN CtN) ; VeV3 : V3 -> Verb (VtN CtN) ;
UseV2S : V2S -> Verb (VtN CtS) ; VeV2S : V2S -> Verb (VtN CtS) ;
UseV2Q : V2Q -> Verb (VtN CtQ) ; VeV2Q : V2Q -> Verb (VtN CtQ) ;
---- etc ---- etc
} }

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

@@ -2,7 +2,7 @@
--# -opt --# -opt
concrete ClauseEng of Clause = CategoriesEng ** concrete ClauseEng of Clause = CategoriesEng **
---- ClausePredI with (Predic = PredicEng) ; ---- ClausePredI with (Predic = PredicEng) ; {-
open Prelude, SyntaxEng in { open Prelude, SyntaxEng in {
@@ -98,19 +98,3 @@ concrete ClauseEng of Clause = CategoriesEng **
IPredProgVP vp = predBeGroupI (vp.s ! VIPresPart) ; 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) cprep2 verb.c (compl.s2 ! a)
) ; ) ;
UseV1 v = v ** {isAux = False ; c = CVt_} ; VeV1 v = v ** {isAux = False ; c = CVt_} ;
UseV2 v = v ** {isAux = False ; c = CVt (CCtN CP_)} ; ---- other preps VeV2 v = v ** {isAux = False ; c = CVt (CCtN CP_)} ; ---- other preps
{- {-
Walk = {s = "walks" ; c = VC_} ; Walk = {s = "walks" ; c = VC_} ;