mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 17:42:51 -06:00
Predic works
This commit is contained in:
@@ -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 ;
|
||||
-}
|
||||
|
||||
@@ -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_} ;
|
||||
|
||||
Reference in New Issue
Block a user