github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-14 06:27:11 +00:00
Code Issues Projects Releases Wiki Activity

Debugging aligned with macros

Browse Source
This commit is contained in:
rmkaplan
2025-10-09 21:22:34 -07:00
parent 5c011373e2
commit cb5817ef3d
2 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
internal/FONT-DEBUG
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 2-Sep-2025 13:47:42" {WMEDLEY}<internal>FONT-DEBUG.;66 23502
(FILECREATED " 7-Oct-2025 14:52:20" {WMEDLEY}<internal>FONT-DEBUG.;68 23618
:EDIT-BY rmk
:CHANGES-TO (FNS TRUEFONTCREATE)
:CHANGES-TO (FNS LEGACYFONTCREATE)
:PREVIOUS-DATE "29-Aug-2025 22:39:54" {WMEDLEY}<internal>FONT-DEBUG.;65)
:PREVIOUS-DATE " 7-Oct-2025 08:58:03" {WMEDLEY}<internal>FONT-DEBUG.;67)
(PRETTYCOMPRINT FONT-DEBUGCOMS)
@@ -16,7 +16,7 @@
(* ;; "Little tools to help in debugging display fonts")
(FNS DEBUGCHARSET IBM ICS SHOWCACHE SHOWCSBITMAP EQCSBM EQCHARBM CHARSETCHARS CHARBMDIFFS
SHOWCSCHAR CSCOMPARE SHOWBMS SHOWCHARBITMAPS CANDS TRUEFONTCREATE)
SHOWCSCHAR CSCOMPARE SHOWBMS SHOWCHARBITMAPS CANDS LEGACYFONTCREATE)
(FNS FONTSIZE CSSIZE CSBMSIZE)
(FNS FONTCOMPARE)
(MACROS TRUEFONT)))
@@ -277,8 +277,9 @@
(SHOWCHARBITMAPS NIL CINFOS CHARSET INCLUDEMEDLEYFONT T)
CINFOS])
(TRUEFONTCREATE
(LEGACYFONTCREATE
[LAMBDA (FAMILY SIZE FACE ROTATION DEVICE NOERRORFLG CHARSET)
(* ; "Edited 7-Oct-2025 14:50 by rmk")
(* ; "Edited 2-Sep-2025 13:46 by rmk")
(* ; "Edited 29-Aug-2025 22:38 by rmk")
(* ; "Edited 17-Aug-2025 15:47 by rmk")
@@ -287,7 +288,7 @@
(* ;; "New font, no coercions, no MEDLEYFORMAT")
(LEGACYFONT (FONTCREATE FAMILY SIZE FACE ROTATION DEVICE NOERRORFLG CHARSET])
(LEGACYFONTS (FONTCREATE FAMILY SIZE FACE ROTATION DEVICE NOERRORFLG CHARSET])
)
(DEFINEQ
@@ -420,10 +421,10 @@
(RETURN FORM))))
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (774 16422 (DEBUGCHARSET 784 . 3405) (IBM 3407 . 4405) (ICS 4407 . 5701) (SHOWCACHE 5703
. 6050) (SHOWCSBITMAP 6052 . 7290) (EQCSBM 7292 . 8178) (EQCHARBM 8180 . 8941) (CHARSETCHARS 8943 .
9609) (CHARBMDIFFS 9611 . 10487) (SHOWCSCHAR 10489 . 10924) (CSCOMPARE 10926 . 13518) (SHOWBMS 13520
. 13698) (SHOWCHARBITMAPS 13700 . 15291) (CANDS 15293 . 15649) (TRUEFONTCREATE 15651 . 16420)) (16423
20082 (FONTSIZE 16433 . 17295) (CSSIZE 17297 . 18706) (CSBMSIZE 18708 . 20080)) (20083 22490 (
FONTCOMPARE 20093 . 22488)))))
(FILEMAP (NIL (778 16538 (DEBUGCHARSET 788 . 3409) (IBM 3411 . 4409) (ICS 4411 . 5705) (SHOWCACHE 5707
. 6054) (SHOWCSBITMAP 6056 . 7294) (EQCSBM 7296 . 8182) (EQCHARBM 8184 . 8945) (CHARSETCHARS 8947 .
9613) (CHARBMDIFFS 9615 . 10491) (SHOWCSCHAR 10493 . 10928) (CSCOMPARE 10930 . 13522) (SHOWBMS 13524
. 13702) (SHOWCHARBITMAPS 13704 . 15295) (CANDS 15297 . 15653) (LEGACYFONTCREATE 15655 . 16536)) (
16539 20198 (FONTSIZE 16549 . 17411) (CSSIZE 17413 . 18822) (CSBMSIZE 18824 . 20196)) (20199 22606 (
FONTCOMPARE 20209 . 22604)))))
STOP

BIN
internal/FONT-DEBUG.LCOM
View File

Binary file not shown.