1
0
mirror of synced 2026-05-10 09:25:44 +00:00
Files
Interlisp.medley/lispusers/EDITFONT.LCOM
2026-05-05 12:36:40 -07:00

168 lines
10 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED " 5-May-2026 12:21:24" ("compiled on " {MEDLEY}<lispusers>EDITFONT.;53)
" 5-May-2026 11:14:53" brecompiled exprs%: EDITFONT in "FULL 5-May-2026 ..." dated
" 5-May-2026 11:15:02")
(FILECREATED " 5-May-2026 12:21:24" {MEDLEY}<lispusers>EDITFONT.;53 27357 :EDIT-BY rmk :CHANGES-TO (
FNS EDITFONT) (RECORDS CHARITEM) :PREVIOUS-DATE " 5-Apr-2026 11:56:20" {MEDLEY}<lispusers>EDITFONT.;51
)
EF.INIT :D8
(F 2 EF.MENU F 3 EF.TITLEMENU) r`do¿dg ¿dg¿jdnÿdhHdI
¿c`do¿dg ¿dg¿jdnÿdhHdI
¿cNIL
(85 DEFAULTMENUHELDFN 76 CLRPROMPT 60 |MENUTYPE#| 29 DEFAULTMENUHELDFN 20 CLRPROMPT 4 |MENUTYPE#|)
( 67 ((Save (QUOTE EF.SAVE) "Save EDITFONT's work back into font.") (Inspect (QUOTE EF.INSPECT) "Inspect this charset info"))
11 ((Changesize (QUOTE EF.CHANGESIZE) "Change size of character.") (Delete (QUOTE EF.DELETE) "Delete character.") (EditBM (QUOTE EF.EDITBM) "Edit character.") (Replace (QUOTE EF.REPLACE) "Prompt for bitmap to replace character.")))
EF.PROMPTA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 PROMPTW) 4gQ hhPcg` hhPcQ (49 TTYINREAD 34 TTY.PROCESS 10 TTYDISPLAYSTREAM)
(29 \RUNNING.PROCESS 24 TTY.PROCESS 4 TTYDISPLAYSTREAM)
()
EF.PROMPT :D8
(L (1 WINDOW 0 STRING) P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 0 PROMPTW F 5 LISPXHIST) N A Xd @H
oH
U!g ¿$YH I (75 EVAL 69 TERPRI 57 SI::RESETUNWIND 52 \MVLIST 47 EF.PROMPTA0001 33 PRIN1 22 PRIN1 15 CLEARW 8 GETPROMPTWINDOW)
(42 SI::RESETUNWIND)
( 27 " ")
EF.MESSAGE :D8
(L (1 WINDOW 0 STRING)) A X@H
h(16 PRIN1 8 GETPROMPTWINDOW)
NIL
()
EF.CLOSEFN :D8
(L (0 WINDOW)) ,o gð•g@ @gh h(40 PUTWINDOWPROP 28 CLOSEW 9 ASKUSER)
(34 MENU 21 DON'T 14 N)
( 4 "Close Editfont Window?")
EF.CHARITEMS :D8
(P 13 CODE P 9 COL P 6 ROW P 2 C P 1 C8 I 2 ROWMAJOR I 1 CHARSET I 0 FONT) ªB²;lÿjAá3IHóKJ@
IJ@
h½LµMh\»IkÔ¹JkÔº°ÖM&¼°óljNMó³aOljB
OOó³AAáOlÖNØä_@
Od@
h_¿OµOh__¿OkÔ_°ÆO&_¿°òO
_¿NkÔ^°ŸO(156 \NCONC2 112 SLUGCHARP 103 GETCHARBITMAP 31 SLUGCHARP 23 GETCHARBITMAP)
NIL
()
EF.BUTTONEVENTFN :D8
(L (0 WINDOW) F 1 EF.TITLEMENU) 4h@
@ @ @ <00>Q X´@kHh(40 MENU 33 MENUBUTTONFN 26 INSIDEP 21 LASTMOUSEY 15 LASTMOUSEX 9 DSPCLIPPINGREGION)
NIL
()
EF.WHENSELECTEDFN :D8
(L (2 KEY 1 MENU 0 CHARITEM)) '@´$Bdgð˜¿@A
Žgð´
@A
h(35 EF.MIDDLEBUTTONFN 19 EF.EDITBM)
(25 MIDDLE 9 LEFT)
()
EF.EDITBMA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 0 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 1 CHARITEM F 2 BITMAP F 3 MENU F 4 SI::*RESETFORMS* F 5 CHARCODE F 6 SLUGCHARP) agQSoQSnÿÿ hTcQcd c¿QR¿QhRUi
oSg
(94 EDITBM 89 CONCAT 84 GETMENUPROP 68 CHARCODE.ENCODE 44 BITMAPCOPY 24 SHADEITEM)
(79 EDITFONTTITLE 4 SHADEITEM)
( 73 " in " 11 (0))
EF.EDITBM :D8
(L (2 CHARSET) P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 BITMAP P 1 CHARCODE P 0 SLUGCHARP I 1 MENU I 0 CHARITEM F 6 LISPXHIST) ;@@V!g ¿$H´A A (56 REDISPLAYW 51 WFROMMENU 45 UPDATE/MENU/IMAGE 31 SI::RESETUNWIND 26 \MVLIST 21 EF.EDITBMA0001)
(16 SI::RESETUNWIND)
()
EF.MIDDLEBUTTONFN :D8
(L (1 MENU 0 CHARITEM) F 1 EF.MENU) Q Xd´
@AlHh(8 MENU)
NIL
()
EF.CHANGESIZE :D8
(L (1 MENU 0 CHARITEM) P 3 \INTERRUPTABLE) ~0A ZoJ
oJ
h XoJ
oJ
h dH
Y@hdI @I¿@hA A h(122 REDISPLAYW 117 WFROMMENU 111 UPDATE/MENU/IMAGE 92 BKBITBLT 81 BITMAPCREATE 74 EVAL 67 EF.MESSAGE 53 EF.PROMPT 41 EVAL 34 EF.MESSAGE 20 EF.PROMPT 8 WFROMMENU)
NIL
( 61 "Aborted." 47 "New width?" 28 "Aborted." 14 "New height?")
EF.DELETE :D8
(P 2 \INTERRUPTABLE P 1 SLUGBITMAP P 0 WINDOW I 1 MENU I 0 CHARITEM) NA nHg
ÉHg
àÐÉ
Y@I¿@iA A (75 REDISPLAYW 70 WFROMMENU 64 UPDATE/MENU/IMAGE 44 \GETCHARBITMAP.CSINFO 35 GETWINDOWUSERPROP 22 GETWINDOWUSERPROP 5 WFROMMENU)
(30 CHARSET 17 FONT)
()
EF.ENTER :D8
(L (1 MENU 0 CHARITEM) P 1 \INTERRUPTABLE) Xo Xdµoi
¿i °2dò#¿@H¿@hA ¿A †l
h(84 \LISPERROR 76 REDISPLAYW 71 WFROMMENU 64 UPDATE/MENU/IMAGE 34 TERPRI 27 PRIN1 12 EF.PROMPT)
(42 BITMAP)
( 21 "Aborted." 7 "Enter new bitmap (evaluated):")
EF.REPLACE :D8
(L (1 MENU 0 CHARITEM) P 2 \INTERRUPTABLE) Y A YoI
XdµoI
°2dò#¿@H¿@hA ¿A †l
h(85 \LISPERROR 77 REDISPLAYW 72 WFROMMENU 65 UPDATE/MENU/IMAGE 35 EF.MESSAGE 20 EF.PROMPT 8 WFROMMENU)
(43 BITMAP)
( 29 "Aborted." 14 "New bitmap?")
EF.SAVE :D8
(P 22 C8 P 21 BM P 20 CI P 14 SLUGWIDTH P 13 SLUGOFFSET P 12 SLUGBM P 11 CSINFO P 10 OFFSET P 9 WIDTH P 8 HEIGHT P 7 OFFSETS P 6 WIDTHS P 5 CB P 4 CBHEIGHT P 3 CBWIDTH P 2 CHARSET P 1 CHARITEMS P 0 FONT I 0 WINDOW) @g
@g
@g
jdåI!O&µ‚±nJàÐÉ
_dÈ_KOÔ[LOÈ_ ¿dO ñ¢¿O \KL
]HÉJàÐÉ dM¿_dÉ_OÉ^j_I1O&µ‚±ÁO_OnÐOÍOnkØÐOOØÍOjdMOjOOÈgg
I_"µ‚±ÝOMONOOONHÉJàÐOO_(d³(_*¿KO*ÈØ»LO*È_¿dOñ¢¿O\¿O&_&±þÁ_(d³W_*È_¿O*jdMOjOO*Ègg
¿O(lÿå_,¿OO,ÐOÍ¿NO,ÐOÍ¿OOÔ_¿O&_&±þ×_$²OO$lÿåÐOÍ¿NO$lÿåÐOÍ¿O"±þõ(422 BKBITBLT 240 BKBITBLT 127 COPYALL 113 BITMAPCREATE 67 \GETCHARBITMAP.CSINFO 32 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(416 REPLACE 411 INPUT 404 BITMAP 382 BITMAP 342 BITMAP 330 BITMAP 297 FONTDESCRIPTOR 288 CHARSETINFO 277 CHARSETINFO 267 CHARSETINFO 257 CHARSETINFO 234 REPLACE 229 INPUT 222 BITMAP 156 CHARSETINFO 145 CHARSETINFO 133 CHARSETINFO 92 BITMAP 75 BITMAP 27 CHARSET 16 CHARITEMS 5 FONT)
()
EF.INSPECT :D8
(I 0 WINDOW) )@g
@g
IàÐÉ (38 INSPECT 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(16 CHARSET 5 FONT)
()
COPYFONT :D8
(L (0 FONT))
@ (10 COPYALL 5 FONTCREATE)
NIL
()
READSTRIKEFONTFILE :D8
(L (5 CHARSET 4 FONT 3 FILE 2 FACE 1 SIZE 0 FAMILY)) o @ABCDE
(21 FONTCREATE 9 HELP)
NIL
( 4 "USE MEDLEYFONT.READ.FONT")
BLANKCHARSETCREATE :D8
(P 25 W P 24 I P 21 I P 19 FS P 10 CBHEIGHT P 9 CBWIDTH P 8 CB P 7 SLUGOFFSET P 6 WIDTHS P 5 OFFSETS P 4 SLUGWIDTH P 3 CSINFO P 2 FONT P 1 DEVICE P 0 ROTATION I 8 WIDTH I 7 DESCENT I 6 ASCENT I 5 LASTCHAR I 4 FIRSTCHAR I 3 CHARSET I 2 FACE I 1 SIZE I 0 FAMILY) þ C£jb¿D£jb¿E¤lÿb
¿jDElÿ ¯oDEh
¿F¨Fl
¿G©Gl
¿ð@@ABjgC
ZdÞJÉCàÐÉ[¢±¨JJO&ÞO&g
_&<26>O&O&_&¿b¿O&O&_&¿b¿O&O&_&¿b¿O&O&_&¿¸O&Y`dg¿d@¿dA¿dB¿djÍ
¿djÍ ¿@ABjgh_¿dO¿llÿØi
_¿dO¿ºGµAoê b°,h_¿_¿Oµ‚±šiŸG EkØDÙkØð©Gl
¿`dFÍ
¿dGÍ ¿dnÿÿÍ¿lÿlØkØâ _¿dO¿lÿlØkØâ _ ¿dO ¿[dÉ^Gd¢± ¼DkÙjO*O(ó³3NO*ÐLÍ¿O*kÔ_*°í¦O_¿hˆO_¿O_¿O3 ±ÿGh±ÿLGEDO,µlÿEkØO*O(ó²'°T_2¿O0O.ó³äNO0ÐO2Í¿O0kÔ_0¿O,_,°ÊNO*ÐLÍ¿O*kÔ_*°È¼lÿjO*O(ó³NO*ÐGÍ¿O*kÔ_*°ìKÉ]EkØDO*O(ó³ MO*kØÐMO*ÐÈNO*ÐÈØÍ¿O*kÔ_*°ßNnÐLÍMEÐÈNEÐÈØ_MnÐOÍMnkØÐOLØÍDkÙjO*O(ó³MO*ÐOÍ¿O*kÔ_*°ìnEkØO*O(ó³MO*ÐOÍ¿O*kÔ_*°ìJÈ µjKÈ _"¿dO"ñ¢¿O"b JÈ µjKÈ _$¿dO$ñ¢¿O$bFGØ_MnÐÈNnÐÈØ_dO
_nÿÿOOjLOÈg
KOKDE KKÉJJGÍ JJÈ
µjdOñ¢¿OÍ
JÉÉCàÐKJJ ÍJ(1016 \AVGCHARWIDTH 921 \FONTRESETCHARWIDTHS 903 BLTSHADE 872 BITMAPCREATE 435 LAST 403 \ALLOCBLOCK 381 \ALLOCBLOCK 343 \LISPERROR 325 LENGTH 297 FIXR 271 \ALLOCBLOCK 142 FONTPROP 95 \FONT.CHECKARGS 72 \LISPERROR 57 \LISPERROR 44 ERROR 28 <=)
(1010 FONTDESCRIPTOR 996 FONTDESCRIPTOR 989 FONTDESCRIPTOR 968 FONTDESCRIPTOR 962 FONTDESCRIPTOR 952 FONTDESCRIPTOR 943 FONTDESCRIPTOR 933 CHARSETINFO 927 CHARSETINFO 909 CHARSETINFO 897 REPLACE 890 BITMAP 826 CHARSETINFO 815 FONTDESCRIPTOR 794 CHARSETINFO 783 FONTDESCRIPTOR 620 CHARSETINFO 419 CHARSETINFO 349 |CHARSETINFOTYPE#| 245 DISPLAY 208 DISPLAY 201 |FONTDESCRIPTORTYPE#| 137 SPEC 129 FONTDESCRIPTOR 102 FONTDESCRIPTOR 88 DISPLAY)
( 291 0.6 34 "ILLEGAL ARGS")
EDITFONT :D8
(P 7 WINDOW P 6 POS P 5 REGION P 4 WIDTH P 3 HEIGHT P 2 TITLE P 1 MENU P 0 CHARITEMS I 4 TITLETAG I 3 NCOLUMNS I 2 ROWMAJOR I 1 CHARSET I 0 FONT) 
@hddddA
bdg
gð«@o
¿A µjb  @AB X`d@¿di ¿Cµl_¿dO¿dH¿dg¿dg ¿dg¿jdnÿdh_¿dO
¿Y@g
o@g
o@g
oA DoD
„o
ZIgJ I i
[I \dK
^dNLKh]dJ
_dgH Og@ OgA IOjd Ogg O @(384 MODERNWINDOW 377 PUTWINDOWPROP 360 ADDMENU 349 PUTWINDOWPROP 336 PUTWINDOWPROP 323 PUTWINDOWPROP 309 CREATEW 289 GETBOXPOSITION 281 WIDTHIFWINDOW 276 BITMAPWIDTH 271 CHECK/MENU/IMAGE 264 HEIGHTIFWINDOW 258 BITMAPHEIGHT 253 CHECK/MENU/IMAGE 247 PUTMENUPROP 234 PACK* 222 CONCAT 209 OCTALSTRING 198 FONTFACETOATOM 193 FONTPROP 177 FONTPROP 161 FONTPROP 66 EF.CHARITEMS 50 CHARSET.DECODE 43 ERROR 25 FONTPROP 12 FONTCREATE)
(372 EF.BUTTONEVENTFN 367 BUTTONEVENTFN 343 CHARSET 330 FONT 317 CHARITEMS 241 EDITFONTTITLE 188 FACE 172 SIZE 156 FAMILY 126 DEFAULTMENUHELDFN 117 CLRPROMPT 108 EF.WHENSELECTEDFN 72 |MENUTYPE#| 30 DISPLAY 20 DEVICE)
( 228 "" 216 " " 203 " " 182 " " 166 " " 38 " is not a display font")
(PRETTYCOMPRINT EDITFONTCOMS)
(RPAQQ EDITFONTCOMS ((* ;;
"EDITFONT -- By Kelly Roach. Need to LOAD EXPORTS.ALL in order to compile this file.") (INITVARS (
EF.MENU NIL) (EF.TITLEMENU NIL)) (FNS EF.INIT EF.PROMPT EF.MESSAGE EF.CLOSEFN EF.CHARITEMS
EF.BUTTONEVENTFN EF.WHENSELECTEDFN EF.EDITBM EF.MIDDLEBUTTONFN EF.CHANGESIZE EF.DELETE EF.ENTER
EF.REPLACE EF.SAVE EF.INSPECT COPYFONT READSTRIKEFONTFILE) (FNS BLANKCHARSETCREATE EDITFONT) (
DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS CHARITEM) (FILES (LOADCOMP) FONT)) (P (EF.INIT))))
(RPAQ? EF.MENU NIL)
(RPAQ? EF.TITLEMENU NIL)
(EF.INIT)
NIL