|
Packit |
d03632 |
#define PERL_constant_NOTFOUND 1
|
|
Packit |
d03632 |
#define PERL_constant_NOTDEF 2
|
|
Packit |
d03632 |
#define PERL_constant_ISIV 3
|
|
Packit |
d03632 |
#define PERL_constant_ISNO 4
|
|
Packit |
d03632 |
#define PERL_constant_ISNV 5
|
|
Packit |
d03632 |
#define PERL_constant_ISPV 6
|
|
Packit |
d03632 |
#define PERL_constant_ISPVN 7
|
|
Packit |
d03632 |
#define PERL_constant_ISSV 8
|
|
Packit |
d03632 |
#define PERL_constant_ISUNDEF 9
|
|
Packit |
d03632 |
#define PERL_constant_ISUV 10
|
|
Packit |
d03632 |
#define PERL_constant_ISYES 11
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
#ifndef NVTYPE
|
|
Packit |
d03632 |
typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
#ifndef aTHX_
|
|
Packit |
d03632 |
#define aTHX_ /* 5.6 or later define this for threading support. */
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
#ifndef pTHX_
|
|
Packit |
d03632 |
#define pTHX_ /* 5.6 or later define this for threading support. */
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
static int
|
|
Packit |
d03632 |
constant_7 (pTHX_ const char *name, IV *iv_return) {
|
|
Packit |
d03632 |
/* When generated this function returned values for the list of names given
|
|
Packit |
d03632 |
here. However, subsequent manual editing may have added or removed some.
|
|
Packit |
d03632 |
OS_CODE Z_ASCII Z_BLOCK Z_ERRNO Z_FIXED Z_TREES */
|
|
Packit |
d03632 |
/* Offset 6 gives the best switch position. */
|
|
Packit |
d03632 |
switch (name[6]) {
|
|
Packit |
d03632 |
case 'D':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_FIXE", 6)) {
|
|
Packit |
d03632 |
/* D */
|
|
Packit |
d03632 |
#ifdef Z_FIXED
|
|
Packit |
d03632 |
*iv_return = Z_FIXED;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'E':
|
|
Packit |
d03632 |
if (memEQ(name, "OS_COD", 6)) {
|
|
Packit |
d03632 |
/* E */
|
|
Packit |
d03632 |
#ifdef OS_CODE
|
|
Packit |
d03632 |
*iv_return = OS_CODE;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'I':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_ASCI", 6)) {
|
|
Packit |
d03632 |
/* I */
|
|
Packit |
d03632 |
#ifdef Z_ASCII
|
|
Packit |
d03632 |
*iv_return = Z_ASCII;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'K':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_BLOC", 6)) {
|
|
Packit |
d03632 |
/* K */
|
|
Packit |
d03632 |
#ifdef Z_BLOCK
|
|
Packit |
d03632 |
*iv_return = Z_BLOCK;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'O':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_ERRN", 6)) {
|
|
Packit |
d03632 |
/* O */
|
|
Packit |
d03632 |
#ifdef Z_ERRNO
|
|
Packit |
d03632 |
*iv_return = Z_ERRNO;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'S':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_TREE", 6)) {
|
|
Packit |
d03632 |
/* S */
|
|
Packit |
d03632 |
#if ZLIB_VERNUM >= 0x1240
|
|
Packit |
d03632 |
*iv_return = Z_TREES;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
return PERL_constant_NOTFOUND;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
static int
|
|
Packit |
d03632 |
constant_9 (pTHX_ const char *name, IV *iv_return) {
|
|
Packit |
d03632 |
/* When generated this function returned values for the list of names given
|
|
Packit |
d03632 |
here. However, subsequent manual editing may have added or removed some.
|
|
Packit |
d03632 |
DEF_WBITS MAX_WBITS Z_UNKNOWN */
|
|
Packit |
d03632 |
/* Offset 2 gives the best switch position. */
|
|
Packit |
d03632 |
switch (name[2]) {
|
|
Packit |
d03632 |
case 'F':
|
|
Packit |
d03632 |
if (memEQ(name, "DEF_WBITS", 9)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef DEF_WBITS
|
|
Packit |
d03632 |
*iv_return = DEF_WBITS;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'U':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_UNKNOWN", 9)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_UNKNOWN
|
|
Packit |
d03632 |
*iv_return = Z_UNKNOWN;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'X':
|
|
Packit |
d03632 |
if (memEQ(name, "MAX_WBITS", 9)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef MAX_WBITS
|
|
Packit |
d03632 |
*iv_return = MAX_WBITS;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
return PERL_constant_NOTFOUND;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
static int
|
|
Packit |
d03632 |
constant_10 (pTHX_ const char *name, IV *iv_return) {
|
|
Packit |
d03632 |
/* When generated this function returned values for the list of names given
|
|
Packit |
d03632 |
here. However, subsequent manual editing may have added or removed some.
|
|
Packit |
d03632 |
Z_DEFLATED Z_FILTERED Z_NO_FLUSH */
|
|
Packit |
d03632 |
/* Offset 7 gives the best switch position. */
|
|
Packit |
d03632 |
switch (name[7]) {
|
|
Packit |
d03632 |
case 'R':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_FILTERED", 10)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_FILTERED
|
|
Packit |
d03632 |
*iv_return = Z_FILTERED;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'T':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_DEFLATED", 10)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_DEFLATED
|
|
Packit |
d03632 |
*iv_return = Z_DEFLATED;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'U':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_NO_FLUSH", 10)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_NO_FLUSH
|
|
Packit |
d03632 |
*iv_return = Z_NO_FLUSH;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
return PERL_constant_NOTFOUND;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
static int
|
|
Packit |
d03632 |
constant_11 (pTHX_ const char *name, IV *iv_return) {
|
|
Packit |
d03632 |
/* When generated this function returned values for the list of names given
|
|
Packit |
d03632 |
here. However, subsequent manual editing may have added or removed some.
|
|
Packit |
d03632 |
Z_BUF_ERROR Z_MEM_ERROR Z_NEED_DICT */
|
|
Packit |
d03632 |
/* Offset 4 gives the best switch position. */
|
|
Packit |
d03632 |
switch (name[4]) {
|
|
Packit |
d03632 |
case 'E':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_NEED_DICT", 11)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_NEED_DICT
|
|
Packit |
d03632 |
*iv_return = Z_NEED_DICT;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'F':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_BUF_ERROR", 11)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_BUF_ERROR
|
|
Packit |
d03632 |
*iv_return = Z_BUF_ERROR;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'M':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_MEM_ERROR", 11)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_MEM_ERROR
|
|
Packit |
d03632 |
*iv_return = Z_MEM_ERROR;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
return PERL_constant_NOTFOUND;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
static int
|
|
Packit |
d03632 |
constant_12 (pTHX_ const char *name, IV *iv_return, const char **pv_return) {
|
|
Packit |
d03632 |
/* When generated this function returned values for the list of names given
|
|
Packit |
d03632 |
here. However, subsequent manual editing may have added or removed some.
|
|
Packit |
d03632 |
ZLIB_VERSION Z_BEST_SPEED Z_DATA_ERROR Z_FULL_FLUSH Z_STREAM_END
|
|
Packit |
d03632 |
Z_SYNC_FLUSH */
|
|
Packit |
d03632 |
/* Offset 4 gives the best switch position. */
|
|
Packit |
d03632 |
switch (name[4]) {
|
|
Packit |
d03632 |
case 'L':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_FULL_FLUSH", 12)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_FULL_FLUSH
|
|
Packit |
d03632 |
*iv_return = Z_FULL_FLUSH;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'N':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_SYNC_FLUSH", 12)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_SYNC_FLUSH
|
|
Packit |
d03632 |
*iv_return = Z_SYNC_FLUSH;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'R':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_STREAM_END", 12)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_STREAM_END
|
|
Packit |
d03632 |
*iv_return = Z_STREAM_END;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'S':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_BEST_SPEED", 12)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_BEST_SPEED
|
|
Packit |
d03632 |
*iv_return = Z_BEST_SPEED;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'T':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_DATA_ERROR", 12)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_DATA_ERROR
|
|
Packit |
d03632 |
*iv_return = Z_DATA_ERROR;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case '_':
|
|
Packit |
d03632 |
if (memEQ(name, "ZLIB_VERSION", 12)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef ZLIB_VERSION
|
|
Packit |
d03632 |
*pv_return = ZLIB_VERSION;
|
|
Packit |
d03632 |
return PERL_constant_ISPV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
return PERL_constant_NOTFOUND;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
static int
|
|
Packit |
d03632 |
constant (pTHX_ const char *name, STRLEN len, IV *iv_return, const char **pv_return) {
|
|
Packit |
d03632 |
/* Initially switch on the length of the name. */
|
|
Packit |
d03632 |
/* When generated this function returned values for the list of names given
|
|
Packit |
d03632 |
in this section of perl code. Rather than manually editing these functions
|
|
Packit |
d03632 |
to add or remove constants, which would result in this comment and section
|
|
Packit |
d03632 |
of code becoming inaccurate, we recommend that you edit this section of
|
|
Packit |
d03632 |
code, and use it to regenerate a new set of constant functions which you
|
|
Packit |
d03632 |
then use to replace the originals.
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
Regenerate these constant functions by feeding this entire source file to
|
|
Packit |
d03632 |
perl -x
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
#!/linux-shared/base/perl/install/bin/perl -w
|
|
Packit |
d03632 |
use ExtUtils::Constant qw (constant_types C_constant XS_constant);
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
my $types = {map {($_, 1)} qw(IV PV)};
|
|
Packit |
d03632 |
my @names = (qw(DEF_WBITS MAX_MEM_LEVEL MAX_WBITS OS_CODE Z_ASCII
|
|
Packit |
d03632 |
Z_BEST_COMPRESSION Z_BEST_SPEED Z_BINARY Z_BLOCK Z_BUF_ERROR
|
|
Packit |
d03632 |
Z_DATA_ERROR Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY Z_DEFLATED
|
|
Packit |
d03632 |
Z_ERRNO Z_FILTERED Z_FINISH Z_FIXED Z_FULL_FLUSH Z_HUFFMAN_ONLY
|
|
Packit |
d03632 |
Z_MEM_ERROR Z_NEED_DICT Z_NO_COMPRESSION Z_NO_FLUSH Z_NULL Z_OK
|
|
Packit |
d03632 |
Z_PARTIAL_FLUSH Z_RLE Z_STREAM_END Z_STREAM_ERROR Z_SYNC_FLUSH
|
|
Packit |
d03632 |
Z_UNKNOWN Z_VERSION_ERROR),
|
|
Packit |
d03632 |
{name=>"ZLIB_VERSION", type=>"PV"},
|
|
Packit |
d03632 |
{name=>"Z_TREES", type=>"IV", macro=>["#if ZLIB_VERNUM >= 0x1240\n", "#endif\n"]});
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
print constant_types(), "\n"; # macro defs
|
|
Packit |
d03632 |
foreach (C_constant ("Zlib", 'constant', 'IV', $types, undef, 3, @names) ) {
|
|
Packit |
d03632 |
print $_, "\n"; # C constant subs
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
print "\n#### XS Section:\n";
|
|
Packit |
d03632 |
print XS_constant ("Zlib", $types);
|
|
Packit |
d03632 |
__END__
|
|
Packit |
d03632 |
*/
|
|
Packit |
d03632 |
|
|
Packit |
d03632 |
switch (len) {
|
|
Packit |
d03632 |
case 4:
|
|
Packit |
d03632 |
if (memEQ(name, "Z_OK", 4)) {
|
|
Packit |
d03632 |
#ifdef Z_OK
|
|
Packit |
d03632 |
*iv_return = Z_OK;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 5:
|
|
Packit |
d03632 |
if (memEQ(name, "Z_RLE", 5)) {
|
|
Packit |
d03632 |
#ifdef Z_RLE
|
|
Packit |
d03632 |
*iv_return = Z_RLE;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 6:
|
|
Packit |
d03632 |
if (memEQ(name, "Z_NULL", 6)) {
|
|
Packit |
d03632 |
#ifdef Z_NULL
|
|
Packit |
d03632 |
*iv_return = Z_NULL;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 7:
|
|
Packit |
d03632 |
return constant_7 (aTHX_ name, iv_return);
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 8:
|
|
Packit |
d03632 |
/* Names all of length 8. */
|
|
Packit |
d03632 |
/* Z_BINARY Z_FINISH */
|
|
Packit |
d03632 |
/* Offset 6 gives the best switch position. */
|
|
Packit |
d03632 |
switch (name[6]) {
|
|
Packit |
d03632 |
case 'R':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_BINARY", 8)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_BINARY
|
|
Packit |
d03632 |
*iv_return = Z_BINARY;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'S':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_FINISH", 8)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_FINISH
|
|
Packit |
d03632 |
*iv_return = Z_FINISH;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 9:
|
|
Packit |
d03632 |
return constant_9 (aTHX_ name, iv_return);
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 10:
|
|
Packit |
d03632 |
return constant_10 (aTHX_ name, iv_return);
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 11:
|
|
Packit |
d03632 |
return constant_11 (aTHX_ name, iv_return);
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 12:
|
|
Packit |
d03632 |
return constant_12 (aTHX_ name, iv_return, pv_return);
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 13:
|
|
Packit |
d03632 |
if (memEQ(name, "MAX_MEM_LEVEL", 13)) {
|
|
Packit |
d03632 |
#ifdef MAX_MEM_LEVEL
|
|
Packit |
d03632 |
*iv_return = MAX_MEM_LEVEL;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 14:
|
|
Packit |
d03632 |
/* Names all of length 14. */
|
|
Packit |
d03632 |
/* Z_HUFFMAN_ONLY Z_STREAM_ERROR */
|
|
Packit |
d03632 |
/* Offset 3 gives the best switch position. */
|
|
Packit |
d03632 |
switch (name[3]) {
|
|
Packit |
d03632 |
case 'T':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_STREAM_ERROR", 14)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_STREAM_ERROR
|
|
Packit |
d03632 |
*iv_return = Z_STREAM_ERROR;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'U':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_HUFFMAN_ONLY", 14)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_HUFFMAN_ONLY
|
|
Packit |
d03632 |
*iv_return = Z_HUFFMAN_ONLY;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 15:
|
|
Packit |
d03632 |
/* Names all of length 15. */
|
|
Packit |
d03632 |
/* Z_PARTIAL_FLUSH Z_VERSION_ERROR */
|
|
Packit |
d03632 |
/* Offset 5 gives the best switch position. */
|
|
Packit |
d03632 |
switch (name[5]) {
|
|
Packit |
d03632 |
case 'S':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_VERSION_ERROR", 15)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_VERSION_ERROR
|
|
Packit |
d03632 |
*iv_return = Z_VERSION_ERROR;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'T':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_PARTIAL_FLUSH", 15)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_PARTIAL_FLUSH
|
|
Packit |
d03632 |
*iv_return = Z_PARTIAL_FLUSH;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 16:
|
|
Packit |
d03632 |
if (memEQ(name, "Z_NO_COMPRESSION", 16)) {
|
|
Packit |
d03632 |
#ifdef Z_NO_COMPRESSION
|
|
Packit |
d03632 |
*iv_return = Z_NO_COMPRESSION;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 18:
|
|
Packit |
d03632 |
/* Names all of length 18. */
|
|
Packit |
d03632 |
/* Z_BEST_COMPRESSION Z_DEFAULT_STRATEGY */
|
|
Packit |
d03632 |
/* Offset 14 gives the best switch position. */
|
|
Packit |
d03632 |
switch (name[14]) {
|
|
Packit |
d03632 |
case 'S':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_BEST_COMPRESSION", 18)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_BEST_COMPRESSION
|
|
Packit |
d03632 |
*iv_return = Z_BEST_COMPRESSION;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 'T':
|
|
Packit |
d03632 |
if (memEQ(name, "Z_DEFAULT_STRATEGY", 18)) {
|
|
Packit |
d03632 |
/* ^ */
|
|
Packit |
d03632 |
#ifdef Z_DEFAULT_STRATEGY
|
|
Packit |
d03632 |
*iv_return = Z_DEFAULT_STRATEGY;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
case 21:
|
|
Packit |
d03632 |
if (memEQ(name, "Z_DEFAULT_COMPRESSION", 21)) {
|
|
Packit |
d03632 |
#ifdef Z_DEFAULT_COMPRESSION
|
|
Packit |
d03632 |
*iv_return = Z_DEFAULT_COMPRESSION;
|
|
Packit |
d03632 |
return PERL_constant_ISIV;
|
|
Packit |
d03632 |
#else
|
|
Packit |
d03632 |
return PERL_constant_NOTDEF;
|
|
Packit |
d03632 |
#endif
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
break;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
return PERL_constant_NOTFOUND;
|
|
Packit |
d03632 |
}
|
|
Packit |
d03632 |
|