diff options
Diffstat (limited to 'old-examples/restaurant/RestaurantI.gf')
| -rw-r--r-- | old-examples/restaurant/RestaurantI.gf | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/old-examples/restaurant/RestaurantI.gf b/old-examples/restaurant/RestaurantI.gf new file mode 100644 index 000000000..c84a738ce --- /dev/null +++ b/old-examples/restaurant/RestaurantI.gf @@ -0,0 +1,21 @@ +incomplete concrete RestaurantI of Restaurant = open Syntax, LexRestaurant in { + +lincat + Descr = Phr ; + Name = NP ; + Nationality = A ; + PriceLevel = A ; + +lin + MkDescr name price nat = + mkPhr (mkCl name (mkNP indefSgDet (mkCN price (mkCN nat (mkCN restaurant_N))))) ; + + Cheap = cheap_A ; + Italian = italian_A ; + Thai = thai_A ; + Swedish = swedish_A ; + French = french_A ; + Konkanok = mkNP konkanok_PN ; + + +} |