168 lines
10 KiB
Plaintext
168 lines
10 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED " 5-Apr-2026 11:56:20" ("compiled on " {WMEDLEY}<lispusers>EDITFONT.;51)
|
||
" 4-Apr-2026 18:05:26" brecompiled exprs%: EF.INIT in "FULL 4-Apr-2026 ..." dated
|
||
" 4-Apr-2026 18:05:33")
|
||
(FILECREATED " 5-Apr-2026 11:56:20" {WMEDLEY}<lispusers>EDITFONT.;51 27416 :EDIT-BY rmk :CHANGES-TO (
|
||
FNS EF.INIT EF.INSPECT) (VARS EDITFONTCOMS) (RECORDS CHARITEM) :PREVIOUS-DATE " 4-Apr-2026 18:14:31"
|
||
{WMEDLEY}<lispusers>EDITFONT.;48)
|
||
EF.INIT :D8
|
||
(F 2 EF.MENU F 3 EF.TITLEMENU) r ` do ¿dg ¿dg ¿jdnÿdhHdI
|
||
¿c` do ¿dg ¿dg ¿jdnÿdhHdI
|
||
¿c NIL
|
||
(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) 4 g Q hhPc g ` hhPc Q (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
|
||
o H
|
||
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 @ @g h 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) 4 h@
|
||
@ @ –@ <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) a g QSo QSnÿÿ hTcQcV²d c¿ QR¿QhRUi
|
||
o Sg
|
||
|
||
(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 Zo J
|
||
dµo J
|
||
h Xo J
|
||
dµo J
|
||
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) N A n Hg
|
||
É 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) X o Xdµo i
|
||
¿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 Yo I
|
||
Xdµo I
|
||
°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&µ‚±n HÉ JàÐÉ
|
||
_d È_ KO Ô[LO È_ ¿dO ñ¢¿O \KL
|
||
]HÉ JàÐÉ d M¿_d É_O É ^j_I1O&µ‚± ÁO_On ÐOÍ On kØÐOO ØÍ OjdMOjO O Èg g
|
||
I_"µ‚± ÝO MO N O OO NH É JàÐO O_(d³(_*¿KO* ÈØ»LO* È_ ¿dO ñ¢¿O \¿O&_&±þÁ_(d³W_* È_¿O*jdMOjOO* Èg g
|
||
¿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
|
||
HÉ 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ÿ ¯o DEh
|
||
¿F¨Fl
|
||
¿G©Gl
|
||
¿ð@@ABjg C
|
||
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Í ¿@ABjg h_¿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_¿O 3 ’±ÿ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Í Mn kØÐOLØÍ DkÙjO*O(ó³MO*ÐOÍ ¿O*kÔ_*°ìn EkØO*O(ó³MO*ÐOÍ ¿O*kÔ_*°ìJ È µjK È _"¿dO"ñ¢¿O"b J È µjK È _$¿dO$ñ¢¿O$bFGØ_Mn ÐÈ Nn ÐÈ Ø_dO
|
||
_nÿÿOOjLO Èg
|
||
K OKDE K K É J FÍJ GÍ J J È
|
||
µjdOñ¢¿OÍ
|
||
J É É CàÐK J J Í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) —
|
||
@Ã ³ @Ai µ@hddddA
|
||
b €@g
|
||
g ð«@o
|
||
¿A µjb @AB X` d@¿di ¿Cµl_¿dO¿dH¿dg ¿dg ¿dg ¿jdnÿdh_¿dO
|
||
¿Y@g
|
||
o @g
|
||
o @g
|
||
o A D›o D
|
||
„o
|
||
ZIg J I i
|
||
[I \dK
|
||
^dNLKh]dJ
|
||
_dg H Og @ Og A IOjd Og g O @ (403 MODERNWINDOW 396 PUTWINDOWPROP 379 ADDMENU 368 PUTWINDOWPROP 355 PUTWINDOWPROP 342 PUTWINDOWPROP 328 CREATEW 308 GETBOXPOSITION 300 WIDTHIFWINDOW 295 BITMAPWIDTH 290 CHECK/MENU/IMAGE 283 HEIGHTIFWINDOW 277 BITMAPHEIGHT 272 CHECK/MENU/IMAGE 266 PUTMENUPROP 253 PACK* 241 CONCAT 228 OCTALSTRING 217 FONTFACETOATOM 212 FONTPROP 196 FONTPROP 180 FONTPROP 85 EF.CHARITEMS 69 CHARSET.DECODE 62 ERROR 44 FONTPROP 30 FONTCREATE 15 MEDLEYFONT.READ.FONT)
|
||
(391 EF.BUTTONEVENTFN 386 BUTTONEVENTFN 362 CHARSET 349 FONT 336 CHARITEMS 260 EDITFONTTITLE 207 FACE 191 SIZE 175 FAMILY 145 DEFAULTMENUHELDFN 136 CLRPROMPT 127 EF.WHENSELECTEDFN 91 |MENUTYPE#| 49 DISPLAY 39 DEVICE 5 FONTDESCRIPTOR)
|
||
( 247 "" 235 " " 222 " " 201 " " 185 " " 57 " 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
|