Adds STATUS argument to LOGOUT for process exit status (#1978)

sources/ADIR

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "31-Dec-2024 11:45:01" {WMEDLEY}<sources>ADIR.;59
 69831  
+
(FILECREATED "20-Jan-2025 13:37:28" {DSK}<Users>briggs>Projects>medley>sources>ADIR.;48
 70144  
 
-      :EDIT-BY rmk
+      :EDIT-BY "briggs"
 
-      :CHANGES-TO (VARS ADIRCOMS)
+      :CHANGES-TO (FNS \LOGOUT0 LOGOUT)
 
-      :PREVIOUS-DATE "25-Dec-2024 11:31:30" {WMEDLEY}<sources>ADIR.;58)
+      :PREVIOUS-DATE "31-Dec-2024 11:45:01" {DSK}<Users>briggs>Projects>medley>sources>ADIR.;47)
 
 
 (PRETTYCOMPRINT ADIRCOMS)
@@ -287,10 +287,11 @@
               (RETURN T)))])
 
 (\LOGOUT0

-  [LAMBDA (FAST)
                                       (* ; "Edited 21-Mar-2021 21:13 by larry")

+  [LAMBDA (FAST STATUS)
                                   (* ; "Edited 20-Jan-2025 13:34 by briggs")


+                                                           (* ; "Edited 21-Mar-2021 21:13 by larry")

     (OR (AND (NOT FAST)
-             (\FLUSHVM))
-        (SUBRCALL LISPFINISH FAST])
+             (\FLUSHVM
))
+        (SUBRCALL LISPFINISH FAST STATUS])
 )
 (DECLARE%: EVAL@COMPILE 
 
@@ -1067,16 +1068,17 @@
 (DEFINEQ
 
 (LOGOUT

-  [LAMBDA (FAST)
                                       (* ; "Edited 15-Mar-2021 11:53 by larry")

+  [LAMBDA (FAST STATUS)
                                   (* ; "Edited 20-Jan-2025 13:36 by briggs")


+                                                           (* ; "Edited 15-Mar-2021 11:53 by larry")

     (\USEREVENT
 'BEFORELOGOUT)
     (OR (EQ FAST T)
         (\FLUSHVMOK? 'LOGOUT))                               (* ; 
-
                                            "Check that we have a vmem file before allowing LOGOUT")

+
                                              "Check that we have a vmem file before allowing LOGOUT")

     (\PROCESS.BEFORE.LOGOUT)
     (\DEVICEEVENT 'BEFORELOGOUT)
     (\SETTOTALTIME)                                          (* ; 
-
                                         "update the total time that this sysout has been running.")

-    (\LOGOUT0 FAST)
+
                                           "update the total time that this sysout has been running.")

+    (\LOGOUT0
 FAST STATUS)
 
     (* ;; "Must re-establish the state of devices and of previously open files that might have been modified at the EXEC.")

 
@@ -1280,14 +1282,14 @@
 (ADDTOVAR LAMA
 PACKFILENAME.STRING PACKFILENAME)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3164 15867 (DELFILE 3174 . 3335) (FULLNAME 3337 . 3704) (INFILE 3706 . 3965) (INFILEP 
-3967 . 4102) (IOFILE 4104 . 4355) (OPENFILE 4357 . 4660) (OPENSTREAM 4662 . 9002) (OUTFILE 9004 . 9266
-) (OUTFILEP 9268 . 9404) (RENAMEFILE 9406 . 9712) (SIMPLE.FINDFILE 9714 . 10124) (VMEMSIZE 10126 . 
-10293) (\COPYSYS 10295 . 14586) (\FLUSHVM 14588 . 15660) (\LOGOUT0 15662 . 15865)) (16366 41026 (
-UNPACKFILENAME.STRING 16376 . 38212) (\UPF.DIRECTORY 38214 . 41024)) (42554 44860 (UNPACKFILENAME 
-42564 . 42750) (LASTCHPOS 42752 . 43446) (FILENAMEFIELD 43448 . 43742) (FILENAMEFIELD.STRING 43744 . 
-44148) (PACKFILENAME 44150 . 44493) (PACKFILENAME.STRING 44495 . 44858)) (59330 60243 (
-FILEDIRCASEARRAY 59340 . 60241)) (60410 67590 (LOGOUT 60420 . 61337) (MAKESYS 61339 . 62968) (SYSOUT 
-62970 . 64522) (SAVEVM 64524 . 65324) (HERALD 65326 . 65486) (INTERPRET.REM.CM 65488 . 67213) (
-\USEREVENT 67215 . 67588)) (67772 69499 (USERNAME 67782 . 68738) (SETUSERNAME 68740 . 69497)))))
+  (FILEMAP (NIL (3225 16052 (DELFILE 3235 . 3396) (FULLNAME 3398 . 3765) (INFILE 3767 . 4026) (INFILEP 
+4028 . 4163) (IOFILE 4165 . 4416) (OPENFILE 4418 . 4721) (OPENSTREAM 4723 . 9063) (OUTFILE 9065 . 9327
+) (OUTFILEP 9329 . 9465) (RENAMEFILE 9467 . 9773) (SIMPLE.FINDFILE 9775 . 10185) (VMEMSIZE 10187 . 
+10354) (\COPYSYS 10356 . 14647) (\FLUSHVM 14649 . 15721) (\LOGOUT0 15723 . 16050)) (16551 41211 (
+UNPACKFILENAME.STRING 16561 . 38397) (\UPF.DIRECTORY 38399 . 41209)) (42739 45045 (UNPACKFILENAME 
+42749 . 42935) (LASTCHPOS 42937 . 43631) (FILENAMEFIELD 43633 . 43927) (FILENAMEFIELD.STRING 43929 . 
+44333) (PACKFILENAME 44335 . 44678) (PACKFILENAME.STRING 44680 . 45043)) (59515 60428 (
+FILEDIRCASEARRAY 59525 . 60426)) (60595 67903 (LOGOUT 60605 . 61650) (MAKESYS 61652 . 63281) (SYSOUT 
+63283 . 64835) (SAVEVM 64837 . 65637) (HERALD 65639 . 65799) (INTERPRET.REM.CM 65801 . 67526) (
+\USEREVENT 67528 . 67901)) (68085 69812 (USERNAME 68095 . 69051) (SETUSERNAME 69053 . 69810)))))
 STOP