github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +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
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 53 additions and 52 deletions
Show Stats 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.

52
obsolete/lispusers/PLOTANDNC-PATCH
View File

@ -1,52 +0,0 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(filecreated "22-Jan-88 15:45:26" {indigo}<gslws>lyric>library>plotandnc-patch.\;1 1853
|changes| |to:| (vars plotandnc-patchcoms)
(fns read.fontintodescriptor))
; Copyright (c) 1988 by Xerox Corporation. All rights reserved.
(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)
(putprops plotandnc-patch copyright ("Xerox Corporation" 1988))
(declare\: dontcopy
(filemap (nil (967 1575 (readfont 977 . 1393) (read.fontintodescriptor 1395 . 1573)))))
stop