perl
view release on metacpan or search on metacpan
d_semctl_semun=''
d_union_semun=''
d_unordered=''
d_unsetenv=''
d_usleep=''
d_usleepproto=''
d_ustat=''
d_pseudofork=''
d_vfork=''
usevfork=''
d_voidsig=''
signal_t=''
d_wait4=''
d_waitpid=''
d_wcrtomb=''
d_wcscmp=''
d_wcstombs=''
d_wcsxfrm=''
d_wctomb=''
d_writev=''
default_inc_excludes_dot=''
dtracexnolibs=''
ebcdic=''
fflushNULL=''
fflushall=''
fpossize=''
fpostype=''
gccansipedantic=''
gccosandvers=''
gccversion=''
gidformat=''
gidsign=''
gidsize=''
gidtype=''
groupstype=''
h_fcntl=''
h_sysfile=''
html1dir=''
html1direxp=''
installhtml1dir=''
html3dir=''
html3direxp=''
stdchar=''
d_stdio_stream_array=''
stdio_stream_array=''
sysman=''
sGMTIME_max=''
sGMTIME_min=''
sLOCALTIME_max=''
sLOCALTIME_min=''
trnl=''
uidformat=''
uidsign=''
uidsize=''
uidtype=''
archname64=''
use64bitall=''
use64bitint=''
usecbacktrace=''
usedefaultstrict=''
dtrace=''
usedtrace=''
usefaststdio=''
elif $contains 'void.*\*[ ]*signal' $$.tmp >/dev/null 2>&1 ; then
echo "You have void (*signal())()." >&4
val="$define"
elif $contains 'extern[ ]*[(\*]*signal' $$.tmp >/dev/null 2>&1 ; then
echo "You have int (*signal())() instead of void." >&4
val="$undef"
elif $contains 'void.*\*.*sig' $$.tmp >/dev/null 2>&1 ; then
echo "You have void (*signal())()." >&4
val="$define"
else
case "$d_voidsig" in
'')
echo "I can't determine whether signal handler returns void or int..." >&4
dflt=void
rp="What type does your signal handler return?"
. ./myread
case "$ans" in
v*) val="$define";;
*) val="$undef";;
esac;;
"$define")
echo "As you already told me, signal handler returns void." >&4
val="$define"
;;
*) echo "As you already told me, signal handler returns int." >&4
val="$undef"
;;
esac
fi
set d_voidsig
eval $setvar
case "$d_voidsig" in
"$define") signal_t="void";;
*) signal_t="int";;
esac
$rm -f $$.tmp
: check for ability to cast large floats to 32-bit ints.
echo " "
echo 'Checking whether your C compiler can cast large floats to int32.' >&4
if $test "$intsize" -ge 4; then
xxx=int
if (foo < 0)
printf("-1\n");
else
printf("1\n");
}
EOCP
set try
if eval $compile; then
yyy=`$run ./try`
case "$yyy" in
'') gidsign=1
echo "(I can't execute the test program--guessing unsigned.)" >&4
;;
*) gidsign=$yyy
case "$gidsign" in
1) echo "Your $zzz is unsigned." ;;
-1) echo "Your $zzz is signed." ;;
esac
;;
esac
else
gidsign=1
echo "(I can't compile the test program--guessing unsigned.)" >&4
fi
: Check 64bit sizes
echo " "
if $test X"$quadtype" != X; then
echo "Checking how to print 64-bit integers..." >&4
'') echo "$0: Fatal: failed to find format strings, cannot continue." >&4
exit 1
;;
esac
: Check format string for GID
echo " "
$echo "Checking the format string to be used for gids..." >&4
case "$gidsign" in
-1) if $test X"$gidsize" = X"$ivsize"; then
gidformat="$ivdformat"
else
if $test X"$gidsize" = X"$longsize"; then
gidformat='"ld"'
else
if $test X"$gidsize" = X"$intsize"; then
gidformat='"d"'
else
if $test X"$gidsize" = X"$shortsize"; then
if (foo < 0)
printf("-1\n");
else
printf("1\n");
}
EOCP
set try
if eval $compile; then
yyy=`$run ./try`
case "$yyy" in
'') uidsign=1
echo "(I can't execute the test program--guessing unsigned.)" >&4
;;
*) uidsign=$yyy
case "$uidsign" in
1) echo "Your $zzz is unsigned." ;;
-1) echo "Your $zzz is signed." ;;
esac
;;
esac
else
uidsign=1
echo "(I can't compile the test program--guessing unsigned.)" >&4
fi
: Check format string for UID
echo " "
$echo "Checking the format string to be used for uids..." >&4
case "$uidsign" in
-1) if $test X"$uidsize" = X"$ivsize"; then
uidformat="$ivdformat"
else
if $test X"$uidsize" = X"$longsize"; then
uidformat='"ld"'
else
if $test X"$uidsize" = X"$intsize"; then
uidformat='"d"'
else
if $test X"$uidsize" = X"$shortsize"; then
d_uselocale='$d_uselocale'
d_usleep='$d_usleep'
d_usleepproto='$d_usleepproto'
d_ustat='$d_ustat'
d_vendorarch='$d_vendorarch'
d_vendorbin='$d_vendorbin'
d_vendorlib='$d_vendorlib'
d_vendorscript='$d_vendorscript'
d_vfork='$d_vfork'
d_void_closedir='$d_void_closedir'
d_voidsig='$d_voidsig'
d_voidtty='$d_voidtty'
d_vsnprintf='$d_vsnprintf'
d_wait4='$d_wait4'
d_waitpid='$d_waitpid'
d_wcrtomb='$d_wcrtomb'
d_wcscmp='$d_wcscmp'
d_wcstombs='$d_wcstombs'
d_wcsxfrm='$d_wcsxfrm'
d_wctomb='$d_wctomb'
d_writev='$d_writev'
getprotobynumber_r_proto='$getprotobynumber_r_proto'
getprotoent_r_proto='$getprotoent_r_proto'
getpwent_r_proto='$getpwent_r_proto'
getpwnam_r_proto='$getpwnam_r_proto'
getpwuid_r_proto='$getpwuid_r_proto'
getservbyname_r_proto='$getservbyname_r_proto'
getservbyport_r_proto='$getservbyport_r_proto'
getservent_r_proto='$getservent_r_proto'
getspnam_r_proto='$getspnam_r_proto'
gidformat='$gidformat'
gidsign='$gidsign'
gidsize='$gidsize'
gidtype='$gidtype'
glibpth='$glibpth'
gmake='$gmake'
gmtime_r_proto='$gmtime_r_proto'
gnulibc_version='$gnulibc_version'
grep='$grep'
groupcat='$groupcat'
groupstype='$groupstype'
gzip='$gzip'
u32oformat='$u32oformat'
u32size='$u32size'
u32type='$u32type'
u32uformat='$u32uformat'
u32xformat='$u32xformat'
u64size='$u64size'
u64type='$u64type'
u8size='$u8size'
u8type='$u8type'
uidformat='$uidformat'
uidsign='$uidsign'
uidsize='$uidsize'
uidtype='$uidtype'
uname='$uname'
uniq='$uniq'
uquadtype='$uquadtype'
use64bitall='$use64bitall'
use64bitint='$use64bitint'
usecbacktrace='$usecbacktrace'
usecrosscompile='$usecrosscompile'
usedefaultstrict='$usedefaultstrict'
Cross/config.sh-arm-linux view on Meta::CPAN
d_uselocale='undef'
d_usleep='define'
d_usleepproto='define'
d_ustat='define'
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
d_vendorscript='undef'
d_vfork='undef'
d_void_closedir='undef'
d_voidsig='define'
d_voidtty=''
d_vsnprintf='define'
d_wait4='define'
d_waitpid='define'
d_wcrtomb='undef'
d_wcscmp='undef'
d_wcstombs='define'
d_wcsxfrm='undef'
d_wctomb='define'
d_writev='define'
Cross/config.sh-arm-linux view on Meta::CPAN
getprotobynumber_r_proto='0'
getprotoent_r_proto='0'
getpwent_r_proto='0'
getpwnam_r_proto='0'
getpwuid_r_proto='0'
getservbyname_r_proto='0'
getservbyport_r_proto='0'
getservent_r_proto='0'
getspnam_r_proto='0'
gidformat='"lu"'
gidsign='1'
gidsize='4'
gidtype='gid_t'
glibpth='/usr/shlib /lib /usr/lib /usr/lib/386 /lib/386 /usr/ccs/lib /usr/ucblib /usr/local/lib '
gmake='gmake'
gmtime_r_proto='0'
gnulibc_version='2.2.2'
grep='grep'
groupcat='cat /etc/group'
groupstype='gid_t'
gzip='gzip'
Cross/config.sh-arm-linux view on Meta::CPAN
u32oformat='"lo"'
u32size='4'
u32type='unsigned long'
u32uformat='"lu"'
u32xformat='"lx"'
u64size='8'
u64type='unsigned long long'
u8size='1'
u8type='unsigned char'
uidformat='"lu"'
uidsign='1'
uidsize='4'
uidtype='uid_t'
uname='uname'
uniq='uniq'
uquadtype='unsigned long long'
use64bitall='undef'
use64bitint='undef'
usecbacktrace='undef'
usecrosscompile='undef'
usedefaultstrict='undef'
Cross/config.sh-arm-linux-n770 view on Meta::CPAN
d_uselocale='undef'
d_usleep='define'
d_usleepproto='define'
d_ustat='define'
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
d_vendorscript='undef'
d_vfork='undef'
d_void_closedir='undef'
d_voidsig='define'
d_voidtty=''
d_vsnprintf='define'
d_wait4='define'
d_waitpid='define'
d_wcrtomb='undef'
d_wcscmp='undef'
d_wcstombs='define'
d_wcsxfrm='undef'
d_wctomb='define'
d_writev='define'
Cross/config.sh-arm-linux-n770 view on Meta::CPAN
getprotobynumber_r_proto='0'
getprotoent_r_proto='0'
getpwent_r_proto='0'
getpwnam_r_proto='0'
getpwuid_r_proto='0'
getservbyname_r_proto='0'
getservbyport_r_proto='0'
getservent_r_proto='0'
getspnam_r_proto='0'
gidformat='"lu"'
gidsign='1'
gidsize='4'
gidtype='gid_t'
glibpth='/usr/shlib /lib /usr/lib /usr/lib/386 /lib/386 /usr/ccs/lib /usr/ucblib /usr/local/lib '
gmake='gmake'
gmtime_r_proto='0'
gnulibc_version='2.2.2'
grep='grep'
groupcat='cat /etc/group'
groupstype='gid_t'
gzip='gzip'
Cross/config.sh-arm-linux-n770 view on Meta::CPAN
u32oformat='"lo"'
u32size='4'
u32type='unsigned long'
u32uformat='"lu"'
u32xformat='"lx"'
u64size='8'
u64type='unsigned long long'
u8size='1'
u8type='unsigned char'
uidformat='"lu"'
uidsign='1'
uidsize='4'
uidtype='uid_t'
uname='uname'
uniq='uniq'
uquadtype='unsigned long long'
use64bitall='undef'
use64bitint='undef'
usecbacktrace='undef'
usecrosscompile='undef'
usedefaultstrict='undef'
Porting/Glossary view on Meta::CPAN
This variable conditionally defines PERL_VENDORSCRIPT.
d_vfork (d_vfork.U):
This variable conditionally defines the HAS_VFORK symbol, which
indicates the vfork() routine is available.
d_void_closedir (d_closedir.U):
This variable conditionally defines VOID_CLOSEDIR if closedir()
does not return a value.
d_voidsig (d_voidsig.U):
This variable conditionally defines VOIDSIG if this system
declares "void (*signal(...))()" in signal.h. The old way was to
declare it as "int (*signal(...))()".
d_voidtty (i_sysioctl.U):
This variable conditionally defines USE_IOCNOTTY to indicate that the
ioctl() call with TIOCNOTTY should be used to void tty association.
Otherwise (on USG probably), it is enough to close the standard file
descriptors and do a setpgrp().
Porting/Glossary view on Meta::CPAN
getspnam_r_proto (d_getspnam_r.U):
This variable encodes the prototype of getspnam_r.
It is zero if d_getspnam_r is undef, and one of the
REENTRANT_PROTO_T_ABC macros of reentr.h if d_getspnam_r
is defined.
gidformat (gidf.U):
This variable contains the format string used for printing a Gid_t.
gidsign (gidsign.U):
This variable contains the signedness of a gidtype.
1 for unsigned, -1 for signed.
gidsize (gidsize.U):
This variable contains the size of a gidtype in bytes.
gidtype (gidtype.U):
This variable defines Gid_t to be something like gid_t, int,
ushort, or whatever type is used to declare the return type
of getgid(). Typically, it is the type of group ids in the kernel.
Porting/Glossary view on Meta::CPAN
sig_num_init (sig_name.U):
This variable holds the signal numbers, enclosed in double quotes and
separated by commas, suitable for use in the SIG_NUM definition
below. A "ZERO" is prepended to the list, and the list is
terminated with a plain 0.
sig_size (sig_name.U):
This variable contains the number of elements of the sig_name
and sig_num arrays.
signal_t (d_voidsig.U):
This variable holds the type of the signal handler (void or int).
sitearch (sitearch.U):
This variable contains the eventual value of the SITEARCH symbol,
which is the name of the private library for this package. It may
have a ~ on the front. It is up to the makefile to eventually create
this directory while performing installation (with ~ substitution).
The standard distribution will put nothing in this directory.
After perl has been installed, users may install their own local
architecture-dependent modules in this directory with
Porting/Glossary view on Meta::CPAN
u8size (perlxv.U):
This variable is the size of an U8 in bytes.
u8type (perlxv.U):
This variable contains the C type used for Perl's U8.
uidformat (uidf.U):
This variable contains the format string used for printing a Uid_t.
uidsign (uidsign.U):
This variable contains the signedness of a uidtype.
1 for unsigned, -1 for signed.
uidsize (uidsize.U):
This variable contains the size of a uidtype in bytes.
uidtype (uidtype.U):
This variable defines Uid_t to be something like uid_t, int,
ushort, or whatever type is used to declare user ids in the kernel.
Porting/config.sh view on Meta::CPAN
d_uselocale='define'
d_usleep='define'
d_usleepproto='define'
d_ustat='undef'
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
d_vendorscript='undef'
d_vfork='undef'
d_void_closedir='undef'
d_voidsig='define'
d_voidtty=''
d_vsnprintf='define'
d_wait4='define'
d_waitpid='define'
d_wcrtomb='define'
d_wcscmp='define'
d_wcstombs='define'
d_wcsxfrm='define'
d_wctomb='define'
d_writev='define'
Porting/config.sh view on Meta::CPAN
getprotobynumber_r_proto='REENTRANT_PROTO_I_ISBWR'
getprotoent_r_proto='REENTRANT_PROTO_I_SBWR'
getpwent_r_proto='REENTRANT_PROTO_I_SBWR'
getpwnam_r_proto='REENTRANT_PROTO_I_CSBWR'
getpwuid_r_proto='REENTRANT_PROTO_I_TSBWR'
getservbyname_r_proto='REENTRANT_PROTO_I_CCSBWR'
getservbyport_r_proto='REENTRANT_PROTO_I_ICSBWR'
getservent_r_proto='REENTRANT_PROTO_I_SBWR'
getspnam_r_proto='REENTRANT_PROTO_I_CSBWR'
gidformat='"u"'
gidsign='1'
gidsize='4'
gidtype='gid_t'
glibpth='/usr/shlib /lib /usr/lib /usr/lib/386 /lib/386 /usr/ccs/lib /usr/ucblib /usr/local/lib /lib64 /usr/lib64 /usr/local/lib64 '
gmake='gmake'
gmtime_r_proto='REENTRANT_PROTO_S_TS'
gnulibc_version='2.37'
grep='grep'
groupcat='cat /etc/group'
groupstype='gid_t'
gzip='gzip'
Porting/config.sh view on Meta::CPAN
u32oformat='"o"'
u32size='4'
u32type='unsigned int'
u32uformat='"u"'
u32xformat='"x"'
u64size='8'
u64type='unsigned long'
u8size='1'
u8type='unsigned char'
uidformat='"u"'
uidsign='1'
uidsize='4'
uidtype='uid_t'
uname='uname'
uniq='uniq'
uquadtype='unsigned long'
use64bitall='define'
use64bitint='define'
usecbacktrace='undef'
usecrosscompile='undef'
usedefaultstrict='undef'
config_h.SH view on Meta::CPAN
/* Gid_t_f:
* This symbol defines the format string used for printing a Gid_t.
*/
#define Gid_t_f $gidformat /**/
/* Gid_t_sign:
* This symbol holds the signedness of a Gid_t.
* 1 for unsigned, -1 for signed.
*/
#define Gid_t_sign $gidsign /* GID sign */
/* Gid_t_size:
* This symbol holds the size of a Gid_t in bytes.
*/
#define Gid_t_size $gidsize /* GID size */
/* Gid_t:
* This symbol holds the return type of getgid() and the type of
* argument to setrgid() and related functions. Typically,
* it is the type of group ids in the kernel. It can be int, ushort,
config_h.SH view on Meta::CPAN
/* Uid_t_f:
* This symbol defines the format string used for printing a Uid_t.
*/
#define Uid_t_f $uidformat /**/
/* Uid_t_sign:
* This symbol holds the signedness of a Uid_t.
* 1 for unsigned, -1 for signed.
*/
#define Uid_t_sign $uidsign /* UID sign */
/* Uid_t_size:
* This symbol holds the size of a Uid_t in bytes.
*/
#define Uid_t_size $uidsize /* UID size */
/* Uid_t:
* This symbol holds the type used to declare user ids in the kernel.
* It can be int, ushort, uid_t, etc... It may be necessary to include
* <sys/types.h> to get any typedef'ed information.
configure.com view on Meta::CPAN
$ WC "d_ustat='undef'"
$ WC "d_vendorarch='undef'"
$ WC "d_vendorbin='undef'"
$ WC "d_vendorlib='undef'"
$ WC "d_vendorscript='undef'"
$ WC "d_vfork='define'"
$ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'" ! VMS
$ WC "d_vms_do_sockets='" + d_vms_do_sockets + "'" ! VMS
$ WC "d_vms_shorten_long_symbols='" + d_vms_shorten_long_symbols + "'" ! VMS
$ WC "d_void_closedir='define'"
$ WC "d_voidsig='undef'"
$ WC "d_voidtty='" + "'"
$ WC "d_vsnprintf='" + d_vsnprintf + "'"
$ WC "d_wait4='" + d_wait4 + "'"
$ WC "d_waitpid='define'"
$ WC "d_wcrtomb='define'"
$ WC "d_wcscmp='define'"
$ WC "d_wcstombs='define'"
$ WC "d_wcsxfrm='define'"
$ WC "d_wctomb='define'"
$ WC "d_writev='define'"
configure.com view on Meta::CPAN
$!
$ WC/symbol "extensions='", nonxs_ext, " ", nonxs_ext2, " ", dynamic_ext, "'"
$ WC "fflushNULL='define'"
$ WC "fflushall='undef'"
$ WC "fpostype='fpos_t'"
$ WC "freetype='void'"
$ WC "full_ar='" + "'"
$ WC "full_csh='" + " '"
$ WC "full_sed='_NLA0:'"
$ WC "gidformat='""lu""'"
$ WC "gidsign='1'"
$ WC "gidsize='4'"
$ WC "gidtype='" + gidtype + "'"
$ WC "groupstype='Gid_t'"
$ WC "h_fcntl='false'"
$ WC "h_sysfile='false'"
$ WC "hint='none'"
$ WC "hintfile='" + "'"
$ WC "i16size='" + i16size + "'"
$ WC "i16type='" + i16type + "'"
$ WC "i32dformat='" + i32dformat + "'"
configure.com view on Meta::CPAN
$ WC "u32uformat='" + u32uformat + "'"
$ WC "u32size='" + u32size + "'"
$ WC "u32type='" + u32type + "'"
$ WC "u32xformat='" + u32xformat + "'"
$ WC "u32XUformat='" + u32XUformat + "'"
$ WC "u64size='" + u64size + "'"
$ WC "u64type='" + u64type + "'"
$ WC "u8size='" + u8size + "'"
$ WC "u8type='" + u8type + "'"
$ WC "uidformat='""lu""'"
$ WC "uidsign='1'"
$ WC "uidsize='4'"
$ WC "uidtype='" + uidtype + "'"
$ WC "uquadtype='" + uquadtype + "'"
$ WC "use64bitall='" + use64bitall + "'"
$ WC "use64bitint='" + use64bitint + "'"
$ WC "usecasesensitive='" + be_case_sensitive + "'" ! VMS-specific
$ WC "usedebugging_perl='"+use_debugging_perl+"'"
$ WC "usedefaultstrict='undef'"
$ WC "usedefaulttypes='" + usedefaulttypes + "'" ! VMS-specific
$ WC "usecbacktrace='undef'"
dist/Locale-Maketext/lib/Locale/Maketext.pm view on Meta::CPAN
my @lex_refs;
my $seen_r = ref($_[1]) ? $_[1] : {};
if( defined( *{$class . '::Lexicon'}{'HASH'} )) {
push @lex_refs, *{$class . '::Lexicon'}{'HASH'};
DEBUG and warn '%' . $class . '::Lexicon contains ',
scalar(keys %{$class . '::Lexicon'}), " entries\n";
}
# Implements depth(height?)-first recursive searching of superclasses.
# In hindsight, I suppose I could have just used Class::ISA!
foreach my $superclass (@{$class . '::ISA'}) {
DEBUG and warn " Super-class search into $superclass\n";
next if $seen_r->{$superclass}++;
push @lex_refs, @{&_lex_refs($superclass, $seen_r)}; # call myself
}
$isa_scan{$class} = \@lex_refs; # save for next time
return \@lex_refs;
}
ext/POSIX/POSIX.xs view on Meta::CPAN
S_setpayload(&nv, payload, FALSE);
#else
PERL_UNUSED_VAR(nv);
PERL_UNUSED_VAR(payload);
not_here("setpayload");
#endif
OUTPUT:
nv
void
setpayloadsig(nv, payload)
NV nv
NV payload
CODE:
#ifdef DOUBLE_HAS_NAN
nv = NV_NAN;
S_setpayload(&nv, payload, TRUE);
#else
PERL_UNUSED_VAR(nv);
PERL_UNUSED_VAR(payload);
not_here("setpayloadsig");
#endif
OUTPUT:
nv
int
issignaling(nv)
NV nv
CODE:
#ifdef DOUBLE_HAS_NAN
RETVAL = Perl_isnan(nv) && NV_NAN_IS_SIGNALING(&nv);
ext/POSIX/POSIX.xs view on Meta::CPAN
RETVAL = not_here("sigpending");
#else
RETVAL = ix ? sigsuspend(sigset) : sigpending(sigset);
#endif
OUTPUT:
RETVAL
CLEANUP:
PERL_ASYNC_CHECK();
SysRet
sigprocmask(how, sigset, oldsigset = 0)
int how
POSIX::SigSet sigset = NO_INIT
POSIX::SigSet oldsigset = NO_INIT
INIT:
if (! SvOK(ST(1))) {
sigset = NULL;
} else if (sv_isa(ST(1), "POSIX::SigSet")) {
sigset = (sigset_t *) SvPV_nolen(SvRV(ST(1)));
} else {
croak("sigset is not of type POSIX::SigSet");
}
if (items < 3 || ! SvOK(ST(2))) {
oldsigset = NULL;
} else if (sv_isa(ST(2), "POSIX::SigSet")) {
oldsigset = (sigset_t *) SvPV_nolen(SvRV(ST(2)));
} else {
croak("oldsigset is not of type POSIX::SigSet");
}
void
_exit(status)
int status
SysRet
dup2(fd1, fd2)
int fd1
int fd2
ext/POSIX/lib/POSIX.pm view on Meta::CPAN
EAI_SYSTEM)],
stdlib_h_c99 => [ @{$default_export_tags{stdlib_h}}, 'strtold' ],
sys_resource_h => [qw(PRIO_PROCESS PRIO_PGRP PRIO_USER)],
sys_socket_h => [qw(
MSG_CTRUNC MSG_DONTROUTE MSG_EOR MSG_OOB MSG_PEEK MSG_TRUNC MSG_WAITALL
)],
nan_payload => [ qw(getpayload setpayload setpayloadsig issignaling) ],
signal_h_si_code => [qw(
ILL_ILLOPC ILL_ILLOPN ILL_ILLADR ILL_ILLTRP ILL_PRVOPC ILL_PRVREG
ILL_COPROC ILL_BADSTK
FPE_INTDIV FPE_INTOVF FPE_FLTDIV FPE_FLTOVF FPE_FLTUND
FPE_FLTRES FPE_FLTINV FPE_FLTSUB
SEGV_MAPERR SEGV_ACCERR
BUS_ADRALN BUS_ADRERR BUS_OBJERR
TRAP_BRKPT TRAP_TRACE
CLD_EXITED CLD_KILLED CLD_DUMPED CLD_TRAPPED CLD_STOPPED CLD_CONTINUED
ext/POSIX/lib/POSIX.pod view on Meta::CPAN
setpayload($var, $payload);
Sets the C<NaN> payload of var. Added in Perl v5.24.
NOTE: the NaN payload APIs are based on the latest (as of June 2015)
proposed ISO C interfaces, but they are not yet a standard. Things
may change.
See L</nan> for more discussion about C<NaN>.
See also L</setpayloadsig>, L</isnan>, L</getpayload>, and L</issignaling>.
=item C<setpayloadsig>
use POSIX ':nan_payload';
setpayloadsig($var, $payload);
Like L</setpayload> but also makes the NaN I<signaling>. Added in Perl
v5.24.
Depending on the platform the NaN may or may not behave differently.
Note the API instability warning in L</setpayload>.
Note that because how the floating point formats work out, on the most
common platforms signaling payload of zero is best avoided,
ext/POSIX/lib/POSIX.pod view on Meta::CPAN
Synopsis:
sigpending(sigset)
Returns C<undef> on failure.
=item C<sigprocmask>
Change and/or examine calling process's signal mask. This uses
C<POSIX::SigSet> objects for the C<sigset> and C<oldsigset> arguments.
Consult your system's C<sigprocmask> manpage for details.
Synopsis:
sigprocmask(how, sigset, oldsigset = 0)
Returns C<undef> on failure.
Note that you can't reliably block or unblock a signal from its own signal
handler if you're using safe signals. Other signals can be blocked or unblocked
reliably.
=item C<sigsetjmp>
Not implemented. C<sigsetjmp()> is C-specific: use C<eval {}> instead,
ext/POSIX/t/export.t view on Meta::CPAN
Inf NaN
acosh asinh atanh cbrt copysign erf erfc exp2 expm1 fdim
fma fmax fmin fpclassify hypot ilogb isfinite isgreater
isgreaterequal isinf isless islessequal islessgreater isnan
isnormal isunordered j0 j1 jn lgamma log1p log2 logb lrint lround nan
nearbyint nextafter nexttoward remainder remquo rint round scalbn
signbit tgamma trunc y0 y1 yn strtold
),
# this stuff was added in 5.23
qw(
getpayload issignaling setpayload setpayloadsig
ILL_ILLOPC ILL_ILLOPN ILL_ILLADR ILL_ILLTRP ILL_PRVOPC ILL_PRVREG
ILL_COPROC ILL_BADSTK
FPE_INTDIV FPE_INTOVF FPE_FLTDIV FPE_FLTOVF FPE_FLTUND
FPE_FLTRES FPE_FLTINV FPE_FLTSUB
SEGV_MAPERR SEGV_ACCERR
BUS_ADRALN BUS_ADRERR BUS_OBJERR
TRAP_BRKPT TRAP_TRACE
CLD_EXITED CLD_KILLED CLD_DUMPED CLD_TRAPPED CLD_STOPPED CLD_CONTINUED
POLL_IN POLL_OUT POLL_MSG POLL_ERR POLL_PRI POLL_HUP
SI_USER SI_QUEUE SI_TIMER SI_ASYNCIO SI_MESGQ
ext/POSIX/t/math.t view on Meta::CPAN
SKIP: {
skip("no inf/nan", 19) unless $Config{d_double_has_inf} && $Config{d_double_has_nan};
# These don't work on old mips/hppa platforms
# because nan with payload zero == Inf (or == -Inf).
# ok(isnan(setpayload(0)), "setpayload zero");
# is(getpayload(setpayload(0)), 0, "setpayload + getpayload (zero)");
#
# These don't work on most platforms because == Inf (or == -Inf).
# ok(isnan(setpayloadsig(0)), "setpayload zero");
# is(getpayload(setpayloadsig(0)), 0, "setpayload + getpayload (zero)");
# Verify that the payload set be setpayload()
# (1) still is a nan
# (2) but the payload can be retrieved
# (3) but is not signaling
my $x = 0;
setpayload($x, 0x12345);
ok(isnan($x), "setpayload + isnan");
is(getpayload($x), 0x12345, "setpayload + getpayload");
ok(!issignaling($x), "setpayload + issignaling");
# Verify that the signaling payload set be setpayloadsig()
# (1) still is a nan
# (2) but the payload can be retrieved
# (3) and is signaling
setpayloadsig($x, 0x12345);
ok(isnan($x), "setpayloadsig + isnan");
is(getpayload($x), 0x12345, "setpayloadsig + getpayload");
SKIP: {
# https://rt.perl.org/Ticket/Display.html?id=125710
# In the 32-bit x86 ABI cannot preserve the signaling bit
# (the x87 simply does not preserve that). But using the
# 80-bit extended format aka long double, the bit is preserved.
# https://gcc.gnu.org/bugzilla/show_bug.cgi?id=57484
my $could_be_x86_32 =
# This is a really weak test: there are other 32-bit
# little-endian platforms than just Intel (some embedded
# processors, for example), but we use this just for not
# bothering with the test if things look iffy.
# We could, say, $Config{ccsymbols} =~ /\b__[xi][3-7]86=1\b/,
# but that feels quite shaky.
$Config{byteorder} =~ /1234/ &&
$Config{longdblkind} == 3 &&
$Config{ptrsize} == 4;
skip($^O, 1) if $could_be_x86_32 && !$Config{uselongdouble};
ok(issignaling($x), "setpayloadsig + issignaling");
}
# Try a payload more than one byte.
is(getpayload(nan(0x12345)), 0x12345, "nan + getpayload");
# Try payloads of 2^k, most importantly at and beyond 2^32. These
# tests will fail if NV is just 32-bit float, but that Should Not
# Happen (tm).
is(getpayload(nan(2**31)), 2**31, "nan + getpayload 2**31");
is(getpayload(nan(2**32)), 2**32, "nan + getpayload 2**32");
ext/POSIX/t/sigset.t view on Meta::CPAN
{
# CID 244386
# linux and freebsd do validate for positive and very large signal numbers
# darwin uses a macro that simply ignores large signals and shifts by
# a negative number for negative signals, always succeeding
#
# since the idea is to validate our code rather than the implementation
# of sigaddset, just test the platforms we know can fail
skip "Not all systems validate the signal number", 2
unless $^O =~ /^(linux|freebsd)$/;
my $badsig = -1;
note "badsig $badsig";
ok(!eval{ POSIX::SigSet->new($badsig); 1 },
"POSIX::SigSet->new should throw on large signal number");
like($@."", qr/POSIX::Sigset->new: failed to add signal $badsig/,
"check message");
}
done_testing();
hints/bsdos.sh view on Meta::CPAN
#
# Updated for threads by "Timur I. Bakeyev" <bsdi@listserv.bat.ru>
#
# To override the compiler on the command line:
# ./Configure -Dcc=gcc2
#
# The BSD/OS distribution is built with:
# ./Configure -des -Dbsdos_distribution=defined
signal_t='void'
d_voidsig='define'
usemymalloc='n'
# malloc wrap works
case "$usemallocwrap" in
'') usemallocwrap='define' ;;
esac
# setre?[ug]id() have been replaced by the _POSIX_SAVED_IDS versions.
# See man 2 setuid
hints/dragonfly.sh view on Meta::CPAN
EOM
# From: Anton Berezin <tobez@plab.ku.dk>
# To: perl5-porters@perl.org
# Subject: [PATCH 5.005_54] Configure - hints/freebsd.sh signal handler type
# Date: 30 Nov 1998 19:46:24 +0100
# Message-ID: <864srhhvcv.fsf@lion.plab.ku.dk>
signal_t='void'
d_voidsig='define'
# This script UU/usethreads.cbu will get 'called-back' by Configure
# after it has prompted the user for whether to use threads.
cat > UU/usethreads.cbu <<'EOCBU'
case "$usethreads" in
$define|true|[yY]*)
case "$osvers" in
*) ldflags="-pthread $ldflags"
# Both in 4.x and 5.x gethostbyaddr_r exists but
hints/freebsd.sh view on Meta::CPAN
EOM
# From: Anton Berezin <tobez@plab.ku.dk>
# To: perl5-porters@perl.org
# Subject: [PATCH 5.005_54] Configure - hints/freebsd.sh signal handler type
# Date: 30 Nov 1998 19:46:24 +0100
# Message-ID: <864srhhvcv.fsf@lion.plab.ku.dk>
signal_t='void'
d_voidsig='define'
# set libperl.so.X.X for 2.2.X
case "$osvers" in
2.2*)
# unfortunately this code gets executed before
# the equivalent in the main Configure so we copy a little
# from Configure XXX Configure should be fixed.
if $test -r $src/patchlevel.h;then
patchlevel=`awk '/define[ ]+PERL_VERSION/ {print $3}' $src/patchlevel.h`
subversion=`awk '/define[ ]+PERL_SUBVERSION/ {print $3}' $src/patchlevel.h`
hints/irix_4.sh view on Meta::CPAN
#irix_4.sh
# Last modified Fri May 5 14:06:37 EDT 1995
optimize='-O1'
# Does Configure really get these wrong? Why?
d_voidsig=define
d_charsprf=undef
case "$cc" in
*gcc*) ccflags="$ccflags -D_BSD_TYPES" ;;
*) ccflags="$ccflags -ansiposix -signed" ;;
esac
# This hint due thanks Hershel Walters <walters@smd4d.wes.army.mil>
# Date: Tue, 31 Jan 1995 16:32:53 -0600 (CST)
# Subject: IRIX4.0.4(.5? 5.0?) problems
hints/midnightbsd.sh view on Meta::CPAN
lddlflags="-shared "
fi
cccdlflags='-DPIC -fPIC'
ccflags="${ccflags} -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H"
if /usr/bin/file -L /usr/lib/libc.so | /usr/bin/grep -vq "not stripped" ; then
usenm=false
fi
signal_t='void'
d_voidsig='define'
# This script UU/usethreads.cbu will get 'called-back' by Configure
# after it has prompted the user for whether to use threads.
cat > UU/usethreads.cbu <<'EOCBU'
case "$usethreads" in
$define|true|[yY]*)
ldflags="-pthread $ldflags"
set `echo X "$libswanted "| sed -e 's/ c //'`
shift
libswanted="$*"
lib/sigtrap.t view on Meta::CPAN
use_ok( 'sigtrap' );
package main;
local %SIG;
# use a version of sigtrap.pm somewhat too high
eval{ sigtrap->import(99999) };
like( $@, qr/version 99999 required,/, 'import excessive version number' );
# use an invalid signal name
eval{ sigtrap->import('abadsignal') };
like( $@, qr/^Unrecognized argument abadsignal/, 'send bad signame to import' );
eval{ sigtrap->import('handler') };
like( $@, qr/^No argument specified/, 'send handler without subref' );
sigtrap->import('AFAKE');
is( $SIG{AFAKE}, \&sigtrap::handler_traceback, 'install normal handler' );
sigtrap->import('die', 'AFAKE', 'stack-trace', 'FAKE2');
is( $SIG{AFAKE}, \&sigtrap::handler_die, 'install the die handler' );
is( $SIG{FAKE2}, \&sigtrap::handler_traceback, 'install traceback handler' );
plan9/config_sh.sample view on Meta::CPAN
d_unsetenv='undef'
d_uselocale='undef'
d_usleep='undef'
d_usleepproto='undef'
d_ustat='undef'
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
d_vfork='undef'
d_void_closedir='undef'
d_voidsig='define'
d_voidtty=''
d_vsnprintf='undef'
d_wait4='undef'
d_waitpid='define'
d_wcrtomb='undef'
d_wcscmp='undef'
d_wcstombs='define'
d_wcsxfrm='undef'
d_wctomb='define'
d_writev='define'
plan9/config_sh.sample view on Meta::CPAN
getprotobynumber_r_proto='0'
getprotoent_r_proto='0'
getpwent_r_proto='0'
getpwnam_r_proto='0'
getpwuid_r_proto='0'
getservbyname_r_proto='0'
getservbyport_r_proto='0'
getservent_r_proto='0'
getspnam_r_proto='0'
gidformat='"hd"'
gidsign='-1'
gidsize='2'
gidtype='gid_t'
glibpth=''
gmake='gmake'
gmtime_r_proto='0'
gnulibc_version=''
grep='grep'
groupcat=''
groupstype='gid_t'
gzip='gzip'
plan9/config_sh.sample view on Meta::CPAN
u32oformat='"lo"'
u32size='4'
u32type='unsigned long'
u32uformat='"lu"'
u32xformat='"lx"'
u64size='8'
u64type='unsigned long long'
u8size='1'
u8type='unsigned char'
uidformat='"hd"'
uidsign='-1'
uidsize='2'
uidtype='uid_t'
uname='uname'
uniq='uniq'
uquadtype='unsigned long long'
use64bitall='undef'
use64bitint='undef'
usecbacktrace='undef'
usecrosscompile='undef'
usedefaultstrict='undef'
static Signal_t
sig_trap(int signo)
{
PL_sig_trapped++;
}
Sighandler_t
Perl_rsignal_state(pTHX_ int signo)
{
Sighandler_t oldsig;
#if defined(USE_ITHREADS) && !defined(WIN32)
/* only "parent" interpreter can diddle signals */
if (PL_curinterp != aTHX)
return (Sighandler_t) SIG_ERR;
#endif
PL_sig_trapped = 0;
oldsig = PerlProc_signal(signo, sig_trap);
PerlProc_signal(signo, oldsig);
if (PL_sig_trapped)
PerlProc_kill(PerlProc_getpid(), signo);
return oldsig;
}
int
Perl_rsignal_save(pTHX_ int signo, Sighandler_t handler, Sigsave_t *save)
{
#if defined(USE_ITHREADS) && !defined(WIN32)
/* only "parent" interpreter can diddle signals */
if (PL_curinterp != aTHX)
return -1;
#endif
win32/config.gc view on Meta::CPAN
d_uselocale='undef'
d_usleep='undef'
d_usleepproto='undef'
d_ustat='undef'
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
d_vendorscript='undef'
d_vfork='undef'
d_void_closedir='undef'
d_voidsig='define'
d_voidtty=''
d_vsnprintf='define'
d_wait4='undef'
d_waitpid='define'
d_wcrtomb='undef'
d_wcscmp='define'
d_wcstombs='define'
d_wcsxfrm='define'
d_wctomb='define'
d_writev='undef'
win32/config.gc view on Meta::CPAN
getprotobynumber_r_proto='0'
getprotoent_r_proto='0'
getpwent_r_proto='0'
getpwnam_r_proto='0'
getpwuid_r_proto='0'
getservbyname_r_proto='0'
getservbyport_r_proto='0'
getservent_r_proto='0'
getspnam_r_proto='0'
gidformat='"ld"'
gidsign='-1'
gidsize='4'
gidtype='gid_t'
glibpth='/usr/shlib /lib/pa1.1 /usr/lib/large /lib /usr/lib /usr/lib/386 /lib/386 /lib/large /usr/lib/small /lib/small /usr/ccs/lib /usr/ucblib /usr/shlib '
gmake='gmake'
gmtime_r_proto='0'
gnulibc_version=''
grep='grep'
groupcat=''
groupstype='gid_t'
gzip='gzip'
win32/config.gc view on Meta::CPAN
u32oformat='"lo"'
u32size='4'
u32type='unsigned long'
u32uformat='"lu"'
u32xformat='"lx"'
u64size='8'
u64type='unsigned long long'
u8size='1'
u8type='unsigned char'
uidformat='"ld"'
uidsign='-1'
uidsize='4'
uidtype='uid_t'
uname='uname'
uniq='uniq'
uquadtype='unsigned long long'
use64bitall='undef'
use64bitint='undef'
usecbacktrace='undef'
usecrosscompile='undef'
usedefaultstrict='undef'
win32/config.vc view on Meta::CPAN
d_uselocale='undef'
d_usleep='undef'
d_usleepproto='undef'
d_ustat='undef'
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
d_vendorscript='undef'
d_vfork='undef'
d_void_closedir='undef'
d_voidsig='define'
d_voidtty=''
d_vsnprintf='define'
d_wait4='undef'
d_waitpid='define'
d_wcrtomb='undef'
d_wcscmp='define'
d_wcstombs='define'
d_wcsxfrm='define'
d_wctomb='define'
d_writev='undef'
win32/config.vc view on Meta::CPAN
getprotobynumber_r_proto='0'
getprotoent_r_proto='0'
getpwent_r_proto='0'
getpwnam_r_proto='0'
getpwuid_r_proto='0'
getservbyname_r_proto='0'
getservbyport_r_proto='0'
getservent_r_proto='0'
getspnam_r_proto='0'
gidformat='"ld"'
gidsign='-1'
gidsize='4'
gidtype='gid_t'
glibpth='/usr/shlib /lib/pa1.1 /usr/lib/large /lib /usr/lib /usr/lib/386 /lib/386 /lib/large /usr/lib/small /lib/small /usr/ccs/lib /usr/ucblib /usr/shlib '
gmake='gmake'
gmtime_r_proto='0'
gnulibc_version=''
grep='grep'
groupcat=''
groupstype='gid_t'
gzip='gzip'
win32/config.vc view on Meta::CPAN
u32oformat='"lo"'
u32size='4'
u32type='unsigned long'
u32uformat='"lu"'
u32xformat='"lx"'
u64size='8'
u64type='unsigned __int64'
u8size='1'
u8type='unsigned char'
uidformat='"ld"'
uidsign='-1'
uidsize='4'
uidtype='uid_t'
uname='uname'
uniq='uniq'
uquadtype='unsigned __int64'
use64bitall='undef'
use64bitint='undef'
usecbacktrace='undef'
usecrosscompile='undef'
usedefaultstrict='undef'
( run in 1.132 second using v1.01-cache-2.11-cpan-71847e10f99 )