appl/examples/minitel/socket.b


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

#
# Copyright © 1998 Vita Nuova Limited.  All rights reserved.
#

Socket: adt {
	m:		ref Module;		# common attributes
	in:		chan of ref Event;

	init:		fn(c: self ref Socket);
	reset:	fn(c: self ref Socket);
	run:		fn(c: self ref Socket);
	quit:		fn(c: self ref Socket);
};

Socket.init(c: self ref Socket)
{
	c.in = chan of ref Event;
	c.reset();
}

Socket.reset(c: self ref Socket)
{
	c.m = ref Module(Pscreen, 0);
}

Socket.run(c: self ref Socket)
{
Runloop:
	for(;;){
		ev := <- c.in;
		pick e := ev {
		Equit =>
			break Runloop;
		Eproto =>
			case e.cmd {
			Creset =>
				c.reset();
			* => break;
			}
		Edata =>
		}
	}
	send(nil);	
}

Socket.quit(c: self ref Socket)
{
	if(c==nil);
}