From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from doolittle.vetsci.su.OZ.AU ([129.78.148.2]) by archone.tamu.edu with SMTP id <18900>; Sun, 29 Dec 1991 07:45:04 -0600
Received: by doolittle.vetsci.su.oz.au id <49431>; Mon, 30 Dec 1991 00:44:12 +1100
From: John (I've got some bad news for you, sunshine) Mackin <john@vetsci.su.oz.au>
Date: Sun, 29 Dec 1991 06:45:53 -0600
To: The rc Get-Someone-Else-To-Do-The-Work List <rc@archone.tamu.edu>
Subject: Re: builtin exit
In-Reply-To: <694002955.8576.0@mycroft.bh.andrew.cmu.edu>
Message-ID: <199112292345.23238.rc.babum@vetsci.su.oz.au>
X-Face: 39seV7n\`#asqOFdx#oj/Uz*lseO_1n9n7rQS;~ve\e`&Z},nU1+>0X^>mg&M.^X$[ez>{F
 k5[Ah<7xBWF<un6={nlL7Om5<0UsuHKjCxs)C$`DP.N'-LLb8=8)"a@d2bG-f7qD2AJ#UZ>-@-ru?&
 @4K4-b`ydd^`(n%Z{

No changes to rc are needed to do any of this.  As to getting the
exit status right, the way we've been doing it for years in sh is
still perfectly adequate; adapted for rc, it's like this:

estat = 0

fn sigexit {
	# place any cleanup actions here
	builtin exit $estat
}

fn exit {
	if ( ! ~ $#* 0 ) {
		estat = $1
	} else
		estat = 0
	builtin exit		# in order to get sigexit invoked
}

This works just fine for, on the one hand, making sure that
cleanup happens, and, on the other, making sure that if the
script says "exit <something>", then "something" is indeed
its exit status (which is, of course, the problem with
straightforward use of sigexit).

Most scripts don't need this trick, but it's an easy one when
it is needed.  It doesn't require bending the body of the script
in any way, except that if you are weird enough to want the
exit status to indeed be that of the last synchronously executed
command, rather than zero, if you `fall out the end', then you
need to add "exit $status" to the end of the script.  I can't
think of many applications where this is necessary or desirable.

And if you have truly been taking VERY strange substances, and
believe that it actually matters that the script exits with
a SIGINT even though the interrupt you sent it was handled
by the script, well you can do that too.  Do the above,
encapsulating the cleanup actions in a function called
"cleanup".  Then:

sigs = (int quit hup)	# the signals we're weird enough to want
			# to do this with

for (s in $sigs) {
	eval fn sig ^ $s '{'				\
		cleanup ';'				\
		fn sig ^ $s ';'				\
		kill - ^ ` { tr a-z A-Z <<< $s } $pid	\
	'}'
}

Caveats: (1) SysVile versions of tr will need square brackets;
(2) some systems still probably have versions of kill(1) that
insist on signal numbers instead of names, but that's just
a matter of detail.  I've tested this and it works, under rc 1.2;
things may well change with the release of 1.3, which will have
completely reworked signal handling.  Because of 1.2's special
handling of sigint (which, I might add, is 100% justified from
my point of view), the code above doesn't actually give sigint
back to the parent; it works fine for the other signals, though.

To conclude, I'd just like to state my main points again:
firstly, most scripts don't need the elaborate exit status
handling I presented initially.  For the occasional one that
does, it's easy.  Secondly, I don't think ANY script needs
the bizarre signal status handling that was proposed.
But, finally, if you do happen to need it -- it's _there
already_, thanks to the clean design of rc; no more `features'
are needed for any of this.  While the exit status handling
was just as easy in sh, the mere thought of trying to get the
quoting right to handle the signal status -- if it could be done
at all -- fills me with eldritch horror.

_Clean design pays ongoing dividends._

OK,
John.