(FILECREATED "17-Sep-85 17:17:37" ("compiled on " {ERIS}SOURCES>NSPRINT.;13) "15-Sep-85 20:59:21" recompiled exprs: NSPRINT \NSPRINT.INTERNAL NSPRINTER.HOSTNAMEP FAX.SEND.FILE FAX.STATUS FAX.PROPERTIES FAX.HOSTNAMEP \FAX.PARSE.NAME in "INTERLISP-D 16-Sep-85 ..." dated "16-Sep-85 10:25:18") (FILECREATED "17-Sep-85 17:15:44" {ERIS}SOURCES>NSPRINT.;13 24074 changes to: (VARS NSPRINTCOMS) (FNS NSPRINTER.HOSTNAMEP FAX.SEND.FILE FAX.STATUS FAX.PROPERTIES \FAX.PARSE.NAME FAX.HOSTNAMEP \NSPRINT.INTERNAL NSPRINT) previous date: "26-Jul-85 12:51:50" {ERIS}SOURCES>NSPRINT.;12) GETNSPRINTER D1 (P 1 INFO P 0 NAME I 0 HOST) @dd`d`kC`>og .jd` o` `` o` `H ohi  Xgi Y oH Ih(177Q ERROR 164Q LOOKUP.NS.SERVER 154Q PARSE.NSNAME 150Q ERROR 125Q PRIN1 112Q PRIN1 100Q PRIN1 65Q TAB 47Q CH.LIST.OBJECTS) (160Q PRINTSERVER 131Q NS.DEFAULT.PRINTER 122Q PROMPTWINDOW 107Q PROMPTWINDOW 104Q NS.DEFAULT.PRINTER 75Q PROMPTWINDOW 62Q PROMPTWINDOW 53Q NS.DEFAULT.PRINTER 44Q PRINTSERVER 33Q NS.DEFAULT.PRINTER 23Q NSADDRESSTYPE# 12Q NSNAMETYPE#) ( 173Q "Can't find address of " 143Q "Can't find an NS printserver" 117Q "]" 72Q "[Default NS printer set to " 41Q "*") NSPRINTA0001A0002 D1 (I 0 DATASTREAM F 0 INSTREAM) P@ h(4 COPYBYTES) NIL () NSPRINTA0001 D1 (NAME ERRORSET P 4 JOBNAME P 3 INSTREAM P 2 PRINTRESULTS P 1 FULLFILENAME P 0 DOCUMENT.NAME F 6 OPTIONS F 7 PRINTER F 10Q RESETVARSLST F 11Q FILE F 12Q RESETY) `W cWghdo [ gKhhhWcVg'XgIVc HIVg'gKg Vc WVg Zy`tVg'lgJddi3 gJhWddi3 gWhL I I]ddi3 gMhhgWo gg Ighci(332Q ADD.PROCESS 320Q PACK* 247Q ROOTFILENAME 150Q \NSPRINT.INTERNAL 131Q GETFILEINFO 35Q FULLNAME 31Q OPENSTREAM 7 GETNSPRINTER) (326Q DELETE 323Q AFTEREXIT 304Q NAME 270Q QUOTE 233Q QUOTE 210Q QUOTE 172Q \NSPRINT.WATCHDOG 164Q NO.WATCHER 156Q NSPRINT.WATCHERFLG 145Q NSPRINTA0001A0002 126Q ICREATIONDATE 122Q DOCUMENT.CREATION.DATE 115Q DOCUMENT.CREATION.DATE 76Q DOCUMENT.NAME 63Q DOCUMENT.NAME 41Q CLOSEF? 17Q INPUT) ( 315Q " WATCHER" 25Q ((SEQUENTIAL T))) NSPRINT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 OPTIONS I 1 FILE I 0 PRINTER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NSPRINTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NSPRINTA0001)) \NSPRINT.INTERNAL D1 (P 15Q LASTSTATUS P 12Q STATUS P 11Q PRINTOPTIONS P 10Q VALUE P 7 COURIERSTREAM P 6 ATTRIBUTES P 5 PROPERTIES P 4 DOCNAME P 3 SENDER.NAME P 2 TWO.SIDED? P 1 STAPLE? P 0 MEDIUM I 2 TRANSFERFN I 1 OPTIONS I 0 PRINTER F 16Q RESETVARSLST) &Ag'`Ag'Ag'`lAg'ddi Ag'o gLhgAg'hgKhhgAg'kjhh_Ag'_gOO hO_Ag'_,gOdgdgdgdg hO_Ag'_gOO hO_Ag'_0@ _mjd` o` @` n d=Od5d0_'jO!O_jOgOhO_O gOhhhWcj Oggg _gTOOD` o` @` o` Olm ` o` nu0 gO_dOdgIHIJOggg ]gnM_o@oLo O O g(` o` @` o` oO O_n HIQgM4gihO_hY6gM@ _gOhO_hjd` o` J-gMgiO_hZjd` o` OggBNOg _gO(1426Q COURIER.CALL 1402Q PRIN1 1367Q TAB 1324Q PRIN1 1311Q TAB 1253Q \NSPRINT.MEDIUM.CHECK 1174Q DISMISS 1160Q ERROR 1146Q PRIN1 1133Q PRIN1 1122Q PRIN1 1107Q TERPRI 1067Q CLOSEF 1061Q ERROR 1053Q CONCAT 1014Q COURIER.CALL 730Q DISMISS 721Q PRIN1 706Q PRIN1 700Q SUBSTRING 665Q PRIN1 652Q PRIN1 641Q PRIN1 626Q TERPRI 600Q COURIER.CALL 531Q \ILLEGAL.ARG 424Q DISMISS 415Q PRIN1 404Q PRIN1 371Q TAB 355Q \NSPRINT.COURIER.OPEN 327Q MKSTRING 267Q \ILLEGAL.ARG 204Q MKSTRING 111Q IDATE 47Q USERNAME) (1434Q ERROR 1422Q RETURNERRORS 1413Q PRINT 1410Q PRINTING 1377Q PROMPTWINDOW 1364Q PROMPTWINDOW 1343Q TWO.SIDED 1333Q TWO.SIDED 1321Q PROMPTWINDOW 1306Q PROMPTWINDOW 1262Q MEDIUM.HINT 1243Q MEDIA 1222Q STAPLE 1211Q STAPLE 1143Q PROMPTWINDOW 1130Q PROMPTWINDOW 1117Q PROMPTWINDOW 1104Q PROMPTWINDOW 1076Q Busy 1021Q ERROR 1011Q RETURNERRORS 1006Q GET.PRINTER.PROPERTIES 1003Q PRINTING 761Q Available 736Q SPOOLER 716Q PROMPTWINDOW 703Q PROMPTWINDOW 662Q PROMPTWINDOW 647Q PROMPTWINDOW 636Q PROMPTWINDOW 623Q PROMPTWINDOW 606Q ERROR 575Q RETURNERRORS 572Q GET.PRINTER.STATUS 567Q PRINTING 537Q \SPP.RESETCLOSE 507Q PAGES.TO.PRINT 412Q PROMPTWINDOW 401Q PROMPTWINDOW 366Q PROMPTWINDOW 344Q PAGES.TO.PRINT 314Q MESSAGE 304Q MESSAGE 262Q HIGH 254Q NORMAL 246Q LOW 237Q HOLD 231Q PRIORITY.HINT 221Q PRIORITY 171Q RECIPIENT.NAME 161Q RECIPIENT.NAME 137Q #COPIES 133Q COPY.COUNT 117Q SENDER.NAME 103Q DOCUMENT.CREATION.DATE 77Q PRINT.OBJECT.CREATE.DATE 70Q PRINT.OBJECT.NAME 53Q DOCUMENT.NAME 37Q SENDER.NAME 30Q EMPRESS#SIDES 22Q #SIDES 15Q STAPLE? 11Q NSPRINT.DEFAULT.MEDIUM 3 MEDIUM) ( 1374Q "Printer does not support two-sided copies" 1316Q "[Printer does not support stapled copies]" 1153Q "Printer spooler" 1140Q " Status: Spooler busy; will retry]" 1114Q "[From " 1047Q " RETURN to try again." 1042Q " attempting to print " 1034Q "Unexpected error from " 713Q "; will retry]" 657Q " Error: " 633Q "[From " 376Q "No response from printer " 62Q "Document") \NSPRINT.MEDIUM.CHECK D1 (P 1 X I 2 PRINTER I 1 MEDIA I 0 MEDIUM) l@iAAH5jd` o` B` o` @` AY@ Ig@Ihddd IHX(142Q STRPOS 136Q UPPERCASEARRAY 107Q EQUAL 75Q PRIN1 65Q PRIN1 52Q PRIN1 41Q PRIN1 26Q TAB) (116Q PAPER 72Q PROMPTWINDOW 62Q PROMPTWINDOW 47Q PROMPTWINDOW 36Q PROMPTWINDOW 23Q PROMPTWINDOW) ( 57Q " doesn't have print medium: " 33Q "printer ") \NSPRINT.WATCHDOG D1 (P 3 STATUS P 2 MSG P 1 GIVEUPCNT P 0 LASTSTATUS I 2 JOBNAME I 1 PRINTER I 0 ID) n: jd"@A [Hjd` BA` o` Ko` KZ o` J` o` KZ o` J` o` KXdgdg$jnu0 ^` o` eh IkYlh(300Q PRIN1 265Q PRIN1 253Q BLOCK 221Q PRIN1 206Q PRIN1 176Q PRIN1 154Q PRIN1 141Q PRIN1 131Q PRIN1 110Q PRIN1 71Q PRIN1 56Q PRIN1 36Q TAB 17Q \NSPRINT.FULL.REQUEST.STATUS 5 BLOCK) (275Q PROMPTWINDOW 262Q PROMPTWINDOW 237Q InProgress 231Q Pending 216Q PROMPTWINDOW 203Q PROMPTWINDOW 173Q PROMPTWINDOW 151Q PROMPTWINDOW 136Q PROMPTWINDOW 126Q PROMPTWINDOW 105Q PROMPTWINDOW 66Q PROMPTWINDOW 53Q PROMPTWINDOW 33Q PROMPTWINDOW) ( 272Q " on " 213Q ")" 170Q " (" 146Q ")" 123Q " (" 102Q "No response" 63Q " -- ") \NSPRINT.FULL.REQUEST.STATUSA0001A0002 D1 (NAME ERRORSET P 2 STATUS P 1 RESULT P 0 STREAM F 3 RESETVARSLST F 4 PRINTER F 5 ID F 6 RESETY) wT !HigHhhhScHggUg YGgIgIZdo hJgHggg ZdgJdghhc i(130Q COURIER.CALL 103Q STREQUAL 50Q COURIER.CALL 3 \NSPRINT.COURIER.OPEN) (150Q Available 141Q Busy 125Q NOERROR 122Q GET.PRINTER.STATUS 117Q PRINTING 113Q PRINTER 65Q STATUS.MESSAGE 56Q STATUS 44Q NOERROR 40Q GET.PRINT.REQUEST.STATUS 35Q PRINTING 14Q \SPP.RESETCLOSE) ( 100Q "") \NSPRINT.FULL.REQUEST.STATUSA0001 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) &S!Tog hgZ JIh(36Q ERROR! 30Q RESETRESTORE 16Q \NSPRINT.FULL.REQUEST.STATUSA0001A0002) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSPRINT.FULL.REQUEST.STATUSA0001A0002)) \NSPRINT.FULL.REQUEST.STATUS D1 (I 1 PRINTER I 0 ID) A bo (14Q \NSPRINT.FULL.REQUEST.STATUSA0001 3 GETNSPRINTER) NIL ( 11Q (\NSPRINT.FULL.REQUEST.STATUSA0001)) NSPRINTER.HOSTNAMEP D1 (I 0 PRINTERNAME) o@ g(7 STRPOS) (14Q INTERPRESS) ( 3 ":") NSPRINTER.STATUS D1 (I 0 PRINTER) @g (6 \NSPRINT.ENQUIRE) (3 GET.PRINTER.STATUS) () NSPRINTER.PROPERTIES D1 (I 0 PRINTER) @g (6 \NSPRINT.ENQUIRE) (3 GET.PRINTER.PROPERTIES) () NSPRINTREQUEST.STATUS D1 (I 1 PRINTER I 0 REQUESTID) Ag@h (12Q \NSPRINT.ENQUIRE) (3 GET.PRINT.REQUEST.STATUS) () \NSPRINT.ENQUIREA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RESETVARSLST F 2 OP F 3 RESETY) /gPhhhQcgPgRdhgh  ci(51Q APPLY 44Q \APPEND2) (37Q NOERROR 26Q PRINTING 22Q COURIER.CALL 2 \SPP.RESETCLOSE) () \NSPRINT.ENQUIRE D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 STREAM I 1 OP I 0 PRINTER F 4 LISPXHIST F 5 RESETVARSLST) 2@ bd H"T!Uog hg[ KJ(55Q ERROR! 50Q RESETRESTORE 36Q \NSPRINT.ENQUIREA0001 11Q \NSPRINT.COURIER.OPEN 3 GETNSPRINTER) (44Q ERROR 33Q INTERNAL) ( 30Q (DUMMY.FOR.ERRORSET)) \NSPRINT.COURIER.OPEN D1 (I 0 PRINTER) @hi@o (25Q COURIER.OPEN 22Q PACK*) (11Q NSNAME) ( 17Q "#Printing") FAX.SEND.FILE D1 (P 0 HOST&OPTIONS I 2 PRINTOPTIONS I 1 FILE I 0 HOST) $@ HAHB` gih (41Q NSPRINT 36Q \APPEND2 33Q \APPEND2 3 \FAX.PARSE.NAME) (24Q NO.WATCHER 17Q FAX.NO.WATCHER) () FAX.STATUS D1 (I 0 HOST) @  (7 NSPRINTER.STATUS 3 \FAX.PARSE.NAME) NIL () FAX.PROPERTIES D1 (I 0 HOST) @  (7 NSPRINTER.PROPERTIES 3 \FAX.PARSE.NAME) NIL () FAX.HOSTNAMEP D1 (I 0 PRINTERNAME) o@ g(7 STRPOS) (14Q FAX) ( 3 "@") \FAX.PARSE.NAME D1 (P 6 INFO P 5 MSG P 4 HOST P 3 PHONE P 2 DESTINATION P 1 PERSON P 0 AT I 0 PLACE) o@ Xkh @kHk YgIh@Hk ZQ Ok_O_OO_OCjhi_Ok_O;OOOOO__l0OOl9Ol-Ol*Ol#hi+JLM`\Hoo@o Mo hJ `^oJo [N\LgKI(342Q CONCAT 316Q MKATOM 313Q U-CASE 305Q ERROR 302Q CONCAT 272Q CONCAT 52Q SUBSTRING 31Q SUBSTRING 12Q STRPOS) (362Q MESSAGE 321Q FAXADDRESSES 246Q DEFAULTFAXHOST 36Q RECIPIENT.NAME) ( 337Q "%" is unknown. Edit the list FAXADDRESSES" 332Q "The FAX destination %"" 277Q " appropriately, then say OK. Alternatively, RETURN %"name@CorrectPhoneOrDestination%"" 267Q " because:" 262Q "Don't understand " 255Q "Don't know the name of your local FAX server. Set the variable DEFAULTFAXHOST" 6 "@") (PRETTYCOMPRINT NSPRINTCOMS) (RPAQQ NSPRINTCOMS ((COMS (COURIERPROGRAMS PRINTING) (DECLARE: DONTCOPY (RECORDS NSPRINTER) ( GLOBALVARS NS.DEFAULT.PRINTER NSPRINT.DEFAULT.MEDIUM NSPRINT.WATCHERFLG)) (INITVARS ( NS.DEFAULT.PRINTER NIL) (NSPRINT.DEFAULT.MEDIUM) (NSPRINT.WATCHERFLG T)) (FNS GETNSPRINTER NSPRINT \NSPRINT.INTERNAL \NSPRINT.MEDIUM.CHECK \NSPRINT.WATCHDOG \NSPRINT.FULL.REQUEST.STATUS NSPRINTER.HOSTNAMEP NSPRINTER.STATUS NSPRINTER.PROPERTIES NSPRINTREQUEST.STATUS \NSPRINT.ENQUIRE \NSPRINT.COURIER.OPEN)) (COMS (* FAX) (FNS FAX.SEND.FILE FAX.STATUS FAX.PROPERTIES FAX.HOSTNAMEP \FAX.PARSE.NAME) (INITVARS (DEFAULTFAXHOST) (FAXADDRESSES) (FAX.NO.WATCHER T)) (GLOBALVARS DEFAULTFAXHOST FAXADDRESSES FAX.NO.WATCHER) (ADDVARS (PRINTERTYPES ((FAX TELECOPIER) (CANPRINT ( INTERPRESS)) (HOSTNAMEP FAX.HOSTNAMEP) (STATUS FAX.STATUS) (PROPERTIES FAX.PROPERTIES) (SEND FAX.SEND.FILE) (BITMAPSCALE INTERPRESS.BITMAPSCALE) (BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))))))) (COURIERPROGRAM PRINTING (4 3) TYPES ((REQUEST.ID (ARRAY 5 UNSPECIFIED)) (PRINT.ATTRIBUTES (SEQUENCE ( CHOICE (PRINT.OBJECT.NAME 0 STRING) (PRINT.OBJECT.CREATE.DATE 1 TIME) (SENDER.NAME 2 STRING)))) ( PRINT.OPTIONS (SEQUENCE (CHOICE (PRINT.OBJECT.SIZE 0 LONGCARDINAL) (RECIPIENT.NAME 1 STRING) (MESSAGE 2 STRING) (COPY.COUNT 3 CARDINAL) (PAGES.TO.PRINT 4 (RECORD (BEGINNING.PAGE.NUMBER CARDINAL) ( ENDING.PAGE.NUMBER CARDINAL))) (MEDIUM.HINT 5 MEDIUM) (PRIORITY.HINT 6 (ENUMERATION (HOLD 0) (LOW 1) ( NORMAL 2) (HIGH 3))) (RELEASE.KEY 7 HASHED.PASSWORD) (STAPLE 8 BOOLEAN) (TWO.SIDED 9 BOOLEAN)))) ( PRINTER.PROPERTIES (SEQUENCE (CHOICE (MEDIA 0 MEDIA) (STAPLE 1 BOOLEAN) (TWO.SIDED 2 BOOLEAN)))) ( PRINTER.STATUS (SEQUENCE (CHOICE (SPOOLER 0 (ENUMERATION (Available 0) (Busy 1) (Disabled 2) (Full 3)) ) (FORMATTER 1 (ENUMERATION (Available 0) (Busy 1) (Disabled 2))) (PRINTER 2 (ENUMERATION (Available 0 ) (Busy 1) (Disabled 2) (NeedsAttention 3) (NeedKeyOperator 4))) (MEDIA 3 MEDIA)))) (REQUEST.STATUS ( SEQUENCE (CHOICE (STATUS 0 (ENUMERATION (Pending 0) (InProgress 1) (Completed 2) (Unknown 3) (Rejected 4) (Aborted 5) (Cancelled 6) (Held 7))) (STATUS.MESSAGE 1 STRING)))) (MEDIA (SEQUENCE MEDIUM)) ( MEDIUM (CHOICE (PAPER 0 PAPER))) (PAPER (CHOICE (UNKNOWN 0 NIL) (KNOWN.SIZE 1 (ENUMERATION ( "US.LETTER" 1) ("US.LEGAL" 2) ("A0" 3) ("A1" 4) ("A2" 5) ("A3" 6) ("A4" 7) ("A5" 8) ("A6" 9) ("A7" 10) ("A8" 11) ("A9" 12) ("A10" 35) ("ISO.B0" 13) ("ISO.B1" 14) ("ISO.B2" 15) ("ISO.B3" 16) ("ISO.B4" 17) ("ISO.B5" 18) ("ISO.B6" 19) ("ISO.B7" 20) ("ISO.B8" 21) ("ISO.B9" 22) ("ISO.B10" 23) ("JIS.B0" 24) ( "JIS.B1" 25) ("JIS.B2" 26) ("JIS.B3" 27) ("JIS.B4" 28) ("JIS.B5" 29) ("JIS.B6" 30) ("JIS.B7" 31) ( "JIS.B8" 32) ("JIS.B9" 33) ("JIS.B10" 34))) (OTHER.SIZE 2 (RECORD (WIDTH CARDINAL) (LENGTH CARDINAL))) )) (CONNECTION.PROBLEM (ENUMERATION (NoRoute 0) (NoResponse 1) (TransmissionHardware 2) ( TransportTimeout 3) (TooManyLocalConnections 4) (TooManyRemoteConnections 5) (MissingCourier 6) ( MissingProgram 7) (MissingProcedure 8) (ProtocolMismatch 9) (ParameterInconsistency 10) ( InvalidMessage 11) (ReturnTimedOut 12) (Other 65535))) (TRANSFER.PROBLEM (ENUMERATION (Aborted 0) ( ChecksumIncorrect 1) (FormatIncorrect 2) (NoRendezvous 3) (WrongDirection 4)))) PROCEDURES ((PRINT 0 ( BULK.DATA.SOURCE PRINT.ATTRIBUTES PRINT.OPTIONS) RETURNS (REQUEST.ID) REPORTS (BUSY CONNECTION.ERROR INSUFFICIENT.SPOOL.SPACE INVALID.PRINT.PARAMETERS MASTER.TOO.LARGE MEDIUM.UNAVAILABLE SERVICE.UNAVAILABLE SPOOLING.DISABLED SPOOLING.QUEUE.FULL SYSTEM.ERROR TOO.MANY.CLIENTS TRANSFER.ERROR UNDEFINED.ERROR)) (GET.PRINTER.PROPERTIES 1 NIL RETURNS (PRINTER.PROPERTIES) REPORTS ( SERVICE.UNAVAILABLE SYSTEM.ERROR UNDEFINED.ERROR)) (GET.PRINT.REQUEST.STATUS 2 (REQUEST.ID) RETURNS ( REQUEST.STATUS) REPORTS (SERVICE.UNAVAILABLE SYSTEM.ERROR UNDEFINED.ERROR)) (GET.PRINTER.STATUS 3 NIL RETURNS (PRINTER.STATUS) REPORTS (SERVICE.UNAVAILABLE SYSTEM.ERROR UNDEFINED.ERROR))) ERRORS ((BUSY 0) (INSUFFICIENT.SPOOL.SPACE 1) (INVALID.PRINT.PARAMETERS 2) (MASTER.TOO.LARGE 3) (MEDIUM.UNAVAILABLE 4) (SERVICE.UNAVAILABLE 5) (SPOOLING.DISABLED 6) (SPOOLING.QUEUE.FULL 7) (SYSTEM.ERROR 8) ( TOO.MANY.CLIENTS 9) (UNDEFINED.ERROR 10 (CARDINAL)) (CONNECTION.ERROR 11 (CONNECTION.PROBLEM)) ( TRANSFER.ERROR 12 (TRANSFER.PROBLEM)))) (RPAQ? NS.DEFAULT.PRINTER NIL) (RPAQ? NSPRINT.DEFAULT.MEDIUM) (RPAQ? NSPRINT.WATCHERFLG T) (RPAQ? DEFAULTFAXHOST) (RPAQ? FAXADDRESSES) (RPAQ? FAX.NO.WATCHER T) (ADDTOVAR PRINTERTYPES ((FAX TELECOPIER) (CANPRINT (INTERPRESS)) (HOSTNAMEP FAX.HOSTNAMEP) (STATUS FAX.STATUS) (PROPERTIES FAX.PROPERTIES) (SEND FAX.SEND.FILE) (BITMAPSCALE INTERPRESS.BITMAPSCALE) ( BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (PUTPROPS NSPRINT COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL