mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -06:00
change Food to Words in Phrasebook, since it's unpractical to have many small modules; added syntactic forms and words
This commit is contained in:
32
examples/phrasebook/WordsFin.gf
Normal file
32
examples/phrasebook/WordsFin.gf
Normal file
@@ -0,0 +1,32 @@
|
||||
-- (c) 2009 Aarne Ranta under LGPL
|
||||
|
||||
concrete WordsFin of Words = SentencesFin **
|
||||
open SyntaxFin, ParadigmsFin in {
|
||||
lin
|
||||
Wine = mkCN (mkN "viini") ;
|
||||
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") ;
|
||||
|
||||
-- oper ---- optimization lasts forever
|
||||
-- mkCNN : Str -> CN = \s -> mkCN (mkN s) ;
|
||||
-- mkAPA : Str -> AP = \s -> mkAP (mkA s) ;
|
||||
}
|
||||
Reference in New Issue
Block a user