Skip to content
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.

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

Adds STATUS argument to LOGOUT for process exit status #1978

Merged
merged 1 commit into from
Jan 27, 2025
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
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
44 changes: 23 additions & 21 deletions sources/ADIR
Original file line number Diff line number Diff line change
@@ -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)
Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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.")

Expand Down Expand Up @@ -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
Binary file modified sources/ADIR.LCOM
Binary file not shown.