fixes before beta3 release

This commit is contained in:
aarne
2009-04-02 09:35:48 +00:00
parent a94143ee92
commit 6bb85a8f41
10 changed files with 45 additions and 11 deletions

View File

@@ -0,0 +1,16 @@
abstract Foods = {
flags startcat=Phrase ;
cat
Phrase ; Item ; Kind ; Quality ;
fun
Is,Isnt : Item -> Quality -> Phrase ;
This, That, These, Those : Kind -> Item ;
QKind : Quality -> Kind -> Kind ;
Wine, Cheese, Fish, Pizza : Kind ;
Very : Quality -> Quality ;
Fresh, Warm, Italian, Expensive, Delicious, Boring : Quality ;
}

View File

@@ -1,4 +1,4 @@
--# -path=.:../foods:present:prelude
--# -path=.:present
incomplete concrete FoodsI of Foods = open Syntax, LexFoods in {
lincat
@@ -8,6 +8,7 @@ incomplete concrete FoodsI of Foods = open Syntax, LexFoods in {
Quality = AP ;
lin
Is item quality = mkUtt (mkCl item quality) ;
Isnt item quality = mkUtt (mkS negativePol (mkCl item quality)) ;
This kind = mkNP this_Quant kind ;
That kind = mkNP that_Quant kind ;
These kind = mkNP this_Quant plNum kind ;

View File

@@ -1,4 +1,4 @@
--# -path=.:../foods:present
--# -path=.:present
concrete FoodsSwe of Foods = FoodsI with
(Syntax = SyntaxSwe),