mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 21:39:32 -06:00
20 lines
637 B
Plaintext
20 lines
637 B
Plaintext
--# -path=.:multimodal:alltenses:prelude
|
|
|
|
concrete LightsEng of Lights =
|
|
DialogueEng ** open MultiEng, ParadigmsEng, AuxEng, Prelude in {
|
|
|
|
lin
|
|
Light = UseN (regN "light") ;
|
|
Room = UseN (regN "room") ;
|
|
SwitchOnIn = dirV3 (partV (regV "switch") "on") (mkPrep "in") ;
|
|
SwitchOffIn = dirV3 (partV (regV "switch") "off") (mkPrep "in") ;
|
|
SwitchOn = dirV2 (partV (regV "switch") "on") ;
|
|
SwitchOff = dirV2 (partV (regV "switch") "off") ;
|
|
|
|
LivingRoom = defN (regN ["living-room"]) ;
|
|
Kitchen = defN (regN ["kitchen"]) ;
|
|
|
|
MorningMode = mkMove (optStr "the" ++ ["morning mode"]) ;
|
|
|
|
}
|