Extensive loadup scripts revamp

.gitignore

@@ -30,6 +30,7 @@ loadups/*.dribble
 loadups/whereis.hash
 loadups/apps.sysout
 loadups/fuller.database
+loadups/build/
 
 # manual cross-reference files
 

internal/loadups/LOADUP-APPS

@@ -1,43 +1,86 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "17-Jan-2023 20:34:02" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-APPS.;3
 2095   
+
(FILECREATED " 9-Mar-2025 20:03:27" {DSK}<home>frank>il>medley>internal>loadups>LOADUP-APPS.;10
 3274   
 
-      :CHANGES-TO (FNS Apps.RemoveBackgroundMenuItem)
+      :EDIT-BY "frank"
 
-      :PREVIOUS-DATE "17-Jan-2023 20:29:39" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-APPS.;2
+      :CHANGES-TO (FNS LOADUP-APPS)
+
+      :PREVIOUS-DATE " 9-Mar-2025 19:42:36" {DSK}<home>frank>il>medley>internal>loadups>LOADUP-APPS.;8
 )
 
 
 (PRETTYCOMPRINT LOADUP-APPSCOMS)
 
 (RPAQQ LOADUP-APPSCOMS
 ((GLOBALVARS *ALL-BUTTONS* BackgroundMenuCommands BackgroundMenu)
-                        (FNS Apps.LOADUP Apps.RemoveBackgroundMenuItem)))
+                        (FNS LOADUP-APPS Apps.RemoveBackgroundMenuItem)))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS *ALL-BUTTONS* BackgroundMenuCommands BackgroundMenu)
 )
 (DEFINEQ
 
-(Apps.LOADUP

-  [LAMBDA NIL
                                                (* ; "Edited 12-Nov-2022 14:03 by FGH")

-    (PROGN 
-           (* ;; " Delete button(s) that are created when lispusers/BUTTONS is loaded")

+(LOADUP-APPS

+  [LAMBDA NIL
                                              (* ; "Edited  9-Mar-2025 20:02 by frank")


+                                                             (* ; "Edited  2-Jan-2025 20:38 by lmm")


+                                                           (* ; "Edited  2-Jan-2025 06:30 by larry")

+
+    (* ;; "= = = = = = = = = = = = = = = = = =")

+
+    (* ;; " Load ROOMS")

+
+    (* ;; "")

+
+    (DOFILESLOAD `((SYSLOAD SOURCE)
+                   (FROM
 ,(MEDLEYDIR "ROOMS"))
+                   ROOMS))
+
+    (* ;; "======================")

+
+    (* ;; " Load Notecards and %"fix up%"")

+
+    (* ;; "")

+
+    (DOFILESLOAD `((SYSLOAD)
+                   (FROM
 ,(CONCAT (UNIX-GETENV "NOTECARDSDIR")
+                                 "/system"))
+                   NOTECARDS))
+    (Apps.RemoveBackgroundMenuItem
 'NoteCards)               (* ; "")

+    (PUTASSOC 'NOTECARDS (LIST (UNIX-GETENV 'NOTECARDS_COMMIT_ID))
+           SYSOUTCOMMITS)
+
+    (* ;; "======================")

+
+    (* ;; " Load CLOS and %"fix up%"")

+
+    (* ;; " Assumes that clos/DEFSYS.DFASL has already been loaded (so CLOS: package is defined)")

+
+    (* ;; "")

+
+    (LOADUP-CLOS)
+    (CLOS::LOAD-CLOS)                                        (* ; "")

+    (Apps.RemoveBackgroundMenuItem
 'BrowseClass)
+
+    (* ;; "= = = = = = = = = = =  = = == = = = ")

 
-           (for
 B in
 *ALL-BUTTONS* do
 (DELETE-BUTTON B))
+    (* ;; " Load lispusers/BUTTONS and %"fix up%"")

 
-           (* ;; " Remove the BUTTONS BackgroundMenu item")

+    (* ;; "")

 
-           (Apps.RemoveBackgroundMenuItem
 "Button Control")
+    (DOFILESLOAD '((SYSLOAD)
+                   BUTTONS))
+    (Apps.RemoveBackgroundMenuItem
 "Button Control")
+    (for
 B in
 *ALL-BUTTONS* do
 (DELETE-BUTTON B))
 
-           (* ;; " Remove the NoteCards Background Menu Item")

+    (* ;; "= = = = = = = = = = =  = = == = = = ")

 
-           (Apps.RemoveBackgroundMenuItem
 'NoteCards)
+    (* ;; " Do misc")

 
-           (* ;; " Remove the CLOS Background Menu Item")

+    (* ;; "")

 
-           (Apps.RemoveBackgroundMenuItem
 'BrowseClass)
-           (RPLACA [CAR (LIST '(A B C]
-                  NIL])
+    (PUTASSOC 'MEDLEY (LIST (UNIX-GETENV 'LOADUP_COMMIT_ID))
+           SYSOUTCOMMITS)
+    (PRINTOUT T "commits-- " SYSOUTCOMMITS T])
 
 (Apps.RemoveBackgroundMenuItem

   [LAMBDA (ItemStringOrAtom)
@@ -52,5 +95,5 @@
                                Apps.SBG])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (647 2072 (Apps.LOADUP 657 . 1400) (Apps.RemoveBackgroundMenuItem 1402 . 2070)))))
+  (FILEMAP (NIL (656 3251 (LOADUP-APPS 666 . 2579) (Apps.RemoveBackgroundMenuItem 2581 . 3249)))))
 STOP

internal/loadups/LOADUP-CLOS

@@ -0,0 +1,23 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED " 9-Mar-2025 19:04:34" {DSK}<home>frank>il>medley>internal>loadups>LOADUP-CLOS.;1
 600    
+
+      :EDIT-BY "frank"
+
+      :CHANGES-TO (VARS LOADUP-CLOSCOMS))
+
+
+(PRETTYCOMPRINT LOADUP-CLOSCOMS)
+
+(RPAQQ LOADUP-CLOSCOMS
 ((FNS LOADUP-CLOS)))
+(DEFINEQ
+
+(LOADUP-CLOS

+  [LAMBDA NIL
                                              (* ; "Edited  9-Mar-2025 18:53 by frank")

+    (DOFILESLOAD `((SYSLOAD)
+                   (FROM
 ,(MEDLEYDIR "CLOS"))
+                   DEFSYS])
+)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (333 577 (LOADUP-CLOS 343 . 575)))))
+STOP