1
0
forked from GitHub/gf-core

resource application example in tutorial/syntax

This commit is contained in:
aarne
2007-10-04 13:43:29 +00:00
parent 61dfd0326c
commit afbab92605
4 changed files with 53 additions and 0 deletions

View File

@@ -0,0 +1,5 @@
--# -path=.:../foods:prelude
concrete FoodsEng of Foods = FoodsI with
(Syntax = SyntaxEng),
(Test = TestEng) ;

View File

@@ -0,0 +1,26 @@
incomplete concrete FoodsI of Foods = open Syntax, Test in {
lincat
Phrase = S ;
Item = NP ;
Kind = CN ;
Quality = AP ;
lin
Is = mkS ;
This = mkNP this_Det ;
That = mkNP that_Det ;
These = mkNP these_Det ;
Those = mkNP those_Det ;
QKind = mkCN ;
Very = mkAP very_AdA ;
Wine = mkCN wine_N ;
Pizza = mkCN pizza_N ;
Cheese = mkCN cheese_N ;
Fish = mkCN fish_N ;
Fresh = mkAP fresh_A ;
Warm = mkAP warm_A ;
Italian = mkAP italian_A ;
Expensive = mkAP expensive_A ;
Delicious = mkAP delicious_A ;
Boring = mkAP boring_A ;
}

View File

@@ -0,0 +1,5 @@
--# -path=.:../foods:prelude
concrete FoodsIta of Foods = FoodsI with
(Syntax = SyntaxIta),
(Test = TestIta) ;

View File

@@ -23,4 +23,21 @@ oper
= \np,ap -> PredVP PPos np (ComplAP ap) ;
} ;
mkNP : Det -> CN -> NP
= DetCN ;
mkCN = overload {
mkCN : AP -> CN -> CN
= ModCN ;
mkCN : N -> CN
= UseN ;
} ;
mkAP = overload {
mkAP : AdA -> AP -> AP
= AdAP ;
mkAP : A -> AP
= UseA ;
} ;
}