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 versions of mkCn that take N instead of CN arguments.

Browse Source
This commit is contained in:
bringert
2007-04-19 21:07:37 +00:00
parent 42bf389e1b
commit 90393455a7
1 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -157,11 +157,17 @@ incomplete resource Constructors = open Grammar in {
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 : CN -> RS -> CN ; -- house that John owns
mkCN : N -> RS -> CN ; -- house that John owns
mkCN : CN -> Adv -> CN ; -- house on the hill
mkCN : N -> Adv -> CN ; -- house on the hill
mkCN : CN -> SC -> CN ; -- fact that John smokes, question if he does
mkCN : CN -> NP -> CN -- number x, numbers x and y
mkCN : N -> SC -> CN ; -- fact that John smokes, question if he does
mkCN : CN -> NP -> CN ; -- number x, numbers x and y
mkCN : N -> NP -> CN -- number x, numbers x and y
} ;
--2 Adjectival phrases
@@ -397,16 +403,28 @@ incomplete resource Constructors = open Grammar in {
= UseN3 ;
mkCN : AP -> CN -> CN -- big house
= AdjCN ;
mkCN : AP -> N -> CN -- big house
= \x,y -> AdjCN x (UseN y) ;
mkCN : CN -> AP -> CN -- big house
= \x,y -> AdjCN y x ;
mkCN : N -> AP -> CN -- big house
= \x,y -> AdjCN y (UseN x) ;
mkCN : CN -> RS -> CN -- house that John owns
= RelCN ;
mkCN : N -> RS -> CN -- house that John owns
= \x,y -> RelCN (UseN x) y ;
mkCN : CN -> Adv -> CN -- house on the hill
= AdvCN ;
mkCN : N -> Adv -> CN -- house on the hill
= \x,y -> AdvCN (UseN x) y ;
mkCN : CN -> SC -> CN -- fact that John smokes, question if he does
= SentCN ;
mkCN : N -> SC -> CN -- fact that John smokes, question if he does
= \x,y -> SentCN (UseN x) y ;
mkCN : CN -> NP -> CN -- number x, numbers x and y
= ApposCN
= ApposCN ;
mkCN : N -> NP -> CN -- number x, numbers x and y
= \x,y -> ApposCN (UseN x) y
} ;