blob: 245583f4d2f4e2404ae609a7984a2055685783aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
-- (c) 2009 Aarne Ranta under LGPL
concrete WordsFin of Words = SentencesFin **
open SyntaxFin, ParadigmsFin, DiffPhrasebookFin in {
lin
Wine = mkCN (mkN "viini") ;
Beer = mkCN (mkN "olut" "oluita") ;
Water = mkCN (mkN "vesi" "veden" "vesiä") ;
Coffee = mkCN (mkN "kahvi") ;
Tea = mkCN (mkN "tee") ;
Pizza = mkCN (mkN "pizza") ;
Cheese = mkCN (mkN "juusto") ;
Fish = mkCN (mkN "kala") ;
Fresh = mkAP (mkA "tuore") ;
Warm = mkAP (mkA
(mkN "lämmin" "lämpimän" "lämmintä" "lämpimänä" "lämpimään"
"lämpiminä" "lämpimiä" "lämpimien" "lämpimissä" "lämpimiin"
)
"lämpimämpi" "lämpimin") ;
Italian = mkAP (mkA "italialainen") ;
Expensive = mkAP (mkA "kallis") ;
Delicious = mkAP (mkA "herkullinen") ;
Boring = mkAP (mkA "tylsä") ;
Restaurant = mkCN (mkN "ravintola") ;
Bar = mkCN (mkN "baari") ;
Toilet = mkCN (mkN "vessa") ;
Euro = mkCN (mkN "euro") ;
Dollar = mkCN (mkN "dollari") ;
Lei = mkCN (mkN "lei") ;
AWant p obj = mkCl p want_V2 obj ;
ALike p item = mkCl p like_V2 item ;
AHave p kind = mkCl p have_V2 (mkNP kind) ;
ASpeak p lang = mkCl p (mkV2 (mkV "puhua") partitive) lang ;
ALove p q = mkCl p (mkV2 (mkV "rakastaa") partitive) q ;
English = mkNP (mkPN "englanti") ;
Finnish = mkNP (mkPN (mkN "suomi" "suomia")) ;
French = mkNP (mkPN "ranska") ;
Romanian = mkNP (mkPN "romania") ;
Swedish = mkNP (mkPN "ruotsi") ;
AHungry p = mkCl p have_V2 (mkNP (mkN "nälkä")) ;
AThirsty p = mkCl p have_V2 (mkNP (mkN "jano")) ;
ATired p = mkCl p (caseV partitive (mkV "väsyttää")) ;
AScared p = mkCl p (caseV partitive (mkV "pelottaa")) ;
AUnderstand p = mkCl p (mkV "ymmärtää") ;
}
|
