grammars/resource/english/RestaurantEng.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

--# -path=.:../abstract:../../prelude

concrete RestaurantEng of Restaurant = 
  DatabaseEng ** open Prelude,Paradigms,DatabaseEngRes in {

lin 
  Restaurant = cnNonhuman "restaurant" ;
  Bar = cnNonhuman "bar" ;
  French = apReg "French" ;
  Italian = apReg "Italian" ;
  Indian = apReg "Indian" ;
  Japanese = apReg "Japanese" ;

  address = funNonhuman "address" ;
  phone = funNonhuman ["number"] ;  --- phone
  priceLevel = funNonhuman ["level"] ; --- price

  Cheap = aReg "cheap" ;
  Expensive = aRidiculous "expensive" ;

  WhoRecommend rest = mkSentSame (ss (["who recommended"] ++ rest.s ! nominative)) ;
  WhoHellRecommend rest = 
    mkSentSame (ss (["who the hell recommended"] ++ rest.s ! nominative)) ;

  LucasCarton = pnReg ["Lucas Carton"] ;

} ;