(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  

      changes to%:  (ADVICE IL:OPENTEXTSTREAM-IN-\TEDIT.INSPECTCODE)
                    (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)


(* "
Copyright (c) 1985, 1986, 1987 by Beckman Instruments, Inc..  All rights reserved.
")

(PRETTYCOMPRINT IL:INSPECTCODE-TEDITCOMS)

(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)))
(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"])

(ICON-FN

  [LAMBDA (W)
                                         (* ; "Edited 30-Mar-87 15:59 by Matt Heffron")

    (DECLARE
 (GLOBALVARS ICON.TEMPLATE))
    (LET ((ICON (TITLEDICONW ICON.TEMPLATE (WINDOWPROP W 'FNNAME)
                       (FONTCREATE 'HELVETICA 8 'MRR NIL NIL T)
                       NIL T)))
         (WINDOWPROP W 'ICON ICON)
         (WINDOWPROP W 'ICONWINDOW ICON)
         (WINDOWPROP W 'ICONFN NIL)
         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])

(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*])

(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
))
    [LET*
     ((STREAM (TEXTSTREAM W))
      (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)
         then
                                                (* ; 

                                                             "Nothing to do, clicked out of menu")

       elseif
 (EQ MENUCHOICE 'QUIT)
         then
 (TEDIT.QUIT STREAM)
              (if
 (OPENWP W)
                  then
 (CLOSEW W))
       else
 [if
 (EQ SELLEN 0)
                then
 (NOSELFN
)
              elseif
 (GREATERP SELLEN 255)
                then
 (INSP.ERROR
 "Selection is too long (> 255 characters)")
                     (TEDIT.SHOWSEL STREAM NIL NIL)
                     (TEDIT.SETSEL STREAM 0 0 'LEFT)
              else
 (SETQ SELSTR (LET [(*PACKAGE* W*PACKAGE*)
                                      (*READTABLE* W*READTABLE*)
                                      (STRM (OPENSTRINGSTREAM (TEDIT.SEL.AS.STRING STREAM NIL)
                                                   'INPUT]
                                     (READ STRM]
            (SELECTQ MENUCHOICE
                (IC (LET ((*PACKAGE* W*PACKAGE*)
                          (*READTABLE* W*READTABLE*))
                         (INSPECTCODE SELSTR)))
                (GC (if
 (FGETD 'GRAPHCALLSW)
                        then
 (if
 (NOT (LET ((*PACKAGE* W*PACKAGE*)
                                            (*READTABLE* W*READTABLE*))
                                           (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)
                                       (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)
                                                                       then
 "print"
                                                                     else
 "inspect"))))
                ((INSP.GLOB PPV.GLOB) 
                     (if
 (NEQ (SETQ INSPVAL (GETTOPVAL SELSTR))
                              'NOBIND)
                         then
 (if
 (EQ MENUCHOICE 'PPV.GLOB)
                                  then
 (PROMPTPRINT SpecifyRegionString)
                                       (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 "
                                   (if
 (EQ MENUCHOICE 'PPV.GLOB)
                                       then
 "print"
                                     else
 "inspect"))))
                ((INSP.PROC PPV.PROC) 
                     (LET (PROCESSLIST PROC)
                          (DECLARE
 (SPECVARS PROCESSLIST))
                          [MAP.PROCESSES (FUNCTION (LAMBDA (PHANDLE PNAME PFORM)
                                                     (DECLARE
 (SPECVARS PROCESSLIST))
                                                     (push
 PROCESSLIST (LIST PNAME PHANDLE]
                          (SETQ PROC (MENU (create
 MENU
                                                  ITEMS _ PROCESSLIST
                                                  CENTERFLG _ T)))
                          (if
 PROC
                              then
 [if
 (NEQ (SETQ INSPVAL (PROCESS.EVALV PROC SELSTR))
                                            'NOBIND)
                                       then
 (if
 (EQ MENUCHOICE 'PPV.PROC)
                                                then
 (PROMPTPRINT SpecifyRegionString)
                                                     (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)
                                                                 then
 
                                                                 " has no value to print in process "
                                                               else
 
                                                               " has no value to inspect in process "
                                                                 )
                                                 (PROCESSPROP PROC 'NAME]
                            else
 (INSP.ERROR
 "No process selected.  Will not "
                                        (if
 (EQ MENUCHOICE 'PPV.PROC)
                                            then
 "print "
                                          else
 "inspect ")
                                        SELSTR))))
                (PROGN                                       (* ; "Shouldn't happen, but ignore it.")

                       ]
    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))
")
(CHANGENAME '\TEDIT.INSPECTCODE 'TEXTICON 'ICON-FN)
(CHANGENAME '\TEDIT.INSPECTCODE 'OPENTEXTSTREAM 'OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE)

(DEFCOMMAND IC
 (FN) (INSPECTCODE FN))


(PUTPROPS INSPECTCODE-TEDIT FILETYPE
 :TCOMPL)

(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))
(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)))))
STOP