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

Add PLOTANDNC-PATCH from obsolete back to lispusers since its used by Notecards - specifically NCPLOTCARD (#1647)

Browse Source
This commit is contained in:
Frank Halasz
2024-04-06 21:40:13 -07:00
committed by GitHub
parent f6eb5d9846
commit a1a99c04cd
3 changed files with 53 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
lispusers/PLOTANDNC-PATCH Normal file
View File

@@ -0,0 +1,53 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED " 4-Apr-2024 18:50:50" |{DSK}<home>frank>il>ncmedley>lispusers>PLOTANDNC-PATCH.;2| 1814
:PREVIOUS-DATE "22-Jan-88 15:45:26" |{DSK}<home>frank>il>ncmedley>lispusers>PLOTANDNC-PATCH.;1|
)
(PRETTYCOMPRINT PLOTANDNC-PATCHCOMS)
(RPAQQ PLOTANDNC-PATCHCOMS (
(* |;;|
 "define font read fns used by plot and notecards so system can read either kind")
(FNS READFONT READ.FONTINTODESCRIPTOR)
(P
(* |;;|
 "make sure these read fns are registered to avoid messages when reading")
(PUSHNEW HPRINTREADFNS 'READFONT)
(PUSHNEW HPRINTREADFNS 'READ.FONTINTODESCRIPTOR))))
(* |;;| "define font read fns used by plot and notecards so system can read either kind")
(DEFINEQ
(readfont
(lambda (stream) (* |jop:| "27-Aug-85 13:34")
(prog ((proplist (read stream)))
(return (fontcreate (listget proplist 'family)
(listget proplist 'size)
(listget proplist 'face)
(listget proplist 'rotation)
(listget proplist 'device))))))
(read.fontintodescriptor
(lambda (stream) (* \; "Edited 22-Jan-88 15:36 by thh:")
(apply 'fontcreate (read stream))))
)
(* |;;| "make sure these read fns are registered to avoid messages when reading")
(PUSHNEW HPRINTREADFNS 'READFONT)
(PUSHNEW HPRINTREADFNS 'READ.FONTINTODESCRIPTOR)
(DECLARE\: DONTCOPY
(FILEMAP (NIL (1001 1609 (READFONT 1011 . 1427) (READ.FONTINTODESCRIPTOR 1429 . 1607)))))
STOP

BIN
lispusers/PLOTANDNC-PATCH.LCOM Normal file
View File

Binary file not shown.