(FILECREATED "25-Sep-85 17:08:17" ("compiled on " {ERIS}TEDITHCPY.;22) "20-Sep-85 21:44:00" recompiled changes: TEDIT.HARDCOPYFN \TEDIT.HARDCOPY in "INTERLISP-D 21-Sep-85 ..." dated "21-Sep-85 06:44:26") (FILECREATED "25-Sep-85 17:07:31" {ERIS}TEDITHCPY.;22 42689 changes to: (VARS TEDITHCPYCOMS) ( FNS TEDIT.HARDCOPYFN \TEDIT.HARDCOPY) previous date: "18-Sep-85 16:03:04" {ERIS}TEDITHCPY.;21) TEDIT.HARDCOPY D1 (P 1 IMAGETYPE I 5 PRINTOPTIONS I 4 SERVER I 3 BREAKPAGETITLE I 2 DONTSEND I 1 FILE I 0 STREAM F 2 DEFAULTPRINTINGHOST) hDRVD g HoD o hYdg@ABCDEg g@ABCDEg HX@ oi (145Q TEDIT.PROMPTPRINT 135Q TEXTOBJ 123Q TEDIT.FORMAT.HARDCOPY 100Q TEDIT.FORMAT.HARDCOPY 50Q ERROR 45Q CONCAT 36Q PRINTERTYPE 17Q PRINTERPROP 11Q PRINTERTYPE) (117Q INTERPRESS 104Q INTERPRESS 74Q PRESS 60Q PRESS 14Q CANPRINT) ( 141Q "Can't HARDCOPY: No print server specified." 42Q " printer." 32Q "Can't print TEDIT documents on a ") TEDIT.HCPYFILE D1 (P 3 TXTFILE P 2 FILENM P 1 TEXTOBJ P 0 IMAGETYPE I 2 BREAKPAGETITLE I 1 FILE I 0 STREAM) jg 1AL@ YHo I,[`+ghgHdgggggK  Z @JiBhdH (147Q TEDIT.FORMAT.HARDCOPY 131Q \TEDIT.MAKEFILENAME 126Q TEDIT.GETINPUT 123Q PACKFILENAME 34Q CONCAT 23Q TEXTOBJ 10Q PRINTERPROP 2 PRINTERTYPE) (115Q STREAM 111Q BODY 106Q IP 100Q INTERPRESS 74Q PRESS 66Q PRESS 61Q EXTENSION 55Q VERSION 47Q STREAMTYPE# 40Q TEXTOBJ 5 CANPRINT) ( 31Q " file name: ") \TEDIT.HARDCOPY.FORMATLINE D1 (P 50Q NEWDESCENT P 47Q NEWASCENT P 46Q FMTSPEC P 45Q 1STLN P 44Q CTRL\L\SEEN P 43Q PCNO P 42Q PC P 41Q BOX P 40Q TABPENDING P 37Q INVISIBLERUNSB P 36Q DESCENTB P 35Q ASCENTB P 34Q LOOKS P 33Q WLIST P 32Q CHLIST P 31Q TEXTSTREAM P 30Q CLOOKS P 27Q TERMSA P 26Q FONTWIDTHS P 25Q FONT P 24Q LOOK#B P 23Q DXB P 22Q TXB1 P 21Q T1SPACE P 20Q FORCEEND P 17Q CH P 16Q TXB P 15Q DX P 14Q TX P 13Q DEVICE P 12Q #BLANKS P 11Q PREVSP P 10Q ASCENT P 7 DESCENT P 6 INVISIBLERUNS P 5 TLEN P 4 GATHERBLANK P 3 LOOKNO P 2 CHNO P 1 CH#B P 0 TEXTLEN I 6 DOINGHEADING? I 5 IMAGESTREAM I 4 LINE I 3 THISLINE I 2 CH#1 I 1 WIDTH I 0 TEXTOBJ) \:@BdjijdddddE)5C_4C_6C_8@._2@<_.O2(gDHDBDj(jdhDj(@jdhBHHjHH  B@ O22_00jKkԻO2_DO8KOD_RORORNO4nO6jMkԽO4l_4O6k_6OD_DO2k_FOD JO8KKԺODfO2he OD@ _0ODO00jO8KNODԾ_TOTOTNOD_DOD OD@ _0OFk_FjOF@ JHhh!O2dO0 O_:O_O2 jh&O2O2jO2O2j_JDOJkj(POJFOLg@O2DOLJE hDOJOLOL_VOV_DOL_XjOXOX OLAbA_$HJlM9OrOnZOl&MOpO2 _#O*(O OO* Ol\Og _ZOEOAlOZ _BOOBOB_\dO\O\_OOB_^dO^O^_OgOB OB_Odl rLO_$hJON OdONON_OdOPOP_h_NO4OO6OMk_i_"OO__O_&K_(O_:O_Ok_l DJONOjSOHi_ O4l O6j_LO_$hi_"Dk(OO_DO2j(k& OjOO ON_OP_j(`Odl Ni_HDJi_ O4l O6Odll_LO_$hi_"Dk(OO_Dk(`:l O4OON OdONON_OdOPOP_h_N@OLCO4O6OhE o jO@ _@d3 _h_@O@_LO_$hJO6_CO j__i_"OO__O_&K_(O_:O_iOlOOlj_OO_Ai_ O"#DIO_O&_O:_O<_O(O>^5MjDBJk_`dO`O`OO_DJO4OO6OMljHJ@oi O@\@OLCO4O6OhE o jO@i _h_@CO j_ON&O OdONON_OdOPOP_h_NO4OO6OO4l_4O6k_6MkԽJkԱ/@: _LO8O0O2LO2 >O2 jh&O2O2jO2O2j_JDOJkj(PDOJOLOL_bOb__DOL_djOdOd OLAbA_$DOO_f Of_hjOh,Oh %D@@@@` DODODJO JkٺMkٽO_$DOCDCBHmKDdHHND_jlOjOjlDAO$ @DOLCOOOJ DOL(O2(hOH(4102Q \DOFORMATTING 3652Q \FZEROP 3572Q \FZEROP 3312Q \TEDIT.HCPYFMTSPEC 3152Q \TEDIT.PURGE.SPACES 3130Q \TEDIT.FORMATTABS 3120Q FIXR 3110Q DSPSCALE 3055Q TEDIT.PROMPTPRINT 2551Q \TEDIT.PURGE.SPACES 2463Q \TEDIT.FORMATTABS 2454Q FIXR 2444Q DSPSCALE 2167Q \FZEROP 2145Q \FZEROP 1602Q IMAGEOBJPROP 1506Q \TEDIT.INTEGER.IMAGEBOX 1464Q IMAGEOBJPROP 1440Q \CREATECHARSET 1315Q \FZEROP 1220Q TEDIT.HARDCOPY.PAGEHEADING 1003Q \TEDIT.HCPYFMTSPEC 750Q FONTCOPY 734Q FONTCLASSCOMPONENT 660Q \TEDIT.HCPYLOOKS.UPDATE 627Q \SETUPGETCH 602Q \TEDIT.APPLY.STYLES 474Q \TEDIT.APPLY.STYLES 232Q \SETUPGETCH 221Q \FZEROP) (4124Q TEXTIMAGEDATA 4117Q STREAM 4106Q LINEDESCRIPTOR 4027Q LINEDESCRIPTOR 4012Q LINEDESCRIPTOR 3733Q LINEDESCRIPTOR 3723Q LINEDESCRIPTOR 3712Q FONTDESCRIPTOR 3707Q DEFAULTFONT 3700Q CHARLOOKS 3673Q TEXTOBJ 3664Q TEXTOBJ 3660Q LINEDESCRIPTOR 3600Q FMTSPEC 3550Q FMTSPEC 3543Q LINEDESCRIPTOR 3521Q FMTSPEC 3511Q FMTSPEC 3501Q LINEDESCRIPTOR 3463Q LINEDESCRIPTOR 3447Q STREAM 3440Q STREAM 3424Q STREAM 3415Q STREAM 3377Q PIECE 3372Q PIECE 3365Q STREAM 3354Q PIECE 3347Q STREAM 3336Q STREAM 3322Q ARRAYP 3305Q TEXTOBJ 3143Q THISLINE 3072Q FMTSPEC 2542Q THISLINE 2507Q PENDINGTAB 2426Q FMTSPEC 2331Q LINEDESCRIPTOR 2130Q PIECE 2123Q STREAM 2116Q LINEDESCRIPTOR 1575Q BOUNDBOX 1461Q IMAGEBOXFN 1323Q FMTSPEC 1273Q FMTSPEC 1266Q LINEDESCRIPTOR 1246Q FMTSPEC 1236Q FMTSPEC 1226Q LINEDESCRIPTOR 1202Q PAGEHEADING 1175Q FMTSPEC 1147Q LINEDESCRIPTOR 1133Q STREAM 1124Q STREAM 1110Q STREAM 1101Q STREAM 1063Q PIECE 1056Q PIECE 1051Q STREAM 1040Q PIECE 1033Q STREAM 1022Q STREAM 775Q TEXTOBJ 765Q TEXTIMAGEDATA 760Q STREAM 743Q DEVICE 725Q FONTCLASSTYPE# 714Q CHARLOOKS 700Q ARRAYP 651Q STREAM 563Q PIECE 542Q ARRAYP 530Q PIECE 510Q CHARLOOKS 457Q STREAM 434Q ARRAYP 413Q STREAM 401Q PIECE 317Q ARRAYP 306Q PIECE 271Q STREAM 247Q CHARLOOKS 240Q STREAM 161Q LINEDESCRIPTOR 130Q \TEDIT.HCPYLOOKS.UPDATE 125Q TEXTIMAGEDATA 120Q STREAM 107Q TEXTOBJ 77Q TEXTOBJ 67Q THISLINE 57Q ARRAYP 52Q THISLINE 42Q ARRAYP 35Q THISLINE 3 TEXTOBJ) ( 3114Q 36.0 3051Q "Line too long to format." 2450Q 36.0) \TEDIT.HCPYLOOKS.UPDATE D1 (P 6 PREVPC P 5 PARALOOKS P 4 OFFSET P 3 NEWPC P 2 TEMP P 1 TLOOKS P 0 TEXTOBJ I 2 NLOOKS I 1 PC I 0 STREAM F 15Q LOOKNO F 16Q LOOKS F 17Q CHLIST F 20Q WLIST F 21Q TLEN F 22Q FONT F 23Q CHNO F 24Q INVISIBLERUNS F 25Q DEVICE F 26Q DESCENT F 27Q NEWASCENT F 30Q ASCENT F 31Q NEWDESCENT)  A@ A AA AAH @(M@(]B A AH Yd0jWkcWWA OOOOWnW jW"kc"WlcW kc A^bNAAH @(MAd AH A0W&WWWc&W(WWWc(A[d_jOO I0jWWAWWW OOOOA^bds?ABI@2 @I2@(MIc$d`W* W$gW* c$IhW* I jW0W$L_dOOc.W,W$L_dOOc2B>WkcWWWIWnW jW"kc"WlcW kc A[ABg KAKKkKg wWkcWWAk OOOOWnW jW"kc"WlcW kc W&WWWc&W(WWWc(K(1217Q IMAGEOBJPROP 1150Q RETFROM 746Q FIXR 734Q DSPSCALE 713Q FONTCOPY 677Q FONTCLASSCOMPONENT 622Q EQCLOOKS 465Q \FZEROP 356Q \TEDIT.APPLY.STYLES 326Q \TEDIT.APPLY.PARASTYLES 134Q \TEDIT.APPLY.STYLES 66Q \TEDIT.APPLY.PARASTYLES) (1371Q ARRAYP 1344Q ARRAYP 1254Q ARRAYP 1240Q PIECE 1214Q SUBSTREAM 1207Q PIECE 1173Q PIECE 1161Q PIECE 1145Q \BIN 1053Q ARRAYP 1012Q FONTDESCRIPTOR 761Q FONTDESCRIPTOR 740Q CHARLOOKS 722Q CHARLOOKS 706Q DEVICE 670Q FONTCLASSTYPE# 657Q CHARLOOKS 647Q TEXTIMAGEDATA 642Q STREAM 632Q STREAM 615Q STREAM 565Q PIECE 543Q ARRAYP 520Q ARRAYP 511Q PIECE 472Q CHARLOOKS 443Q PIECE 416Q ARRAYP 371Q ARRAYP 340Q TEXTIMAGEDATA 333Q STREAM 317Q PIECE 306Q PIECE 300Q PIECE 271Q PIECE 203Q ARRAYP 171Q PIECE 141Q CHARLOOKS 115Q TEXTIMAGEDATA 110Q STREAM 100Q TEXTIMAGEDATA 73Q STREAM 57Q PIECE 46Q PIECE 41Q PIECE 33Q PIECE 23Q PIECE 12Q STREAM) () \TEDIT.HCPYFMTSPEC D1 (P 17Q TAB P 0 SCALEFACTOR I 1 IMAGESTREAM I 0 SPEC) >hA  `@ @H dI@H dJ@H dK@H dL@H dM@ H dN @ @ H _dO @_dO@@H @@'d_HO O_O Oh_O&_O_dO@@o H _dO@@o H _dO(462Q FIXR 455Q SCALEPAGEUNITS 417Q FIXR 412Q SCALEPAGEUNITS 314Q FIXR 264Q FIXR 207Q FIXR 156Q FIXR 135Q FIXR 114Q FIXR 73Q FIXR 52Q FIXR 31Q FIXR 16Q NCREATE2 4 DSPSCALE) (444Q FMTSPEC 434Q FMTSPEC 401Q FMTSPEC 371Q FMTSPEC 273Q FMTSPEC 254Q FMTSPEC 243Q FMTSPEC 224Q FMTSPEC 200Q FMTSPEC 170Q FMTSPEC 147Q FMTSPEC 126Q FMTSPEC 105Q FMTSPEC 64Q FMTSPEC 43Q FMTSPEC 22Q FMTSPEC 12Q FMTSPECTYPE#) ( 452Q 1.0 407Q 1.0) \TEDIT.INTEGER.IMAGEBOX D1 (I 0 OLDBOX) +@@ @@ @@ @d @(46Q FIXR 37Q FIXR 26Q FIXR 13Q FIXR) NIL () \TEDIT.HARDCOPY.DISPLAYLINE D1 (P 25Q TTX P 24Q DOTWIDTH P 23Q DX P 22Q TX P 21Q LOOKNO P 20Q I P 13Q CURRENTY P 12Q OFONT P 11Q FONT P 10Q LOOKSTARTX P 7 OLOOKS P 6 STREAMSCALE P 5 LEFTMARGIN P 4 TEXTLEN P 3 LOOKS P 2 WLIST P 1 CHLIST P 0 CH I 4 PRSTREAM I 3 REGION I 2 THISLINE I 1 LINE I 0 TEXTOBJ) jA$BA$BA$B@AhD ALtA$ BA@CABAhD K_MO!OjANO ؅A_D O_D M_A$BjkMO OIO O JJjJCko JO o JJO _&HdnO"k_"RnrAOO$AOD KO"O"_D O"k_"O!OjANO ؅A_D O$_Hdl O$O&D l Hdl~HljO O gUl.OgD O$O(dO$O(_*O(D O*O$O&D _Dl.lOO*O(_*O$O&D Al =HdD _DHlO#g _HDd lOO$O&OD O$O&_$O k_ 3AOO$AOD h(1273Q \TEDIT.HARDCOPY.MODIFYLOOKS 1227Q MOVETO 1205Q IMAGESTREAMTYPE 1174Q IMAGEOBJPROP 1126Q DSPXPOSITION 1046Q DSPXPOSITION 1015Q CHARWIDTH 1012Q FONTCOPY 716Q DSPXPOSITION 666Q DSPYPOSITION 650Q FIXR 572Q DSPFONT 540Q \TEDIT.HARDCOPY.MODIFYLOOKS 441Q RAID 417Q RAID 276Q DSPFONT 260Q MOVETO 242Q FIXR 157Q \TEDIT.HARDCOPY.FORMATLINE 73Q DSPSCALE) (1262Q LINEDESCRIPTOR 1171Q DISPLAYFN 1150Q STREAM 1065Q STREAM 1006Q DEVICE 1001Q CHARLOOKS 767Q DOTTEDLEADER 762Q CHARLOOKS 752Q CHARLOOKS 656Q LINEDESCRIPTOR 642Q CHARLOOKS 632Q LINEDESCRIPTOR 620Q CHARLOOKS 607Q CHARLOOKS 564Q CHARLOOKS 545Q ARRAYP 527Q LINEDESCRIPTOR 454Q ARRAYP 446Q ARRAYP 424Q ARRAYP 402Q ARRAYP 370Q ARRAYP 344Q ARRAYP 317Q THISLINE 307Q LINEDESCRIPTOR 266Q CHARLOOKS 250Q LINEDESCRIPTOR 234Q CHARLOOKS 224Q LINEDESCRIPTOR 212Q CHARLOOKS 201Q CHARLOOKS 164Q ARRAYP 145Q LINEDESCRIPTOR 126Q THISLINE 116Q LINEDESCRIPTOR 102Q LINEDESCRIPTOR 64Q LINEDESCRIPTOR 56Q TEXTOBJ 50Q THISLINE 40Q LINEDESCRIPTOR 32Q THISLINE 22Q LINEDESCRIPTOR 14Q THISLINE 4 LINEDESCRIPTOR) ( 436Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) I)) 414Q (Check-failure: (AND (ARRAYP WLIST) (EQ 0 (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST))))) \TEDIT.HARDCOPY.MODIFYLOOKS D1 (P 3 YOFFSET P 2 ONEPOINT P 1 RULEWIDTH P 0 STREAMSCALE I 5 PRSTREAM I 4 LOOKS I 3 CURY I 2 CURX I 1 STARTX I 0 LINE) hE hE o hE D j/A@H @B@J@IgE D0j(A@@B@@IgE D@j*A@HD l[BKIgE BCE (277Q MOVETO 267Q DRAWLINE 247Q FIXR 204Q DRAWLINE 123Q DRAWLINE 62Q FIXR 31Q FIXR 26Q DSPSCALE 21Q FIXR 11Q DSPSCALE 4 DSPSCALE) (262Q PAINT 241Q FONTDESCRIPTOR 234Q CHARLOOKS 225Q LINEDESCRIPTOR 211Q CHARLOOKS 177Q PAINT 170Q LINEDESCRIPTOR 162Q LINEDESCRIPTOR 152Q LINEDESCRIPTOR 144Q LINEDESCRIPTOR 130Q CHARLOOKS 116Q PAINT 106Q LINEDESCRIPTOR 77Q LINEDESCRIPTOR 66Q LINEDESCRIPTOR 54Q LINEDESCRIPTOR 40Q CHARLOOKS) ( 15Q .75) TEDIT.HARDCOPYFNA0001 D1 (NAME ERRORSET F 0 TEXTOBJ F 1 RESETVARSLST F 2 IMAGESTREAM F 3 RESETY) $oP hQcPg>PR ci(36Q TEDIT.FORMAT.HARDCOPY 7 \TEDIT.MARKACTIVE) (26Q Hardcopy 23Q TEXTOBJ) ( 3 (AND (\TEDIT.MARKINACTIVE OLDVALUE))) TEDIT.HARDCOPYFN D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 TEXTOBJ I 1 IMAGESTREAM I 0 WINDOW F 4 LISPXHIST F 5 RESETVARSLST) +@ T!Uog hg[ Kg(45Q ERROR! 37Q RESETRESTORE 25Q TEDIT.HARDCOPYFNA0001 3 TEXTOBJ) (50Q Build 33Q ERROR 22Q INTERNAL) ( 17Q (TEDIT.HARDCOPYFNA0001)) \TEDIT.HARDCOPYA0001 D1 (NAME ERRORSET F 0 FILE F 1 PFILE F 2 RESETVARSLST F 3 RESETY) 9oP hRcP g>PQihddg Q Qci(61Q CLOSEF? 54Q TEDIT.FORMAT.HARDCOPY 26Q TEXTOBJ 12Q \TEDIT.MARKACTIVE 7 TEXTOBJ) (50Q INTERPRESS 34Q Hardcopy 31Q TEXTOBJ) ( 3 (AND (\TEDIT.MARKINACTIVE OLDVALUE))) \TEDIT.HARDCOPY D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 PFILE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) (@ bS!Tog hgZ JI(43Q ERROR! 36Q RESETRESTORE 24Q \TEDIT.HARDCOPYA0001 3 OPENTEXTSTREAM) (32Q ERROR 21Q INTERNAL) ( 16Q (\TEDIT.HARDCOPYA0001)) (PRETTYCOMPRINT TEDITHCPYCOMS) (RPAQQ TEDITHCPYCOMS ((FILES TEDITWINDOW) (COMS (* Generic interfact functions and common code) (FNS TEDIT.HARDCOPY TEDIT.HCPYFILE \TEDIT.HARDCOPY.FORMATLINE \TEDIT.HCPYLOOKS.UPDATE \TEDIT.HCPYFMTSPEC \TEDIT.INTEGER.IMAGEBOX)) (COMS (* PRESS-specific code) (VARS (TEDIT.DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 23495))) (* .75 inches from bottom, 1 from top) (FNS \TEDIT.HARDCOPY.DISPLAYLINE \TEDIT.HARDCOPY.MODIFYLOOKS)) (FILES TEDITPAGE) (COMS (* Support for the window-menu's HARDCOPY button, LISTFILES, etc.) (FNS TEDIT.HARDCOPYFN \TEDIT.HARDCOPY) (P (LISTPUT (ASSOC (QUOTE CONVERSION) (ASSOC (QUOTE INTERPRESS) PRINTFILETYPES)) (QUOTE TEDIT) (FUNCTION \TEDIT.HARDCOPY)))))) (FILESLOAD TEDITWINDOW) (RPAQ TEDIT.DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 23495)) (FILESLOAD TEDITPAGE) (LISTPUT (ASSOC (QUOTE CONVERSION) (ASSOC (QUOTE INTERPRESS) PRINTFILETYPES)) (QUOTE TEDIT) (FUNCTION \TEDIT.HARDCOPY)) (PUTPROPS TEDITHCPY COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985)) NIL