obsolete many lispusers (#702)

* obsolete many lispusers

* NSDISPLAYSIZES isn't obsolete

obsolete/lispusers/PS-RS232

@@ -0,0 +1,76 @@
+(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