msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Founding the newly structured GF2.0 cvs archive.

Browse Source
This commit is contained in:
aarne
2003-09-22 13:16:55 +00:00
commit b1402e8bd6
162 changed files with 25569 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
grammars/resource/german/RestaurantDeu.gf Normal file
View 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"] ;
} ;