Files
gf-core/examples/godis-tram/Common/GodisUser.gf
2006-11-08 15:08:09 +00:00

34 lines
384 B
Plaintext

--# -path=.:prelude
abstract GodisUser = {
cat
S;
Question;
Action;
Answer;
ShortAns;
Proposition;
fun
greet_S,
quit_S : S;
no_S,
yes_S : Answer;
request_S : Action -> S;
answer_S : Answer -> S;
ask_S : Question -> S;
shortans_S,
not_shortans_S : ShortAns -> S;
not_prop_S : Proposition -> S;
request_request_S : Action -> Action -> S;
}