Skip to content

Sort the sublists in the value returned by CALLS #2399

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
rmkaplan wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Sort the sublists in the value returned by CALLS #2399

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
59 changes: 33 additions & 26 deletions library/MSANALYZE
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "20-Feb-2024 09:28:38" {DSK}<home>larry>il>medley>library>MSANALYZE.;2 61022
(FILECREATED " 2-Oct-2025 23:05:25" {WMEDLEY}<library>MSANALYZE.;4 61409

:EDIT-BY "lmm"
:EDIT-BY rmk

:PREVIOUS-DATE "17-Feb-2024 22:10:56" {DSK}<home>larry>il>medley>library>MSANALYZE.;3)
:CHANGES-TO (FNS CALLS)

:PREVIOUS-DATE "20-Feb-2024 09:28:38" {WMEDLEY}<library>MSANALYZE.;3)


(PRETTYCOMPRINT MSANALYZECOMS)
Expand Down Expand Up @@ -72,31 +74,34 @@
(CADDR (CALLS FN USEDATABASE 'FREEVARS])

(CALLS
[LAMBDA (EXPR USEDATABASE VARSFLG) (* ; "Edited 12-Jun-90 17:25 by teruuchi")
[LAMBDA (EXPR USEDATABASE VARSFLG) (* ; "Edited 2-Oct-2025 23:01 by rmk")
(* ; "Edited 12-Jun-90 17:25 by teruuchi")
(* ;
 "This FNS is for the User Interface Function in MSANALYZE(MasterScope)")
(* ;
 "Edited by Tomoru Teruuchi(12-June-90 : for AR#10020)")
 "Edited by Tomoru Teruuchi(12-June-90 : for AR#10020) ")
(* ; "Edited by TT (Date : 8-May-1990)")
(PROG (FREES (GLOBALS NIL)
FNDEF FLG)
[COND
((AND USEDATABASE (LITATOM EXPR)
(GETD 'UPDATEFN))
(UPDATEFN EXPR NIL 'ERROR)
[SETQ FREES (GETRELATION EXPR '(USE FREELY]
[SETQ FREES (SUBSET FREES (FUNCTION (LAMBDA (VAR)
[SETQ FREES (SORT (SUBSET FREES (FUNCTION (LAMBDA (VAR)
(* ;
 "This Function is The Predicate whether the variable is global or not.")
(if (OR (FMEMB VAR GLOBALVARS)
(EQ (GETPROP VAR 'GLOBALVAR)
T))
then (pushnew GLOBALS VAR)
NIL
else T](* ; "Edited by TT (Date : 8-May-1990)")
(if (OR (FMEMB VAR GLOBALVARS)
(EQ (GETPROP VAR 'GLOBALVAR)
T))
then (pushnew GLOBALS VAR)
NIL
else T]
(SETQ GLOBALS (SORT GLOBALS))
(RETURN (LIST [AND (NOT VARSFLG)
(GETRELATION EXPR '(CALL NOTERROR]
(AND (NEQ VARSFLG 'FREEVARS)
(GETRELATION EXPR 'BIND))
(SORT (GETRELATION EXPR '(CALL NOTERROR]
[AND (NEQ VARSFLG 'FREEVARS)
(SORT (GETRELATION EXPR 'BIND]
FREES GLOBALS]
GETDLP
(SETQ FNDEF (COND
Expand Down Expand Up @@ -170,11 +175,13 @@
then (pushnew GLOBALS VAR)
NIL
else T]
(* ; "Edited by TT (Date : 8-May-1990)")
(RETURN (LIST [COLLECTFNDATA (CONSTANT (MSVBNOTICED 'CALL
(RETURN (LIST [SORT (COLLECTFNDATA (CONSTANT (MSVBNOTICED
'CALL
'NOTERROR]
[COLLECTFNDATA (CONSTANT (MSVBNOTICED 'BIND]
FREES GLOBALS]
[SORT (COLLECTFNDATA (CONSTANT (MSVBNOTICED
'BIND]
(SORT FREES)
(SORT GLOBALS]
(T '?])

(COLLECTFNDATA
Expand Down Expand Up @@ -1270,11 +1277,11 @@ DONTCOPY
(BLOCK%: MSFINDP MSFINDP)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3487 10938 (VARS 3497 . 3636) (FREEVARS 3638 . 3789) (CALLS 3791 . 10089) (
COLLECTFNDATA 10091 . 10462) (CALLS3 10464 . 10936)) (13187 51210 (ALLCALLS 13197 . 13797) (
MSINITFNDATA 13799 . 14029) (MSPRGE 14031 . 21284) (MSPRGMACRO 21286 . 21997) (MSPRGCALL 21999 . 22316
) (MSBINDVAR 22318 . 22825) (MSPRGRECORD 22827 . 29604) (MSPRGERR 29606 . 29769) (MSPRGTEMPLATE1 29771
. 38819) (MSPRGTEMPLATE 38821 . 39424) (MSPRGLAMBDA 39426 . 48039) (MSPRGLST 48041 . 48203) (ADDTO
48205 . 48985) (NLAMBDAFNP 48987 . 49713) (MSPRGDWIM 49715 . 50554) (MSDWIMTRAN 50556 . 51208)) (60485
60921 (MSFINDP 60495 . 60919)))))
(FILEMAP (NIL (3482 11325 (VARS 3492 . 3631) (FREEVARS 3633 . 3784) (CALLS 3786 . 10476) (
COLLECTFNDATA 10478 . 10849) (CALLS3 10851 . 11323)) (13574 51597 (ALLCALLS 13584 . 14184) (
MSINITFNDATA 14186 . 14416) (MSPRGE 14418 . 21671) (MSPRGMACRO 21673 . 22384) (MSPRGCALL 22386 . 22703
) (MSBINDVAR 22705 . 23212) (MSPRGRECORD 23214 . 29991) (MSPRGERR 29993 . 30156) (MSPRGTEMPLATE1 30158
. 39206) (MSPRGTEMPLATE 39208 . 39811) (MSPRGLAMBDA 39813 . 48426) (MSPRGLST 48428 . 48590) (ADDTO
48592 . 49372) (NLAMBDAFNP 49374 . 50100) (MSPRGDWIM 50102 . 50941) (MSDWIMTRAN 50943 . 51595)) (60872
61308 (MSFINDP 60882 . 61306)))))
STOP
Binary file modified library/MSANALYZE.DFASL
View file
Open in desktop
Binary file not shown.
Loading