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

Incorporating PR#2280 to handle recent font issues. Capturing work done before 2025-10-12 which has not previously been captured.

Browse Source
This commit is contained in:
Frank Halasz
2025-10-13 12:22:15 -07:00
parent ab5c28193d
commit 94cf5fe586
147 changed files with 20464 additions and 1251 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
doctools/NEWIRM Normal file
View File

@@ -0,0 +1,84 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "24-Jun-2025 00:36:10" {DSK}<home>frank>il>medley>doctools>NEWIRM.;13 4225
:EDIT-BY "FGH"
:CHANGES-TO (VARS NEWIRMCOMS)
:PREVIOUS-DATE "24-Jun-2025 00:28:20" {DSK}<home>frank>il>medley>doctools>NEWIRM.;11)
(PRETTYCOMPRINT NEWIRMCOMS)
(RPAQQ NEWIRMCOMS ((INITVARS (DOCTOOLSDIR (CONCAT (MEDLEYDIR)
"doctools>")))
(FILES (FROM VALUEOF DOCTOOLSDIR)
IMTOOLS)
(FNS IRMTOC IRM-IMPTR IRMANALYZE IRMHC)
(VARS IRMFILES)))
(RPAQ? DOCTOOLSDIR (CONCAT (MEDLEYDIR)
"doctools>"))
(FILESLOAD (FROM VALUEOF DOCTOOLSDIR)
IMTOOLS)
(DEFINEQ
(IRMTOC
[LAMBDA NIL
(TEDIT (MAKE.IM.TOC T NIL (DIRECTORY "*.IMPTR;"])
(IRM-IMPTR
[LAMBDA NIL
(SETQ IMPTR.TOC.LIST NIL)
(for F in (DIRECTORY "*.IMPTR;") collect (GRAB.IMPTR F))
IMPTR.TOC.LIST])
(IRMANALYZE
[LAMBDA NIL
(LET* ((TS (TEXTOBJ (WHICHW)))
(OBJS (TEDIT.MAP.OBJECTS TS (FUNCTION TRUE)
NIL T)))
(for OBJ in OBJS collect (fetch DISPLAYFN of (fetch IMAGEOBJFNS of (CADR OBJ])
(IRMHC
[LAMBDA NIL
(for F in (DIRECTORY "*.TEDIT;") do (TEDIT.FORMAT.HARDCOPY F (PACKFILENAME.STRING 'VERSION NIL
'EXTENSION NIL 'BODY F)
T NIL NIL NIL 'PDF])
)
(RPAQQ IRMFILES ("{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>01-INTRO.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>02-LITATOM.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>03-LISTS.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>04-STRINGS.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>05-ARRAY.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>06-HASHARRAYS.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>07-NUMBERS.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>08-RECORDPACKAGE.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>09-CONDITIONALS.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>10-FUNC-DEF.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>11-VAR-BINDINGS.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>12-MISC.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>13-EXECUTIVE.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>14-ERRORS.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>15-BREAKING.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>16-SEDIT.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>17-FILEPACKAGE.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>18-COMPILER.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>19-DWIM.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>20-CLISP.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>21-PERFORMANCE.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>22-PROCESSES.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>23-STREAMS.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>24-IO.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>25-USERIO-PACKAGES.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>26-GRAPHICS.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>27-WINDOWS.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>28-HARDCOPY.TEDIT;1"
"{DSK}<HOME>FRANK>IL>MEDLEY>DOCS>MEDLEY-IRM>29-TERMINAL.TEDIT;1"))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (810 1627 (IRMTOC 820 . 899) (IRM-IMPTR 901 . 1053) (IRMANALYZE 1055 . 1324) (IRMHC 1326
. 1625)))))
STOP