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

Commands with OUTPUT TEDIT go to Tedit window (#1932)

Browse Source
This commit is contained in:
rmkaplan 2025-01-20 12:06:36 -08:00 committed by GitHub
parent 58122db362
commit 27d8bffaa9
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 120 additions and 100 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

220
library/MASTERSCOPE
View File

@ -1,22 +1,19 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "13-Jun-2021 09:05:17" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;6 196680
changes to%: (FNS MSINTERPRETSET)
(FILECREATED "14-Jul-2024 08:42:20" {WMEDLEY}<library>MASTERSCOPE.;28 197707
previous date%: " 9-Jun-2021 23:55:26"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;5)
:EDIT-BY rmk
:CHANGES-TO (FNS MSOUTPUT)
:PREVIOUS-DATE " 5-Jul-2024 11:54:48" {WMEDLEY}<library>MASTERSCOPE.;27)
(* ; "
Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT MASTERSCOPECOMS)
(RPAQQ MASTERSCOPECOMS
[
(* ;; "Main file for MASTERSCOPE.")
(* ;; "Main file for MASTERSCOPE.")
(FILES MSPARSE MSANALYZE)
(PROP FILETYPE MASTERSCOPE)
@ -28,13 +25,13 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
[COMS (FNS MSFIND MSEDITF MSEDITE EDITGETDEF)
(VARS MSBLIP)
(* ;; "List of (FILEPKGTYPE FILEPKGTYPE GETDEF-fn MARKASCHANGED-fn) for types that Masterscope knows how to analyze. LOOPSMS, for example, adds LOOPS constructs to this lists using MSADDANALYZE.")
(* ;; "List of (FILEPKGTYPE FILEPKGTYPE GETDEF-fn MARKASCHANGED-fn) for types that Masterscope knows how to analyze. LOOPSMS, for example, adds LOOPS constructs to this lists using MSADDANALYZE.")
[INITVARS (MSFNTYPES '((FNS FNS GETDEF]
(COMS (* ; "SCRATCHASH")
(COMS (* ; "SCRATCHASH")
(INITVARS (MSCRATCHASH))
(DECLARE%: DONTCOPY (MACROS SCRATCHASH]
(COMS (* ; "marking changed")
(COMS (* ; "marking changed")
(FNS MSMARKCHANGED CHANGEMACRO CHANGEVAR CHANGEI.S. CHANGERECORD MSNEEDUNSAVE UNSAVEFNS
)
(ADDVARS (COMPILE.TIME.CONSTANTS))
@ -42,11 +39,11 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
(INITVARS (CHECKUNSAVEFLG T)
(MSNEEDUNSAVE)))
(DECLARE%: EVAL@COMPILE DONTCOPY (MACROS GETWORDTYPE))
(COMS (* ; "interactive routines")
(COMS (* ; "interactive routines")
[VARS * (LIST (LIST 'MASTERSCOPEDATE (DATE (DATEFORMAT NO.TIME]
(ADDVARS (HISTORYCOMS %.))
(FNS %. MASTERSCOPE MASTERSCOPE1 MASTERSCOPEXEC)
(* ; "Interpreting commands")
(* ; "Interpreting commands")
(FNS MSINTERPRETSET MSINTERPA MSGETBLOCKDEC LISTHARD MSMEMBSET MSLISTSET MSHASHLIST
MSHASHLIST1 CHECKPATHS ONFILE)
(FNS MSINTERPRET VERBNOTICELIST MSOUTPUT MSCHECKEMPTY CHECKFORCHANGED MSSOLVE)
@ -186,9 +183,9 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
MSFILELST])
(MSSHOWUSE
[LAMBDA (SHOWFN SHOWTYPE SHOWSET SHOWEDIT IFCANT EDITCOMS)
(* ;
 "Edited 23-Jun-93 09:40 by sybalsky:mv:envos")
[LAMBDA (SHOWFN SHOWTYPE SHOWSET SHOWEDIT IFCANT EDITCOMS) (* ; "Edited 4-Jul-2024 15:06 by rmk")
(* ;
 "Edited 23-Jun-93 09:40 by sybalsky:mv:envos")
(* ;; "Show/Edit where SHOWFN uses/etc. a pattern.")
@ -196,7 +193,7 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
(COND
([OR [CL:MULTIPLE-VALUE-SETQ (DEF REALDEF)
(MSGETDEF SHOWFN (AND (fetch (MSSETPHRASE KNOWN) of SHOWSET)
(fetch (MSSETPHRASE TYPE) of SHOWSET))
(fetch (MSSETPHRASE TYPE) of SHOWSET))
(COND
((EQ SHOWEDIT 'SHOW)
'?)
@ -208,43 +205,45 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
(FILE (LOADFNS SHOWFN FILE 'PROP)
(GETPROP SHOWFN 'EXPR]
(* ;
 "was (MSGETDEF SHOWFN IFCANT (EQ SHOWEDIT (QUOTE SHOW)))")
 "was (MSGETDEF SHOWFN IFCANT (EQ SHOWEDIT (QUOTE SHOW)))")
(* ;
 "The SHOW command does not need to save")
(MSUPDATEFN1 SHOWFN DEF
(LIST SHOWTYPE [FUNCTION (LAMBDA (ITEM SS SE PRNT INCLISP)
(COND
((MSMEMBSET ITEM SS)
(COND
((NOT ANYFOUND)
(TAB 0 0 T)
(PRIN2 SHOWFN)
(PRIN1 " :
 "The SHOW command does not need to save")
(MSUPDATEFN1 SHOWFN DEF (LIST SHOWTYPE
[FUNCTION (LAMBDA (ITEM SS SE PRNT INCLISP)
(COND
((MSMEMBSET ITEM SS)
(COND
((NOT ANYFOUND)
(TAB 0 0 T)
(DSPFONT (PROG1 (DSPFONT BOLDFONT)
(PRIN2 SHOWFN)))
(PRIN1 " :
")))
(SETQ ANYFOUND
(CONS (CONS PRNT (AND INCLISP
(NOT (MSFIND INCLISP
PRNT))
INCLISP))
ANYFOUND))
(COND
([AND (EQ SE 'SHOW)
(NOT (FASSOC PRNT (CDR ANYFOUND]
(SETQ ANYFOUND
(CONS (CONS PRNT
(AND INCLISP
(NOT (MSFIND INCLISP
PRNT))
INCLISP))
ANYFOUND))
(COND
([AND (EQ SE 'SHOW)
(NOT (FASSOC PRNT (CDR ANYFOUND]
(* ;; "The EDIT command works by collecting a list of the expressions, and then doing a (*ORF* (= . lst1) (= . lst2)) --- if within a CLISP translation (determined by the binding of the INCLISP variable) then want to point at the CLISP if the expression is not actually embedded in the expression")
(SPACES 3)
(LVLPRINT PRNT (OUTPUT)
2)
(COND
((CDAR ANYFOUND)
(SPACES 3)
(LVLPRINT PRNT (OUTPUT)
2)
(COND
((CDAR ANYFOUND)
(* ; "This is under a clisp")
(PRIN1 " {under ")
(LVLPRIN2 INCLISP (OUTPUT)
2)
(PRIN1 "}
(PRIN1 " {under ")
(LVLPRIN2 INCLISP (OUTPUT)
2)
(PRIN1 "}
"]
SHOWSET SHOWEDIT)))
SHOWSET SHOWEDIT)))
(T (printout T "Can't find a definition for " SHOWFN "!" T)
(RETURN)))
(COND
@ -2403,14 +2402,14 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
(DECLARE%: EVAL@COMPILE
(PUTPROPS SCRATCHASH MACRO [(ARRAYNAME . FORMS)
([LAMBDA (ARRAYNAME)
(SETQ MSCRATCHASH)
(PROG1 (PROGN . FORMS)
(SETQ MSCRATCHASH ARRAYNAME]
(COND
(MSCRATCHASH (CLRHASH MSCRATCHASH)
MSCRATCHASH)
(T (HASHARRAY 20 (FUNCTION MSREHASH])
([LAMBDA (ARRAYNAME)
(SETQ MSCRATCHASH)
(PROG1 (PROGN . FORMS)
(SETQ MSCRATCHASH ARRAYNAME]
(COND
(MSCRATCHASH (CLRHASH MSCRATCHASH)
MSCRATCHASH)
(T (HASHARRAY 20 (FUNCTION MSREHASH])
)
)
@ -2569,7 +2568,7 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
(DECLARE%: EVAL@COMPILE
(PUTPROPS GETWORDTYPE MACRO [(WORD TYPE)
(CDR (FASSOC TYPE (GETHASH WORD MSWORDS])
(CDR (FASSOC TYPE (GETHASH WORD MSWORDS])
)
)
@ -2578,7 +2577,7 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
(* ; "interactive routines")
(RPAQ MASTERSCOPEDATE "13-Jun-2021")
(RPAQ MASTERSCOPEDATE "14-Jul-2024")
(ADDTOVAR HISTORYCOMS %.)
(DEFINEQ
@ -3527,8 +3526,31 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
(ERROR!])
(MSOUTPUT
(LAMBDA (FILE) (* ; "Edited 12-Jun-90 20:43 by teruuchi") (* ;; "OUTPUT is already RESETSAVE'd") (COND ((OPENP FILE (QUOTE OUTPUT)) (OUTPUT FILE)) (T (OUTFILE FILE) (SETQ FILE (OUTPUT)) (RESETSAVE NIL (LIST (QUOTE CLOSEF) FILE)))) (* ;; "output to file, reset LINELENGTH") (LINELENGTH FILELINELENGTH))
)
[LAMBDA (FILE) (* ; "Edited 14-Jul-2024 08:41 by rmk")
(* ; "Edited 5-Jul-2024 11:54 by rmk")
(* ; "Edited 12-Jun-90 20:43 by teruuchi")
(LET ((LLENGTH FILELINELENGTH))
[COND
((AND (LITATOM FILE)
(MEMB (U-CASE FILE)
'(TEDIT :TEDIT))
(GETD (FUNCTION TEDIT)))
(* ;; "If no TEDIT, leave the current OUTPUT")
[SETQ FILE (TEXTSTREAM (TEDIT NIL 'Masterscope NIL `(LEAVETTY T TITLE Masterscope FONT
,DEFAULTFONT]
(SETQ LLENGTH T)
(TEDIT.DEFER.UPDATES FILE '(READONLY QUIET))
(RESETSAVE NIL (LIST 'CLOSEF FILE)))
((OPENP FILE 'OUTPUT))
(T (SETQ FILE (OPENSTREAM FILE 'OUTPUT))
(RESETSAVE NIL (LIST 'CLOSEF FILE]
(* ;; "Reset LINELENGTH, output to file. OUTPUT is already RESETSAVE'd.")
(LINELENGTH LLENGTH FILE)
(OUTPUT FILE])
(MSCHECKEMPTY
[LAMBDA NIL (* lmm "20-JAN-79 14:08")
@ -3621,15 +3643,15 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
(DECLARE%: EVAL@COMPILE
(RECORD GETHASH (ID HTABLE . BADMARKS)
ID _ 'GETHASH)
ID _ 'GETHASH)
(RECORD INRELATION (ID (INVERTED . HTABLES) . OSET)
ID _ 'INRELATION)
ID _ 'INRELATION)
(ASSOCRECORD PATHOPTIONS (TO FROM AVOIDING SEPARATE NOTRACE TOPFLG OUTPUT LINELENGTH
MARKING) (* CHECKPATHS assumes that this is
 an ASSOCRECORD)
)
(ASSOCRECORD PATHOPTIONS (TO FROM AVOIDING SEPARATE NOTRACE TOPFLG OUTPUT LINELENGTH MARKING)
(* CHECKPATHS assumes that this is an
 ASSOCRECORD)
)
(RECORD MSANALYZABLE (FILEPKGNAME SETNAME GETDEF-FN MARKCHANGED-FN))
)
@ -3726,39 +3748,37 @@ Copyright (c) 1983-1988, 1990, 1993-1994, 2018, 2020-2021 by Venue & Xerox Corpo
(ADDTOVAR LAMA MSEDITE MSEDITF)
)
(PUTPROPS MASTERSCOPE COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993
1994 2018 2020 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3419 19188 (UPDATEFN 3429 . 5046) (MSGETDEF 5048 . 6454) (MSNOTICEFILE 6456 . 8849) (
MSSHOWUSE 8851 . 14354) (MSUPDATEFN1 14356 . 15044) (MSUPDATE 15046 . 17472) (MSNLAMBDACHECK 17474 .
18356) (MSCOLLECTDATA 18358 . 19186)) (19189 20088 (UPDATECHANGED 19199 . 19562) (UPDATECHANGED1 19564
. 20086)) (20662 21085 (MSCLOSEFILES 20672 . 21083)) (21766 26198 (MSDESCRIBE 21776 . 24564) (
MSDESCRIBE1 24566 . 25629) (FMAPRINT 25631 . 26196)) (26291 26731 (MSPRINTHELPFILE 26301 . 26729)) (
26781 29919 (TEMPLATE 26791 . 28212) (GETTEMPLATE 28214 . 28349) (SETTEMPLATE 28351 . 29917)) (30789
35713 (ADDTEMPLATEWORD 30799 . 31471) (MSADDANALYZE 31473 . 32971) (MSADDMODIFIER 32973 . 34054) (
MSADDRELATION 34056 . 34803) (MSADDTYPE 34805 . 35711)) (37214 42435 (MSMARKCHANGE1 37224 . 38018) (
MSINIT 38020 . 39201) (GETVERBTABLES 39203 . 39756) (MSSTOREDATA 39758 . 41437) (STORETABLE 41439 .
42433)) (43836 48906 (PARSERELATION 43846 . 44446) (PARSERELATION1 44448 . 45903) (GETRELATION 45905
. 46934) (MAPRELATION 46936 . 48070) (TESTRELATION 48072 . 48904)) (48907 50547 (ADDHASH 48917 .
49395) (SUBHASH 49397 . 49625) (MAKEHASH 49627 . 49771) (MSREHASH 49773 . 50226) (EQMEMBHASH 50228 .
50545)) (50886 57101 (MSVBTABLES 50896 . 56675) (MSUSERVBTABLES 56677 . 57099)) (57184 59395 (
BUILDGETRELQ 57194 . 58300) (BUILDTESTRELQ 58302 . 59393)) (59566 59954 (MSERASE 59576 . 59952)) (
59955 64415 (DUMPDATABASE 59965 . 62530) (DUMPDATABASE1 62532 . 62877) (READATABASE 62879 . 64413)) (
65497 94556 (MSCHECKBLOCKS 65507 . 69327) (MSCHECKBLOCK 69329 . 77949) (MSCHECKFNINBLOCK 77951 . 80951
) (MSCHECKBLOCKBASIC 80953 . 83373) (MSCHECKBOUNDFREE 83375 . 85274) (GLOBALVARP 85276 . 85443) (
PRINTERROR 85445 . 88661) (MSCHECKVARS1 88663 . 91616) (UNECCSPEC 91618 . 91896) (NECCSPEC 91898 .
92245) (SPECVARP 92247 . 92774) (SHORTLST 92776 . 93232) (DOERROR 93234 . 93944) (MSMSGPRINT 93946 .
94554)) (95700 110528 (MSPATHS 95710 . 99112) (MSPATHS1 99114 . 103349) (MSPATHS2 103351 . 106761) (
MSONPATH 106763 . 107991) (MSPATHS4 107993 . 109075) (DASHES 109077 . 109603) (DOTABS 109605 . 109846)
(BELOWMARKER 109848 . 110311) (MSPATHSPRINTFN 110313 . 110526)) (110914 114338 (MSFIND 110924 .
111199) (MSEDITF 111201 . 112201) (MSEDITE 112203 . 113240) (EDITGETDEF 113242 . 114336)) (115344
123945 (MSMARKCHANGED 115354 . 117078) (CHANGEMACRO 117080 . 117785) (CHANGEVAR 117787 . 118103) (
CHANGEI.S. 118105 . 119438) (CHANGERECORD 119440 . 120311) (MSNEEDUNSAVE 120313 . 121305) (UNSAVEFNS
121307 . 123943)) (124386 127876 (%. 124396 . 124536) (MASTERSCOPE 124538 . 125064) (MASTERSCOPE1
125066 . 125934) (MASTERSCOPEXEC 125936 . 127874)) (127915 167565 (MSINTERPRETSET 127925 . 156459) (
MSINTERPA 156461 . 156995) (MSGETBLOCKDEC 156997 . 159510) (LISTHARD 159512 . 160730) (MSMEMBSET
160732 . 160877) (MSLISTSET 160879 . 161244) (MSHASHLIST 161246 . 161413) (MSHASHLIST1 161415 . 161741
) (CHECKPATHS 161743 . 162383) (ONFILE 162385 . 167563)) (167566 190732 (MSINTERPRET 167576 . 184429)
(VERBNOTICELIST 184431 . 185541) (MSOUTPUT 185543 . 185860) (MSCHECKEMPTY 185862 . 187066) (
CHECKFORCHANGED 187068 . 187588) (MSSOLVE 187590 . 190730)))))
(FILEMAP (NIL (3260 19507 (UPDATEFN 3270 . 4887) (MSGETDEF 4889 . 6295) (MSNOTICEFILE 6297 . 8690) (
MSSHOWUSE 8692 . 14673) (MSUPDATEFN1 14675 . 15363) (MSUPDATE 15365 . 17791) (MSNLAMBDACHECK 17793 .
18675) (MSCOLLECTDATA 18677 . 19505)) (19508 20407 (UPDATECHANGED 19518 . 19881) (UPDATECHANGED1 19883
. 20405)) (20981 21404 (MSCLOSEFILES 20991 . 21402)) (22085 26517 (MSDESCRIBE 22095 . 24883) (
MSDESCRIBE1 24885 . 25948) (FMAPRINT 25950 . 26515)) (26610 27050 (MSPRINTHELPFILE 26620 . 27048)) (
27100 30238 (TEMPLATE 27110 . 28531) (GETTEMPLATE 28533 . 28668) (SETTEMPLATE 28670 . 30236)) (31108
36032 (ADDTEMPLATEWORD 31118 . 31790) (MSADDANALYZE 31792 . 33290) (MSADDMODIFIER 33292 . 34373) (
MSADDRELATION 34375 . 35122) (MSADDTYPE 35124 . 36030)) (37533 42754 (MSMARKCHANGE1 37543 . 38337) (
MSINIT 38339 . 39520) (GETVERBTABLES 39522 . 40075) (MSSTOREDATA 40077 . 41756) (STORETABLE 41758 .
42752)) (44155 49225 (PARSERELATION 44165 . 44765) (PARSERELATION1 44767 . 46222) (GETRELATION 46224
. 47253) (MAPRELATION 47255 . 48389) (TESTRELATION 48391 . 49223)) (49226 50866 (ADDHASH 49236 .
49714) (SUBHASH 49716 . 49944) (MAKEHASH 49946 . 50090) (MSREHASH 50092 . 50545) (EQMEMBHASH 50547 .
50864)) (51205 57420 (MSVBTABLES 51215 . 56994) (MSUSERVBTABLES 56996 . 57418)) (57503 59714 (
BUILDGETRELQ 57513 . 58619) (BUILDTESTRELQ 58621 . 59712)) (59885 60273 (MSERASE 59895 . 60271)) (
60274 64734 (DUMPDATABASE 60284 . 62849) (DUMPDATABASE1 62851 . 63196) (READATABASE 63198 . 64732)) (
65816 94875 (MSCHECKBLOCKS 65826 . 69646) (MSCHECKBLOCK 69648 . 78268) (MSCHECKFNINBLOCK 78270 . 81270
) (MSCHECKBLOCKBASIC 81272 . 83692) (MSCHECKBOUNDFREE 83694 . 85593) (GLOBALVARP 85595 . 85762) (
PRINTERROR 85764 . 88980) (MSCHECKVARS1 88982 . 91935) (UNECCSPEC 91937 . 92215) (NECCSPEC 92217 .
92564) (SPECVARP 92566 . 93093) (SHORTLST 93095 . 93551) (DOERROR 93553 . 94263) (MSMSGPRINT 94265 .
94873)) (96019 110847 (MSPATHS 96029 . 99431) (MSPATHS1 99433 . 103668) (MSPATHS2 103670 . 107080) (
MSONPATH 107082 . 108310) (MSPATHS4 108312 . 109394) (DASHES 109396 . 109922) (DOTABS 109924 . 110165)
(BELOWMARKER 110167 . 110630) (MSPATHSPRINTFN 110632 . 110845)) (111233 114657 (MSFIND 111243 .
111518) (MSEDITF 111520 . 112520) (MSEDITE 112522 . 113559) (EDITGETDEF 113561 . 114655)) (115599
124200 (MSMARKCHANGED 115609 . 117333) (CHANGEMACRO 117335 . 118040) (CHANGEVAR 118042 . 118358) (
CHANGEI.S. 118360 . 119693) (CHANGERECORD 119695 . 120566) (MSNEEDUNSAVE 120568 . 121560) (UNSAVEFNS
121562 . 124198)) (124633 128123 (%. 124643 . 124783) (MASTERSCOPE 124785 . 125311) (MASTERSCOPE1
125313 . 126181) (MASTERSCOPEXEC 126183 . 128121)) (128162 167812 (MSINTERPRETSET 128172 . 156706) (
MSINTERPA 156708 . 157242) (MSGETBLOCKDEC 157244 . 159757) (LISTHARD 159759 . 160977) (MSMEMBSET
160979 . 161124) (MSLISTSET 161126 . 161491) (MSHASHLIST 161493 . 161660) (MSHASHLIST1 161662 . 161988
) (CHECKPATHS 161990 . 162630) (ONFILE 162632 . 167810)) (167813 191885 (MSINTERPRET 167823 . 184676)
(VERBNOTICELIST 184678 . 185788) (MSOUTPUT 185790 . 187013) (MSCHECKEMPTY 187015 . 188219) (
CHECKFORCHANGED 188221 . 188741) (MSSOLVE 188743 . 191883)))))
STOP

BIN
library/MASTERSCOPE.DFASL
View File

Binary file not shown.