1
0
forked from GitHub/gf-core

last adjustments of examples before course

This commit is contained in:
aarne
2007-09-12 21:03:00 +00:00
parent 6b9e37a39e
commit 9b5d2fb923
10 changed files with 1589 additions and 1173 deletions

View File

@@ -0,0 +1,35 @@
abstract House = {
flags startcat = Utterance ;
cat
Utterance ;
Command ;
Question ;
Kind ;
Action Kind ;
Device Kind ;
Location ;
fun
UCommand : Command -> Utterance ;
UQuestion : Question -> Utterance ;
CAction : (k : Kind) -> Action k -> Device k -> Command ;
QAction : (k : Kind) -> Action k -> Device k -> Question ;
DKindOne : (k : Kind) -> Device k ;
DKindMany : (k : Kind) -> Device k ;
DLoc : (k : Kind) -> Device k -> Location -> Device k ;
light, fan : Kind ;
switchOn, switchOff : (k : Kind) -> Action k ;
dim : Action light ;
kitchen, livingRoom : Location ;
}