github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-27 04:41:54 +00:00
Code Issues Projects Releases Wiki Activity

Fix typo in MasterScope functions (multiple occurrences: LOADBFLG should be LOADDBFLG).

Browse Source 
Changed to CL compiler by default (not need to go to submenu). This is my preference, so I should remove it before setting pull request.
This commit is contained in:
Matt Heffron
2023-02-28 16:40:57 -08:00
parent 55bca749b0
commit f60c636292
2 changed files with 59 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
lispusers/MANAGER
View File

@@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 6-Feb-2023 23:53:39" {LU}MANAGER.;11 115662 (FILECREATED "22-Feb-2023 22:50:32" {LU}MANAGER.;15 115916
:CHANGES-TO (FNS Manager.MAINOPEN) :CHANGES-TO (VARS MANAGERCOMS)
(VARS MANAGERCOMS) (FNS Manager.DO.COMMAND)
:PREVIOUS-DATE " 6-Feb-2023 16:47:42" {LU}MANAGER.;9) :PREVIOUS-DATE "22-Feb-2023 14:13:20" {LU}MANAGER.;14)
(* ; " (* ; "
@@ -53,11 +53,12 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
(* ;; "") (* ;; "")
(SPECVARS Manager.ACTIVEFLG MANAGER-CASES MANAGER-ADDTOFILES?) (SPECVARS Manager.ACTIVEFLG MANAGER-CASES MANAGER-ADDTOFILES?)
(GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADBFLG SAVEDBFLG (GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADDBFLG SAVEDBFLG
MANAGER-ITEM-OPERATION-COMMANDS MANAGER-ITEM-FILE-RELATION-COMMANDS MANAGER-ITEM-OPERATION-COMMANDS MANAGER-ITEM-FILE-RELATION-COMMANDS
MANAGER-FILE-OPERATIONS-COMMANDS MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-FILE-OPERATIONS-COMMANDS MANAGER-FILE-FILE-RELATION-COMMANDS
MANAGER-MAIN-MENU-ITEMS MANAGER-ACTIVITY-WINDOW-TITLE MANAGER-MAIN-WINDOW MANAGER-MAIN-MENU-ITEMS MANAGER-ACTIVITY-WINDOW-TITLE MANAGER-MAIN-WINDOW
MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR BackgroundMenuCommands BackgroundMenu) MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR MANAGER.BM MANAGER.BM.MASK
BackgroundMenuCommands BackgroundMenu)
(VARS *UNMANAGED-TYPES* MANAGER-ACTIVITY-WINDOW-TITLE (MANAGER-CASES) (VARS *UNMANAGED-TYPES* MANAGER-ACTIVITY-WINDOW-TITLE (MANAGER-CASES)
(MANAGER-ADDTOFILES?) (MANAGER-ADDTOFILES?)
MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-FILE-OPERATIONS-COMMANDS MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-FILE-OPERATIONS-COMMANDS
@@ -186,11 +187,11 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
) )
(DECLARE%: DOEVAL@COMPILE DONTCOPY (DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADBFLG SAVEDBFLG (GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADDBFLG SAVEDBFLG
MANAGER-ITEM-OPERATION-COMMANDS MANAGER-ITEM-FILE-RELATION-COMMANDS MANAGER-ITEM-OPERATION-COMMANDS MANAGER-ITEM-FILE-RELATION-COMMANDS
MANAGER-FILE-OPERATIONS-COMMANDS MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-MAIN-MENU-ITEMS MANAGER-FILE-OPERATIONS-COMMANDS MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-MAIN-MENU-ITEMS
MANAGER-ACTIVITY-WINDOW-TITLE MANAGER-MAIN-WINDOW MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR MANAGER-ACTIVITY-WINDOW-TITLE MANAGER-MAIN-WINDOW MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR
BackgroundMenuCommands BackgroundMenu) MANAGER.BM MANAGER.BM.MASK BackgroundMenuCommands BackgroundMenu)
) )
(RPAQQ *UNMANAGED-TYPES* (EXPRESSIONS FILES FIELDS FILEVARS-ARE-NOW-OK)) (RPAQQ *UNMANAGED-TYPES* (EXPRESSIONS FILES FIELDS FILEVARS-ARE-NOW-OK))
@@ -265,9 +266,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("Set to Ask" 'DBFILEASK
("Dump DB" 'DUMPDB ("Dump DB" 'DUMPDB
"Dump this file's MasterScope information, if it exists and make it's upkeep automatic" "Dump this file's MasterScope information, if it exists and make it's upkeep automatic"
] ]
("Compile" 'COMPILE "Compile this file" (SUBITEMS ("Compile" 'COMPILE "InterLisp compiler") ("Compile" 'CL:COMPILE-FILE "Compile this file with the CommonLisp compiler"
(" CL:COMPILE-FILE " 'CL:COMPILE-FILE (SUBITEMS ("Compile" 'COMPILE "InterLisp compiler")
"CommonLisp compiler"))) (" CL:COMPILE-FILE " 'CL:COMPILE-FILE "CommonLisp compiler")))
("Changes" 'CHANGES "Show the changes that have been made to this file." ("Changes" 'CHANGES "Show the changes that have been made to this file."
(SUBITEMS ("Brief" 'CHANGES "Show the changes that have been made to this file.") (SUBITEMS ("Brief" 'CHANGES "Show the changes that have been made to this file.")
(" Everything " 'PL "Display everything on this file's property list") (" Everything " 'PL "Display everything on this file's property list")
@@ -540,16 +541,16 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
UPDATEFILES]) UPDATEFILES])
(Manager.ANCHORED-SET-POSITION (Manager.ANCHORED-SET-POSITION
[LAMBDA (IW IH) (* ; "Edited 6-Feb-2023 15:15 by Matt Heffron") [LAMBDA (IW IH) (* ; "Edited 6-Feb-2023 15:15 by MattHeffron" )
(* ; "Edited 6-Feb-2023 15:13 by Matt Heffron") (* ; "Edited 6-Feb-2023 15:13 by MattHeffron" )
(* ; "Edited 6-Feb-2023 15:10 by Matt Heffron") (* ; "Edited 6-Feb-2023 15:10 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:51 by Matt Heffron") (* ; "Edited 6-Feb-2023 14:51 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:43 by Matt Heffron") (* ; "Edited 6-Feb-2023 14:43 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:40 by Matt Heffron") (* ; "Edited 6-Feb-2023 14:40 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:37 by Matt Heffron") (* ; "Edited 6-Feb-2023 14:37 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:32 by Matt Heffron") (* ; "Edited 6-Feb-2023 14:32 by MattHeffron" )
(* ; "Edited 6-Feb-2023 14:26 by Matt Heffron") (* ; "Edited 6-Feb-2023 14:26 by MattHeffron" )
(* ; "Edited 6-Feb-2023 13:44 by Matt Heffron") (* ; "Edited 6-Feb-2023 13:44 by MattHeffron" )
(LET (WREGION XPOS YPOS TEMP) (LET (WREGION XPOS YPOS TEMP)
(SETQ WREGION (WINDOWPROP MANAGER-MAIN-WINDOW 'REGION)) (SETQ WREGION (WINDOWPROP MANAGER-MAIN-WINDOW 'REGION))
(SETQ YPOS (fetch (REGION BOTTOM) of WREGION)) (SETQ YPOS (fetch (REGION BOTTOM) of WREGION))
@@ -571,7 +572,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
YCOORD _ YPOS]) YCOORD _ YPOS])
(Manager.DO.COMMAND (Manager.DO.COMMAND
[LAMBDA (COMMAND ITEM COMSTYPE FILE MENU) (* ; "Edited 6-Feb-2023 15:23 by Matt Heffron") [LAMBDA (COMMAND ITEM COMSTYPE FILE MENU) (* ; "Edited 22-Feb-2023 22:48 by MattHeffron" )
(* ; "Edited 22-Feb-2023 14:13 by MattHeffron" )
(* ; "Edited 6-Feb-2023 15:23 by MattHeffron" )
(* ; "Edited 18-Nov-87 14:30 by raf") (* ; "Edited 18-Nov-87 14:30 by raf")
(if (EQ COMSTYPE 'FILEVARS) (if (EQ COMSTYPE 'FILEVARS)
then (SETQ COMSTYPE 'VARS) (* ; "The Manager currently does unnatural things with the FILEVARS type, this is a hack to compensate for it. E.g., editing a FILEVARS = editing the VARS, etc.") then (SETQ COMSTYPE 'VARS) (* ; "The Manager currently does unnatural things with the FILEVARS type, this is a hack to compensate for it. E.g., editing a FILEVARS = editing the VARS, etc.")
@@ -881,50 +884,50 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(CL:FORMAT T (CL:FORMAT T
"~&Global DataBaseFNS Flags:~%%SAVEDBFLG = ~a, LOADDBFLG = ~a" "~&Global DataBaseFNS Flags:~%%SAVEDBFLG = ~a, LOADDBFLG = ~a"
SAVEDBFLG LOADBFLG)) SAVEDBFLG LOADDBFLG))
(DBFILE (DBFILE
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(CL:FORMAT T "~&The DATABASE prop for ~a is: ~a" FILE (CL:FORMAT T "~&The DATABASE prop for ~a is: ~a" FILE
(GETPROP FILE 'DATABASE)) (GETPROP FILE 'DATABASE))
(CL:FORMAT T (CL:FORMAT T
"~&Global DataBaseFNS Flags:~%%SAVEDBFLG = ~a, LOADDBFLG = ~a" "~&Global DataBaseFNS Flags:~%%SAVEDBFLG = ~a, LOADDBFLG = ~a"
SAVEDBFLG LOADBFLG)) SAVEDBFLG LOADDBFLG))
(DBON (DBON
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'ON) (SETQ LOADDBFLG 'ON)
(SETQ SAVEDBFLG 'ON)) (SETQ SAVEDBFLG 'ON))
(DBOFF (DBOFF
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'OFF) (SETQ LOADDBFLG 'NO)
(SETQ SAVEDBFLG 'OFF)) (SETQ SAVEDBFLG 'NO))
(DBASK (DBASK
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'ASK) (SETQ LOADDBFLG 'ASK)
(SETQ SAVEDBFLG 'ASK)) (SETQ SAVEDBFLG 'ASK))
(DBLOADON (DBLOADON
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'ON)) (SETQ LOADDBFLG 'YES))
(DBSAVEON (DBSAVEON
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(SETQ SAVEDBFLG 'ON)) (SETQ SAVEDBFLG 'YES))
(DBLOADOFF (DBLOADOFF
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'OFF)) (SETQ LOADDBFLG 'NO))
(DBSAVEOFF (DBSAVEOFF
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(SETQ SAVEDBFLG 'OFF)) (SETQ SAVEDBFLG 'NO))
(DBLOADASK (DBLOADASK
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(SETQ LOADBFLG 'ASK)) (SETQ LOADDBFLG 'ASK))
(DBSAVEASK (DBSAVEASK
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(SETQ SAVEDBFLG 'ASK)) (SETQ SAVEDBFLG 'ASK))
(DBFILEON (DBFILEON
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(PUTPROP FILE 'DATABASE 'ON)) (PUTPROP FILE 'DATABASE 'YES))
(DBFILEOFF (DBFILEOFF
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(PUTPROP FILE 'DATABASE 'OFF)) (PUTPROP FILE 'DATABASE 'NO))
(DBFILEASK (DBFILEASK
(FILESLOAD 'DATABASEFNS) (FILESLOAD 'DATABASEFNS)
(PUTPROP FILE 'DATABASE 'ASK)) (PUTPROP FILE 'DATABASE 'ASK))
@@ -1428,9 +1431,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
FILE]) FILE])
(Manager.MAINOPEN (Manager.MAINOPEN
[LAMBDA (POSITION) (* ; "Edited 6-Feb-2023 23:53 by Matt Heffron") [LAMBDA (POSITION) (* ; "Edited 6-Feb-2023 23:53 by MattHeffron" )
(* ; "Edited 6-Feb-2023 23:38 by Matt Heffron") (* ; "Edited 6-Feb-2023 23:38 by MattHeffron" )
(* ; "Edited 6-Feb-2023 15:19 by Matt Heffron") (* ; "Edited 6-Feb-2023 15:19 by MattHeffron" )
(* ; "Edited 17-Aug-87 13:59 by raf") (* ; "Edited 17-Aug-87 13:59 by raf")
(* ;;; "Builds the manager main (FILELST) menu at the indicated position.") (* ;;; "Builds the manager main (FILELST) menu at the indicated position.")
@@ -1605,8 +1608,8 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
" submenu for the file " FILE]) " submenu for the file " FILE])
(Manager.SET-ANCHOR (Manager.SET-ANCHOR
[LAMBDA (NEWANCHOR) (* ; "Edited 6-Feb-2023 16:47 by Matt Heffron") [LAMBDA (NEWANCHOR) (* ; "Edited 6-Feb-2023 16:47 by MattHeffron" )
(* ; "Edited 6-Feb-2023 16:45 by Matt Heffron") (* ; "Edited 6-Feb-2023 16:45 by MattHeffron" )
(* ; "") (* ; "")
(if (AND (FMEMB NEWANCHOR '(ANCHOR-TL ANCHOR-TR ANCHOR-BL ANCHOR-BR)) (if (AND (FMEMB NEWANCHOR '(ANCHOR-TL ANCHOR-TR ANCHOR-BL ANCHOR-BR))
(NEQ Manager.WINDOW-ANCHOR NEWANCHOR)) (NEQ Manager.WINDOW-ANCHOR NEWANCHOR))
@@ -1815,20 +1818,20 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
) )
(PUTPROPS MANAGER COPYRIGHT ("Xerox Corporation" 1986 1987 1900 2022 2023)) (PUTPROPS MANAGER COPYRIGHT ("Xerox Corporation" 1986 1987 1900 2022 2023))
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (25491 105786 (MANAGER 25501 . 26300) (MANAGER.RESET 26302 . 27816) (Manager.ADDADV (FILEMAP (NIL (25521 106040 (MANAGER 25531 . 26330) (MANAGER.RESET 26332 . 27846) (Manager.ADDADV
27818 . 29171) (Manager.ADDTOFILES? 29173 . 29451) (Manager.ALTERMARKING 29453 . 31063) ( 27848 . 29201) (Manager.ADDTOFILES? 29203 . 29481) (Manager.ALTERMARKING 29483 . 31093) (
Manager.ANCHORED-SET-POSITION 31065 . 33149) (Manager.DO.COMMAND 33151 . 65421) (Manager.HIGHLIGHT Manager.ANCHORED-SET-POSITION 31095 . 33179) (Manager.DO.COMMAND 33181 . 65675) (Manager.HIGHLIGHT
65423 . 65720) (Manager.PROMPT 65722 . 66035) (Manager.WINDOW 66037 . 66670) ( 65677 . 65974) (Manager.PROMPT 65976 . 66289) (Manager.WINDOW 66291 . 66924) (
Manager.insurefilehighlights 66672 . 67743) (Manager.CHANGED? 67745 . 68294) (Manager.CHECKFILE 68296 Manager.insurefilehighlights 66926 . 67997) (Manager.CHANGED? 67999 . 68548) (Manager.CHECKFILE 68550
. 69395) (Manager.COLLECTCOMS 69397 . 70835) (Manager.COMS.WSF 70837 . 73507) (Manager.COMSOPEN 73509 . 69649) (Manager.COLLECTCOMS 69651 . 71089) (Manager.COMS.WSF 71091 . 73761) (Manager.COMSOPEN 73763
. 78247) (Manager.COMSUPDATE 78249 . 79341) (Manager.HIGHLIGHTED 79343 . 79649) ( . 78501) (Manager.COMSUPDATE 78503 . 79595) (Manager.HIGHLIGHTED 79597 . 79903) (
Manager.INSUREHIGHLIGHTS 79651 . 80209) (Manager.FILECHANGES 80211 . 80510) (Manager.FILELSTCHANGED? Manager.INSUREHIGHLIGHTS 79905 . 80463) (Manager.FILECHANGES 80465 . 80764) (Manager.FILELSTCHANGED?
80512 . 80840) (Manager.FILESUBTYPES 80842 . 81480) (Manager.GET.ENVIRONMENT 81482 . 84020) ( 80766 . 81094) (Manager.FILESUBTYPES 81096 . 81734) (Manager.GET.ENVIRONMENT 81736 . 84274) (
Manager.GETFILE 84022 . 86336) (Manager.INTITLE? 86338 . 87016) (Manager.MAIN.WSF 87018 . 89662) ( Manager.GETFILE 84276 . 86590) (Manager.INTITLE? 86592 . 87270) (Manager.MAIN.WSF 87272 . 89916) (
Manager.MAINCLOSE 89664 . 90774) (Manager.MAINMENUITEMS 90776 . 91853) (Manager.MAINOPEN 91855 . 97573 Manager.MAINCLOSE 89918 . 91028) (Manager.MAINMENUITEMS 91030 . 92107) (Manager.MAINOPEN 92109 . 97827
) (Manager.MAINUPDATE 97575 . 98211) (Manager.MAKEFILE.ADV 98213 . 99249) (Manager.MENUCOLUMNS 99251 ) (Manager.MAINUPDATE 97829 . 98465) (Manager.MAKEFILE.ADV 98467 . 99503) (Manager.MENUCOLUMNS 99505
. 100055) (Manager.MENUHASITEM 100057 . 100414) (Manager.MENUITEMS 100416 . 100661) ( . 100309) (Manager.MENUHASITEM 100311 . 100668) (Manager.MENUITEMS 100670 . 100915) (
Manager.REMOVE.DUPLICATE.ADVICE 100663 . 102269) (Manager.RESETSUBITEMS 102271 . 103508) ( Manager.REMOVE.DUPLICATE.ADVICE 100917 . 102523) (Manager.RESETSUBITEMS 102525 . 103762) (
Manager.SET-ANCHOR 103510 . 104012) (Manager.SORT.COMS 104014 . 104546) (Manager.SORTBYCOLUMN 104548 Manager.SET-ANCHOR 103764 . 104266) (Manager.SORT.COMS 104268 . 104800) (Manager.SORTBYCOLUMN 104802
. 105784))))) . 106038)))))
STOP STOP

BIN
lispusers/MANAGER.DFASL
View File

Binary file not shown.