diff options
Diffstat (limited to 'meta-networking/recipes-extended/mime-construct/files/Signal.pm')
-rw-r--r-- | meta-networking/recipes-extended/mime-construct/files/Signal.pm | 132 |
1 files changed, 0 insertions, 132 deletions
diff --git a/meta-networking/recipes-extended/mime-construct/files/Signal.pm b/meta-networking/recipes-extended/mime-construct/files/Signal.pm deleted file mode 100644 index 9280e88681..0000000000 --- a/meta-networking/recipes-extended/mime-construct/files/Signal.pm +++ /dev/null @@ -1,132 +0,0 @@ -# $Id: Signal.pm,v 1.4 1998-10-27 16:16:13-05 roderick Exp $ -# -# Copyright (c) 1997 Roderick Schertler. All rights reserved. This -# program is free software; you can redistribute it and/or modify it -# under the same terms as Perl itself. - -package IPC::Signal; - -use 5.003_94; # __PACKAGE__ -use strict; -use vars qw($VERSION @ISA @EXPORT_OK $AUTOLOAD %Sig_num @Sig_name); - -require Exporter; - -$VERSION = '1.00'; -@ISA = qw(Exporter); -@EXPORT_OK = qw(sig_num sig_name sig_translate_setup %Sig_num @Sig_name); -%Sig_num = (); -@Sig_name = (); - -sub sig_num ($); -sub sig_name ($); - -sub sig_translate_setup () { - return if %Sig_num && @Sig_name; - - require Config; - - # In 5.005 the sig_num entries are comma separated and there's a - # trailing 0. - my $num = $Config::Config{'sig_num'}; - if ($num =~ s/,//g) { - $num =~ s/\s+0$//; - } - - my @name = split ' ', $Config::Config{'sig_name'}; - my @num = split ' ', $num; - - @name or die 'No signals defined'; - @name == @num or die 'Signal name/number mismatch'; - - @Sig_num{@name} = @num; - keys %Sig_num == @name or die 'Duplicate signal names present'; - for (@name) { - $Sig_name[$Sig_num{$_}] = $_ - unless defined $Sig_name[$Sig_num{$_}]; - } -} - -# This autoload routine just is just for sig_num() and sig_name(). It -# calls sig_translate_setup() and then snaps the real function definitions -# into place. - -sub AUTOLOAD { - if ($AUTOLOAD ne __PACKAGE__ . '::sig_num' - && $AUTOLOAD ne __PACKAGE__ . '::sig_name') { - require Carp; - Carp::croak("Undefined subroutine &$AUTOLOAD called"); - } - sig_translate_setup; - *sig_num = sub ($) { $Sig_num{$_[0]} }; - *sig_name = sub ($) { $Sig_name[$_[0]] }; - goto &$AUTOLOAD; -} - -1 - -__END__ - -=head1 NAME - -IPC::Signal - Utility functions dealing with signals - -=head1 SYNOPSIS - - $number = sig_num $name; - $name = sig_name $number; - - sig_translate_setup; - $number = $Sig_num{$name}; - $name = $Sig_name[$number]; - -=head1 DESCRIPTION - -This module contains utility functions for dealing with signals. - -Nothing is exported by default. - -=over - -=item B<sig_num> I<chopped-signal-name> - -Returns the signal number of the signal whose name (sans C<SIG>) is -I<chopped-signal-name>, or undef if there is no such signal. - -This function is prototyped to take a single scalar argument. - -=item B<sig_name> I<signal-number> - -Returns the chopped signal name (like C<HUP>) of signal number -I<signal-number>, or undef if there is no such signal. - -This function is prototyped to take a single scalar argument. - -=item B<sig_translate_setup> - -If you want to use the @Sig_name and %Sig_num variables directly you must -call B<sig_translate_setup> to initialize them. This isn't necessary if -you only use the function interfaces sig_name() and sig_num(). - -This function is prototyped to take no arguments. - -=item B<%Sig_num> - -A hash with chopped signal name keys (like C<HUP>) and integer signal -number values. - -=item B<@Sig_name> - -An array mapping signal numbers to chopped signal names (like C<HUP>). - -=back - -=head1 AUTHOR - -Roderick Schertler <F<roderick@argon.org>> - -=head1 SEE ALSO - -perl(1). - -=cut |