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

Added mkCN variants that take A.

Browse Source
This commit is contained in:
bringert
2007-04-21 10:44:02 +00:00
parent 9d092898cd
commit c172625af1
1 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -180,10 +180,12 @@ incomplete resource Constructors = open Grammar in {
mkCN : N3 -> NP -> NP -> CN ; -- flight from Moscow (to Paris)
mkCN : N2 -> CN ; -- son
mkCN : N3 -> CN ; -- flight
mkCN : AP -> CN -> CN ; -- big house
mkCN : AP -> N -> CN ; -- big house
mkCN : CN -> AP -> CN ; -- big house
mkCN : N -> AP -> CN ; -- big house
mkCN : AP -> CN -> CN ; -- nice and big blue house
mkCN : AP -> N -> CN ; -- nice and big house
mkCN : CN -> AP -> CN ; -- nice and big blue house
mkCN : N -> AP -> CN ; -- nice and big house
mkCN : A -> CN -> CN ; -- big blue house
mkCN : A -> N -> CN ; -- big house
mkCN : CN -> RS -> CN ; -- house that John owns
mkCN : N -> RS -> CN ; -- house that John owns
mkCN : CN -> Adv -> CN ; -- house on the hill
@@ -444,14 +446,18 @@ incomplete resource Constructors = open Grammar in {
= UseN2 ;
mkCN : N3 -> CN -- flight
= UseN3 ;
mkCN : AP -> CN -> CN -- big house
mkCN : AP -> CN -> CN -- nice and big blue house
= AdjCN ;
mkCN : AP -> N -> CN -- big house
mkCN : AP -> N -> CN -- nice and big house
= \x,y -> AdjCN x (UseN y) ;
mkCN : CN -> AP -> CN -- big house
mkCN : CN -> AP -> CN -- nice and big blue house
= \x,y -> AdjCN y x ;
mkCN : N -> AP -> CN -- big house
mkCN : N -> AP -> CN -- nice and big house
= \x,y -> AdjCN y (UseN x) ;
mkCN : A -> CN -> CN -- big blue house
= \x,y -> AdjCN (PositA x) y;
mkCN : A -> N -> CN -- big house
= \x,y -> AdjCN (PositA x) (UseN y);
mkCN : CN -> RS -> CN -- house that John owns
= RelCN ;
mkCN : N -> RS -> CN -- house that John owns