forked from GitHub/gf-core
resource using exx revised
This commit is contained in:
@@ -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 ;
|
||||
|
||||
@@ -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} ;
|
||||
|
||||
|
||||
@@ -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} ;
|
||||
|
||||
Reference in New Issue
Block a user