mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 23:09:31 -06:00
49 lines
1.6 KiB
Plaintext
49 lines
1.6 KiB
Plaintext
-- (c) 2009 Aarne Ranta under LGPL
|
|
|
|
concrete WordsSwe of Words = SentencesSwe **
|
|
open SyntaxSwe, ParadigmsSwe in {
|
|
lin
|
|
Wine = mkCN (mkN "vin" "vinet" "viner" "vinerna") ;
|
|
Beer = mkCN (mkN "öl" neutrum) ;
|
|
Water = mkCN (mkN "vatten" "vattnet" "vatten" "vattnen") ;
|
|
Coffee = mkCN (mkN "kaffe" neutrum) ;
|
|
Tea = mkCN (mkN "te" neutrum) ;
|
|
|
|
Pizza = mkCN (mkN "pizza") ;
|
|
Cheese = mkCN (mkN "ost") ;
|
|
Fish = mkCN (mkN "fisk") ;
|
|
Fresh = mkAP (mkA "färsk") ;
|
|
Warm = mkAP (mkA "varm") ;
|
|
Italian = mkAP (mkA "italiensk") ;
|
|
Expensive = mkAP (mkA "dyr") ;
|
|
Delicious = mkAP (mkA "läcker") ;
|
|
Boring = mkAP (mkA "tråkig") ;
|
|
|
|
Restaurant = mkCN (mkN "restaurang" "restauranger") ;
|
|
Bar = mkCN (mkN "bar" "barer") ;
|
|
Toilet = mkCN (mkN "toalett" "toaletter") ;
|
|
|
|
Euro = mkCN (mkN "euro" "euro") ;
|
|
Dollar = mkCN (mkN "dollar" "dollar") ;
|
|
Lei = mkCN (mkN "lei" "lei") ;
|
|
|
|
English = mkNP (mkPN "engelska") ;
|
|
Finnish = mkNP (mkPN "finska") ;
|
|
French = mkNP (mkPN "franska") ;
|
|
Romanian = mkNP (mkPN "rumänska") ;
|
|
Swedish = mkNP (mkPN "svenska") ;
|
|
|
|
AWant p obj = mkCl p want_VV (mkVP have_V2 obj) ;
|
|
ALike p item = mkCl p (mkV2 (mkV "tycker") (mkPrep "om")) item ;
|
|
AHave p kind = mkCl p have_V2 (mkNP kind) ;
|
|
ASpeak p lang = mkCl p (mkV2 (mkV "tala")) lang ;
|
|
ALove p q = mkCl p (mkV2 (mkV "älska")) q ;
|
|
|
|
AHungry p = mkCl p (mkA "hungrig") ;
|
|
AThirsty p = mkCl p (mkA "törstig") ;
|
|
ATired p = mkCl p (mkA "trött") ;
|
|
AScared p = mkCl p (mkA "rädd") ;
|
|
AUnderstand p = mkCl p (mkV "förstå" "förstod" "förstått") ;
|
|
|
|
}
|