(FILECREATED "30-Jul-85 03:30:00" ("compiled on " {ERIS}SOURCES>DSPRINTDEF.;19) "28-Jul-85 01:39:50" recompiled changes: PRINOPEN PRINSHUT PRIN1S PRIN2S PRINENDLINE PRINDOTP SETFONT \DEDITFONT# DEPRINTDEF REPP in "INTERLISP-D 28-Jul-85 ..." dated "28-Jul-85 01:53:53") (FILECREATED "30-Jul-85 03:29:28" {ERIS}SOURCES>DSPRINTDEF.;19 33721 changes to: (FNS PRIN2S \DEDITFONT# PRINDOTP SETFONT PRINENDLINE PRINOPEN DEPRINTDEF PRINSHUT PRIN1S REPP) (MACROS ADJXPOS XPOSITION) previous date: "19-Jul-85 11:36:43" {ERIS}SOURCES>DSPRINTDEF.;18) PRINOPEN D1 (I 2 FILE I 1 PAREN I 0 TAIL F 0 MAKEMAP) *P²"@Piðhð´PhB hB jdB c¿AB (47Q PRIN3 37Q MAKEMAPENTRY 33Q \DEDITFONT# 25Q DSPYPOSITION 20Q DSPXPOSITION) NIL () PRINSHUT D1 (I 2 FILE I 1 PAREN I 0 TAIL F 0 MAKEMAP) %A•AB ¿Pd²hB ÍPhB ÍPɵic(30Q DSPYPOSITION 20Q DSPXPOSITION 6 PRIN3) NIL () PRIN1S D1 (I 2 FILE I 1 TAIL I 0 STR F 0 MAKEMAP) 7P²/APiðhð´PhB hB @B ¿hB hB B @@B (64Q PRIN3 55Q MAKEMAPENTRY 51Q \DEDITFONT# 45Q DSPYPOSITION 40Q DSPXPOSITION 32Q PRIN3 25Q DSPYPOSITION 20Q DSPXPOSITION) NIL () PRIN2S D1 (I 2 FILE I 1 TAIL I 0 STR F 0 MAKEMAP) 7P²/APiðhð´PhB hB @B ¿hB hB B @@B (64Q PRIN4 55Q MAKEMAPENTRY 51Q \DEDITFONT# 45Q DSPYPOSITION 40Q DSPXPOSITION 32Q PRIN4 25Q DSPYPOSITION 20Q DSPXPOSITION) NIL () PRINENDLINE D1 (I 1 FILE I 0 L F 0 MAKEMAP) P²@hA hA ØA A @A (34Q DSPXPOSITION 27Q TERPRI 22Q MOVETO 15Q DSPLINEFEED 10Q DSPYPOSITION) NIL () PRINDOTP D1 (I 1 FILE I 0 V F 0 MAKEMAP) oA @P•dP ‚@dA (27Q PRIN2S 17Q MAKEDOTPTAIL 7 PRIN3) NIL ( 3 " . ") SETFONT D1 (I 1 FILE I 0 FONT F 0 MAKEMAP) @d²A P”h¿oA ¿(26Q STRINGWIDTH 7 DSPFONT) (31Q SPACESIZE 15Q \DEDITFONT#) ( 22Q " ") MAKEMAPENTRY D1 (I 6 FN I 5 EY I 4 EX I 3 SY I 2 SX I 1 BACK I 0 TAIL) J@`dA¿d@¿dBÍ¿dCÍ¿dDÍ¿dEÍ¿AµHdIÏ¿dFÏ¿` Ê°â(77Q PUTHASH 50Q DSPDSFOR) (103Q DEDITMAP 74Q \DEDITMEHASH 3 DEDITMAPTYPE#) () \DEDITFONT# D1 (I 0 FILE) D`µ?`d¨g  h@ kZHó³I`J(Éð”Jµ i…JkÔ°éhµ(101Q SHOULDNT 32Q DSPFONT 25Q ARRAYSIZE 17Q FONTMAPARRAY) (74Q \DEDITFONT# 47Q \DEDITFONTS 22Q \DEDITFONTS 14Q DISPLAY 7 \DEDITFONTS 2 \DEDITFONT#) () DSPDSFOR D1 (P 1 I I 0 DS) u@©hg b¿` kYHó³`I( —@`I(ð”Iµ i…IkÔ°âhµ1` ` lÚ k\Jó­KL`L(*¿LkÔ°ðK¿L`H@*H(113Q ARRAY 105Q ARRAYSIZE 77Q ARRAYSIZE 42Q STREAMP 21Q ARRAYSIZE 10Q GETSTREAM) (156Q \DEDITDSPS 145Q \DEDITDSPS 130Q \DEDITDSPS 102Q \DEDITDSPS 74Q \DEDITDSPS 47Q \DEDITDSPS 35Q \DEDITDSPS 16Q \DEDITDSPS 5 OUTPUT) () MAKEDOTPTAIL D1 (L (1 B 0 V)) AÉAÉ`µhh@d@¿` (32Q PUTHASH) (27Q \DEDITDPHASH 10Q \DEDITDPHASH) () SHOWDEDITMAP D1 (P 2 TL P 1 V P 0 Q I 0 ME) ‹goh@É!H²oI¹H”oƒoJºHX°äIµ;Hhoo@Èo@Èo@Èo@Èo h@ œo‹HJ °Äoh (207Q PACK 204Q APPLY 201Q \APPEND2 176Q \APPEND2 173Q \APPEND2 160Q \APPEND2 144Q UNPURGEDP 135Q CONCAT) (2 CONCAT) ( 166Q " PURGED}" 151Q "}" 131Q ">" 122Q "," 113Q " - " 104Q "," 75Q "<" 71Q " @ " 46Q ")" 41Q " --)" 27Q "(" 6 "{") DEPRINTDEFA0001A0002 D1 (NAME ERRORSET P 7 CHANGEFLG P 6 FILEFLG P 5 TAILFLG P 4 FNSLST P 3 COMMENTCOL P 2 FORMFLG P 1 RMARGIN P 0 FIRSTPOS F 10Q TAIL F 11Q FILE F 12Q LEFT F 13Q MAKEMAP F 14Q FONT F 15Q RESETVARSLST) ½h¿gW hhWc¿hg ¿W`ð²EWɵic¿W¬`WÊ( ¿W³`Wið¢WWÊ(c¿W¦WÈc¿WÉc¿hg Éhg É,lÚÙØiSWW ¿WW ¿WWhW hh(266Q SUPERPRINT 252Q DSPXPOSITION 242Q SETFONT 220Q \INSUREWINDOW 215Q GETSTREAM 201Q \INSUREWINDOW 176Q GETSTREAM 167Q DSPLEFTMARGIN 164Q DSPLEFTMARGIN 107Q OUTPUT 41Q FONTMAPARRAY 17Q OUTPUT) (212Q OUTPUT 173Q OUTPUT 117Q \DEDITFONTS 76Q \DEDITDSPS 53Q DEDITMAPTYPE# 44Q \DEDITFONTS 36Q DISPLAY 12Q OUTPUT 6 #RPARS 3 **COMMENT**FLG) () DEPRINTDEFA0001 D1 (NAME ERRORSET P 1 MACROY P 0 MACROX F 2 RESETVARSLST F 3 RESETY) Xg`g`RcR¹og H¿HX¿IdRð•¿HcR ™RkI H¿µci(120Q ERROR! 107Q NLEFT 100Q TAILP 41Q DEPRINTDEFA0001A0002) (60Q #RPARS 47Q **COMMENT**FLG 36Q INTERNAL 14Q #RPARS 11Q #RPARS 5 **COMMENT**FLG 2 **COMMENT**FLG) ( 33Q (DEPRINTDEFA0001A0002)) DEPRINTDEF D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 MAKEMAP I 3 FILE I 2 FONT I 1 LEFT I 0 TAIL F 4 LISPXHIST F 5 RESETVARSLST) -iT!Uog ‘h‚g[ ¿K“¿@i (52Q GETME4 42Q ERROR! 34Q RESETRESTORE 22Q DEPRINTDEFA0001) (30Q ERROR 17Q INTERNAL) ( 14Q (DEPRINTDEFA0001)) REPPA0001 D1 (NAME ERRORSET F 0 ENT F 1 MACROY) P cci(3 DEPRINTDEF) NIL () REPP D1 (P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 OLDE I 0 ENT F 5 RESETVARSLST) ‰@Xɲr@È@È`@Ê( ¿`@Ê(@  1gIhhUc ºog £g¼Jc ¿gJ ¿L“¿@HÈHÈ@È@È bd³Ž`@Ê(@É (206Q SETDEDITMAP 162Q MOVEDSMAP 137Q ERROR! 131Q APPLY 105Q REPPA0001 52Q RESETCLIP 46Q UNPP 31Q MOVETO) (173Q \DEDITDSPS 122Q RESETCLIP 111Q ERROR 102Q INTERNAL 60Q RESETCLIP 35Q \DEDITDSPS 21Q \DEDITDSPS) ( 77Q (REPPA0001)) REPPCHANGES D1 (P 13Q SCR P 12Q NEWCDR P 11Q NEWCAR P 10Q OLDCDR P 7 OLDCAR P 6 BK P 5 I P 3 TEM P 2 CL P 1 UE I 0 UL) è @ b1HµJLµ‚±¿hY [¢±šKɵKIIII OhðOhðð£N[°cOOð³UI@ “N[°QJLµ h²N[°A]K •Mµñi°îL\°åKOO _d²dið²¿KOO d–dið‘¿N[µ OOðhðžJLµh£KJºHX±ÿI]K •Mµìi°éL\°à] ”M ¿L\±ÿ/(337Q REPP 332Q UNPURGEDP 311Q DOMINATE? 232Q REPPDELETE 207Q REPPINSERT 163Q DOMINATE? 130Q REPPTANGLEDP 41Q GETME4 3 REPPUNRAVEL) NIL () REPPUNRAVEL D1 (L (0 UL)) C @µHgð²)@° dYd³gðŸIIIH¸µà„@H¸@b°ÄNIL (37Q /RPLACA 14Q LISPXHIST) () REPPDELETE D1 (P 11Q IM P 10Q I P 6 SY P 5 SX P 4 OCE P 3 NCE P 2 EDGE I 2 NCDR I 1 OCDR I 0 ENT F 12Q \PRIMOUT.OFD) ã AHY´BI𢱅IµiAJ Z¢±ÁAi ¼B²BJÉ [™B “KȽA! O_—OdBð²K¿B²|M²K ²Mo`KÊ(µW Ô½@KÈKÈMµKÈNµ @ÈJÈKÈÙÙ I±ÿp _²+O –O °B •O ¿M¤OȽN¥OÈ^¿O±ÿy@JÈJÈ@È@È i(336Q MOVEDSMAP 267Q UNPP 261Q COMMENTP 252Q UNPP 244Q COMMENTP 232Q GETME4 221Q MOVEDSMAP 160Q STRINGWIDTH 132Q DPCDRSEL 70Q COMMENTP 61Q GETME4 46Q GETME4 34Q GETME4) (144Q \DEDITFONTS) ( 141Q " . ") REPPINSERTA0001 D1 (NAME ERRORSET L (0 NIL) P 1 E F 2 EDS F 3 TMP F 4 ENT F 5 DELTAX F 6 OCDR F 7 ALIGN F 10Q SX F 11Q SY F 12Q NCDR F 13Q MACROY) Z WWR ¿WH¹Tc¿I–IdVð²¿VSWUR hciSWUR ¿IhR `TÉÊ(R cTÉ¿IY°¾(113Q DEPRINTDEF 75Q DSPXPOSITION 66Q LEADSPACE 47Q LEADSPACE 7 MOVETO) (100Q \DEDITFONTS) () REPPINSERT D1 (P 15Q NSY P 14Q QV P 13Q RESETSTATE P 12Q MACROY P 10Q OLDVALUE P 7 TMP P 6 NY P 5 NX P 4 SY P 3 SX P 2 DELTAX P 1 ALIGN P 0 EDS I 2 NCDR I 1 OCDR I 0 ENT F 16Q RESETVARSLST) îB¢±èA˜AB ¢±Ý`@Ê(@É l `@Ê( @È@È5Iµ‚±JKØYHKLjdh 1 gOhhWc_¿og ¥g_¿Oc¿gO ¿O“¿hH ]hH ^A  OµOKLMN È_¿OÈ»LOñ²H@ O kØ ¿O¼°ÑȱÿgOLð²ÆMdKñ¡¿K½°¼i(317Q REFRESHIF 312Q HIPT 305Q HIPT 257Q MOVEDSMAP 235Q GETME4 230Q DSPYPOSITION 222Q DSPXPOSITION 213Q ERROR! 204Q APPLY 154Q REPPINSERTA0001 115Q RESETCLIP 53Q CHARWIDTH 36Q SPACINGRULE 14Q TAILP) (174Q RESETCLIP 160Q ERROR 151Q INTERNAL 123Q RESETCLIP 43Q \DEDITFONTS 23Q \DEDITDSPS) ( 146Q (REPPINSERTA0001)) REPPTANGLEDP D1 (P 3 CCC P 2 EC P 1 I I 1 L I 0 E) 0A1HµhY ²@Ið•J‘iiºIIð¤K³ói»HX°Ø(17Q GETME4) NIL () LEADSPACE D1 (I 4 EDS I 3 DELTAX I 2 ALIGN I 1 PRV I 0 E) ,@hðµ'Aɲ@ ³BhD hD ØD CjD (51Q RELMOVETO 42Q MOVETO 35Q DSPLINEFEED 30Q DSPYPOSITION 20Q COMMENTP) NIL () SPACINGRULE D1 (P 3 Q P 2 P P 1 E I 0 BME) .@É1HYµJ ³I [µŒÈ@Èð¡KJ¡KºI°Ý(27Q GETSELMAP 21Q COMMENTP) NIL () UNPP D1 (P 4 R P 3 LO P 2 HI P 1 H P 0 EDS I 0 ENT) è `@Ê(`@Ê(È@ kØ@ ThH \@ɳdLLLH L@ œ@ÈK@È@ÈÙ°;@ÈJIÙLLØ@ÈÙIH ¿LKIØLJIÙKIØÙH ¿LK@ÈLÙkØIH ¿LKL½dMñ¡¿M@ —@ LÙƒLJLLkÙؾdNñ‘¿NKL_¿dOñ¢¿OÙ_¿jOñ¢O€jh(251Q NXTUSEDX 244Q ONELINEP 222Q WIPE 200Q WIPE 152Q WIPE 105Q ONELINEP 77Q WIPE 46Q DSPCLIPPINGREGION 36Q LOWPT 30Q HIPT) (22Q FONTDESCRIPTOR 12Q \DEDITFONTS 2 \DEDITDSPS) () NXTUSEDX D1 (P 0 V I 0 E) n @ÉXµ$@ÉXd²IÈ@Èð´AHÈl)`HÊ( Ù°+µ@Èl `@Ê( Ø°@ XÈ@Èð´HÈd³`@Ê( YIkÙØ(142Q DSPCLIPPINGREGION 110Q GETME4 105Q GETMEBP 76Q CHARWIDTH 50Q CHARWIDTH) (132Q \DEDITDSPS 66Q \DEDITFONTS 40Q \DEDITFONTS) () ONELINEP D1 (L (0 ENT)) @È@ÈðNIL NIL () MOVEDSMAP D1 (P 16Q B P 14Q WIDTH P 13Q RIGHT P 12Q LEFT P 11Q BOTTOM P 10Q REG P 7 NEXT P 6 FONTH P 5 NLOW P 4 OLOW P 3 EPDS P 2 LINEFONT P 1 DY P 0 DX I 4 NY I 3 NX I 2 OY I 1 OX I 0 ENT) ‹CAÙDBÙ@B `@Ê(¤ JÈ^DNÙ]BNÙ\JÈ^hK _d_O_OOØ_O_Hjð³lH•H ³b@Oɲ"OÉOÉHBO µO_¿OÉ_°ÞjHñ²%jIñ³ KALKCLOAÙNgg ¿OHØLjH„ALOAÙNK ¿Ijð’±³I—I ’±§KOOKOOIØOLOÙgg ¿@OɲOÉOÉBI ¿OÉ_°çKI ¿Ijñ²(OOdLñ‘¿LOIK ¿KOIØO ¿CMOCÙ°/MIOOØØ_¿dOñ’¿O½OMOjIÙK ¿OLONK ¿KNMdLñ¡¿LkÙØMkØ O(606Q REFRESHIF 563Q WIPE 547Q WIPE 467Q REFRESHIF 454Q WIPE 424Q ADJDEEXTENT 405Q ADJUSTYTAIL 354Q BKBITBLT 314Q \FZEROP 274Q WIPE 247Q BKBITBLT 170Q ADJUSTXTAIL 133Q \FZEROP 60Q DSPCLIPPINGREGION 12Q DSLINEFONT) (350Q REPLACE 345Q INPUT 243Q REPLACE 240Q INPUT 50Q FONTDESCRIPTOR 31Q FONTDESCRIPTOR 15Q \DEDITDSPS) () ADJUSTXTAIL D1 (P 10Q IM P 7 I P 0 OVER I 4 RIGHT I 3 YLINE I 2 DX I 1 BK I 0 TAIL) ¾ `@!N_d³]A _²6CdOÈð²¿DOdÈBÔ[Í¿Kñ¡A¸COÈð²DOdÈBÔ\Í¿Lñ¡A¸CAÈð²DAdÈBÔ]Í¿Mñ¦AɵAXH _²ICOÈð²ÔDOdÈBÔYÍ¿Iñ¡A¸OOOBCD °COÈð²DOdÈBÔZÍ¿Jñhð‘A¸O±ÿN(231Q ADJUSTXTAIL 153Q GETME4 21Q GETME4) NIL () ADJUSTYTAIL D1 (P 2 IM P 1 I I 3 D I 2 OY I 1 BK I 0 TAIL) _@!HYd³,A ZµAdÈCÔKLÍLdÈCÔÍ¿JdÈCÔÍ¿°ß Zµ° dÈCÔÍ¿I˜IJBC ‡JdÈCÔÍ¿I°©(117Q ADJUSTYTAIL 66Q GETME4 15Q GETME4) NIL () ADJDEEXTENT D1 (I 1 DY I 0 EX) '@ Ébµ¿@@AÔ@@jAÙÔ(14Q SHOULDNT 3 \INSUREWINDOW) NIL () DSLINEFONT D1 (I 1 Y I 0 E) "@ÉœA@ÈýñžA@Èñ˜@µiA @Éb°â(30Q DSLINEFONT1) NIL () DSLINEFONT1 D1 (P 3 IM P 2 I P 1 MFONT I 1 YLINE I 0 ENT) 9@d²5ÉA@Èð¦A@Èð´ `@Ê("HZ²IJ A ¹J°íI(60Q MAXFONT 55Q DSLINEFONT1 51Q GETME4) (27Q \DEDITFONTS) () MAXFONT D1 (I 1 F2 I 0 F1) !@ –@È€jA –AÈ€jñ‘@A(20Q FONTP 3 FONTP) (25Q FONTDESCRIPTOR 10Q FONTDESCRIPTOR) () REFRESHIF D1 (P 0 R I 2 LO I 1 HI I 0 WDS) :n'@ h@ !@ @AHHعdIñ‘¿IBHºdJñ¡¿J @ (67Q DSPRIGHTMARGIN 62Q REFRESHIF1 22Q GETMAP? 13Q DSPCLIPPINGREGION 6 DSPRIGHTMARGIN) NIL () REFRESHIF1 D1 (P 4 I I 3 LO I 2 HI I 1 DS I 0 M) @´‚±¯BC@ @ KHñµIJñhð´‚±‘@É¢±ÍB@È`@Ê(ÈÙñ²"@È@ÈA ¿`@Ê(A ¿gA ¿@ÉK\d³xµDC@È`@Ê(ÈØñ³p@Èl)`@Ê( Ù@ÈA `@Ê(A gA @ \Èo`@Ê( ÙLÈA ¿oA ¿LABC ¿°Ž@ ABC ¿L±ÿxh@È@ÈA `@Ê(A @ÉA (425Q PRIN4 415Q DSPFONT 401Q MOVETO 357Q REFRESHIF1 351Q GETME4 342Q REFRESHIF1 332Q PRIN3 321Q MOVETO 311Q STRINGWIDTH 267Q GETME4 262Q PRIN3 253Q DSPFONT 237Q MOVETO 227Q CHARWIDTH 141Q PRIN3 131Q DSPFONT 114Q MOVETO 20Q LOWPT 14Q HIPT) (404Q \DEDITFONTS 301Q \DEDITFONTS 256Q %) 242Q \DEDITFONTS 217Q \DEDITFONTS 201Q FONTDESCRIPTOR 171Q \DEDITFONTS 135Q %( 120Q \DEDITFONTS 74Q FONTDESCRIPTOR 64Q \DEDITFONTS) ( 326Q " . " 276Q " . ") COMMENTP D1 (L (0 E)) `d“@ðNIL (2 COMMENTFLG) () HIPT D1 (L (0 ENT)) @È`@Ê(ÈkÙØNIL (15Q FONTDESCRIPTOR 5 \DEDITFONTS) () LOWPT D1 (L (0 E)) @È`@Ê(ÈÙNIL (15Q FONTDESCRIPTOR 5 \DEDITFONTS) () WIPE D1 (I 4 DS I 3 H I 2 W I 1 Y I 0 X) hddD@ABCgghD (26Q BKBITBLT 22Q DSPTEXTURE) (15Q REPLACE 12Q TEXTURE) () RESETCLIP D1 (I 0 C) @@@ (10Q DSPCLIPPINGREGION) NIL () (PRETTYCOMPRINT DSPRINTDEFCOMS) (RPAQQ DSPRINTDEFCOMS ((COMS (* NEWPRINTDEF primitives for a display that maintains a map as it PPs) ( DECLARE: EVAL@COMPILE DONTCOPY (MACROS ADJXPOS BLANKS WIDTH XPOSITION YPOSITION OVERLAP) (GLOBALVARS \DEDITDSPS \DSPRINTBP \DEDITMEHASH \DEDITDPHASH \DEDITFONT# \DEDITFONTS COMMENTFLG SPACESIZE **COMMENT**FLG #RPARS) (CONSTANTS DOTSTRING)) (FNS PRINOPEN PRINSHUT PRIN1S PRIN2S PRINENDLINE PRINDOTP SETFONT MAKEMAPENTRY \DEDITFONT# DSPDSFOR MAKEDOTPTAIL) (DECLARE: DONTCOPY (RECORDS DEDITMAP) ) (INITRECORDS DEDITMAP) (FNS SHOWDEDITMAP) (P (DEFPRINT (QUOTE DEDITMAP) (QUOTE SHOWDEDITMAP)))) ( COMS (* DEDIT entry and incremental reprettyprinting) (FNS DEPRINTDEF) (FNS REPP REPPCHANGES REPPUNRAVEL REPPDELETE REPPINSERT REPPTANGLEDP LEADSPACE SPACINGRULE UNPP NXTUSEDX ONELINEP) (FNS MOVEDSMAP ADJUSTXTAIL ADJUSTYTAIL ADJDEEXTENT DSLINEFONT DSLINEFONT1 MAXFONT) (FNS REFRESHIF REFRESHIF1) (FNS COMMENTP HIPT LOWPT WIPE) (FNS RESETCLIP)))) (/DECLAREDATATYPE (QUOTE DEDITMAP) (QUOTE (BYTE POINTER BYTE POINTER WORD WORD WORD WORD)) (QUOTE (( DEDITMAP 0 (BITS . 7)) (DEDITMAP 0 POINTER) (DEDITMAP 2 (BITS . 7)) (DEDITMAP 2 POINTER) (DEDITMAP 4 ( BITS . 15)) (DEDITMAP 5 (BITS . 15)) (DEDITMAP 6 (BITS . 15)) (DEDITMAP 7 (BITS . 15)))) (QUOTE 8)) (DEFPRINT (QUOTE DEDITMAP) (QUOTE SHOWDEDITMAP)) (PUTPROPS DSPRINTDEF COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL