Compare commits
7 Commits
fgh_fix261
...
mth71--DAT
| Author | SHA1 | Date | |
|---|---|---|---|
|
8365cac123 | ||
|
683ee45f57 | ||
|
|
26bba9e432 | ||
|
|
80ac342428 | ||
|
|
ee6b98a0c1 | ||
|
|
fd477027ff | ||
|
|
1d309df26e |
3
.gitignore
vendored
3
.gitignore
vendored
@@ -49,9 +49,6 @@ internal/fonts/**
|
||||
# GITFNS deleted subdirectory
|
||||
deleted/**
|
||||
|
||||
# local font construction
|
||||
internal/fonts/**
|
||||
|
||||
#compiled code -- leave in for now
|
||||
|
||||
# *.lcom
|
||||
|
||||
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "13-May-2026 12:28:06" {MEDLEY}<library>UNIXUTILS.;62 22210
|
||||
(FILECREATED "28-Apr-2026 09:59:13" {WMEDLEY}<library>UNIXUTILS.;61 22079
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS UNIX-FILE-NAME)
|
||||
:CHANGES-TO (VARS UNIXUTILSCOMS)
|
||||
|
||||
:PREVIOUS-DATE "28-Apr-2026 09:59:13" {MEDLEY}<library>UNIXUTILS.;61)
|
||||
:PREVIOUS-DATE "27-Apr-2026 11:10:07" {MEDLEY}<library>UNIXUTILS.;60)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT UNIXUTILSCOMS)
|
||||
@@ -294,8 +294,7 @@
|
||||
SLASHED])
|
||||
|
||||
(UNIX-FILE-NAME
|
||||
[LAMBDA (FILE ACCESS COPY EXTENSION) (* ; "Edited 13-May-2026 12:25 by rmk")
|
||||
(* ; "Edited 31-Mar-2026 00:13 by rmk")
|
||||
[LAMBDA (FILE ACCESS COPY EXTENSION) (* ; "Edited 31-Mar-2026 00:13 by rmk")
|
||||
(* ; "Edited 29-Mar-2026 00:26 by rmk")
|
||||
(* ; "Edited 19-Jan-2026 14:05 by rmk")
|
||||
(* ; "Edited 17-Jan-2026 22:32 by rmk")
|
||||
@@ -320,7 +319,7 @@
|
||||
(NIL (SETQ ACCESS 'INPUT)
|
||||
'OLD)
|
||||
(\ILLEGAL.ARG ACCESS])
|
||||
(SLASHIT (SELECTQ (FILENAMEFIELD FILE 'HOST)
|
||||
[SLASHIT (SELECTQ (FILENAMEFIELD FILE 'HOST)
|
||||
(UNIX (CL:IF [AND EXTENSION (NEQ (L-CASE EXTENSION)
|
||||
(L-CASE (FILENAMEFIELD FILE 'EXTENSION]
|
||||
(COPYFILE FILE (PACKFILENAME 'EXTENSION EXTENSION 'BODY FILE))
|
||||
@@ -346,8 +345,7 @@
|
||||
[RESETSAVE (GETFILEPTR FILE)
|
||||
`(PROGN (SETFILEPTR ,FILE OLDVALUE])
|
||||
(COPYFILE FILE UNAME))
|
||||
UNAME)))
|
||||
NIL T))])
|
||||
UNAME)])])
|
||||
|
||||
(UNIX-TMP-FILE-NAME
|
||||
[LAMBDA (NAME EXT HOST) (* ; "Edited 17-Jan-2026 22:28 by rmk")
|
||||
@@ -386,8 +384,8 @@
|
||||
|
||||
(PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21826
|
||||
(ShellBrowser 2099 . 3871) (ShellBrowse 3873 . 4558) (ShellOpener 4560 . 6248) (ShellOpen 6250 . 12197
|
||||
) (PROCESS-COMMAND 12199 . 12812) (SLASHIT 12814 . 16126) (UNIX-FILE-NAME 16128 . 20145) (
|
||||
UNIX-TMP-FILE-NAME 20147 . 21824)))))
|
||||
(FILEMAP (NIL (1208 1581 (ShellCommand 1208 . 1581)) (1583 1980 (ShellWhich 1583 . 1980)) (2090 21695
|
||||
(ShellBrowser 2100 . 3872) (ShellBrowse 3874 . 4559) (ShellOpener 4561 . 6249) (ShellOpen 6251 . 12198
|
||||
) (PROCESS-COMMAND 12200 . 12813) (SLASHIT 12815 . 16127) (UNIX-FILE-NAME 16129 . 20014) (
|
||||
UNIX-TMP-FILE-NAME 20016 . 21693)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,12 +1,14 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "15-May-2026 22:31:17" {MEDLEY}<lispusers>tmax>TMAX.;47 28263
|
||||
(FILECREATED "12-Aug-2025 08:27:53"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>tmax>TMAX.;46 28244
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS NGROUPMENU.ENABLED?)
|
||||
:CHANGES-TO (VARS TMAXCOMS TSP.FM.DESC)
|
||||
|
||||
:PREVIOUS-DATE "12-Aug-2025 08:27:53" {MEDLEY}<lispusers>tmax>TMAX.;46)
|
||||
:PREVIOUS-DATE "30-Mar-2025 21:51:58"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TMAX>TMAX.;44)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TMAXCOMS)
|
||||
@@ -375,10 +377,9 @@
|
||||
(T (CLOSE.NGROUP.GRAPH TSTREAM])
|
||||
|
||||
(NGROUPMENU.ENABLED?
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 15-May-2026 22:29 by rmk")
|
||||
(* ; "Edited 21-Feb-2025 10:17 by rmk")
|
||||
[LAMBDA (TSTREAM) (* ; "Edited 21-Feb-2025 10:17 by rmk")
|
||||
(* ; "Edited 29-Sep-87 11:42 by fsg")
|
||||
(FM.ITEMPROP (FM.GETITEM 'NGROUP.MENU NIL (TSP.SETUP.FMMENU TSTREAM))
|
||||
(FM.ITEMPROP (FM.GETITEM 'NGROUP.MENU NIL (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW))
|
||||
'STATE])
|
||||
|
||||
(NGROUP.Text-Before.TOGGLE
|
||||
@@ -576,15 +577,15 @@
|
||||
|
||||
(TSP.FUNCTION.HOOKS)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3221 4105 (EDIT-TMAX 3231 . 4103)) (8116 16359 (TSP.DISPLAY.FMMENU 8126 . 8800) (
|
||||
TSP.SETUP.FILENAMES 8802 . 10133) (TSP.SETUP.FMMENU 10135 . 10686) (TSP.FMMENU 10688 . 11792) (
|
||||
TSP.FM.APPLY 11794 . 12382) (UPDATE.ALL 12384 . 13260) (DOWNDATE.ALL 13262 . 13889) (
|
||||
TSP.FUNCTION.HOOKS 13891 . 15321) (TSP.GETFN 15323 . 15898) (TSP.PUTFN 15900 . 16357)) (16405 20444 (
|
||||
AutoUpdate.TOGGLE 16415 . 16872) (UPDATE? 16874 . 17239) (NGROUP.Menu.TOGGLE 17241 . 17786) (
|
||||
NGROUPMENU.ENABLED? 17788 . 18235) (NGROUP.Text-Before.TOGGLE 18237 . 18708) (TEXTBEFORE.ENABLED?
|
||||
18710 . 18977) (NGROUP.Text-After.TOGGLE 18979 . 19448) (TEXTAFTER.ENABLED? 19450 . 19715) (
|
||||
Manual.Index.TOGGLE 19717 . 20177) (MANUALINDEX.ENABLED? 20179 . 20442)) (20478 26140 (GET.TSP.FONT
|
||||
20488 . 21762) (GET.TSP.FONT.FAMILY 21764 . 22384) (GET.TSP.FONT.SIZE 22386 . 22874) (
|
||||
GET.TSP.FONT.FACE 22876 . 23768) (ABBREVIATE.FONT 23770 . 25384) (TMAX.SHADEOBJ 25386 . 26138)) (26180
|
||||
27548 (TSP.LIST.OF.OBJECTS 26190 . 27546)))))
|
||||
(FILEMAP (NIL (3307 4191 (EDIT-TMAX 3317 . 4189)) (8202 16445 (TSP.DISPLAY.FMMENU 8212 . 8886) (
|
||||
TSP.SETUP.FILENAMES 8888 . 10219) (TSP.SETUP.FMMENU 10221 . 10772) (TSP.FMMENU 10774 . 11878) (
|
||||
TSP.FM.APPLY 11880 . 12468) (UPDATE.ALL 12470 . 13346) (DOWNDATE.ALL 13348 . 13975) (
|
||||
TSP.FUNCTION.HOOKS 13977 . 15407) (TSP.GETFN 15409 . 15984) (TSP.PUTFN 15986 . 16443)) (16491 20425 (
|
||||
AutoUpdate.TOGGLE 16501 . 16958) (UPDATE? 16960 . 17325) (NGROUP.Menu.TOGGLE 17327 . 17872) (
|
||||
NGROUPMENU.ENABLED? 17874 . 18216) (NGROUP.Text-Before.TOGGLE 18218 . 18689) (TEXTBEFORE.ENABLED?
|
||||
18691 . 18958) (NGROUP.Text-After.TOGGLE 18960 . 19429) (TEXTAFTER.ENABLED? 19431 . 19696) (
|
||||
Manual.Index.TOGGLE 19698 . 20158) (MANUALINDEX.ENABLED? 20160 . 20423)) (20459 26121 (GET.TSP.FONT
|
||||
20469 . 21743) (GET.TSP.FONT.FAMILY 21745 . 22365) (GET.TSP.FONT.SIZE 22367 . 22855) (
|
||||
GET.TSP.FONT.FACE 22857 . 23749) (ABBREVIATE.FONT 23751 . 25365) (TMAX.SHADEOBJ 25367 . 26119)) (26161
|
||||
27529 (TSP.LIST.OF.OBJECTS 26171 . 27527)))))
|
||||
STOP
|
||||
|
||||
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED "16-May-2026 09:19:48" |{MEDLEY}<lispusers>tmax>TMAX-INDEX.;24| 46972
|
||||
(FILECREATED "28-Feb-2025 23:36:19" |{WMEDLEY}<lispusers>tmax>TMAX-INDEX.;22| 46719
|
||||
|
||||
:EDIT-BY |rmk|
|
||||
|
||||
:CHANGES-TO (FNS CREATE.INDEX.FILE GET.INDEX.FILE)
|
||||
:CHANGES-TO (FNS INDEX.MANUAL.DELIMITER RESET.INDEX.PAGENUMBERS)
|
||||
|
||||
:PREVIOUS-DATE "28-Feb-2025 23:36:19" |{MEDLEY}<lispusers>tmax>TMAX-INDEX.;22|)
|
||||
:PREVIOUS-DATE "23-Feb-2025 11:55:07" |{WMEDLEY}<lispusers>tmax>TMAX-INDEX.;20|)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TMAX-INDEXCOMS)
|
||||
@@ -587,26 +587,24 @@
|
||||
(DEFINEQ
|
||||
|
||||
(CREATE.INDEX.FILE
|
||||
(LAMBDA (TSTREAM INDEX.FILE INDEX.FONT NOTITLE) (* \; "Edited 16-May-2026 09:18 by rmk")
|
||||
(* \; "Edited 23-Feb-2025 11:55 by rmk")
|
||||
(LAMBDA (TSTREAM INDEX.FILE INDEX.FONT NOTITLE) (* \; "Edited 23-Feb-2025 11:55 by rmk")
|
||||
(* \; "Edited 21-Feb-2025 10:17 by rmk")
|
||||
(* \; "Edited 14-Feb-97 11:10 by rmk:")
|
||||
(* |fsg| "13-Aug-87 09:05")
|
||||
(SETQ INDEX.FILE (OR (OUTFILEP (OR INDEX.FILE (GET.INDEX.FILE (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW))
|
||||
))
|
||||
(ERROR (CONCAT "Can't open index file" INDEX.FILE))))
|
||||
(TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing index on " INDEX.FILE "...")
|
||||
(ERROR (CONCAT "Can't open " INDEX.FILE " as a index file"))))
|
||||
(TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing index on " INDEX.FILE)
|
||||
T)
|
||||
(LET ((DUMMYSTREAM (OPENIMAGESTREAM (UNIX-TMP-FILE-NAME '|tmax-index| '|pdf|)
|
||||
'PDF))
|
||||
(LET ((IMAGESTREAM (OPENIMAGESTREAM '{NULL}))
|
||||
INDEX.ARRAY INDEX.LIST INDEX.STREAM)
|
||||
|
||||
(* |;;| "Collect the index-term page numbers in the array")
|
||||
(* |;;|
|
||||
"Make sure we have the page numbers, written in the image stream. Why not in TSTREAM?")
|
||||
|
||||
(TEDIT.TO.IMAGEFILE TSTREAM DUMMYSTREAM)
|
||||
(SETQ INDEX.ARRAY (TMAXPROP DUMMYSTREAM 'TSP.INDEX.ARRAY))
|
||||
(SETQ INDEX.LIST (INDEX.LIST.REFS DUMMYSTREAM))
|
||||
(DELFILE (CLOSEF? DUMMYSTREAM))
|
||||
(TEDIT.FORMAT.HARDCOPY TSTREAM IMAGESTREAM NIL NIL NIL NIL NIL NIL NIL NIL T)
|
||||
(SETQ INDEX.ARRAY (TMAXPROP IMAGESTREAM 'TSP.INDEX.ARRAY))
|
||||
(SETQ INDEX.LIST (INDEX.LIST.REFS IMAGESTREAM))
|
||||
(COND
|
||||
((AND INDEX.LIST INDEX.FILE)
|
||||
(SETQ INDEX.STREAM (OPENTEXTSTREAM))
|
||||
@@ -616,7 +614,6 @@
|
||||
(PRINTOUT INDEX.STREAM "Index" T T))
|
||||
(WRITE.INDEX.FILE INDEX.STREAM INDEX.LIST INDEX.ARRAY INDEX.FONT)
|
||||
(CLOSEF? (TEDIT.PUT INDEX.STREAM INDEX.FILE))
|
||||
(TEDIT.PROMPTPRINT TSTREAM "done")
|
||||
INDEX.FILE)
|
||||
(INDEX.LIST (TEDIT.PROMPTPRINT TSTREAM "Please specify a name for the index file" T)
|
||||
NIL)
|
||||
@@ -667,16 +664,15 @@
|
||||
))
|
||||
INDEX.FILE)))
|
||||
|
||||
(GET.INDEX.FILE
|
||||
(LAMBDA (MENUW) (* \; "Edited 16-May-2026 09:17 by rmk")
|
||||
(* \; "Edited 29-Sep-87 14:34 by fsg")
|
||||
(get.index.file
|
||||
(lambda (menuw) (* \; "Edited 29-Sep-87 14:34 by fsg")
|
||||
|
||||
(* |;;;| "Return the user specified index file name.")
|
||||
(* * |Return| |the| |user| |specified| |index| |file| |name.|)
|
||||
|
||||
(LET ((FILENAME (FM.ITEMPROP (FM.GETITEM 'INDEX.FILE NIL MENUW)
|
||||
'LABEL)))
|
||||
(CL:UNLESS (STREQUAL FILENAME "")
|
||||
(MKATOM FILENAME)))))
|
||||
(let ((filename (fm.itemprop (fm.getitem 'index.file nil menuw)
|
||||
'label)))
|
||||
(and (not (strequal filename ""))
|
||||
(mkatom filename)))))
|
||||
|
||||
(WRITE.INDEX.FILE
|
||||
(LAMBDA (INDEX.STREAM INDEX.LIST INDEX.ARRAY INDEX.FONT PAGE.FONT)
|
||||
@@ -869,17 +865,17 @@
|
||||
(* |;;;| "IMAGE OBJECT for causing the index to be written, without using the menu")
|
||||
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (3091 11064 (INDEXOBJ 3101 . 4124) (INDEXOBJP 4126 . 4574) (INDEX.DISPLAYFN 4576 . 6435)
|
||||
(INDEX.IMAGEBOXFN 6437 . 7983) (INDEX.PUTFN 7985 . 8415) (INDEX.GETFN 8417 . 8808) (INDEX.COPYFN 8810
|
||||
. 9453) (INDEX.BUTTONEVENTINFN 9455 . 11062)) (11103 19204 (INSERT.INDEX 11113 . 11700) (
|
||||
INSERT.INDEXENTRY 11702 . 14485) (INSERT.KNOWN.INDEX 14487 . 16671) (SUBITEM.SELECTFN 16673 . 17667) (
|
||||
ADD.NEW.INDEX 17669 . 19202)) (19270 23201 (CHANGE.INDEX 19280 . 19848) (CHANGE.INDEXENTRY 19850 .
|
||||
20600) (CHANGE.XINDEX.KEY 20602 . 21160) (CHANGE.XINDEX.ENTRY 21162 . 21795) (CHANGE.XINDEX.FONT 21797
|
||||
. 22666) (CHANGE.XINDEX.NUMBER 22668 . 23199)) (23243 31116 (GETHASH.INDEX 23253 . 24029) (
|
||||
INDEX.PAGE.NUMBER 24031 . 25684) (INDEX.MANUAL.DELIMITER 25686 . 26318) (INDEX.STRING 26320 . 27330) (
|
||||
GET.INDEXENTRY.NUMBER 27332 . 28352) (INDEX.LIST.REFS 28354 . 29872) (LIST.OF.INDEXENTRIES 29874 .
|
||||
31114)) (31158 41218 (CREATE.INDEX.FILE 31168 . 33239) (DUMP.INDEX 33241 . 35091) (VIEW.INDEX.FILE
|
||||
35093 . 36153) (GET.INDEX.FILE 36155 . 36638) (WRITE.INDEX.FILE 36640 . 39041) (
|
||||
WRITE.INDEX.PAGENUMBERS 39043 . 40243) (RESET.INDEX.PAGENUMBERS 40245 . 41216)) (41416 45441 (
|
||||
SELECTION.TO.STRING 41426 . 44258) (SELECTION.TO.INDEX 44260 . 45439)))))
|
||||
(FILEMAP (NIL (3107 11080 (INDEXOBJ 3117 . 4140) (INDEXOBJP 4142 . 4590) (INDEX.DISPLAYFN 4592 . 6451)
|
||||
(INDEX.IMAGEBOXFN 6453 . 7999) (INDEX.PUTFN 8001 . 8431) (INDEX.GETFN 8433 . 8824) (INDEX.COPYFN 8826
|
||||
. 9469) (INDEX.BUTTONEVENTINFN 9471 . 11078)) (11119 19220 (INSERT.INDEX 11129 . 11716) (
|
||||
INSERT.INDEXENTRY 11718 . 14501) (INSERT.KNOWN.INDEX 14503 . 16687) (SUBITEM.SELECTFN 16689 . 17683) (
|
||||
ADD.NEW.INDEX 17685 . 19218)) (19286 23217 (CHANGE.INDEX 19296 . 19864) (CHANGE.INDEXENTRY 19866 .
|
||||
20616) (CHANGE.XINDEX.KEY 20618 . 21176) (CHANGE.XINDEX.ENTRY 21178 . 21811) (CHANGE.XINDEX.FONT 21813
|
||||
. 22682) (CHANGE.XINDEX.NUMBER 22684 . 23215)) (23259 31132 (GETHASH.INDEX 23269 . 24045) (
|
||||
INDEX.PAGE.NUMBER 24047 . 25700) (INDEX.MANUAL.DELIMITER 25702 . 26334) (INDEX.STRING 26336 . 27346) (
|
||||
GET.INDEXENTRY.NUMBER 27348 . 28368) (INDEX.LIST.REFS 28370 . 29888) (LIST.OF.INDEXENTRIES 29890 .
|
||||
31130)) (31174 40965 (CREATE.INDEX.FILE 31184 . 33079) (DUMP.INDEX 33081 . 34931) (VIEW.INDEX.FILE
|
||||
34933 . 35993) (GET.INDEX.FILE 35995 . 36385) (WRITE.INDEX.FILE 36387 . 38788) (
|
||||
WRITE.INDEX.PAGENUMBERS 38790 . 39990) (RESET.INDEX.PAGENUMBERS 39992 . 40963)) (41163 45188 (
|
||||
SELECTION.TO.STRING 41173 . 44005) (SELECTION.TO.INDEX 44007 . 45186)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,15 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED "12-Apr-2026 23:42:38" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;15| 27461
|
||||
(FILECREATED "28-Feb-2025 23:52:01" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;14| 27479
|
||||
|
||||
:EDIT-BY |rmk|
|
||||
|
||||
:CHANGES-TO (FNS TSP.GET.NGROUP.ARRAY)
|
||||
:CHANGES-TO (FNS NGROUP.CHARTYPE.CONVERT UPDATE.NUMBEROBJS DOWNDATE.NUMBEROBJS NGROUP.CHARTYPE
|
||||
INITIAL.NGROUP.GRAPH RESET.DEPENDENT.CLASSES GET.NCOUNTER GRAPHMENU
|
||||
CREATE.NGROUP.NODE FLATTEN.TREE.TO.STRING)
|
||||
(VARS TMAX-NGRAPHCOMS)
|
||||
|
||||
:PREVIOUS-DATE "28-Feb-2025 23:52:01" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;14|)
|
||||
:PREVIOUS-DATE "23-Feb-2025 22:59:05" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;11|)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TMAX-NGRAPHCOMS)
|
||||
@@ -194,13 +197,9 @@
|
||||
(CADR (GETHASH NGID (TSP.GET.NGROUP.ARRAY TSTREAM)))))
|
||||
|
||||
(TSP.GET.NGROUP.ARRAY
|
||||
(LAMBDA (TSTREAM) (* \; "Edited 12-Apr-2026 23:40 by rmk")
|
||||
(* \; "Edited 21-Feb-2025 10:17 by rmk")
|
||||
(LAMBDA (TSTREAM) (* \; "Edited 21-Feb-2025 10:17 by rmk")
|
||||
(* |ss:| "27-Jun-87 16:21")
|
||||
(OR (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY)
|
||||
(LET ((ARRAY (HASHARRAY 30)))
|
||||
(TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY (HASHARRAY 30))
|
||||
ARRAY))))
|
||||
(TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY)))
|
||||
|
||||
(tsp.legalid
|
||||
(lambda (prev.ngroups stream) (* |fsg| " 3-Aug-87 17:04")
|
||||
@@ -486,15 +485,15 @@
|
||||
|finally| (TMAXPROP TSTREAM 'COUNTERS NIL))))
|
||||
)
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (1437 12863 (GRAPHMENU 1447 . 2728) (INITIAL.NGROUP.GRAPH 2730 . 3508) (
|
||||
NGROUP.MAKE.ROOTNODE 3510 . 3731) (TSPGRAPHREGION 3733 . 4384) (CLOSE.NGROUP.GRAPH 4386 . 4990) (
|
||||
NGROUP.GRAPH.CLOSEFN 4992 . 5649) (ADD.NGROUP.TO.MOTHER.NODE 5651 . 6156) (ADD.NODE.TO.GRAPH 6158 .
|
||||
7369) (COLLECT.HASHARRAY 7371 . 7657) (CREATE.NGROUP.NODE 7659 . 8494) (GET.FROMNODES 8496 . 8802) (
|
||||
GET.TONODES 8804 . 9391) (FIND.NODE 9393 . 9672) (TSP.GET.NGROUP.ARRAY 9674 . 10181) (TSP.LEGALID
|
||||
10183 . 11344) (LIST.ANCESTORS 11346 . 11875) (TOPLEVEL.SISTERS 11877 . 12315) (GET.NGROUP.MOTHER
|
||||
12317 . 12861)) (12910 27438 (DOWNDATE.NUMBEROBJS 12920 . 14869) (UPDATE.NUMBEROBJS 14871 . 16668) (
|
||||
RESET.DEPENDENT.CLASSES 16670 . 17245) (RESET.NCOUNTER 17247 . 18138) (GET.NCOUNTER 18140 . 19399) (
|
||||
NCOUNTER? 19401 . 21211) (FLATTEN.TREE.TO.STRING 21213 . 23111) (NGROUP.CHARTYPE 23113 . 24671) (
|
||||
NGROUP.CHARTYPE.CONVERT 24673 . 26058) (NUMBER.TO.LETTER 26060 . 27050) (REMOVE.ALL.COUNTERS 27052 .
|
||||
27436)))))
|
||||
(FILEMAP (NIL (1692 12881 (GRAPHMENU 1702 . 2983) (INITIAL.NGROUP.GRAPH 2985 . 3763) (
|
||||
NGROUP.MAKE.ROOTNODE 3765 . 3986) (TSPGRAPHREGION 3988 . 4639) (CLOSE.NGROUP.GRAPH 4641 . 5245) (
|
||||
NGROUP.GRAPH.CLOSEFN 5247 . 5904) (ADD.NGROUP.TO.MOTHER.NODE 5906 . 6411) (ADD.NODE.TO.GRAPH 6413 .
|
||||
7624) (COLLECT.HASHARRAY 7626 . 7912) (CREATE.NGROUP.NODE 7914 . 8749) (GET.FROMNODES 8751 . 9057) (
|
||||
GET.TONODES 9059 . 9646) (FIND.NODE 9648 . 9927) (TSP.GET.NGROUP.ARRAY 9929 . 10199) (TSP.LEGALID
|
||||
10201 . 11362) (LIST.ANCESTORS 11364 . 11893) (TOPLEVEL.SISTERS 11895 . 12333) (GET.NGROUP.MOTHER
|
||||
12335 . 12879)) (12928 27456 (DOWNDATE.NUMBEROBJS 12938 . 14887) (UPDATE.NUMBEROBJS 14889 . 16686) (
|
||||
RESET.DEPENDENT.CLASSES 16688 . 17263) (RESET.NCOUNTER 17265 . 18156) (GET.NCOUNTER 18158 . 19417) (
|
||||
NCOUNTER? 19419 . 21229) (FLATTEN.TREE.TO.STRING 21231 . 23129) (NGROUP.CHARTYPE 23131 . 24689) (
|
||||
NGROUP.CHARTYPE.CONVERT 24691 . 26076) (NUMBER.TO.LETTER 26078 . 27068) (REMOVE.ALL.COUNTERS 27070 .
|
||||
27454)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,19 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED "16-May-2026 09:27:29" |{MEDLEY}<lispusers>tmax>TMAX-NGROUP.;58| 51129
|
||||
(FILECREATED "28-Feb-2025 23:58:44" |{WMEDLEY}<lispusers>tmax>TMAX-NGROUP.;54| 51157
|
||||
|
||||
:EDIT-BY |rmk|
|
||||
|
||||
:CHANGES-TO (FNS WRITE.TOC.ENTRY CREATE.TOC.FILE WRITE.TOC.FILE)
|
||||
:CHANGES-TO (FNS CHANGE.NGROUP.FORMAT CHANGE.NGROUP.FORMAT.ABBREV CHANGE.NGROUP.FORMAT.START
|
||||
WRITE.TOC.ENTRY MAP.NGROUP.LOOKS GET.PREVIOUS.NGROUPS NGROUP.TOC.ENTRIES
|
||||
CHANGE.NGROUP CHANGE.NGROUP.FONT CHANGE.NGROUP.FORMAT.TXTBEFORE
|
||||
CHANGE.NGROUP.FORMAT.DELIMBEFORE CHANGE.NGROUP.FORMAT.DELIMAFTER
|
||||
GET.NGROUP.TEMPLATE ADD.NUMBER.GROUP CHANGE.NGROUP.FORMAT.TOC
|
||||
CHANGE.NGROUP.FORMAT.MANINDEX CHANGE.NGROUP.FORMAT.DISPLAY
|
||||
UPDATE.NGROUP.MANINDEX GET.NGROUP.START SHOW.NGROUP.FONT NGROUP.GETFONT
|
||||
NGROUP.FIXUP.RECORDS)
|
||||
|
||||
:PREVIOUS-DATE "28-Feb-2025 23:58:44" |{MEDLEY}<lispusers>tmax>TMAX-NGROUP.;54|)
|
||||
:PREVIOUS-DATE "24-Feb-2025 09:25:39" |{WMEDLEY}<lispusers>tmax>TMAX-NGROUP.;49|)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TMAX-NGROUPCOMS)
|
||||
@@ -697,27 +704,25 @@
|
||||
CHAR)))))))
|
||||
|
||||
(CREATE.TOC.FILE
|
||||
(LAMBDA (TSTREAM TOC.FILE) (* \; "Edited 16-May-2026 09:18 by rmk")
|
||||
(* \; "Edited 23-Feb-2025 11:49 by rmk")
|
||||
(LAMBDA (TSTREAM TOC.FILE) (* \; "Edited 23-Feb-2025 11:49 by rmk")
|
||||
(* \; "Edited 21-Feb-2025 10:17 by rmk")
|
||||
(* |fsg| "16-Jul-87 11:46")
|
||||
|
||||
(* |;;;| "Here to print the Table Of Contents. Each Line of the TOC consists of the NGroup, the corresponding text, followed by the current listing page number.")
|
||||
|
||||
(SETQ TOC.FILE (OR (OUTFILEP (OR TOC.FILE (GET.TOC.FILE (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW))))
|
||||
(ERROR (CONCAT "Can't open table of contents file " TOC.FILE))))
|
||||
(TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing contents on " TOC.FILE "...")
|
||||
(SETQ TOC.FILE (OR (OUTFILEP (OR TOC.FILE (GET.INDEX.FILE (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW))))
|
||||
(ERROR (CONCAT "Can't open " TOC.FILE " as a index file"))))
|
||||
(TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing table of contents on " TOC.FILE)
|
||||
T)
|
||||
(LET ((DUMMYSTREAM (OPENIMAGESTREAM (UNIX-TMP-FILE-NAME '|tmax-toc| '|pdf|)
|
||||
'PDF))
|
||||
(LET ((IMAGESTREAM (OPENIMAGESTREAM '{NULL}))
|
||||
(TOC.LIST (TSP.LIST.OF.OBJECTS TSTREAM (FUNCTION NGROUP.TOC.ENTRIES)))
|
||||
(TOC.TABSTOP `(PARALOOKS (TABS ((,(FIXR (TIMES 72.27 6.125)) . DOTTEDLEFT)))))
|
||||
TOC.STREAM)
|
||||
|
||||
(* |;;| "Collect page numbers in the image objects")
|
||||
(* |;;|
|
||||
"Make sure we have the page numbers, written in the image stream. Why not in TSTREAM?")
|
||||
|
||||
(TEDIT.TO.IMAGEFILE TSTREAM DUMMYSTREAM)
|
||||
(DELFILE DUMMYSTREAM)
|
||||
(TEDIT.FORMAT.HARDCOPY TSTREAM IMAGESTREAM NIL NIL NIL NIL NIL NIL NIL NIL T)
|
||||
(COND
|
||||
((AND TOC.LIST TOC.FILE)
|
||||
(SETQ TOC.STREAM (OPENTEXTSTREAM NIL NIL NIL NIL TOC.TABSTOP))
|
||||
@@ -725,7 +730,6 @@
|
||||
(SETQ TOC.FILE (TEDIT.PUT TOC.STREAM TOC.FILE NIL NIL NIL T))
|
||||
(CLOSEF? TOC.FILE)
|
||||
(SETQ TOC.FILE (FULLNAME TOC.FILE))
|
||||
(TEDIT.PROMPTPRINT TSTREAM "done")
|
||||
TOC.FILE)
|
||||
(TOC.LIST (TEDIT.PROMPTPRINT TSTREAM
|
||||
"Please specify a file name for the table of contents" T)
|
||||
@@ -773,8 +777,7 @@
|
||||
(MKATOM FILENAME)))))
|
||||
|
||||
(WRITE.TOC.FILE
|
||||
(LAMBDA (TOC.STREAM TOC.LIST TSTREAM) (* \; "Edited 16-May-2026 07:58 by rmk")
|
||||
(* \; "Edited 21-Feb-2025 00:55 by rmk")
|
||||
(LAMBDA (TOC.STREAM TOC.LIST TSTREAM) (* \; "Edited 21-Feb-2025 00:55 by rmk")
|
||||
(* |fsg| "26-Aug-87 15:37")
|
||||
|
||||
(* |;;;| "Here to speficy the order of the Table-Of-Contents. The TOC is ordered by the top-level sister nodes.")
|
||||
@@ -785,21 +788,20 @@
|
||||
(|for| TOC.MOTHER |in| (TOPLEVEL.SISTERS TSTREAM)
|
||||
|do| (DSPFONT |GP.DefaultFont| TOC.STREAM)
|
||||
(PRINTOUT TOC.STREAM T)
|
||||
(|for| TOC.ITEM |in| TOC.LIST |when| (|with| NUMBEROBJ (|fetch| OBJECTDATUM |of| TOC.ITEM
|
||||
)
|
||||
(|for| TOC.ITEM |in| TOC.LIST |when| (|with| NUMBEROBJ (|fetch| OBJECTDATUM
|
||||
|of| (CAR TOC.ITEM))
|
||||
(EQ (GET.NGROUP.MOTHER REF.TYPE TSTREAM)
|
||||
TOC.MOTHER))
|
||||
|do| (WRITE.TOC.ENTRY TOC.ITEM TOC.STREAM TSTREAM)))))
|
||||
|
||||
(WRITE.TOC.ENTRY
|
||||
(LAMBDA (TOC.ITEM TOC.STREAM TSTREAM) (* \; "Edited 16-May-2026 09:27 by rmk")
|
||||
(* \; "Edited 25-Feb-2025 10:35 by rmk")
|
||||
(LAMBDA (TOC.ITEM TOC.STREAM TSTREAM) (* \; "Edited 25-Feb-2025 10:35 by rmk")
|
||||
(* \; "Edited 21-Feb-2025 00:55 by rmk")
|
||||
(* |fsg| "27-Jul-87 14:55")
|
||||
|
||||
(* |;;;| "Write one line to the Table-Of-Contents file.")
|
||||
|
||||
(LET* ((DATUM (|fetch| OBJECTDATUM |of| TOC.ITEM))
|
||||
(LET* ((DATUM (|fetch| OBJECTDATUM |of| (CAR TOC.ITEM)))
|
||||
(ITEM.LEVEL (LENGTH (LIST.ANCESTORS (|fetch| (NUMBEROBJ REF.TYPE) |of| DATUM)
|
||||
NIL TSTREAM))))
|
||||
(DSPFONT |GP.DefaultFont| TOC.STREAM)
|
||||
@@ -809,29 +811,25 @@
|
||||
(T (RPTQ ITEM.LEVEL (PRINTOUT TOC.STREAM " "))))
|
||||
(DSPFONT (|fetch| (NUMBEROBJ FONT) |of| DATUM)
|
||||
TOC.STREAM)
|
||||
(PRINTOUT TOC.STREAM (OR (|fetch| (NUMBEROBJ TEXT.BEFORE#) |of| DATUM)
|
||||
"")
|
||||
(|fetch| (NUMBEROBJ NUMSTRING) |of| DATUM)
|
||||
(OR (|fetch| (NUMBEROBJ TEXT.AFTER#) |of| DATUM)
|
||||
""))
|
||||
(PRINTOUT TOC.STREAM (|fetch| (NUMBEROBJ NUMSTRING) |of| DATUM))
|
||||
(DSPFONT |GP.DefaultFont| TOC.STREAM)
|
||||
(PRINTOUT TOC.STREAM (CHARACTER (CHARCODE TAB))
|
||||
(|fetch| (NUMBEROBJ PAGE.NUMBER) |of| DATUM)
|
||||
T))))
|
||||
)
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (1676 42054 (INSERT.NGROUP 1686 . 3166) (VERIFY.NGROUP.ORDER 3168 . 4956) (
|
||||
GET.PREVIOUS.NGROUPS 4958 . 5499) (ADD.NUMBER.GROUP 5501 . 7602) (ADD.NGROUP.TO.DBASE 7604 . 8513) (
|
||||
COLLECT.NGROUPS 8515 . 9215) (LIST.FONT.PROPS 9217 . 9481) (MAP.NGROUP.LOOKS 9483 . 11394) (
|
||||
NGROUP.GETFONT 11396 . 12671) (CHANGE.NGROUP 12673 . 13900) (CHANGE.NGROUP.FONT 13902 . 16261) (
|
||||
SHOW.NGROUP.FONT 16263 . 16992) (CHANGE.NGROUP.FORMAT 16994 . 20326) (SHOW.NGROUP.FORMAT 20328 . 20901
|
||||
) (GET.NGROUP.TEMPLATE 20903 . 22363) (CHANGE.NGROUP.FORMAT.DELIMBEFORE 22365 . 23347) (
|
||||
CHANGE.NGROUP.FORMAT.DISPLAY 23349 . 25039) (CHANGE.NGROUP.FORMAT.DELIMAFTER 25041 . 26019) (
|
||||
GET.NGROUP.DELIMITER 26021 . 27755) (CHANGE.NGROUP.FORMAT.ABBREV 27757 . 30048) (
|
||||
CHANGE.NGROUP.FORMAT.START 30050 . 30931) (GET.NGROUP.START 30933 . 32749) (CHANGE.NGROUP.FORMAT.TOC
|
||||
32751 . 34767) (CHANGE.NGROUP.FORMAT.MANINDEX 34769 . 37204) (UPDATE.NGROUP.MANINDEX 37206 . 38744) (
|
||||
NGROUP.FIXUP.RECORDS 38746 . 42052)) (42103 51106 (GET.NGROUP.TEXTSTRING 42113 . 43495) (
|
||||
CONVERT.TABS.TO.SPACES 43497 . 44295) (CREATE.TOC.FILE 44297 . 46375) (NGROUP.TOC.ENTRIES 46377 .
|
||||
47026) (VIEW.TOC.FILE 47028 . 47927) (GET.TOC.FILE 47929 . 48423) (WRITE.TOC.FILE 48425 . 49595) (
|
||||
WRITE.TOC.ENTRY 49597 . 51104)))))
|
||||
(FILEMAP (NIL (2291 42669 (INSERT.NGROUP 2301 . 3781) (VERIFY.NGROUP.ORDER 3783 . 5571) (
|
||||
GET.PREVIOUS.NGROUPS 5573 . 6114) (ADD.NUMBER.GROUP 6116 . 8217) (ADD.NGROUP.TO.DBASE 8219 . 9128) (
|
||||
COLLECT.NGROUPS 9130 . 9830) (LIST.FONT.PROPS 9832 . 10096) (MAP.NGROUP.LOOKS 10098 . 12009) (
|
||||
NGROUP.GETFONT 12011 . 13286) (CHANGE.NGROUP 13288 . 14515) (CHANGE.NGROUP.FONT 14517 . 16876) (
|
||||
SHOW.NGROUP.FONT 16878 . 17607) (CHANGE.NGROUP.FORMAT 17609 . 20941) (SHOW.NGROUP.FORMAT 20943 . 21516
|
||||
) (GET.NGROUP.TEMPLATE 21518 . 22978) (CHANGE.NGROUP.FORMAT.DELIMBEFORE 22980 . 23962) (
|
||||
CHANGE.NGROUP.FORMAT.DISPLAY 23964 . 25654) (CHANGE.NGROUP.FORMAT.DELIMAFTER 25656 . 26634) (
|
||||
GET.NGROUP.DELIMITER 26636 . 28370) (CHANGE.NGROUP.FORMAT.ABBREV 28372 . 30663) (
|
||||
CHANGE.NGROUP.FORMAT.START 30665 . 31546) (GET.NGROUP.START 31548 . 33364) (CHANGE.NGROUP.FORMAT.TOC
|
||||
33366 . 35382) (CHANGE.NGROUP.FORMAT.MANINDEX 35384 . 37819) (UPDATE.NGROUP.MANINDEX 37821 . 39359) (
|
||||
NGROUP.FIXUP.RECORDS 39361 . 42667)) (42718 51134 (GET.NGROUP.TEXTSTRING 42728 . 44110) (
|
||||
CONVERT.TABS.TO.SPACES 44112 . 44910) (CREATE.TOC.FILE 44912 . 46827) (NGROUP.TOC.ENTRIES 46829 .
|
||||
47478) (VIEW.TOC.FILE 47480 . 48379) (GET.TOC.FILE 48381 . 48875) (WRITE.TOC.FILE 48877 . 49939) (
|
||||
WRITE.TOC.ENTRY 49941 . 51132)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -64,7 +64,7 @@ tar -c -z -f "${release_dir}"/$tag-runtime.tgz \
|
||||
--exclude "*~" \
|
||||
--exclude "*#*" \
|
||||
--exclude exports.all \
|
||||
--exclude "venuesysouts" \
|
||||
--exclude "venuesysouts" \
|
||||
${name_xform} \
|
||||
"${dirname}"/clos \
|
||||
"${dirname}"/docs/dinfo \
|
||||
@@ -80,7 +80,6 @@ tar -c -z -f "${release_dir}"/$tag-runtime.tgz \
|
||||
"${dirname}"/fonts/adobe \
|
||||
"${dirname}"/fonts/postscriptfonts \
|
||||
"${dirname}"/fonts/ipfonts \
|
||||
"${dirname}"/fonts/medleydisplayfonts \
|
||||
"${dirname}"/library \
|
||||
"${dirname}"/lispusers \
|
||||
"${dirname}"/sources \
|
||||
|
||||
121
sources/LLINTERP
121
sources/LLINTERP
@@ -1,13 +1,19 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 8-May-2026 23:51:41" {DSK}<home>matt>Interlisp>medley>sources>LLINTERP.;2 120946
|
||||
(FILECREATED "30-Jun-2022 22:42:02"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLINTERP.;4 120990
|
||||
|
||||
:EDIT-BY "mth"
|
||||
:PREVIOUS-DATE "30-Jun-2022 18:04:04"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLINTERP.;3)
|
||||
|
||||
:CHANGES-TO (FNS \CCODEARGLIST)
|
||||
|
||||
:PREVIOUS-DATE "30-Jun-2022 22:42:02" {DSK}<home>matt>Interlisp>medley>sources>LLINTERP.;1)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1981-1988, 1990-1992, 1994-1995 by Venue & Xerox Corporation.
|
||||
The following program was created in 1981 but has not been published
|
||||
within the meaning of the copyright law, is furnished under license,
|
||||
and may not be used, copied and/or disclosed except in accordance
|
||||
with the terms of said license.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT LLINTERPCOMS)
|
||||
|
||||
@@ -1535,8 +1541,7 @@
|
||||
(T (ERROR '"Args not available:" FN])
|
||||
|
||||
(\CCODEARGLIST
|
||||
[LAMBDA (FNHD SMARTP) (* ; "Edited 8-May-2026 23:44 by mth")
|
||||
(* ; "Edited 10-May-88 12:18 by MASINTER")
|
||||
[LAMBDA (FNHD SMARTP) (* ; "Edited 10-May-88 12:18 by MASINTER")
|
||||
|
||||
(* ;; "Computes the arglist for raw code object FNHD. If SMARTP is true, we're allowed to return a Common Lisp arg list if we find one; otherwise, we have to comply with Interlisp arglist semantics.")
|
||||
|
||||
@@ -1551,55 +1556,53 @@
|
||||
(SETQ SIZE (fetch (FNHEADER NTSIZE) of FNHD))
|
||||
[COND
|
||||
((EQ [SETQ LOCALSIZE (- (FOLDLO (if (fetch (FNHEADER NATIVE) of FNHD)
|
||||
then (- (fetch (FNHEADER STARTPC) of FNHD)
|
||||
4)
|
||||
then (- (fetch (FNHEADER STARTPC)
|
||||
of FNHD)
|
||||
4)
|
||||
else (fetch (FNHEADER STARTPC) of FNHD))
|
||||
BYTESPERWORD)
|
||||
(SETQ ENDT (+ (fetch (FNHEADER OVERHEADWORDS) of T)
|
||||
(COND
|
||||
((EQ SIZE 0)
|
||||
(* ;
|
||||
"No nametable, but there's a quad of zeros there anyway")
|
||||
"No nametable, but there's a quad of zeros there anyway")
|
||||
WORDSPERQUAD)
|
||||
(T (UNFOLD SIZE 2]
|
||||
0) (* ; "Nothing extra here")
|
||||
)
|
||||
[(> LOCALSIZE WORDSPERCELL) (* ;
|
||||
"There is a second nametable between the first and the code.")
|
||||
"There is a second nametable between the first and the code.")
|
||||
(SETQ IVARS (\CCODEIVARSCAN FNHD ENDT (FOLDLO LOCALSIZE 2]
|
||||
((AND (LISTP (SETQ ENDT (\GETBASEPTR FNHD ENDT)))
|
||||
(LISTP (CAR ENDT))) (* ;
|
||||
"It's exactly a pointer to debugging info, car of which is a stylized arglist")
|
||||
"It's exactly a pointer to debugging info, car of which is a stylized arglist")
|
||||
(SETQ ENDT (if (AND (EQ (CAAR ENDT)
|
||||
'&OPTIONAL)
|
||||
(LISTGET (CDR ENDT)
|
||||
:INTERLISP))
|
||||
then (* ; "The &OPTIONAL, while strictly correct, is misleading, since it's technically true for ALL Interlisp functions.")
|
||||
(CDAR ENDT)
|
||||
'&OPTIONAL)
|
||||
(LISTGET (CDR ENDT)
|
||||
:INTERLISP))
|
||||
then (* ; "The &OPTIONAL, while strictly correct, is misleading, since it's technically true for ALL Interlisp functions.")
|
||||
(CDAR ENDT)
|
||||
else (CAR ENDT)))
|
||||
(RETURN (COND
|
||||
(SMARTP ENDT)
|
||||
(T (* ; "Note that if we got this far, function can't be a nospread (we caught this in the very first COND up above), which means there can't be any &key or &rest")
|
||||
(for X in ENDT unless (EQ X '&OPTIONAL) collect (COND
|
||||
((STRINGP X)
|
||||
(* ;
|
||||
"Callers of ARGLIST are expecting to get something that would actually function as one")
|
||||
(MKATOM X))
|
||||
(T X]
|
||||
(for X in ENDT unless (EQ X '&OPTIONAL)
|
||||
collect (COND
|
||||
((STRINGP X) (* ;
|
||||
"Callers of ARGLIST are expecting to get something that would actually function as one")
|
||||
(MKATOM X))
|
||||
(T X]
|
||||
[COND
|
||||
((< N 0) (* ;
|
||||
"Waited until now to see if there was a stored arglist, but we didn't find one--give up")
|
||||
(RETURN (COND
|
||||
((AND (EQ 2 (fetch (FNHEADER ARGTYPE) of FNHD))
|
||||
(SETQ IVARS (ASSOC 0 IVARS)))
|
||||
(CDR IVARS))
|
||||
(T 'U]
|
||||
"Waited until now to see if there was a stored arglist, but we didn't find one--give up")
|
||||
(RETURN 'U]
|
||||
[COND
|
||||
((NEQ SIZE 0) (* ; "Scan specials name table")
|
||||
(SETQ IVARS (\CCODEIVARSCAN FNHD (fetch (FNHEADER OVERHEADWORDS) of T)
|
||||
SIZE IVARS]
|
||||
[SETQ IVARS (for I from 0 to (SUB1 N) collect (OR (CDR (ASSOC I IVARS))
|
||||
(PACK* '*ARG* I]
|
||||
[SETQ IVARS (for I from 0 to (SUB1 N)
|
||||
collect (OR (CDR (ASSOC I IVARS))
|
||||
(PACK* '*ARG* I]
|
||||
(RETURN (SELECTQ (fetch (FNHEADER ARGTYPE) of FNHD)
|
||||
(3 (CAR IVARS))
|
||||
IVARS])
|
||||
@@ -1742,31 +1745,33 @@
|
||||
|
||||
(ADDTOVAR LAMA APPLY* \INTERPRETER)
|
||||
)
|
||||
(PUTPROPS LLINTERP COPYRIGHT ("Venue & Xerox Corporation" T 1981 1982 1983 1984 1985 1986 1987 1988
|
||||
1990 1991 1992 1994 1995))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (6111 23372 (\INTERPRETER 6121 . 10717) (\INTERPRETER1 10719 . 17287) (
|
||||
\SETUP-COMPILED-CLOSURE-CALL 17289 . 22436) (\STKNAME 22438 . 23370)) (23401 28813 (\ENVCALL.UFN 23411
|
||||
. 23543) (\SETUP-ENVIRONMENT-CALL 23545 . 28811)) (28852 33729 (EVAL 28862 . 28962) (\EVAL 28964 .
|
||||
29174) (\EVALFORM 29176 . 30407) (\EVALFORMASLAMBDA 30409 . 30599) (\EVALOTHER 30601 . 30808) (APPLY
|
||||
30810 . 30917) (APPLY* 30919 . 32034) (\CHECKAPPLY* 32036 . 33141) (\CKAPPLYARGS 33143 . 33486) (
|
||||
DEFEVAL 33488 . 33727)) (35573 43162 (EVALV 35583 . 35792) (\EVALV1 35794 . 35949) (\EVALVAR 35951 .
|
||||
36314) (BOUNDP 36316 . 36532) (SET 36534 . 36900) (\SETVAR 36902 . 37272) (SETQ 37274 . 37946) (
|
||||
\STKSCAN 37948 . 41612) (\SETFVARSLOT 41614 . 43160)) (43196 56203 (PROG 43206 . 45722) (\PROG0 45724
|
||||
. 49354) (\EVPROG1 49356 . 49559) (RETURN 49561 . 50102) (GO 50104 . 50919) (EVALA 50921 . 52850) (
|
||||
\EVALA 52852 . 55445) (ERRORSET 55447 . 56052) (SI::ERRORSET-PRINT-FUNCTION 56054 . 56201)) (56262
|
||||
68914 (LET 56272 . 58415) (LET* 58417 . 60565) (\LET0 60567 . 64227) (\LET* 64229 . 68912)) (68915
|
||||
70491 (QUOTE 68925 . 68956) (AND 68958 . 69166) (OR 69168 . 69416) (PROGN 69418 . 69697) (COND 69699
|
||||
. 70033) (\EVPROGN 70035 . 70248) (PROG1 70250 . 70489)) (70979 77870 (ENVEVAL 70989 . 71239) (
|
||||
ENVAPPLY 71241 . 71498) (FUNCTION 71500 . 71730) (\FUNCT1 71732 . 74181) (\MAKEFUNARGFRAME 74183 .
|
||||
76380) (STKEVAL 76382 . 76530) (STKAPPLY 76532 . 76701) (RETEVAL 76703 . 77307) (RETAPPLY 77309 .
|
||||
77868)) (77991 85499 (BLIPVAL 78001 . 81902) (SETBLIPVAL 81904 . 84646) (BLIPSCAN 84648 . 85497)) (
|
||||
85500 86195 (\REALFRAMEP 85510 . 86193)) (86571 95966 (RAIDCOMMAND 86581 . 90187) (RAIDSHOWFRAME 90189
|
||||
. 90572) (RAIDSTACKCMD 90574 . 91755) (RAIDROOTFRAME 91757 . 92019) (PRINTADDRS 92021 . 92547) (
|
||||
PRINTVA 92549 . 92694) (READVA 92696 . 92774) (READATOM 92776 . 93358) (READOCT 93360 . 93991) (
|
||||
SHOWSTACKBLOCKS 93993 . 95239) (SHOWSTACKBLOCK1 95241 . 95392) (PRINCOPY 95394 . 95526) (NOSUCHATOM
|
||||
95528 . 95964)) (95967 104595 (BACKTRACE 95977 . 96334) (\BACKTRACE 96336 . 97442) (\SCANFORNTENTRY
|
||||
97444 . 99074) (\PRINTSTK 99076 . 99263) (\PRINTFRAME 99265 . 103248) (\PRINTBF 103250 . 104593)) (
|
||||
107095 116821 (CCODEP 107105 . 107380) (EXPRP 107382 . 107641) (SUBRP 107643 . 107698) (FNTYP 107700
|
||||
. 108460) (ARGTYPE 108462 . 109076) (NARGS 109078 . 109565) (ARGLIST 109567 . 110816) (\CCODEARGLIST
|
||||
110818 . 115596) (\CCODEIVARSCAN 115598 . 116819)) (117771 120002 (CONSTANTS 117781 . 118072) (
|
||||
CONSTANTEXPRESSIONP 118074 . 120000)))))
|
||||
(FILEMAP (NIL (6409 23670 (\INTERPRETER 6419 . 11015) (\INTERPRETER1 11017 . 17585) (
|
||||
\SETUP-COMPILED-CLOSURE-CALL 17587 . 22734) (\STKNAME 22736 . 23668)) (23699 29111 (\ENVCALL.UFN 23709
|
||||
. 23841) (\SETUP-ENVIRONMENT-CALL 23843 . 29109)) (29150 34027 (EVAL 29160 . 29260) (\EVAL 29262 .
|
||||
29472) (\EVALFORM 29474 . 30705) (\EVALFORMASLAMBDA 30707 . 30897) (\EVALOTHER 30899 . 31106) (APPLY
|
||||
31108 . 31215) (APPLY* 31217 . 32332) (\CHECKAPPLY* 32334 . 33439) (\CKAPPLYARGS 33441 . 33784) (
|
||||
DEFEVAL 33786 . 34025)) (35871 43460 (EVALV 35881 . 36090) (\EVALV1 36092 . 36247) (\EVALVAR 36249 .
|
||||
36612) (BOUNDP 36614 . 36830) (SET 36832 . 37198) (\SETVAR 37200 . 37570) (SETQ 37572 . 38244) (
|
||||
\STKSCAN 38246 . 41910) (\SETFVARSLOT 41912 . 43458)) (43494 56501 (PROG 43504 . 46020) (\PROG0 46022
|
||||
. 49652) (\EVPROG1 49654 . 49857) (RETURN 49859 . 50400) (GO 50402 . 51217) (EVALA 51219 . 53148) (
|
||||
\EVALA 53150 . 55743) (ERRORSET 55745 . 56350) (SI::ERRORSET-PRINT-FUNCTION 56352 . 56499)) (56560
|
||||
69212 (LET 56570 . 58713) (LET* 58715 . 60863) (\LET0 60865 . 64525) (\LET* 64527 . 69210)) (69213
|
||||
70789 (QUOTE 69223 . 69254) (AND 69256 . 69464) (OR 69466 . 69714) (PROGN 69716 . 69995) (COND 69997
|
||||
. 70331) (\EVPROGN 70333 . 70546) (PROG1 70548 . 70787)) (71277 78168 (ENVEVAL 71287 . 71537) (
|
||||
ENVAPPLY 71539 . 71796) (FUNCTION 71798 . 72028) (\FUNCT1 72030 . 74479) (\MAKEFUNARGFRAME 74481 .
|
||||
76678) (STKEVAL 76680 . 76828) (STKAPPLY 76830 . 76999) (RETEVAL 77001 . 77605) (RETAPPLY 77607 .
|
||||
78166)) (78289 85797 (BLIPVAL 78299 . 82200) (SETBLIPVAL 82202 . 84944) (BLIPSCAN 84946 . 85795)) (
|
||||
85798 86493 (\REALFRAMEP 85808 . 86491)) (86869 96264 (RAIDCOMMAND 86879 . 90485) (RAIDSHOWFRAME 90487
|
||||
. 90870) (RAIDSTACKCMD 90872 . 92053) (RAIDROOTFRAME 92055 . 92317) (PRINTADDRS 92319 . 92845) (
|
||||
PRINTVA 92847 . 92992) (READVA 92994 . 93072) (READATOM 93074 . 93656) (READOCT 93658 . 94289) (
|
||||
SHOWSTACKBLOCKS 94291 . 95537) (SHOWSTACKBLOCK1 95539 . 95690) (PRINCOPY 95692 . 95824) (NOSUCHATOM
|
||||
95826 . 96262)) (96265 104893 (BACKTRACE 96275 . 96632) (\BACKTRACE 96634 . 97740) (\SCANFORNTENTRY
|
||||
97742 . 99372) (\PRINTSTK 99374 . 99561) (\PRINTFRAME 99563 . 103546) (\PRINTBF 103548 . 104891)) (
|
||||
107393 116737 (CCODEP 107403 . 107678) (EXPRP 107680 . 107939) (SUBRP 107941 . 107996) (FNTYP 107998
|
||||
. 108758) (ARGTYPE 108760 . 109374) (NARGS 109376 . 109863) (ARGLIST 109865 . 111114) (\CCODEARGLIST
|
||||
111116 . 115512) (\CCODEIVARSCAN 115514 . 116735)) (117687 119918 (CONSTANTS 117697 . 117988) (
|
||||
CONSTANTEXPRESSIONP 117990 . 119916)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user