remove obsolete minitel, but leave source as example

1 files changed, 0 insertions, 49 deletions

diff --git a/appl/wm/minitel/socket.b b/appl/wm/minitel/socket.b
deleted file mode 100644
index b3ce7fcf..00000000
--- a/appl/wm/minitel/socket.b
+++ /dev/null
@@ -1,49 +0,0 @@
-#
-# 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);
-}