(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "29-Oct-87 15:36:45" {ERINYES}<LISPUSERS>LYRIC>CHATSERVER-RS232.;3
 1941   

      changes to%:  (FNS RS232CHATSERVER)

      previous date%: "20-Mar-86 20:38:43" |{IE:PARC:XEROX}<LISP>LYRIC>LISPUSERS>CHATSERVER-RS232.;1|
)


(* "
Copyright (c) 1987 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT CHATSERVER-RS232COMS)

(RPAQQ CHATSERVER-RS232COMS
 ((FNS DO.RS232.CHAT.SERVER TTYCHATSERVER DO.TTY.CHAT.SERVER 
                                  RS232CHATSERVER)
                             (FILES DLRS232C CHATSERVER)))
(DEFINEQ

(DO.RS232.CHAT.SERVER

(LAMBDA NIL (* lmm "24-Feb-86 12:11") (PROG ((INS (OPENSTREAM (QUOTE {RS232}) (QUOTE INPUT))) (OUTS (OPENSTREAM (QUOTE {RS232}) (QUOTE OUTPUT)))) (LINELENGTH 80 OUTS) (PAGEHEIGHT 24 OUTS) LP (READC INS) (CHATSERVEROPENFN INS OUTS) (GO LP)))
)

(TTYCHATSERVER

(LAMBDA (BAUDRATE BITSPERCHAR PARITY STOPBITS FLOWCONTROL) (* lmm "20-Mar-86 17:34") (TTY.INIT BAUDRATE BITSPERCHAR PARITY STOPBITS FLOWCONTROL) (DEL.PROCESS (QUOTE DO.TTY.CHAT.SERVER)) (ADD.PROCESS (QUOTE (DO.TTY.CHAT.SERVER)) (QUOTE RESTARTABLE) T))
)

(DO.TTY.CHAT.SERVER

(LAMBDA NIL (* lmm "20-Mar-86 17:34") (PROG ((INS (OPENSTREAM (QUOTE {TTY}) (QUOTE INPUT))) (OUTS (OPENSTREAM (QUOTE {TTY}) (QUOTE OUTPUT)))) (LINELENGTH 80 OUTS) (PAGEHEIGHT 24 OUTS) LP (READC INS) (CHATSERVEROPENFN INS OUTS) (GO LP)))
)

(RS232CHATSERVER

  [LAMBDA (BAUDRATE BITSPERCHAR PARITY STOPBITS FLOWCONTROL)

                                                          (* ; "Edited 29-Oct-87 15:34 by masinter")


    (DEL.PROCESS 'RS232)
    (RS232C.SHUTDOWN)
    (RS232C.INIT BAUDRATE BITSPERCHAR PARITY STOPBITS FLOWCONTROL)
    (ADD.PROCESS '(DO.RS232.CHAT.SERVER
) 'RESTARTABLE T 'NAME 'RS232])
)
(FILESLOAD DLRS232C CHATSERVER)
(PUTPROPS CHATSERVER-RS232 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (621 1821 (DO.RS232.CHAT.SERVER 631 . 899) (TTYCHATSERVER 901 . 1173) (
DO.TTY.CHAT.SERVER 1175 . 1437) (RS232CHATSERVER 1439 . 1819)))))
STOP