added wiki grammars

2008-03-04 11:56:12 +00:00
parent e434f57eff
commit 9dcad11f09
39 changed files with 4484 additions and 0 deletions
--- a/examples/wiki/LexRestaurantFin.gf
+++ b/examples/wiki/LexRestaurantFin.gf
@@ -0,0 +1,70 @@
+
+instance LexRestaurantFin of LexRestaurant = open SyntaxFin,GrammarFin,ParadigmsFin in {
+
+	oper
+		restaurant_N		= mkN "ravintola" ;
+		food_N				= mkN "ruoka" ;
+		staff_N				= mkN "henkilökunta" ;
+		wine_N				= mkN "viini" ;
+		pizza_N				= mkN "pizza" ;
+		cheese_N			= mkN "juusto" ;
+		fish_N				= mkN "kala" ;
+		dish_N				= mkN "ruokalaji" ;
+		drink_N				= mkN "juoma" ;
+		dessert_N			= mkN "jälkiruoka" ;
+
+		recommend_V2		= mkV2 (mkV "suositella") ;
+
+		chinese_A			= mkA "kiinalainen" ;
+		french_A			= mkA "ranskalainen" ;
+		italian_A			= mkA "italialainen" ;
+		japanese_A			= mkA "japanilainen" ;
+		mexican_A			= mkA "meksikolainen" ;
+		thai_A				= mkA "thaimaalainen" ;
+		expensive_A			= mkA "kallis" ;
+		cheap_A				= mkA "halpa" ;
+		nice_A				= mkA "mukava" ;
+		clean_A				= mkA "siisti" ;
+		dirty_A				= mkA "likainen" ;
+		fresh_A				= mkA "raikas" ;
+		delicious_A			= mkA "herkullinen" ;
+		fatty_A				= mkA "rasvainen" ;
+		tasteless_A			= mkA "mauton";
+		authentic_A			= mkA "autenttinen" ;
+		efficient_A			= mkA "tehokas" ;
+		courteous_A			= mkA "kohtelias" ;
+		helpful_A			= mkA "avulias" ;
+		friendly_A			= mkA "ystävällinen" ;
+		personal_A			= mkA "persoonallinen" ;
+		warm_A				= mkA "lämmin" ;
+		prompt_A			= mkA "nopea" ;
+		attentive_A			= mkA "valpas" ;
+		inefficient_A		= mkA "tehoton" ;
+		rude_A				= mkA "tyly" ;
+		impersonal_A		= mkA "persoonaton" ;
+		slow_A				= mkA "hidas" ;
+		unattentive_A		= mkA "unelias" ;
+		good_A				= mkA "hyvä" ;
+		great_A				= mkA "upea" ;
+		excellent_A			= mkA "erinomainen" ;
+		bad_A				= mkA "huono" ;
+		awful_A				= mkA "kamala" ;
+		horrible_A			= mkA "kauhea" ;
+		disgusting_A		= mkA "vastenmielinen" ;
+		boring_A			= mkA "tylsä" ;
+		diverse_A			= mkA "erilainen" ;
+
+		noAdv_AdV			= mkAdV "" ;
+		strongly_AdV		= mkAdV "vahvasti" ;
+		completely_AdV		= mkAdV "täysin";
+		certainly_AdV		= mkAdV "varmasti" ;
+		honestly_AdV		= mkAdV "vilpittömästi" ;
+		really_AdV			= mkAdV "todella" ;
+		reluctantly_AdV		= mkAdV "vastahakoisesti" ;
+		hardly_AdV			= mkAdV "tuskin" ;
+
+--		but_Conj			= ss "vaan" ** {n = Pl} ;
+
+oper mkAdV : Str -> AdV = \s -> {s = s ; lock_AdV = <>} ;
+
+}