mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-07 18:22:50 -06:00
Founding the newly structured GF2.0 cvs archive.
This commit is contained in:
24
grammars/resource/german/RestaurantDeu.gf
Normal file
24
grammars/resource/german/RestaurantDeu.gf
Normal file
@@ -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"] ;
|
||||
} ;
|
||||
Reference in New Issue
Block a user