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

More WIO for merging with master

Browse Source
This commit is contained in:
Frank Halasz
2026-02-11 16:29:40 -08:00
parent b684d9ec5c
commit ebc346d7f1
3 changed files with 40 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
doctools/IMINDEX.LCOM
View File

Binary file not shown.

BIN
doctools/IMTOOLS.LCOM
View File

Binary file not shown.

47
doctools/NEWIRM
View File

@@ -1,10 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 5-Feb-2026 21:19:57" {DSK}<home>frank>il>medley>doctools>NEWIRM.;25 12193
(FILECREATED "11-Feb-2026 16:27:51" {DSK}<home>frank>il>medley>doctools>NEWIRM.;28 13899
:EDIT-BY "FGH"
:CHANGES-TO (FNS IM.CHAP.CHAPTER IM.CHAP.BEFOREHARDCOPYFN IM.INDEX.UPDATE.TOC.NUMBERING
:CHANGES-TO (FNS SCRATCH IM.CHAP.CHAPTER IM.CHAP.BEFOREHARDCOPYFN IM.INDEX.UPDATE.TOC.NUMBERING
IM.CHAP.WHENINSERTEDFN TEDIT.SET.FOLIO.TEXT IM.INDEX.TOC.TEXT IRM-IMPTR
IRMANALYZE IRMHC IRMTOC)
(VARS NEWIRMCOMS IRMFILES)
@@ -24,7 +24,8 @@
(FNS IM.CHAP.CHAPTER IRMTOC IRM-IMPTR IRMANALYZE IRMHC)
(FNS IM.INDEX.UPDATE.TOC.NUMBERING IM.INDEX.TOC.TEXT IM.CHAP.BEFOREHARDCOPYFN
IM.CHAP.WHENINSERTEDFN TEDIT.SET.FOLIO.TEXT)
(VARS IRMFILES)))
(VARS IRMFILES)
(FNS SCRATCH)))
(FILESLOAD PSEUDOHOSTS)
@@ -210,9 +211,41 @@
"{IRM}20-CLISP" "{IRM}21-PERFORMANCE" "{IRM}22-PROCESSES" "{IRM}23-STREAMS"
"{IRM}24-IO" "{IRM}25-USERIO-PACKAGES" "{IRM}26-GRAPHICS" "{IRM}27-WINDOWS"
"{IRM}28-HARDCOPY" "{IRM}29-TERMINAL"))
(DEFINEQ
(SCRATCH
[LAMBDA NIL (* ; "Edited 11-Feb-2026 16:27 by FGH")
(* ; "Edited 1-Feb-2026 22:33 by FGH")
(IM.INDEX.CREATEOBJ (create IM.INDEX.DATA
TYPE _ (LIST 'TOC)
NAME _ "TBD"
LEVEL _ 1))
(IM.INDEX.CREATEOBJ (create IM.INDEX.DATA
TYPE _ (LIST 'TOC)
NAME _ "TBD"
LEVEL _ 2))
(IM.INDEX.CREATEOBJ (create IM.INDEX.DATA
TYPE _ (LIST 'TOC)
NAME _ "TBD"
LEVEL _ 3))
(TEDIT.MAP.OBJECTS (TEXTSTREAM (WHICHW))
[FUNCTION (LAMBDA (CH# OBJ)
(if [AND (EQ 'IM.INDEX.OBJECT (fetch (IMAGEFNS IMAGECLASSNAME)
of (fetch (IMAGEOBJ IMAGEOBJFNS) of OBJ)))
(EQ 'TOC (CAR (fetch (IM.INDEX.DATA TYPE) of (fetch (IMAGEOBJ
OBJECTDATUM
)
of OBJ]
then OBJ
else NIL]
NIL
'OBJECT)
(IM.INDEX.UPDATE.TOC.NUMBERING (TEXTSTREAM (WHICHW))
7])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1347 3713 (IM.CHAP.CHAPTER 1357 . 2364) (IRMTOC 2366 . 2576) (IRM-IMPTR 2578 . 2891) (
IRMANALYZE 2893 . 3262) (IRMHC 3264 . 3711)) (3714 11434 (IM.INDEX.UPDATE.TOC.NUMBERING 3724 . 7129) (
IM.INDEX.TOC.TEXT 7131 . 7928) (IM.CHAP.BEFOREHARDCOPYFN 7930 . 9039) (IM.CHAP.WHENINSERTEDFN 9041 .
9290) (TEDIT.SET.FOLIO.TEXT 9292 . 11432)))))
(FILEMAP (NIL (1376 3742 (IM.CHAP.CHAPTER 1386 . 2393) (IRMTOC 2395 . 2605) (IRM-IMPTR 2607 . 2920) (
IRMANALYZE 2922 . 3291) (IRMHC 3293 . 3740)) (3743 11463 (IM.INDEX.UPDATE.TOC.NUMBERING 3753 . 7158) (
IM.INDEX.TOC.TEXT 7160 . 7957) (IM.CHAP.BEFOREHARDCOPYFN 7959 . 9068) (IM.CHAP.WHENINSERTEDFN 9070 .
9319) (TEDIT.SET.FOLIO.TEXT 9321 . 11461)) (12200 13876 (SCRATCH 12210 . 13874)))))
STOP