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

Update lispusers module INSPECTCODE-TEDIT for changes to Tedit. (#2224)

Browse Source 
* Update lispusers/INSPECTCODE-TEDIT for changes to Tedit.
This could be considered to be incorporated directly into sources/INSPECT.
(This was changed from TCOMPL (LCOM) to COMPILE-FILE (DFASL) because it just wouldn't compile correctly otherwise, for me.)

---------

Co-authored-by: rmkaplan <ron.kaplan@post.harvard.edu>
This commit is contained in:
Matt Heffron 2025-07-30 16:02:12 -07:00 committed by GitHub
parent 3692c8f1e6
commit 4019578944
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
4 changed files with 163 additions and 194 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

357
lispusers/INSPECTCODE-TEDIT
View File

@ -1,59 +1,53 @@
(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE (DEFPACKAGE "INSPECTCODE-TEDIT" (§USE "INTERLISP") (
§NICKNAMES "ICT") (§PREFIX-NAME "ICT")))
(FILECREATED " 4-May-87 11:52:50" {DSK}<LISPFILES>MATT>INSPECTCODE-TEDIT.;10 16087
(DEFINE-FILE-INFO PACKAGE (PROGN (CLINTERN "INSPECTCODE-TEDITCOMS" "INTERLISP") (* ;;
"Above is to ensure the COMS is in the INTERLISP package!") (DEFPACKAGE "INSPECTCODE-TEDIT" (USE
"INTERLISP") (NICKNAMES "ICT") (PREFIX-NAME "ICT"))) READTABLE "INTERLISP" BASE 10)
changes to%: (ADVICE IL:OPENTEXTSTREAM-IN-\TEDIT.INSPECTCODE)
(FILEVARS IL:INSPECTCODE-TEDITCOMS)
(FNS TITLEMENU-FN OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE)
(FILECREATED "28-Jul-2025 12:42:03" {DSK}<home>matt>Interlisp>medley>lispusers>INSPECTCODE-TEDIT.;16 18137
previous date%: " 7-Apr-87 16:03:12" IL:{DSK}<LISPFILES>MATT>INSPECTCODE-TEDIT.;9)
:EDIT-BY "mth"
:CHANGES-TO (VARS INSPECTCODE-TEDITCOMS)
(FNS ADVICE-ON-\TEDIT.INSPECTCODE)
(ADVICE (DECODE.WINDOW.ARG :IN \TEDIT.INSPECTCODE))
:PREVIOUS-DATE "23-Jul-2025 18:40:40"
{DSK}<home>matt>Interlisp>medley>lispusers>INSPECTCODE-TEDIT.;14)
(* "
Copyright (c) 1985, 1986, 1987 by Beckman Instruments, Inc.. All rights reserved.
")
(PRETTYCOMPRINT INSPECTCODE-TEDITCOMS)
(PRETTYCOMPRINT IL:INSPECTCODE-TEDITCOMS)
(RPAQQ INSPECTCODE-TEDITCOMS
((FILES (FROM LISPUSERS)
GRAPHCALLS)
(FNS ADVICE-ON-\TEDIT.INSPECTCODE ICON-FN INSP.ERROR KILL.TEDIT.PROCESS
OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE TITLEMENU-FN)
(FUNCTIONS BUILD-TITLEMENU)
(GLOBALVARS TITLEMENU-ITEMS)
(VARS ICON.TEMPLATE TITLEMENU-ITEMS-TEMPLATE (TITLEMENU-ITEMS (BUILD-TITLEMENU
TITLEMENU-ITEMS-TEMPLATE
)))
(P (CHANGENAME '\TEDIT.INSPECTCODE 'TEXTICON 'ICON-FN))
(ADVISE (DECODE.WINDOW.ARG :IN \TEDIT.INSPECTCODE))
(COMMANDS IC)
(PROP (FILETYPE MAKEFILE-ENVIRONMENT)
INSPECTCODE-TEDIT)))
(RPAQQ IL:INSPECTCODE-TEDITCOMS ((FNS BUILD.TITLEMENU ICON-FN INSP.ERROR KILL.TEDIT.PROCESS NOSELFN
OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE TITLEMENU-FN)
(UGLYVARS ICON.TEMPLATE)
(P (CHANGENAME '\TEDIT.INSPECTCODE 'TEXTICON 'ICON-FN)
(CHANGENAME '\TEDIT.INSPECTCODE 'OPENTEXTSTREAM '
OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE))
(COMMANDS IC)
(PROP (FILETYPE MAKEFILE-ENVIRONMENT)
INSPECTCODE-TEDIT)))
(FILESLOAD (FROM LISPUSERS)
GRAPHCALLS)
(DEFINEQ
(BUILD.TITLEMENU
[LAMBDA NIL (* ; "Edited 30-Mar-87 16:32 by Matt Heffron")
(DECLARE (GLOBALVARS TITLEMENU))
(SETQ TITLEMENU (create MENU
ITEMS _ '((GraphCalls 'GC "Invoke GRAPHCALLS on the current selection")
(InspectCode 'IC "INSPECTCODE the current selection")
(Inspect 'INSP "INSPECT the current selection"
(SUBITEMS (Freely 'INSP
"INSPECT the free-reference value of the selection"
)
(Globally 'INSP.GLOB
"INSPECT the Global (Top Level) value of the selection"
)
("In Process Context" 'INSP.PROC
"INSPECT the value of the selection in a process' context"
)))
("Pretty Print Value" 'PPV
"Pretty Print the value of the current selection"
(SUBITEMS (Freely 'PPV
"Pretty Print the free-reference value of the selection"
)
(Globally 'PPV.GLOB
"Pretty Print the Global (Top Level) value of the selection"
)
("In Process Context" 'PPV.PROC
"Pretty Print the value of the selection in a process' context"
)))
(Quit 'QUIT "Terminates this INSPECTCODE"])
(ADVICE-ON-\TEDIT.INSPECTCODE
[LAMBDA (W FN)
(DECLARE (GLOBALVARS TITLEMENU-ITEMS)) (* ; "Edited 28-Jul-2025 12:28 by mth")
(WINDOWPROP W 'TEDIT.MENU.COMMANDS TITLEMENU-ITEMS)
[WINDOWPROP W 'FNNAME (COND
((OR (LITATOM FN)
(NOT (CCODEP FN)))
FN)
(T (fetch (COMPILED-CLOSURE FRAMENAME) of FN]
(WINDOWPROP W '*PACKAGE* *PACKAGE*)
(WINDOWPROP W '*READTABLE* *READTABLE*)
W])
(ICON-FN
[LAMBDA (W) (* ; "Edited 30-Mar-87 15:59 by Matt Heffron")
@ -67,59 +61,44 @@ Copyright (c) 1985, 1986, 1987 by Beckman Instruments, Inc.. All rights reserve
ICON])
(INSP.ERROR
[LAMBDA (MESS1 MESS2 MESS3) (* ; "Edited 30-Mar-87 16:00 by Matt Heffron")
(CLRPROMPT)
(if (NOT MESS2)
then (PROMPTPRINT MESS1)
elseif (NOT MESS3)
then (PROMPTPRINT MESS1 MESS2)
else (PROMPTPRINT MESS1 MESS2 MESS3))
(RINGBELLS])
[LAMBDA (TSTREAM MESS1 MESS2 MESS3) (* ; "Edited 23-Jul-2025 16:51 by mth")
(* ; "Edited 30-Mar-87 16:00 by Matt Heffron")
(TEDIT.PROMPTPRINT TSTREAM (CONCAT MESS1 (OR MESS2 "")
(OR MESS3 ""))
T])
(KILL.TEDIT.PROCESS
[LAMBDA (W) (* ; "Edited 30-Mar-87 16:00 by Matt Heffron")
(DEL.PROCESS (WINDOWPROP W 'PROCESS])
(NOSELFN
[LAMBDA NIL (* ; "Edited 30-Mar-87 16:01 by Matt Heffron")
(CLRPROMPT)
(PROMPTPRINT "No current selection")
(RINGBELLS])
(OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE
[LAMBDA (TEXT WINDOW START END PROPS) (* ; "Edited 4-May-87 11:47 by ")
(PROG1 [OPENTEXTSTREAM TEXT WINDOW START END (APPEND PROPS '(QUITFN T TITLEMENUFN TITLEMENU-FN
NOTITLE T]
(WINDOWADDPROP WINDOW 'CLOSEFN (FUNCTION KILL.TEDIT.PROCESS))
(WINDOWPROP WINDOW 'FNNAME FN)
(WINDOWPROP WINDOW '*PACKAGE* *PACKAGE*)
(WINDOWPROP WINDOW '*READTABLE* *READTABLE*])
(WINDOWADDPROP WINDOW 'CLOSEFN (FUNCTION KILL.TEDIT.PROCESS))
(WINDOWPROP WINDOW 'FNNAME FN)
(WINDOWPROP WINDOW '*PACKAGE* *PACKAGE*)
(WINDOWPROP WINDOW '*READTABLE* *READTABLE*))])
(TITLEMENU-FN
[LAMBDA (W) (* ; "Edited 4-May-87 11:32 by ")
(* ; "Edited 4-May-87 11:25 by ")
(* ; "Edited 4-May-87 11:19 by ")
(DECLARE (GLOBALVARS TITLEMENU))
(if (OR (NOT (BOUNDP 'TITLEMENU))
(NOT (type? MENU TITLEMENU)))
then (BUILD.TITLEMENU))
[LAMBDA (STREAM MI) (* ; "Edited 23-Jul-2025 16:56 by mth")
(* ; "Edited 4-May-87 11:32 by ")
[LET*
((STREAM (TEXTSTREAM W))
((W (\TEDIT.PRIMARYPANE STREAM))
(W*PACKAGE* (WINDOWPROP W '*PACKAGE*))
(W*READTABLE* (WINDOWPROP W '*READTABLE*))
(SELLEN (fetch (SELECTION DCH) of (TEDIT.GETSEL STREAM)))
(MENUCHOICE (MENU TITLEMENU))
(SpecifyRegionString "Specify a region for the value pretty print window")
INSPVAL SELSTR DISPLAYWINDOW)
(if (NOT MENUCHOICE)
(if (NOT MI)
then (* ;
 "Nothing to do, clicked out of menu")
elseif (EQ MENUCHOICE 'QUIT)
elseif (EQ MI 'QUIT)
then (TEDIT.QUIT STREAM)
(if (OPENWP W)
then (CLOSEW W))
else [if (EQ SELLEN 0)
then (NOSELFN)
then (TEDIT.PROMPTPRINT STREAM SpecifyRegionString T)
elseif (GREATERP SELLEN 255)
then (INSP.ERROR "Selection is too long (> 255 characters)")
(TEDIT.SHOWSEL STREAM NIL NIL)
@ -129,25 +108,24 @@ Copyright (c) 1985, 1986, 1987 by Beckman Instruments, Inc.. All rights reserve
(STRM (OPENSTRINGSTREAM (TEDIT.SEL.AS.STRING STREAM NIL)
'INPUT]
(READ STRM]
(SELECTQ MENUCHOICE
(SELECTQ MI
(IC (LET ((*PACKAGE* W*PACKAGE*)
(*READTABLE* W*READTABLE*))
(INSPECTCODE SELSTR)))
(GC (if (FGETD 'GRAPHCALLSW)
(GC (if (FGETD 'IL:GRAPHCALLSW)
then (if (NOT (LET ((*PACKAGE* W*PACKAGE*)
(*READTABLE* W*READTABLE*))
(GRAPHCALLS SELSTR)))
(IL:GRAPHCALLS SELSTR)))
then (INSP.ERROR "Nothing to graph!!"))
else (INSP.ERROR "The GRAPHCALLS package is not loaded. Cannot graph " SELSTR)
))
((INSP PPV)
(if (BOUNDP SELSTR)
then (if (EQ MENUCHOICE 'PPV)
then (PROMPTPRINT SpecifyRegionString)
then (TEDIT.PROMPTPRINT STREAM SpecifyRegionString T)
(SETQ DISPLAYWINDOW (CREATEW (GETREGION (WIDTHIFWINDOW 72)
(HEIGHTIFWINDOW 72 T))
SELSTR))
(CLRPROMPT)
(printout DISPLAYWINDOW .PPV (EVAL SELSTR))
else (INSPECT (EVALV SELSTR)))
else (INSP.ERROR SELSTR " has no value to " (if (EQ MENUCHOICE 'PPV)
@ -157,11 +135,10 @@ Copyright (c) 1985, 1986, 1987 by Beckman Instruments, Inc.. All rights reserve
(if (NEQ (SETQ INSPVAL (GETTOPVAL SELSTR))
'NOBIND)
then (if (EQ MENUCHOICE 'PPV.GLOB)
then (PROMPTPRINT SpecifyRegionString)
then (TEDIT.PROMPTPRINT STREAM SpecifyRegionString T)
(SETQ DISPLAYWINDOW (CREATEW (GETREGION (WIDTHIFWINDOW 72)
(HEIGHTIFWINDOW 72 T))
SELSTR))
(CLRPROMPT)
(printout DISPLAYWINDOW .PPV INSPVAL)
else (INSPECT INSPVAL))
else (INSP.ERROR SELSTR " has no Global value to "
@ -181,12 +158,11 @@ Copyright (c) 1985, 1986, 1987 by Beckman Instruments, Inc.. All rights reserve
then [if (NEQ (SETQ INSPVAL (PROCESS.EVALV PROC SELSTR))
'NOBIND)
then (if (EQ MENUCHOICE 'PPV.PROC)
then (PROMPTPRINT SpecifyRegionString)
then (TEDIT.PROMPTPRINT STREAM SpecifyRegionString T)
(SETQ DISPLAYWINDOW
(CREATEW (GETREGION (WIDTHIFWINDOW 72)
(HEIGHTIFWINDOW 72 T))
SELSTR))
(CLRPROMPT)
(printout DISPLAYWINDOW .PPV INSPVAL)
else (INSPECT INSPVAL))
else (INSP.ERROR SELSTR (if (EQ MENUCHOICE 'PPV.PROC)
@ -205,117 +181,110 @@ Copyright (c) 1985, 1986, 1987 by Beckman Instruments, Inc.. All rights reserve
]
NIL])
)
(READVAR-FROM-STRING 'ICON.TEMPLATE "({(READBITMAP)(87 91
%"OOOOOOOOOOOOOOOOOOOOON@@%"
%"OOOOOOOOOOOOOOOOOOOOON@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@COO@@@@@F@@%"
%"L@@@@@@@@@@@AOOON@@@@F@@%"
%"L@@@@@@@@@@@GN@AOH@@@F@@%"
%"L@@@@@@@@@@AO@@@CN@@@F@@%"
%"L@@@@@@@@@@CL@@@@O@@@F@@%"
%"L@@@@@@@@@@O@@@@@CL@@F@@%"
%"L@@@@@@@@@AN@@@@@AN@@F@@%"
%"L@@@@@@@@@CH@@@@@@G@@F@@%"
%"L@@@@@@@@@C@@@@@@@C@@F@@%"
%"L@@@@@@@@@G@@@@@@@CH@F@@%"
%"L@@@@@@@@@N@@@@@@@AL@F@@%"
%"L@@@@@@@@@L@@@@@@@@L@F@@%"
%"L@@@@@@@@AL@@@@@@@@N@F@@%"
%"L@@@@@@@@AH@@@@@@@@F@F@@%"
%"L@@@@@@@@CH@@@@@@@@G@F@@%"
%"L@@@@@@@@C@@@@@@@@@C@F@@%"
%"L@@@@@@@@C@@@@@@@@@C@F@@%"
%"L@@@@@@@@GGL@OHGO@OOHF@@%"
%"L@@@@@@@@GLFCHNFALLAHF@@%"
%"L@@@@@@@@GHCC@FF@LLAHF@@%"
%"L@@@@@@@@G@@F@CF@FLAHF@@%"
%"LBIGKMLNOO@@F@CF@FOOHF@@%"
%"LBMDBEA@BG@@F@CF@FLAHF@@%"
%"LBOGKMM@BG@@F@CF@FLAHF@@%"
%"LBK@JAA@BGHCC@FF@LLAHF@@%"
%"LBIGJALNBGLFCHNFALLAHF@@%"
%"L@@@@@@@@GGL@OHGO@OOHF@@%"
%"L@@@@@@@@C@@@@@@@@@C@F@@%"
%"L@@@@@@@@C@@@@@@@@@C@F@@%"
%"L@@@@@@@@CH@@@@@@@@G@F@@%"
%"L@@@@@@@@AH@@@@@@@@F@F@@%"
%"L@@@@@@@@AL@@@@@@@@N@F@@%"
%"L@@@@@@@@@L@@@@@@@@L@F@@%"
%"L@@@@@@@@@N@@@@@@@AL@F@@%"
%"L@@@@@@@@@G@@@@@@@CH@F@@%"
%"L@@@@@@@@@G@@@@@@@C@@F@@%"
%"L@@@@@@@@@OL@@@@@@G@@F@@%"
%"L@@@@@@@@@ON@@@@@AN@@F@@%"
%"L@@@@@@@@AGO@@@@@CL@@F@@%"
%"L@@@@@@@@CKCL@@@@O@@@F@@%"
%"L@@@@@@@@GLAO@@@CN@@@F@@%"
%"L@@@@@@@@OH@GN@AOH@@@F@@%"
%"L@@@@@@@AO@@AOOON@@@@F@@%"
%"L@@@@@@@FN@@@COO@@@@@F@@%"
%"L@@@@@@@OD@@@@@@@@@@@F@@%"
%"L@@@@@@AOH@@@@@@@@@@@F@@%"
%"L@@@@@@COH@@@@@@@@@@@F@@%"
%"L@@@@@@GO@@@@@@@@@@@@F@@%"
%"L@@@@@@ON@@@@@@@@@@@@F@@%"
%"L@@@@@AOL@@@@@@@@@@@@F@@%"
%"L@@@@@COH@@@@@@@@@@@@F@@%"
%"L@@@@@GO@@@@@@@@@@@@@F@@%"
%"L@@@@@ON@@@@@@@@@@@@@F@@%"
%"L@@@@AOL@@@@@@@@@@@@@F@@%"
%"L@@@@COH@@@@@@@@@@@@@F@@%"
%"L@@@@GO@@@@@@@@@@@@@@F@@%"
%"L@@@@ON@@@@@@@@@@@@@@F@@%"
%"L@@@AOL@@@@@@@@@@@@@@F@@%"
%"L@@@COH@@@@@@@@@@@@@@F@@%"
%"L@@@GO@@@@@@@@@@@@@@@F@@%"
%"L@@@GN@@@@@@@@@@@@@@@F@@%"
%"L@@@CL@@@@@@@@@@@@@@@F@@%"
%"L@@@AH@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"L@@@@@@@@@@@@@@@@@@@@F@@%"
%"OOOOOOOOOOOOOOOOOOOOON@@%"
%"OOOOOOOOOOOOOOOOOOOOON@@%")} NIL (4 5 79 18))
")
(CL:DEFUN BUILD-TITLEMENU (ITEMS-TEMPLATE &AUX IL-PKG ICT-PKG)
(* ; "Edited 23-Jul-2025 17:20 by mth")
(SETQ IL-PKG (CL:FIND-PACKAGE "IL"))
(SETQ ICT-PKG (CL:FIND-PACKAGE "ICT"))
[CL:FLET [(TITLEMENU-FN-CALLER (MI)
#'(CL:LAMBDA (STREAM)
(TITLEMENU-FN STREAM MI]
(CL:LOOP :FOR ITEM :IN ITEMS-TEMPLATE :COLLECT
(LET (ITEM1)
(COND
((LITATOM ITEM)
ITEM)
((NOT (LISTP ITEM))
(* ;; "Report ill-formed ITEMS-TEMPLATE")
NIL)
((AND (LITATOM (SETQ ITEM1 (CL:FIRST ITEM)))
(EQ (CL:SYMBOL-PACKAGE ITEM1)
IL-PKG))
ITEM)
((OR (STRINGP ITEM1)
(AND (LITATOM ITEM1)
(EQ (CL:SYMBOL-PACKAGE ITEM1)
ICT-PKG)))
(LET ((LEN (LENGTH ITEM))
NEWITEM PIECE)
(SETQ NEWITEM (LIST ITEM1 (TITLEMENU-FN-CALLER (CL:SECOND ITEM))
(CL:THIRD ITEM)))
(CL:WHEN (AND (SETQ PIECE (CL:FOURTH ITEM))
(EQ (CL:FIRST PIECE)
'SUBITEMS))
[NCONC1 NEWITEM (CONS 'SUBITEMS (CL:LOOP
:FOR SI :IN (CL:REST PIECE)
:COLLECT
(LIST (CL:FIRST SI)
(TITLEMENU-FN-CALLER
(CL:SECOND SI))
(CL:THIRD SI])
NEWITEM])
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS TITLEMENU-ITEMS)
)
(RPAQQ ICON.TEMPLATE (#*(87 91)OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@COO@@@@@F@@L@@@@@@@@@@@AOOON@@@@F@@L@@@@@@@@@@@GN@AOH@@@F@@L@@@@@@@@@@AO@@@CN@@@F@@L@@@@@@@@@@CL@@@@O@@@F@@L@@@@@@@@@@O@@@@@CL@@F@@L@@@@@@@@@AN@@@@@AN@@F@@L@@@@@@@@@CH@@@@@@G@@F@@L@@@@@@@@@C@@@@@@@C@@F@@L@@@@@@@@@G@@@@@@@CH@F@@L@@@@@@@@@N@@@@@@@AL@F@@L@@@@@@@@@L@@@@@@@@L@F@@L@@@@@@@@AL@@@@@@@@N@F@@L@@@@@@@@AH@@@@@@@@F@F@@L@@@@@@@@CH@@@@@@@@G@F@@L@@@@@@@@C@@@@@@@@@C@F@@L@@@@@@@@C@@@@@@@@@C@F@@L@@@@@@@@GGL@OHGO@OOHF@@L@@@@@@@@GLFCHNFALLAHF@@L@@@@@@@@GHCC@FF@LLAHF@@L@@@@@@@@G@@F@CF@FLAHF@@LBIGKMLNOO@@F@CF@FOOHF@@LBMDBEA@BG@@F@CF@FLAHF@@LBOGKMM@BG@@F@CF@FLAHF@@LBK@JAA@BGHCC@FF@LLAHF@@LBIGJALNBGLFCHNFALLAHF@@L@@@@@@@@GGL@OHGO@OOHF@@L@@@@@@@@C@@@@@@@@@C@F@@L@@@@@@@@C@@@@@@@@@C@F@@L@@@@@@@@CH@@@@@@@@G@F@@L@@@@@@@@AH@@@@@@@@F@F@@L@@@@@@@@AL@@@@@@@@N@F@@L@@@@@@@@@L@@@@@@@@L@F@@L@@@@@@@@@N@@@@@@@AL@F@@L@@@@@@@@@G@@@@@@@CH@F@@L@@@@@@@@@G@@@@@@@C@@F@@L@@@@@@@@@OL@@@@@@G@@F@@L@@@@@@@@@ON@@@@@AN@@F@@L@@@@@@@@AGO@@@@@CL@@F@@L@@@@@@@@CKCL@@@@O@@@F@@L@@@@@@@@GLAO@@@CN@@@F@@L@@@@@@@@OH@GN@AOH@@@F@@L@@@@@@@AO@@AOOON@@@@F@@L@@@@@@@FN@@@COO@@@@@F@@L@@@@@@@OD@@@@@@@@@@@F@@L@@@@@@AOH@@@@@@@@@@@F@@L@@@@@@COH@@@@@@@@@@@F@@L@@@@@@GO@@@@@@@@@@@@F@@L@@@@@@ON@@@@@@@@@@@@F@@L@@@@@AOL@@@@@@@@@@@@F@@L@@@@@COH@@@@@@@@@@@@F@@L@@@@@GO@@@@@@@@@@@@@F@@L@@@@@ON@@@@@@@@@@@@@F@@L@@@@AOL@@@@@@@@@@@@@F@@L@@@@COH@@@@@@@@@@@@@F@@L@@@@GO@@@@@@@@@@@@@@F@@L@@@@ON@@@@@@@@@@@@@@F@@L@@@AOL@@@@@@@@@@@@@@F@@L@@@COH@@@@@@@@@@@@@@F@@L@@@GO@@@@@@@@@@@@@@@F@@L@@@GN@@@@@@@@@@@@@@@F@@L@@@CL@@@@@@@@@@@@@@@F@@L@@@AH@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@L@@@@@@@@@@@@@@@@@@@@F@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@
NIL
(4 5 79 18)))
(RPAQQ TITLEMENU-ITEMS-TEMPLATE
(("GraphCalls" GC "Invoke GRAPHCALLS on the current selection")
("InspectCode" IC "INSPECTCODE the current selection")
("Inspect" INSP "INSPECT the current selection" (SUBITEMS ("Freely" INSP
"INSPECT the free-reference value of the selection"
)
("Globally" INSP.GLOB
"INSPECT the Global (Top Level) value of the selection"
)
("In Process Context" INSP.PROC
"INSPECT the value of the selection in a process' context"
)))
("Pretty Print Value" PPV "Pretty Print the value of the current selection"
(SUBITEMS ("Freely" PPV "Pretty Print the free-reference value of the selection")
("Globally" PPV.GLOB
"Pretty Print the Global (Top Level) value of the selection")
("In Process Context" PPV.PROC
"Pretty Print the value of the selection in a process' context")))
("Quit" QUIT "Terminates this INSPECTCODE")
(Expanded% Menu 'Expanded% Menu)
(Put 'Put NIL (SUBITEMS |Put Formatted Document| Plain-Text))
Find
(Buttons 'Buttons "Display action buttons")))
(RPAQ TITLEMENU-ITEMS (BUILD-TITLEMENU TITLEMENU-ITEMS-TEMPLATE))
(CHANGENAME '\TEDIT.INSPECTCODE 'TEXTICON 'ICON-FN)
(CHANGENAME '\TEDIT.INSPECTCODE 'OPENTEXTSTREAM 'OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE)
(DEFCOMMAND IC (FN) (INSPECTCODE FN))
[XCL:REINSTALL-ADVICE '(DECODE.WINDOW.ARG :IN \TEDIT.INSPECTCODE)
:AROUND
'((:LAST (LET ((W *))
(DECLARE (SPECVARS FN))
(ADVICE-ON-\TEDIT.INSPECTCODE W FN)
W]
(READVISE (DECODE.WINDOW.ARG :IN \TEDIT.INSPECTCODE))
(PUTPROPS INSPECTCODE-TEDIT FILETYPE :TCOMPL)
(DEFCOMMAND IC (FN) (INSPECTCODE FN))
(PUTPROPS INSPECTCODE-TEDIT MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE (DEFPACKAGE
"INSPECTCODE-TEDIT"
(:USE "INTERLISP")
(:NICKNAMES "ICT")
(:PREFIX-NAME
"ICT"))))
(PUTPROPS INSPECTCODE-TEDIT COPYRIGHT ("Beckman Instruments, Inc." 1985 1986 1987))
(PUTPROPS INSPECTCODE-TEDIT FILETYPE :COMPILE-FILE)
(PUTPROPS INSPECTCODE-TEDIT MAKEFILE-ENVIRONMENT [:READTABLE "INTERLISP" :PACKAGE
(PROGN (CL:INTERN "INSPECTCODE-TEDITCOMS"
"INTERLISP")
(* ;;
 "Above is to ensure the COMS is in the INTERLISP package!")
(DEFPACKAGE "INSPECTCODE-TEDIT"
(:USE "INTERLISP")
(:NICKNAMES "ICT")
(:PREFIX-NAME "ICT"])
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1353 12345 (BUILD.TITLEMENU 1363 . 3517) (ICON-FN 3519 . 3975) (INSP.ERROR 3977 . 4315)
(KILL.TEDIT.PROCESS 4317 . 4491) (NOSELFN 4493 . 4688) (OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE 4690 .
5238) (TITLEMENU-FN 5240 . 12343)))))
(FILEMAP (NIL (1600 10420 (ADVICE-ON-\TEDIT.INSPECTCODE 1610 . 2170) (ICON-FN 2172 . 2628) (INSP.ERROR
2630 . 2990) (KILL.TEDIT.PROCESS 2992 . 3166) (OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE 3168 . 3706) (
TITLEMENU-FN 3708 . 10418)) (10422 12694 (BUILD-TITLEMENU 10422 . 12694)))))
STOP

BIN
lispusers/INSPECTCODE-TEDIT.DFASL Normal file
View File

Binary file not shown.

BIN
lispusers/INSPECTCODE-TEDIT.LCOM
View File

Binary file not shown.

BIN
lispusers/INSPECTCODE-TEDIT.TEDIT
View File

Binary file not shown.