mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -06:00
Added mkCl : NP -> V -> Cl and mkCl : NP -> V2 -> NP -> Cl.
This commit is contained in:
@@ -85,7 +85,9 @@ incomplete resource Constructors = open Grammar in {
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
mkCl : overload {
|
mkCl : overload {
|
||||||
mkCl : NP -> VP -> Cl ; -- John walks
|
mkCl : NP -> VP -> Cl ; -- John wants to walk
|
||||||
|
mkCl : NP -> V -> Cl ; -- John walks
|
||||||
|
mkCl : NP -> V2 -> NP -> Cl ; -- John uses it
|
||||||
mkCl : VP -> Cl ; -- it rains
|
mkCl : VP -> Cl ; -- it rains
|
||||||
mkCl : NP -> RS -> Cl ; -- it is you who did it
|
mkCl : NP -> RS -> Cl ; -- it is you who did it
|
||||||
mkCl : Adv -> S -> Cl ; -- it is yesterday she arrived
|
mkCl : Adv -> S -> Cl ; -- it is yesterday she arrived
|
||||||
@@ -339,8 +341,12 @@ incomplete resource Constructors = open Grammar in {
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
mkCl = overload {
|
mkCl = overload {
|
||||||
mkCl : NP -> VP -> Cl -- John walks
|
mkCl : NP -> VP -> Cl -- John wants to walk walks
|
||||||
= PredVP ;
|
= PredVP ;
|
||||||
|
mkCl : NP -> V -> Cl -- John walks
|
||||||
|
= \s,v -> PredVP s (UseV v);
|
||||||
|
mkCl : NP -> V2 -> NP -> Cl -- John uses it
|
||||||
|
= \s,v,o -> PredVP s (ComplV2 v o);
|
||||||
mkCl : VP -> Cl -- it rains
|
mkCl : VP -> Cl -- it rains
|
||||||
= ImpersCl ;
|
= ImpersCl ;
|
||||||
mkCl : NP -> RS -> Cl -- it is you who did it
|
mkCl : NP -> RS -> Cl -- it is you who did it
|
||||||
|
|||||||
Reference in New Issue
Block a user