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