From 015868e9a6c60a7c4a4802e085cc260c0aa2a097 Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Mon, 27 Jan 2025 11:32:29 -0800 Subject: [PATCH] Adds STATUS argument to LOGOUT for process exit status (#1978) --- sources/ADIR | 44 +++++++++++++++++++++++--------------------- sources/ADIR.LCOM | Bin 19529 -> 19645 bytes 2 files changed, 23 insertions(+), 21 deletions(-) diff --git a/sources/ADIR b/sources/ADIR index 33c9e3cd..b9cd641c 100644 --- a/sources/ADIR +++ b/sources/ADIR @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "31-Dec-2024 11:45:01" {WMEDLEY}ADIR.;59 69831 +(FILECREATED "20-Jan-2025 13:37:28" {DSK}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}ADIR.;58) + :PREVIOUS-DATE "31-Dec-2024 11:45:01" {DSK}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 diff --git a/sources/ADIR.LCOM b/sources/ADIR.LCOM index e4caa3a010f46a0a2bd1298947ce24bf2613482f..13cc0d9ec0ac2ac1498ff90fd63ed6f416f12056 100644 GIT binary patch delta 730 zcmbV~&ui2`6vwkm!7`#$5b@yQbwEgjgk(3rOf@u{OxoCNvScQ;g}rQdLs{8&C8-A~ zW&Z^w7yUbydaHLYUi>@!7sOdtifskK)9{A(KJz|b=F5l1#mC0Gm$Q~CzZe|LEwyEU z)^^&K)3Py$csMvTLbQ;i|vuAl#l$Co>jt>tjw^vSI6~mLtJt{_%;;mav z-;~3ma=jqRlnvdM0AGQ(7I4GDa8MSP^!FENhWc^3mF7%^{5h{E3Wm|( zgs*giYdflrB_xJXO#F;^j0D%3F3oO=%>HQtma6GGI3$Re+}THfml0ra{B1AUB2;E6 zh+#tEnu-KYFC)8Ano~L8YXNR+a!?ExdF!BQj&3-%s{L2M*8Edr7Ctat_h+A{V>ky_HI`~NfaYdLiKw1p#Je>b$)y8+vA6S zL5&uu`n#btJybt3&4~$7!brxgn39pM;&Jv&8FXXKX*^3xh z{5tKCB#si&$wM$r=m$I*pDf1=UT1_7wnO$ish0&{X!U1vfRSjM@C)?&cUV_TQ>#78 NTv^!6Ppz-_e*&Cq$)W%N delta 635 zcmaJ--HOvd6i#FjEkt{vULOV)l8b~SZGIX>Hcd`;gZU|$N!LOztl6+z+-;>@uVm>f z6mp}_QF`eEc;gfJ4!(j@7p%gvFfe@Q%=b6nzKY+!i0ji;$56w%Qcd0Lf?;@F%hOE) zGO6ZQAE%e~8O&!u;PYvUVS=NZSIhaQMO80f`(a#YFRh*e#B}!(de5^=&oD>}-Y@FE zBGtuYc3v+JJ($g}FQ&6|m~z>uOjZf}OV>1wz}e)Q``#sM6Qw0bae_gCKEn{m9r2C( z;)30CI|g_d#!T&xV6wRS0A6t7XU9lYmV-R>3kt1Wy&zAi0^Xp&VVsv#4Y?(cW$oMY z59{!w-{a_RUOYH>($OLEDN_^>+JYd6N88pTehb@&M>mq#7Gwv;QBu;AVX8=3oJg`F zHEVdjxorPDe7YxBJ96{R*2Krn+O}5~#2LeaM`T)osTQQr(_vgvB%OfVVV@;{qwNH#q9&ei4Gj8A*PemrRFl7sh