[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
Re: [MacPerl] signal handling
- To: mac-perl@iis.ee.ethz.ch (IPM Return requested)
- Subject: Re: [MacPerl] signal handling
- From: "Patton, Paul B (MN10)" <Paul.B.Patton@hbc.honeywell.com>
- Date: 05 Mar 1998 14:03:29 -0600
- Alternate-Recipient: Allowed
- Content-Identifier: 0417634FF0511229
- Content-Return: Allowed
- Conversion: Allowed
- Disclose-Recipients: Prohibited
- Original-Encoded-Information-Types: IA5-Text
- X400-Content-Type: P2-1988 ( 22 )
- X400-Mts-Identifier: [/c=US/admd=MCI/prmd=Honeywell/; 0417634FF0511229-HW-MTA-MN]
- X400-Originator: Paul.B.Patton@HBC.honeywell.com
- X400-Received: by mta HW-MTA-MN in /c=US/admd=MCI/prmd=Honeywell/; Relayed; 05 Mar 1998 14:03:29 -0600
- X400-Received: by /c=US/admd=MCI/prmd=Honeywell/; Relayed; 05 Mar 1998 14:03:29 -0600
- X400-Recipients: non-disclosure;
Hitting cmd-. while the script below is running via the
MacPerl tool in MPW prints:
:
chug chug chug chug chug chug chug chug
chug chug chug chug chug chug chug chug
Caught a SIGINT--shutting down
Versions: MPW 3.4.2; Big MacPerl 5.1.8r4; 68K System 7.6.2
Hitting cmd-. while it is running via the MacPerl application
interrupts the output and returns control to MacPerl's UI, but does
not print the "Caught a SIGINT--shutting down" message. I don't know
how to send a QUIT signal so I haven't been able to see that work.
-Paul- paul.b.patton@hbc.honeywell.com
------
#!perl
sub handler { # 1st argument is signal name
my $sig = shift;
print "Caught a SIG$sig--shutting down\n";
exit(0);
}
$SIG{INT} = 'handler';
$SIG{QUIT} = 'handler';
for ( $x = 0; $x < 10000; ++$x ) {
print "chug ";
print "\n" if $x % 8 == 0;
}
***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch