code: 9ferno

ref: 83246e296ea433b65b9d295b5e08fedd39ff1ab7
dir: /appl/examples/minitel/event.m/

View raw version
#
# 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
};