Files
gf-core/grammars/video/System/genSystem.gf
2004-09-16 14:47:18 +00:00

38 lines
530 B
Plaintext

-- general.Abs.gf
abstract genSystem = general ** {
cat
Empty ; -- whatever this is good for?
Question ;
YNQuestion ;
WHQuestion ;
AltQuestion ;
PropQ ;
fun
greet : DMove ; -- "Welcome"
quit : DMove ; -- "Goodbye"
ask : Question -> DMove ;
--- Language
change_language : Action ;
language_alt : Question ;
--- Actions
actionQ : WHQuestion ;
--- Questions
whQuestion : WHQuestion -> Question ;
altQuestion : YNQuestion -> YNQuestion -> AltQuestion ;
--- Issue
issue : Question -> PropQ ;
--- Lists
nil : Empty ;
}