Files
gf-core/examples/dialogue/Dialogue.gf
2006-05-16 20:44:33 +00:00

30 lines
603 B
Plaintext

abstract Dialogue = {
flags startcat=Move ;
cat
Move ;
Action ;
Kind ;
Object Kind ;
Oper0 ;
Oper1 Kind ;
Oper2 Kind Kind ;
fun
MRequest : Action -> Move ;
MAnswer : Action -> Move ;
MQuery : Kind -> Move ;
AOper0 : Oper0 -> Action ;
AOper1 : (k : Kind) -> Oper1 k -> Object k -> Action ;
AOper2 : (k,m : Kind) -> Oper2 k m -> Object k -> Object m -> Action ;
OAll : (k : Kind) -> Object k ;
OIndef : (k : Kind) -> Object k ;
ODef : (k : Kind) -> Object k ;
}