From c714c442442ef137f20ca4ff9707d5480cb9ba7a Mon Sep 17 00:00:00 2001 From: Charles Forsyth Date: Wed, 29 Apr 2015 15:19:07 +0100 Subject: remove obsolete minitel, but leave source as example --- appl/wm/minitel/socket.b | 49 ------------------------------------------------ 1 file changed, 49 deletions(-) delete mode 100644 appl/wm/minitel/socket.b (limited to 'appl/wm/minitel/socket.b') 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); -} -- cgit v1.2.3