(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "13-Jun-2021 20:56:35" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>DSPRINTDEF.;1) "13-Jun-2021 14:44:27" recompiled explicitly%: PRIN2-LONG-STRING in "FULL 13-Jun-2021 ..." dated "13-Jun-2021 14:44:40") (FILECREATED "19-Jan-93 10:27:05" {DSK}lde>lispcore>sources>DSPRINTDEF.;2 18635 changes to%: ( RECORDS DEDITMAP) previous date%: "16-May-90 16:17:21" {DSK}lde>lispcore>sources>DSPRINTDEF.;1 ) PRINOPEN :D8 (I 2 FILE I 1 PAREN I 0 TAIL F 0 MAKEMAP) 4P*@PihPhB hB jdB cAB (49 PRIN3 39 MAKEMAPENTRY 33 \DEDITFONT# 25 DSPYPOSITION 18 DSPXPOSITION) NIL () PRINSHUT :D8 (I 2 FILE I 1 PAREN I 0 TAIL F 0 MAKEMAP) FAAB Pd8diPhB PhB Pic(52 DSPYPOSITION 37 DSPXPOSITION 23 SHOULDNT 8 PRIN3) (60 DEDITMAP 45 DEDITMAP 30 DEDITMAP) () PRIN1S :D8 (I 2 FILE I 1 TAIL I 0 STR F 0 MAKEMAP) GP=APihPhB hB @B hB hB B @@B (68 PRIN3 59 MAKEMAPENTRY 53 \DEDITFONT# 47 DSPYPOSITION 40 DSPXPOSITION 32 PRIN3 25 DSPYPOSITION 18 DSPXPOSITION) NIL () PRIN2S :D8 (I 2 FILE I 1 TAIL I 0 STR F 0 MAKEMAP) GP=APihPhB hB @B hB hB B @@B (68 PRIN4 59 MAKEMAPENTRY 53 \DEDITFONT# 47 DSPYPOSITION 40 DSPXPOSITION 32 PRIN4 25 DSPYPOSITION 18 DSPXPOSITION) NIL () PRINENDLINE :D8 (P 0 NS I 1 FILE I 0 NEWXPOSITION F 3 *STANDARD-OUTPUT* F 4 MAKEMAP F 5 SPACEWIDTH F 6 \TERM.OFD F 7 DEFAULTFONT) ASbT@hA hA A A A ddgihAV_XWA @hA U!HlYjoA IkٰHl ZjoA JkٰA @A (164 DSPXPOSITION 156 SETFONT 143 PRIN3 127 REMAINDER 113 PRIN3 87 DSPXPOSITION 79 SETFONT 69 DRIBBLEFILE 43 IMAGESTREAMTYPE 37 TERPRI 30 MOVETO 23 DSPLINEFEED 16 DSPYPOSITION) (51 TEXT) ( 137 " " 107 " ") PRINDOTP :D8 (P 1 MAXPOS P 0 DOT I 1 FILE I 0 E F 2 *STANDARD-OUTPUT* F 3 MAKEMAP F 4 RMARGIN F 5 FIRSTPOS) goT@ARi HARh oARh hA IUIIA HA @SdS @dA (100 PRIN2S 90 MAKEDOTPTAIL 80 PRIN3 72 PRINENDLINE 58 DSPXPOSITION 47 STRINGWIDTH 31 STRINGWIDTH 19 STRINGWIDTH) NIL ( 37 ")" 4 " . ") SETFONT :D8 (P 0 OLDFONT I 1 FILE I 0 FONT F 1 SPACEWIDTH F 2 MAKEMAP) *@d&A H@RhQlxA cH(36 CHARWIDTH 9 DSPFONT) (24 \DEDITFONT#) () MAKEDOTPTAIL :D8 (I 1 B I 0 V) 1AA` hh@d@` (46 PUTHASH 25 GETHASH) (41 \DEDITDPHASH 20 \DEDITDPHASH 13 DEDITMAP 5 DEDITMAP) () SUPERPRINT/WRAPPER :D8 (P 3 LEFT P 2 Y P 1 X P 0 BODY I 4 FILE I 3 BRFLG I 2 TAIL I 1 E I 0 MACRO F 4 *STANDARD-OUTPUT* F 5 MAKEMAP F 6 RMARGIN F 7 LEFT) AH=hD @DTh HDTi oDTh VWD B@D Ud7@ hD hD AUihUIJIJD hD HACD BhD (160 PRINSHUT 152 SUPERPRINT 139 DSPXPOSITION 131 MAKEMAPENTRY 125 \DEDITFONT# 103 DSPYPOSITION 96 DSPXPOSITION 76 PRINOPEN 67 PRINENDLINE 55 STRINGWIDTH 39 STRINGWIDTH 27 STRINGWIDTH 16 DSPXPOSITION) (85 DEDITMAP) ( 45 ")") PRIN2STRING :D8 (P 0 TEM I 5 COMMENTP I 4 RMARG I 3 LMARG I 2 FILE I 1 TAIL I 0 STR F 1 *DIVIDE-LONG-STRINGS* F 2 RMARGIN F 3 *STANDARD-OUTPUT* F 4 FIRSTPOS) ZQdgB i@BiACDE R@BSi HhB HTCdHHB @AB (87 PRIN2S 77 PRINENDLINE 56 DSPXPOSITION 44 STRINGWIDTH 31 PRIN2-LONG-STRING 15 IMAGESTREAMP) (7 DISPLAY) () PRIN2-LONG-STRING :D8 (P 30 ENTRY P 29 HASH P 24 C P 23 POS P 22 I P 20 SEMICLOSE P 19 ESCAPESEPRS P 18 SEMISTRING P 17 SINGLELEFT P 16 MAPY1 P 15 MAPX1 P 14 J P 13 POS P 12 NEXTC P 11 C P 10 I P 9 LASTSPACE P 8 SEMIWIDTH P 7 CLOSEWIDTH P 6 SPACEWIDTH P 5 ESCWIDTH P 4 IMSTREAMP P 3 FONT P 2 HERE P 1 SA P 0 ESC I 7 USE-SEMI-COLONS I 6 COMMENTP I 5 RMARG I 4 LMARG I 3 TAIL I 2 P2FLG I 1 STREAM I 0 STRING F 31 MAKEMAP F 32 *READTABLE*) W@W@hA hA A KAHK l K BoK j_GIlG*NGl;K _Gl; o _$o_$K _o_(@kJBl"K GjlGOlOOSO*dj k_4O*dj _6O4O*l _2O*dj lD_8O4k_4O2\O8O6O4O6O4_0l O,_h?BO0l"O0HO.M_.O.O0K _.EhO0l O,_O,k_,i-B@CA O$@CA O(dA A OFJDW>'DZA j_W>J_hA _ JD_"BFA (i_&W@AO: JO:K ZAl" Jl"K ԺGO$A JOԺGlh_$j_@Ok_ _OOJ_O_Odl h@Ok dl dl dOk_JNEO&ǰON_j_EOiOjOl @Ok_ _l q@Ok_ _l DA @Ok_ _l O&AH j_@Ok_ _l Odl 𑿍DOOErO_BOl"OHAH JMԺAO JOK ԺOl"OHOM_OOK _DA DOLO&1OlIɀOIɀ jIOl`vO$bO$A JOԺQBAl" W>dCW>ihW>OO hA hA A O<kO"O<khA DEO<k O(dA h(1151 PRIN1 1122 DSPRIGHTMARGIN 1084 MAKEMAPENTRY 1078 \DEDITFONT# 1072 DSPYPOSITION 1065 DSPXPOSITION 1038 \OUTCHAR 1019 PRIN1 990 GETHASH 947 PRINENDLINE 939 SHOULDNT 927 CHARWIDTH 894 CHARWIDTH 884 \OUTCHAR 871 \OUTCHAR 815 NTHCHARCODE 796 \OUTCHAR 778 NTHCHARCODE 765 PRINENDLINE 751 NTHCHARCODE 729 NTHCHARCODE 643 NTHCHARCODE 600 NTHCHARCODE 568 PRIN1 552 CHARWIDTH 542 \OUTCHAR 531 CHARWIDTH 521 \OUTCHAR 494 IMAGESTREAMP 476 DSPYPOSITION 456 PRINENDLINE 430 PRIN1 423 PRIN1 413 PRIN1S 400 PRIN2S 357 CHARWIDTH 275 %%ARRAY-TYPE-NUMBER 257 \GETBASEFIXP 240 %%ARRAY-BASE 218 %%ARRAY-OFFSET 176 CHARWIDTH 152 STRINGWIDTH 134 CONCAT 124 ALLOCSTRING 110 CHARWIDTH 83 STRINGWIDTH 69 CHARWIDTH 60 CHARWIDTH 38 IMAGESTREAMP 32 DSPFONT 25 DSPXPOSITION) (1134 DEDITMAP 1110 DEDITMAP 1094 DEDITMAP 983 CHARTABLE 971 CHARTABLE 507 READTABLEP 50 FONTDESCRIPTOR 16 READTABLEP 6 READTABLEP) ( 160 "|#" 144 "#|" 129 " " 77 "%")") (PRETTYCOMPRINT DSPRINTDEFCOMS) (RPAQQ DSPRINTDEFCOMS ((COMS (* ; "NEWPRINTDEF primitives for a display that maintains a map as it PPs") (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS BLANKS WIDTH XPOSITION YPOSITION OVERLAP) (GLOBALVARS \DEDITDSPS \DSPRINTBP \DEDITMEHASH \DEDITDPHASH \DEDITFONT# \DEDITFONTS COMMENTFLG) (CONSTANTS DOTSTRING) (COMS (* ;; "The DEDITMAP record declaration is here because several functions in this file use it when MAKEMAP is true (only on calls from DEDIT). However, it is DONTCOPY -- the INITRECORDS definition is on DEDITPP, which is only loaded when DEDIT is" ) (RECORDS DEDITMAP))) (FNS PRINOPEN PRINSHUT PRIN1S PRIN2S PRINENDLINE PRINDOTP SETFONT MAKEDOTPTAIL) ) (COMS (* ; "Wrappers") (FNS SUPERPRINT/WRAPPER)) (COMS (* ; "String printer") (FNS PRIN2STRING PRIN2-LONG-STRING) (INITVARS (*DIVIDE-LONG-STRINGS* (QUOTE DISPLAY)))))) (RPAQ? *DIVIDE-LONG-STRINGS* (QUOTE DISPLAY)) (PUTPROPS DSPRINTDEF COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1993)) NIL