ref: 09cf3c0ae6c0fed01e32a149f4668b7a7d52944b
dir: /appl/examples/minitel/event.m/
#
# Copyright © 1998 Vita Nuova Limited. All rights reserved.
#
Event: adt {
path: int; # path for delivery
from: int; # sending module (for reply)
pick {
Edata =>
data: array of byte;
Eproto =>
cmd: int;
s: string;
a0, a1, a2: int; # parameters
Equit =>
}
str: fn(e: self ref Event) : string; # convert to readable form
};