Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/values.ph |
require '_h2ph_pre.ph';
no warnings qw(redefine misc);
unless(defined(&_VALUES_H)) {
eval 'sub _VALUES_H () {1;}' unless defined(&_VALUES_H);
require 'features.ph';
require 'limits.ph';
eval 'sub _TYPEBITS {
my($type) = @_;
eval q(($sizeof{$type} * &CHAR_BIT));
}' unless defined(&_TYPEBITS);
eval 'sub CHARBITS () { &_TYPEBITS ;}' unless defined(&CHARBITS);
eval 'sub SHORTBITS () { &_TYPEBITS ;}' unless defined(&SHORTBITS);
eval 'sub INTBITS () { &_TYPEBITS ;}' unless defined(&INTBITS);
eval 'sub LONGBITS () { &_TYPEBITS ;}' unless defined(&LONGBITS);
eval 'sub PTRBITS () { &_TYPEBITS ;}' unless defined(&PTRBITS);
eval 'sub DOUBLEBITS () { &_TYPEBITS ;}' unless defined(&DOUBLEBITS);
eval 'sub FLOATBITS () { &_TYPEBITS ;}' unless defined(&FLOATBITS);
eval 'sub MINSHORT () { &SHRT_MIN;}' unless defined(&MINSHORT);
eval 'sub MININT () { &INT_MIN;}' unless defined(&MININT);
eval 'sub MINLONG () { &LONG_MIN;}' unless defined(&MINLONG);
eval 'sub MAXSHORT () { &SHRT_MAX;}' unless defined(&MAXSHORT);
eval 'sub MAXINT () { &INT_MAX;}' unless defined(&MAXINT);
eval 'sub MAXLONG () { &LONG_MAX;}' unless defined(&MAXLONG);
eval 'sub HIBITS () { &MINSHORT;}' unless defined(&HIBITS);
eval 'sub HIBITL () { &MINLONG;}' unless defined(&HIBITL);
require 'float.ph';
eval 'sub MAXDOUBLE () { &DBL_MAX;}' unless defined(&MAXDOUBLE);
eval 'sub MAXFLOAT () { &FLT_MAX;}' unless defined(&MAXFLOAT);
eval 'sub MINDOUBLE () { &DBL_MIN;}' unless defined(&MINDOUBLE);
eval 'sub MINFLOAT () { &FLT_MIN;}' unless defined(&MINFLOAT);
eval 'sub DMINEXP () { &DBL_MIN_EXP;}' unless defined(&DMINEXP);
eval 'sub FMINEXP () { &FLT_MIN_EXP;}' unless defined(&FMINEXP);
eval 'sub DMAXEXP () { &DBL_MAX_EXP;}' unless defined(&DMAXEXP);
eval 'sub FMAXEXP () { &FLT_MAX_EXP;}' unless defined(&FMAXEXP);
if(defined(&__USE_MISC)) {
eval 'sub BITSPERBYTE () { &CHAR_BIT;}' unless defined(&BITSPERBYTE);
}
}
1;