mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 23:09:31 -06:00
25 lines
770 B
Plaintext
25 lines
770 B
Plaintext
-- (c) 2009 Aarne Ranta under LGPL
|
|
|
|
concrete FoodFin of Food = 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ä") ;
|
|
|
|
-- oper ---- optimization lasts forever
|
|
-- mkCNN : Str -> CN = \s -> mkCN (mkN s) ;
|
|
-- mkAPA : Str -> AP = \s -> mkAP (mkA s) ;
|
|
}
|