msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

a logic library; fix in make mathematical

Browse Source
This commit is contained in:
aarne
2006-11-26 17:14:20 +00:00
parent 4bde587ab4
commit a36758f56e
8 changed files with 145 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/resource-1.0/api/Combinators.gf
View File

@@ -20,7 +20,10 @@ incomplete resource Combinators = open Grammar in {
= \a,x,y -> PredVP (ConjNP and_Conj (BaseNP x y)) (UseComp (CompAP (PositA a))) ;
pred : N -> NP -> Cl
= \n,x -> PredVP x (UseComp (CompNP (DetCN (DetSg (SgQuant IndefArt) NoOrd) (UseN n)))) ;
pred : N2 -> NP -> NP -> Cl
pred : CN -> NP -> Cl
= \n,x -> PredVP x (UseComp (CompNP (DetCN (DetSg (SgQuant IndefArt) NoOrd) n))) ;
pred : NP -> NP -> Cl
= \n,x -> PredVP x (UseComp (CompNP n)) ; pred : N2 -> NP -> NP -> Cl
= \n,x,y -> PredVP x (UseComp (CompNP (DetCN (DetSg (SgQuant IndefArt) NoOrd) (ComplN2 n y)))) ;
pred : N -> NP -> NP -> Cl
= \n,x,y -> PredVP (ConjNP and_Conj (BaseNP x y)) (UseComp (CompNP (DetCN (DetPl (PlQuant IndefArt) NoNum NoOrd) (UseN n)))) ;
@@ -97,5 +100,9 @@ incomplete resource Combinators = open Grammar in {
} ;
-- This is not in ground API, because it would destroy parsing.
appendText : Text -> Text -> Text
= \x,y -> {s = x.s ++ y.s ; lock_Text = <>} ;
}

2
lib/resource-1.0/api/Constructors.gf
View File

@@ -38,7 +38,7 @@ incomplete resource Constructors = open Grammar in {
mkText : overload {
mkText : Text ; -- [empty text]
mkText : Phr -> Text -> Text; -- John walks. ...
mkText : Phr -> Text -> Text -- John walks. ...
} ;
mkPhr : overload {