1 files changed, 24 insertions, 0 deletions
diff --git a/grammars/resource/german/RestaurantDeu.gf b/grammars/resource/german/RestaurantDeu.gf
new file mode 100644
index 000000000..3a6d6f8d6
--- /dev/null
+++ b/grammars/resource/german/RestaurantDeu.gf
@@ -0,0 +1,24 @@
+concrete RestaurantDeu of Restaurant = 
+  DatabaseDeu ** open Prelude,Paradigms,Deutsch,DatabaseRes in {
+
+lin 
+  Restaurant = UseN (nAuto "Restaurant") ;
+  Bar = UseN (nAuto "Bar") ; --- ??
+  French = apReg "Französisch" ;
+  Italian = apReg "Italienisch" ;
+  Indian = apReg "Indisch" ;
+  Japanese = apReg "Japanisch" ;
+
+  address = funVon (nFrau "Adresse") ;
+  phone = funVon (nFrau "Rufnummer") ; ----
+  priceLevel = funVon (nFrau "Preisstufe") ;
+
+  Cheap = aReg "billig" ;
+  Expensive = aDeg3 "teuer" "teurer" "teurest" ;
+
+  WhoRecommend rest = mkSentSame (ss2 ["wer empfiehlt"] (rest.s ! accusative)) ;
+  WhoHellRecommend rest = 
+    mkSentSame (ss2 ["wer zum Teufel empfiehlt"] (rest.s ! accusative)) ;
+
+  LucasCarton = mkPN ["Lucas Carton"] ["Lucas Cartons"] ;
+} ;