resource using exx revised

This commit is contained in:
aarne
2007-09-02 19:53:55 +00:00
parent 1d8281f3c5
commit 29b5463e7e
12 changed files with 129 additions and 5 deletions

View File

@@ -1,12 +1,12 @@
abstract Foods = {
flags startcat=Phr ;
flags startcat=Phrase ;
cat
Phr ; Item ; Kind ; Quality ;
Phrase ; Item ; Kind ; Quality ;
fun
Is : Item -> Quality -> Phr ;
Is : Item -> Quality -> Phrase ;
This, That, These, Those : Kind -> Item ;
QKind : Quality -> Kind -> Kind ;
Wine, Cheese, Fish, Pizza : Kind ;

View File

@@ -3,7 +3,7 @@
concrete FoodsEng of Foods = open Prelude in {
lincat
Phr, Quality = SS ;
Phrase, Quality = SS ;
Kind = {s : Number => Str} ;
Item = {s : Str ; n : Number} ;

View File

@@ -3,7 +3,7 @@
concrete FoodsIta of Foods = open Prelude in {
lincat
Phr = SS ;
Phrase = SS ;
Quality = {s : Gender => Number => Str} ;
Kind = {s : Number => Str ; g : Gender} ;
Item = {s : Str ; g : Gender ; n : Number} ;