initial checkin for library

library/DOSPRINT

@@ -0,0 +1,53 @@
+(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
+
(FILECREATED "20-Nov-95 11:34:56" {DSK}<MEDLEY>LIBRARY/DOSPRINT.\;1
 2006   
+
+      |changes| |to:|  (VARS DOSPRINTCOMS)
+
+      |previous| |date:| "26-Jul-93 14:01:26" {DSK}<MEDLEY>LIBRARY/DOSPRINT.\;1)
+
+
+; Copyright (c) 1995 by Xerox Corporation.  All rights reserved.
+
+(PRETTYCOMPRINT DOSPRINTCOMS)
+
+(RPAQQ DOSPRINTCOMS
 ((FNS DOSPRINT)
+                         (INITVARS (|DosPrinterName| NIL))
+                         (DECLARE\: EVAL@COMPILE DONTCOPY (GLOBALVARS |DosPrinterName|))
+                         (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS
+                                                                                        (NLAMA)
+                                                                                        (NLAML)
+                                                                                        (LAMA)))))
+(DEFINEQ
+
+(DOSPRINT

+  (LAMBDA (HOST FILE PRINTOPTIONS)
                       (* \; "Edited 26-Jul-93 13:48 by ")

+    (LET* ((PRINTER (OR HOST |DosPrinterName|))
+           (COPIES (LISTGET PRINTOPTIONS '\#COPIES))
+           (NAME (LISTGET PRINTOPTIONS 'DOCUMENT.NAME))
+           (TYPE (PRINTERTYPE PRINTER)))
+          (CL:WITH-OPEN-STREAM (|out| (OPENSTREAM PRINTER 'OUTPUT))
+                 (CL:WITH-OPEN-STREAM (|in|
 (OPENSTREAM FILE 'INPUT))
+                        (CL:FORMAT PROMPTWINDOW "Spooling output to DOS printer \"~A\"..." PRINTER)
+                        (COPYCHARS |in| |out|)
+                        (CL:FORMAT PROMPTWINDOW "Done."))))))
+)
+
+(RPAQ? |DosPrinterName|
 NIL)
+(DECLARE\: EVAL@COMPILE DONTCOPY 
+(DECLARE\: DOEVAL@COMPILE DONTCOPY
+
+(GLOBALVARS |DosPrinterName|)
+)
+)
+(DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
+
+(ADDTOVAR NLAMA
 )
+
+(ADDTOVAR NLAML
 )
+
+(ADDTOVAR LAMA
 )
+)
+(PUTPROPS DOSPRINT COPYRIGHT ("Xerox Corporation" 1995))
+(DECLARE\: DONTCOPY
+  (FILEMAP (NIL (958 1636 (DOSPRINT 970 . 1633)))))
+STOP