mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 21:19:31 -06:00
71 lines
2.1 KiB
Plaintext
71 lines
2.1 KiB
Plaintext
|
|
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 = <>} ;
|
|
|
|
}
|