GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 00:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

extended dialogue example

Browse Source
This commit is contained in:
aarne
2006-05-16 20:44:33 +00:00
parent 5082ebd0f4
commit 29d04d8a90
16 changed files with 369 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
examples/dialogue/LightsEng.gf Normal file
View File

@@ -0,0 +1,19 @@
--# -path=.:present:prelude
concrete LightsEng of Lights =
DialogueEng ** open LangEng, ParadigmsEng, AuxEng, Prelude in {
lin
Light = UseN (regN "light") ;
Room = UseN (regN "room") ;
SwitchOnIn = dirV3 (partV (regV "switch") "on") (mkPreposition "in") ;
SwitchOffIn = dirV3 (partV (regV "switch") "off") (mkPreposition "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"]) ;
}