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

(FILECREATED " 2-Aug-89 13:35:49" {DSK}<LISPFILES>PS>PS-RS232.;1
 2639   

      changes to%:  (VARS PS-RS232COMS)
                    (PROPS (PS-RS232 MAKEFILE-ENVIRONMENT)
                           (PS-RS232 PRINTERTYPE)
                           (PS-RS232 SPOOLFILE))
                    (FNS PS-RS232-AFTERLOGOUT PS-RS232-INIT))


(* "
Copyright (c) 1989 by Beckman Instruments, Inc.  All rights reserved.
")

(PRETTYCOMPRINT PS-RS232COMS)

(RPAQQ PS-RS232COMS
 ((FILES POSTSCRIPTSTREAM (SYSLOAD FROM LISPUSERS)
                                DLRS232C)
                         (INITVARS (PS-RS232-BAUD 9600)
                                (PS-RS232-DATABITS 8)
                                (PS-RS232-PARITY 'NONE)
                                (PS-RS232-STOPBITS 1)
                                (PS-RS232-FLOWCONTROL 'XOnXOff))
                         (FNS PS-RS232-AFTERLOGOUT PS-RS232-INIT)
                         (ADDVARS (DEFAULTPRINTINGHOST PS-RS232)
                                (AROUNDEXITFNS PS-RS232-AFTERLOGOUT))
                         (P (PS-RS232-INIT))
                         (PROP (MAKEFILE-ENVIRONMENT PRINTERTYPE SPOOLFILE)
                               PS-RS232)))

(FILESLOAD POSTSCRIPTSTREAM (SYSLOAD FROM LISPUSERS)
       DLRS232C)

(RPAQ? PS-RS232-BAUD
 9600)

(RPAQ? PS-RS232-DATABITS
 8)

(RPAQ? PS-RS232-PARITY
 'NONE)

(RPAQ? PS-RS232-STOPBITS
 1)

(RPAQ? PS-RS232-FLOWCONTROL
 'XOnXOff)
(DEFINEQ

(PS-RS232-AFTERLOGOUT

  [LAMBDA (EVENT)
    (if
 (EQ EVENT 'AFTERLOGOUT)
        then
 (RS232C.INIT PS-RS232-BAUD PS-RS232-DATABITS PS-RS232-PARITY PS-RS232-STOPBITS 
                        PS-RS232-FLOWCONTROL])

(PS-RS232-INIT

  [LAMBDA NIL
    [PUTPROP 'PS-RS232 'SPOOLOPTIONS `((BaudRate ,PS-RS232-BAUD)
                                       (BitsPerSerialChar ,PS-RS232-DATABITS)
                                       (Parity ,PS-RS232-PARITY)
                                       (NoOfStopBits ,PS-RS232-STOPBITS)
                                       (FlowControl ,PS-RS232-FLOWCONTROL]
    (PS-RS232-AFTERLOGOUT
 'AFTERLOGOUT)                  (* ; "Fake it")

    NIL])
)

(ADDTOVAR DEFAULTPRINTINGHOST
 PS-RS232)

(ADDTOVAR AROUNDEXITFNS
 PS-RS232-AFTERLOGOUT)

(PS-RS232-INIT
)

(PUTPROPS PS-RS232 MAKEFILE-ENVIRONMENT
 (:READTABLE "INTERLISP" :PACKAGE "INTERLISP"))

(PUTPROPS PS-RS232 PRINTERTYPE
 POSTSCRIPT)

(PUTPROPS PS-RS232 SPOOLFILE
 "{RS232}FOO.PS")
(PUTPROPS PS-RS232 COPYRIGHT ("Beckman Instruments, Inc" 1989))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1528 2244 (PS-RS232-AFTERLOGOUT 1538 . 1761) (PS-RS232-INIT 1763 . 2242)))))
STOP