ref: f8935b5778397074d41a48205e5c7f87d7b531fe
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
};