mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-11 22:09:32 -06:00
20 lines
618 B
Plaintext
20 lines
618 B
Plaintext
--# -path=.:present:prelude
|
|
|
|
concrete LightsSwe of Lights =
|
|
DialogueSwe ** open LangSwe, ParadigmsSwe, AuxSwe in {
|
|
|
|
lin
|
|
Light = UseN (regN "lampa") ;
|
|
Room = UseN (mkN "rum" "rummet" "rum" "rummen") ;
|
|
SwitchOnIn = dirV3 (regV "tänder") (mkPreposition "i") ;
|
|
SwitchOffIn = dirV3 (regV "släcker") (mkPreposition "i") ;
|
|
SwitchOn = dirV2 (regV "tänder") ;
|
|
SwitchOff = dirV2 (regV "släcker") ;
|
|
|
|
LivingRoom = defN (mkN "vardagsrum" "vardagsrummet" "vardagsrum" "vardagsrummen") ;
|
|
Kitchen = defN (mk2N "kök" "kök") ;
|
|
|
|
MorningMode = mkMove ["morgonläget"] ;
|
|
|
|
}
|