github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-10 12:58:10 +00:00
Code Issues Projects Releases Wiki Activity

MEDLEYFONTFORMAT--prioritize filename

Browse Source
This commit is contained in:
rmkaplan
2026-03-02 22:31:08 -08:00
parent 8e94715e22
commit 10c03b0b59
2 changed files with 23 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
sources/MEDLEYFONTFORMAT
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "14-Feb-2026 00:39:34" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;250 60733
(FILECREATED " 2-Mar-2026 20:50:00" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;251 61187
:EDIT-BY rmk
:CHANGES-TO (FNS MEDLEYFONT.GETCHARSET MEDLEYFONT.READ.CHARSET)
:CHANGES-TO (FNS MEDLEYFONT.READ.FONT MEDLEYFONT.READ.VERIFIEDFONT MEDLEYFONT.FILENAME)
:PREVIOUS-DATE "23-Jan-2026 15:10:16" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;249)
:PREVIOUS-DATE "14-Feb-2026 00:39:34" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;250)
(PRETTYCOMPRINT MEDLEYFONTFORMATCOMS)
@@ -280,14 +280,14 @@
(DEFINEQ
(MEDLEYFONT.READ.FONT
[LAMBDA (FILE CHARSETNOS FONT) (* ; "Edited 20-Jan-2026 22:31 by rmk")
[LAMBDA (FILE CHARSETNOS FONT) (* ; "Edited 2-Mar-2026 20:40 by rmk")
(* ; "Edited 20-Jan-2026 22:31 by rmk")
(* ; "Edited 31-Aug-2025 14:42 by rmk")
(* ; "Edited 15-Jul-2025 20:20 by rmk")
(* ; "Edited 9-Jul-2025 00:06 by rmk")
(* ; "Edited 6-Jul-2025 11:45 by rmk")
(SETQ FONT (CL:IF FONT
(FONTCREATE FONT)
(create FONTDESCRIPTOR)))
(CL:WHEN FONT
(SETQ FONT (FONTCREATE FONT)))
(SETQ FILE (MEDLEYFONT.FILENAME FILE FONT))
(SETQ CHARSETNOS (SORT (MKLIST CHARSETNOS)))
(CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT)
@@ -516,13 +516,16 @@
(bind PAIR until [EQ 'STOP (CAR (SETQ PAIR (MEDLEYFONT.READ.ITEM STREAM] collect PAIR])
(MEDLEYFONT.READ.VERIFIEDFONT
[LAMBDA (STREAM FONT) (* ; "Edited 20-Jan-2026 22:31 by rmk")
[LAMBDA (STREAM FONT) (* ; "Edited 2-Mar-2026 20:40 by rmk")
(* ; "Edited 20-Jan-2026 22:31 by rmk")
(* ; "Edited 2-Sep-2025 23:52 by rmk")
(* ; "Edited 12-Aug-2025 17:57 by rmk")
(* ; "Edited 10-Jun-2025 20:57 by rmk")
(* ; "Edited 21-May-2025 22:55 by rmk")
(* ; "Edited 19-May-2025 17:42 by rmk")
(* ; "Edited 16-May-2025 10:28 by rmk")
(CL:UNLESS FONT
(SETQ FONT (create FONTDESCRIPTOR)))
(LET ((FONTPROPS (MEDLEYFONT.READ.FONTPROPS STREAM)))
(for P VAL in FONTPROPS do (SETQ VAL (CADR P))
(SELECTQ (CAR P)
@@ -847,7 +850,9 @@
(DEFINEQ
(MEDLEYFONT.FILENAME
[LAMBDA (FILE FONT CHARSET EXTENSION DIRECTORY) (* ; "Edited 23-Jan-2026 15:10 by rmk")
[LAMBDA (FILE FONT CHARSET EXTENSION DIRECTORY) (* ; "Edited 2-Mar-2026 20:41 by rmk")
(* ; "Edited 1-Mar-2026 01:07 by rmk")
(* ; "Edited 23-Jan-2026 15:10 by rmk")
(* ; "Edited 20-Jan-2026 17:39 by rmk")
(* ; "Edited 7-Oct-2025 11:50 by rmk")
(* ; "Edited 4-Sep-2025 08:48 by rmk")
@@ -855,7 +860,7 @@
(* ; "Edited 25-May-2025 21:25 by rmk")
(* ; "Edited 19-May-2025 17:42 by rmk")
(* ; "Edited 16-May-2025 14:09 by rmk")
(LET [(FONTSPEC (AND FONT (\FONT.CHECKARGS FONT NIL NIL NIL NIL T]
(LET [(FONTSPEC (AND FONT (FONTPROP FONT 'SPEC]
(CL:UNLESS EXTENSION (* ;
 "EXTENSION may be needed for DIRECTORY below")
(SETQ EXTENSION (OR (FILENAMEFIELD FILE 'EXTENSION)
@@ -924,11 +929,11 @@
)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2152 16901 (MEDLEYFONT.WRITE.FONT 2162 . 7217) (MEDLEYFONT.GETCHARSET 7219 . 11360) (
MEDLEYFONT.CHARSET? 11362 . 12831) (MEDLEYFONT.GETFILEPROP 12833 . 14933) (MEDLEYFONT.FILEP 14935 .
16899)) (16927 39618 (MEDLEYFONT.READ.FONT 16937 . 21473) (MEDLEYFONT.READ.CHARSET 21475 . 27190) (
MEDLEYFONT.READ.ITEM 27192 . 33341) (MEDLEYFONT.PEEK.ITEM 33343 . 34205) (MEDLEYFONT.READ.FONTPROPS
34207 . 34672) (MEDLEYFONT.READ.VERIFIEDFONT 34674 . 39616)) (39644 57481 (MEDLEYFONT.WRITE.CHARSET
39654 . 44216) (MEDLEYFONT.WRITE.ITEM 44218 . 53271) (MEDLEYFONT.WRITE.FONTPROPS 53273 . 56826) (
MEDLEYFONT.WRITE.HEADER 56828 . 57479)) (57482 59848 (MEDLEYFONT.FILENAME 57492 . 59846)))))
(FILEMAP (NIL (2176 16925 (MEDLEYFONT.WRITE.FONT 2186 . 7241) (MEDLEYFONT.GETCHARSET 7243 . 11384) (
MEDLEYFONT.CHARSET? 11386 . 12855) (MEDLEYFONT.GETFILEPROP 12857 . 14957) (MEDLEYFONT.FILEP 14959 .
16923)) (16951 39873 (MEDLEYFONT.READ.FONT 16961 . 21550) (MEDLEYFONT.READ.CHARSET 21552 . 27267) (
MEDLEYFONT.READ.ITEM 27269 . 33418) (MEDLEYFONT.PEEK.ITEM 33420 . 34282) (MEDLEYFONT.READ.FONTPROPS
34284 . 34749) (MEDLEYFONT.READ.VERIFIEDFONT 34751 . 39871)) (39899 57736 (MEDLEYFONT.WRITE.CHARSET
39909 . 44471) (MEDLEYFONT.WRITE.ITEM 44473 . 53526) (MEDLEYFONT.WRITE.FONTPROPS 53528 . 57081) (
MEDLEYFONT.WRITE.HEADER 57083 . 57734)) (57737 60302 (MEDLEYFONT.FILENAME 57747 . 60300)))))
STOP

BIN
sources/MEDLEYFONTFORMAT.LCOM
View File

Binary file not shown.