[perl5.git] / ext / Compress / Zlib / fallback.h

#define PERL_constant_NOTFOUND	1
#define PERL_constant_NOTDEF	2
#define PERL_constant_ISIV	3
#define PERL_constant_ISNO	4
#define PERL_constant_ISNV	5
#define PERL_constant_ISPV	6
#define PERL_constant_ISPVN	7
#define PERL_constant_ISSV	8
#define PERL_constant_ISUNDEF	9
#define PERL_constant_ISUV	10
#define PERL_constant_ISYES	11

#ifndef NVTYPE
typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it.  */
#endif
#ifndef aTHX_
#define aTHX_ /* 5.6 or later define this for threading support.  */
#endif
#ifndef pTHX_
#define pTHX_ /* 5.6 or later define this for threading support.  */
#endif

static int
constant_7 (pTHX_ const char *name, IV *iv_return) {
  /* When generated this function returned values for the list of names given
     here.  However, subsequent manual editing may have added or removed some.
     OS_CODE Z_ASCII Z_ERRNO */
  /* Offset 5 gives the best switch position.  */
  switch (name[5]) {
  case 'D':
    if (memEQ(name, "OS_CODE", 7)) {
    /*                    ^       */
#ifdef OS_CODE
      *iv_return = OS_CODE;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'I':
    if (memEQ(name, "Z_ASCII", 7)) {
    /*                    ^       */
#ifdef Z_ASCII
      *iv_return = Z_ASCII;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'N':
    if (memEQ(name, "Z_ERRNO", 7)) {
    /*                    ^       */
#ifdef Z_ERRNO
      *iv_return = Z_ERRNO;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_9 (pTHX_ const char *name, IV *iv_return) {
  /* When generated this function returned values for the list of names given
     here.  However, subsequent manual editing may have added or removed some.
     DEF_WBITS MAX_WBITS Z_UNKNOWN */
  /* Offset 2 gives the best switch position.  */
  switch (name[2]) {
  case 'F':
    if (memEQ(name, "DEF_WBITS", 9)) {
    /*                 ^            */
#ifdef DEF_WBITS
      *iv_return = DEF_WBITS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'U':
    if (memEQ(name, "Z_UNKNOWN", 9)) {
    /*                 ^            */
#ifdef Z_UNKNOWN
      *iv_return = Z_UNKNOWN;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'X':
    if (memEQ(name, "MAX_WBITS", 9)) {
    /*                 ^            */
#ifdef MAX_WBITS
      *iv_return = MAX_WBITS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_10 (pTHX_ const char *name, IV *iv_return) {
  /* When generated this function returned values for the list of names given
     here.  However, subsequent manual editing may have added or removed some.
     Z_DEFLATED Z_FILTERED Z_NO_FLUSH */
  /* Offset 7 gives the best switch position.  */
  switch (name[7]) {
  case 'R':
    if (memEQ(name, "Z_FILTERED", 10)) {
    /*                      ^         */
#ifdef Z_FILTERED
      *iv_return = Z_FILTERED;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'T':
    if (memEQ(name, "Z_DEFLATED", 10)) {
    /*                      ^         */
#ifdef Z_DEFLATED
      *iv_return = Z_DEFLATED;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'U':
    if (memEQ(name, "Z_NO_FLUSH", 10)) {
    /*                      ^         */
#ifdef Z_NO_FLUSH
      *iv_return = Z_NO_FLUSH;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_11 (pTHX_ const char *name, IV *iv_return) {
  /* When generated this function returned values for the list of names given
     here.  However, subsequent manual editing may have added or removed some.
     Z_BUF_ERROR Z_MEM_ERROR Z_NEED_DICT */
  /* Offset 4 gives the best switch position.  */
  switch (name[4]) {
  case 'E':
    if (memEQ(name, "Z_NEED_DICT", 11)) {
    /*                   ^             */
#ifdef Z_NEED_DICT
      *iv_return = Z_NEED_DICT;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'F':
    if (memEQ(name, "Z_BUF_ERROR", 11)) {
    /*                   ^             */
#ifdef Z_BUF_ERROR
      *iv_return = Z_BUF_ERROR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'M':
    if (memEQ(name, "Z_MEM_ERROR", 11)) {
    /*                   ^             */
#ifdef Z_MEM_ERROR
      *iv_return = Z_MEM_ERROR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_12 (pTHX_ const char *name, IV *iv_return, const char **pv_return) {
  /* When generated this function returned values for the list of names given
     here.  However, subsequent manual editing may have added or removed some.
     ZLIB_VERSION Z_BEST_SPEED Z_DATA_ERROR Z_FULL_FLUSH Z_STREAM_END
     Z_SYNC_FLUSH */
  /* Offset 4 gives the best switch position.  */
  switch (name[4]) {
  case 'L':
    if (memEQ(name, "Z_FULL_FLUSH", 12)) {
    /*                   ^              */
#ifdef Z_FULL_FLUSH
      *iv_return = Z_FULL_FLUSH;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'N':
    if (memEQ(name, "Z_SYNC_FLUSH", 12)) {
    /*                   ^              */
#ifdef Z_SYNC_FLUSH
      *iv_return = Z_SYNC_FLUSH;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'R':
    if (memEQ(name, "Z_STREAM_END", 12)) {
    /*                   ^              */
#ifdef Z_STREAM_END
      *iv_return = Z_STREAM_END;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'S':
    if (memEQ(name, "Z_BEST_SPEED", 12)) {
    /*                   ^              */
#ifdef Z_BEST_SPEED
      *iv_return = Z_BEST_SPEED;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'T':
    if (memEQ(name, "Z_DATA_ERROR", 12)) {
    /*                   ^              */
#ifdef Z_DATA_ERROR
      *iv_return = Z_DATA_ERROR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case '_':
    if (memEQ(name, "ZLIB_VERSION", 12)) {
    /*                   ^              */
#ifdef ZLIB_VERSION
      *pv_return = ZLIB_VERSION;
      return PERL_constant_ISPV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant (pTHX_ const char *name, STRLEN len, IV *iv_return, const char **pv_return) {
  /* Initially switch on the length of the name.  */
  /* When generated this function returned values for the list of names given
     in this section of perl code.  Rather than manually editing these functions
     to add or remove constants, which would result in this comment and section
     of code becoming inaccurate, we recommend that you edit this section of
     code, and use it to regenerate a new set of constant functions which you
     then use to replace the originals.

     Regenerate these constant functions by feeding this entire source file to
     perl -x

#!/home/paul/perl/install/redhat6.1/bleed/bin/perl5.7.2 -w
use ExtUtils::Constant qw (constant_types C_constant XS_constant);

my $types = {map {($_, 1)} qw(IV PV)};
my @names = (qw(DEF_WBITS MAX_MEM_LEVEL MAX_WBITS OS_CODE Z_ASCII
	       Z_BEST_COMPRESSION Z_BEST_SPEED Z_BINARY Z_BUF_ERROR
	       Z_DATA_ERROR Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY Z_DEFLATED
	       Z_ERRNO Z_FILTERED Z_FINISH Z_FULL_FLUSH Z_HUFFMAN_ONLY
	       Z_MEM_ERROR Z_NEED_DICT Z_NO_COMPRESSION Z_NO_FLUSH Z_NULL Z_OK
	       Z_PARTIAL_FLUSH Z_STREAM_END Z_STREAM_ERROR Z_SYNC_FLUSH
	       Z_UNKNOWN Z_VERSION_ERROR),
            {name=>"ZLIB_VERSION", type=>"PV"});

print constant_types(); # macro defs
foreach (C_constant ("Zlib", 'constant', 'IV', $types, undef, 3, @names) ) {
    print $_, "\n"; # C constant subs
}
print "#### XS Section:\n";
print XS_constant ("Zlib", $types);
__END__
   */

  switch (len) {
  case 4:
    if (memEQ(name, "Z_OK", 4)) {
#ifdef Z_OK
      *iv_return = Z_OK;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 6:
    if (memEQ(name, "Z_NULL", 6)) {
#ifdef Z_NULL
      *iv_return = Z_NULL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 7:
    return constant_7 (aTHX_ name, iv_return);
    break;
  case 8:
    /* Names all of length 8.  */
    /* Z_BINARY Z_FINISH */
    /* Offset 6 gives the best switch position.  */
    switch (name[6]) {
    case 'R':
      if (memEQ(name, "Z_BINARY", 8)) {
      /*                     ^       */
#ifdef Z_BINARY
        *iv_return = Z_BINARY;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'S':
      if (memEQ(name, "Z_FINISH", 8)) {
      /*                     ^       */
#ifdef Z_FINISH
        *iv_return = Z_FINISH;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 9:
    return constant_9 (aTHX_ name, iv_return);
    break;
  case 10:
    return constant_10 (aTHX_ name, iv_return);
    break;
  case 11:
    return constant_11 (aTHX_ name, iv_return);
    break;
  case 12:
    return constant_12 (aTHX_ name, iv_return, pv_return);
    break;
  case 13:
    if (memEQ(name, "MAX_MEM_LEVEL", 13)) {
#ifdef MAX_MEM_LEVEL
      *iv_return = MAX_MEM_LEVEL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 14:
    /* Names all of length 14.  */
    /* Z_HUFFMAN_ONLY Z_STREAM_ERROR */
    /* Offset 3 gives the best switch position.  */
    switch (name[3]) {
    case 'T':
      if (memEQ(name, "Z_STREAM_ERROR", 14)) {
      /*                  ^                 */
#ifdef Z_STREAM_ERROR
        *iv_return = Z_STREAM_ERROR;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'U':
      if (memEQ(name, "Z_HUFFMAN_ONLY", 14)) {
      /*                  ^                 */
#ifdef Z_HUFFMAN_ONLY
        *iv_return = Z_HUFFMAN_ONLY;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 15:
    /* Names all of length 15.  */
    /* Z_PARTIAL_FLUSH Z_VERSION_ERROR */
    /* Offset 5 gives the best switch position.  */
    switch (name[5]) {
    case 'S':
      if (memEQ(name, "Z_VERSION_ERROR", 15)) {
      /*                    ^                */
#ifdef Z_VERSION_ERROR
        *iv_return = Z_VERSION_ERROR;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'T':
      if (memEQ(name, "Z_PARTIAL_FLUSH", 15)) {
      /*                    ^                */
#ifdef Z_PARTIAL_FLUSH
        *iv_return = Z_PARTIAL_FLUSH;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 16:
    if (memEQ(name, "Z_NO_COMPRESSION", 16)) {
#ifdef Z_NO_COMPRESSION
      *iv_return = Z_NO_COMPRESSION;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 18:
    /* Names all of length 18.  */
    /* Z_BEST_COMPRESSION Z_DEFAULT_STRATEGY */
    /* Offset 14 gives the best switch position.  */
    switch (name[14]) {
    case 'S':
      if (memEQ(name, "Z_BEST_COMPRESSION", 18)) {
      /*                             ^          */
#ifdef Z_BEST_COMPRESSION
        *iv_return = Z_BEST_COMPRESSION;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'T':
      if (memEQ(name, "Z_DEFAULT_STRATEGY", 18)) {
      /*                             ^          */
#ifdef Z_DEFAULT_STRATEGY
        *iv_return = Z_DEFAULT_STRATEGY;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 21:
    if (memEQ(name, "Z_DEFAULT_COMPRESSION", 21)) {
#ifdef Z_DEFAULT_COMPRESSION
      *iv_return = Z_DEFAULT_COMPRESSION;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}
Commit	Line	Data
f4c6fd49 RGS	1	#define PERL_constant_NOTFOUND 1
	2	#define PERL_constant_NOTDEF 2
	3	#define PERL_constant_ISIV 3
	4	#define PERL_constant_ISNO 4
	5	#define PERL_constant_ISNV 5
	6	#define PERL_constant_ISPV 6
	7	#define PERL_constant_ISPVN 7
	8	#define PERL_constant_ISSV 8
	9	#define PERL_constant_ISUNDEF 9
	10	#define PERL_constant_ISUV 10
	11	#define PERL_constant_ISYES 11
	12
	13	#ifndef NVTYPE
	14	typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */
	15	#endif
	16	#ifndef aTHX_
	17	#define aTHX_ /* 5.6 or later define this for threading support. */
	18	#endif
	19	#ifndef pTHX_
	20	#define pTHX_ /* 5.6 or later define this for threading support. */
	21	#endif
	22
	23	static int
	24	constant_7 (pTHX_ const char name, IV iv_return) {
	25	/* When generated this function returned values for the list of names given
	26	here. However, subsequent manual editing may have added or removed some.
	27	OS_CODE Z_ASCII Z_ERRNO */
	28	/* Offset 5 gives the best switch position. */
	29	switch (name[5]) {
	30	case 'D':
	31	if (memEQ(name, "OS_CODE", 7)) {
	32	/* ^ */
	33	#ifdef OS_CODE
	34	*iv_return = OS_CODE;
	35	return PERL_constant_ISIV;
	36	#else
	37	return PERL_constant_NOTDEF;
	38	#endif
	39	}
	40	break;
	41	case 'I':
	42	if (memEQ(name, "Z_ASCII", 7)) {
	43	/* ^ */
	44	#ifdef Z_ASCII
	45	*iv_return = Z_ASCII;
	46	return PERL_constant_ISIV;
	47	#else
	48	return PERL_constant_NOTDEF;
	49	#endif
	50	}
	51	break;
	52	case 'N':
	53	if (memEQ(name, "Z_ERRNO", 7)) {
	54	/* ^ */
	55	#ifdef Z_ERRNO
	56	*iv_return = Z_ERRNO;
	57	return PERL_constant_ISIV;
	58	#else
	59	return PERL_constant_NOTDEF;
	60	#endif
	61	}
	62	break;
	63	}
	64	return PERL_constant_NOTFOUND;
65	}
66
67	static int
68	constant_9 (pTHX_ const char name, IV iv_return) {
69	/* When generated this function returned values for the list of names given
70	here. However, subsequent manual editing may have added or removed some.
71	DEF_WBITS MAX_WBITS Z_UNKNOWN */
72	/* Offset 2 gives the best switch position. */
73	switch (name[2]) {
74	case 'F':
75	if (memEQ(name, "DEF_WBITS", 9)) {
76	/* ^ */
77	#ifdef DEF_WBITS
78	*iv_return = DEF_WBITS;
79	return PERL_constant_ISIV;
80	#else
81	return PERL_constant_NOTDEF;
82	#endif
83	}
84	break;
85	case 'U':
86	if (memEQ(name, "Z_UNKNOWN", 9)) {
87	/* ^ */
88	#ifdef Z_UNKNOWN
89	*iv_return = Z_UNKNOWN;
90	return PERL_constant_ISIV;
91	#else
92	return PERL_constant_NOTDEF;
93	#endif
94	}
95	break;
96	case 'X':
97	if (memEQ(name, "MAX_WBITS", 9)) {
98	/* ^ */
99	#ifdef MAX_WBITS
100	*iv_return = MAX_WBITS;
101	return PERL_constant_ISIV;
102	#else
103	return PERL_constant_NOTDEF;
104	#endif
105	}
106	break;
107	}
108	return PERL_constant_NOTFOUND;
109	}
110
111	static int
112	constant_10 (pTHX_ const char name, IV iv_return) {
113	/* When generated this function returned values for the list of names given
114	here. However, subsequent manual editing may have added or removed some.
115	Z_DEFLATED Z_FILTERED Z_NO_FLUSH */
116	/* Offset 7 gives the best switch position. */
117	switch (name[7]) {
118	case 'R':
119	if (memEQ(name, "Z_FILTERED", 10)) {
120	/* ^ */
121	#ifdef Z_FILTERED
122	*iv_return = Z_FILTERED;
123	return PERL_constant_ISIV;
124	#else
125	return PERL_constant_NOTDEF;
126	#endif
127	}
128	break;
129	case 'T':
130	if (memEQ(name, "Z_DEFLATED", 10)) {
131	/* ^ */
132	#ifdef Z_DEFLATED
133	*iv_return = Z_DEFLATED;
134	return PERL_constant_ISIV;
135	#else
136	return PERL_constant_NOTDEF;
137	#endif
138	}
139	break;
140	case 'U':
141	if (memEQ(name, "Z_NO_FLUSH", 10)) {
142	/* ^ */
143	#ifdef Z_NO_FLUSH
144	*iv_return = Z_NO_FLUSH;
145	return PERL_constant_ISIV;
146	#else
147	return PERL_constant_NOTDEF;
148	#endif
149	}
150	break;
151	}
152	return PERL_constant_NOTFOUND;
153	}
154
155	static int
156	constant_11 (pTHX_ const char name, IV iv_return) {
157	/* When generated this function returned values for the list of names given
158	here. However, subsequent manual editing may have added or removed some.
159	Z_BUF_ERROR Z_MEM_ERROR Z_NEED_DICT */
160	/* Offset 4 gives the best switch position. */
161	switch (name[4]) {
162	case 'E':
163	if (memEQ(name, "Z_NEED_DICT", 11)) {
164	/* ^ */
165	#ifdef Z_NEED_DICT
166	*iv_return = Z_NEED_DICT;
167	return PERL_constant_ISIV;
168	#else
169	return PERL_constant_NOTDEF;
170	#endif
171	}
172	break;
173	case 'F':
174	if (memEQ(name, "Z_BUF_ERROR", 11)) {
175	/* ^ */
176	#ifdef Z_BUF_ERROR
177	*iv_return = Z_BUF_ERROR;
178	return PERL_constant_ISIV;
179	#else
180	return PERL_constant_NOTDEF;
181	#endif
182	}
183	break;
184	case 'M':
185	if (memEQ(name, "Z_MEM_ERROR", 11)) {
186	/* ^ */
187	#ifdef Z_MEM_ERROR
188	*iv_return = Z_MEM_ERROR;
189	return PERL_constant_ISIV;
190	#else
191	return PERL_constant_NOTDEF;
192	#endif
193	}
194	break;
195	}
196	return PERL_constant_NOTFOUND;
197	}
198
199	static int
200	constant_12 (pTHX_ const char name, IV iv_return, const char **pv_return) {
201	/* When generated this function returned values for the list of names given
202	here. However, subsequent manual editing may have added or removed some.
203	ZLIB_VERSION Z_BEST_SPEED Z_DATA_ERROR Z_FULL_FLUSH Z_STREAM_END
204	Z_SYNC_FLUSH */
205	/* Offset 4 gives the best switch position. */
206	switch (name[4]) {
207	case 'L':
208	if (memEQ(name, "Z_FULL_FLUSH", 12)) {
209	/* ^ */
210	#ifdef Z_FULL_FLUSH
211	*iv_return = Z_FULL_FLUSH;
212	return PERL_constant_ISIV;
213	#else
214	return PERL_constant_NOTDEF;
215	#endif
216	}
217	break;
218	case 'N':
219	if (memEQ(name, "Z_SYNC_FLUSH", 12)) {
220	/* ^ */
221	#ifdef Z_SYNC_FLUSH
222	*iv_return = Z_SYNC_FLUSH;
223	return PERL_constant_ISIV;
224	#else
225	return PERL_constant_NOTDEF;
226	#endif
227	}
228	break;
229	case 'R':
230	if (memEQ(name, "Z_STREAM_END", 12)) {
231	/* ^ */
232	#ifdef Z_STREAM_END
233	*iv_return = Z_STREAM_END;
234	return PERL_constant_ISIV;
235	#else
236	return PERL_constant_NOTDEF;
237	#endif
238	}
239	break;
240	case 'S':
241	if (memEQ(name, "Z_BEST_SPEED", 12)) {
242	/* ^ */
243	#ifdef Z_BEST_SPEED
244	*iv_return = Z_BEST_SPEED;
245	return PERL_constant_ISIV;
246	#else
247	return PERL_constant_NOTDEF;
248	#endif
249	}
250	break;
251	case 'T':
252	if (memEQ(name, "Z_DATA_ERROR", 12)) {
253	/* ^ */
254	#ifdef Z_DATA_ERROR
255	*iv_return = Z_DATA_ERROR;
256	return PERL_constant_ISIV;
257	#else
258	return PERL_constant_NOTDEF;
259	#endif
260	}
261	break;
262	case '_':
263	if (memEQ(name, "ZLIB_VERSION", 12)) {
264	/* ^ */
265	#ifdef ZLIB_VERSION
266	*pv_return = ZLIB_VERSION;
267	return PERL_constant_ISPV;
268	#else
269	return PERL_constant_NOTDEF;
270	#endif
271	}
272	break;
273	}
274	return PERL_constant_NOTFOUND;
275	}
276
277	static int
278	constant (pTHX_ const char name, STRLEN len, IV iv_return, const char **pv_return) {
279	/* Initially switch on the length of the name. */
280	/* When generated this function returned values for the list of names given
281	in this section of perl code. Rather than manually editing these functions
282	to add or remove constants, which would result in this comment and section
283	of code becoming inaccurate, we recommend that you edit this section of
284	code, and use it to regenerate a new set of constant functions which you
285	then use to replace the originals.
286
287	Regenerate these constant functions by feeding this entire source file to
288	perl -x
289
290	#!/home/paul/perl/install/redhat6.1/bleed/bin/perl5.7.2 -w
291	use ExtUtils::Constant qw (constant_types C_constant XS_constant);
292
293	my $types = {map {($_, 1)} qw(IV PV)};
294	my @names = (qw(DEF_WBITS MAX_MEM_LEVEL MAX_WBITS OS_CODE Z_ASCII
295	Z_BEST_COMPRESSION Z_BEST_SPEED Z_BINARY Z_BUF_ERROR
296	Z_DATA_ERROR Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY Z_DEFLATED
297	Z_ERRNO Z_FILTERED Z_FINISH Z_FULL_FLUSH Z_HUFFMAN_ONLY
298	Z_MEM_ERROR Z_NEED_DICT Z_NO_COMPRESSION Z_NO_FLUSH Z_NULL Z_OK
299	Z_PARTIAL_FLUSH Z_STREAM_END Z_STREAM_ERROR Z_SYNC_FLUSH
300	Z_UNKNOWN Z_VERSION_ERROR),
301	{name=>"ZLIB_VERSION", type=>"PV"});
302
303	print constant_types(); # macro defs
304	foreach (C_constant ("Zlib", 'constant', 'IV', $types, undef, 3, @names) ) {
305	print $_, "\n"; # C constant subs
306	}
307	print "#### XS Section:\n";
308	print XS_constant ("Zlib", $types);
309	__END__
310	*/
311
312	switch (len) {
313	case 4:
314	if (memEQ(name, "Z_OK", 4)) {
315	#ifdef Z_OK
316	*iv_return = Z_OK;
317	return PERL_constant_ISIV;
318	#else
319	return PERL_constant_NOTDEF;
320	#endif
321	}
322	break;
323	case 6:
324	if (memEQ(name, "Z_NULL", 6)) {
325	#ifdef Z_NULL
326	*iv_return = Z_NULL;
327	return PERL_constant_ISIV;
328	#else
329	return PERL_constant_NOTDEF;
330	#endif
331	}
332	break;
333	case 7:
334	return constant_7 (aTHX_ name, iv_return);
335	break;
336	case 8:
337	/* Names all of length 8. */
338	/* Z_BINARY Z_FINISH */
339	/* Offset 6 gives the best switch position. */
340	switch (name[6]) {
341	case 'R':
342	if (memEQ(name, "Z_BINARY", 8)) {
343	/* ^ */
344	#ifdef Z_BINARY
345	*iv_return = Z_BINARY;
346	return PERL_constant_ISIV;
347	#else
348	return PERL_constant_NOTDEF;
349	#endif
350	}
351	break;
352	case 'S':
353	if (memEQ(name, "Z_FINISH", 8)) {
354	/* ^ */
355	#ifdef Z_FINISH
356	*iv_return = Z_FINISH;
357	return PERL_constant_ISIV;
358	#else
359	return PERL_constant_NOTDEF;
360	#endif
361	}
362	break;
363	}
364	break;
365	case 9:
366	return constant_9 (aTHX_ name, iv_return);
367	break;
368	case 10:
369	return constant_10 (aTHX_ name, iv_return);
370	break;
371	case 11:
372	return constant_11 (aTHX_ name, iv_return);
373	break;
374	case 12:
375	return constant_12 (aTHX_ name, iv_return, pv_return);
376	break;
377	case 13:
378	if (memEQ(name, "MAX_MEM_LEVEL", 13)) {
379	#ifdef MAX_MEM_LEVEL
380	*iv_return = MAX_MEM_LEVEL;
381	return PERL_constant_ISIV;
382	#else
383	return PERL_constant_NOTDEF;
384	#endif
385	}
386	break;
387	case 14:
388	/* Names all of length 14. */
389	/* Z_HUFFMAN_ONLY Z_STREAM_ERROR */
390	/* Offset 3 gives the best switch position. */
391	switch (name[3]) {
392	case 'T':
393	if (memEQ(name, "Z_STREAM_ERROR", 14)) {
394	/* ^ */
395	#ifdef Z_STREAM_ERROR
396	*iv_return = Z_STREAM_ERROR;
397	return PERL_constant_ISIV;
398	#else
399	return PERL_constant_NOTDEF;
400	#endif
401	}
402	break;
403	case 'U':
404	if (memEQ(name, "Z_HUFFMAN_ONLY", 14)) {
405	/* ^ */
406	#ifdef Z_HUFFMAN_ONLY
407	*iv_return = Z_HUFFMAN_ONLY;
408	return PERL_constant_ISIV;
409	#else
410	return PERL_constant_NOTDEF;
411	#endif
412	}
413	break;
414	}
415	break;
416	case 15:
417	/* Names all of length 15. */
418	/* Z_PARTIAL_FLUSH Z_VERSION_ERROR */
419	/* Offset 5 gives the best switch position. */
420	switch (name[5]) {
421	case 'S':
422	if (memEQ(name, "Z_VERSION_ERROR", 15)) {
423	/* ^ */
424	#ifdef Z_VERSION_ERROR
425	*iv_return = Z_VERSION_ERROR;
426	return PERL_constant_ISIV;
427	#else
428	return PERL_constant_NOTDEF;
429	#endif
430	}
431	break;
432	case 'T':
433	if (memEQ(name, "Z_PARTIAL_FLUSH", 15)) {
434	/* ^ */
435	#ifdef Z_PARTIAL_FLUSH
436	*iv_return = Z_PARTIAL_FLUSH;
437	return PERL_constant_ISIV;
438	#else
439	return PERL_constant_NOTDEF;
440	#endif
441	}
442	break;
443	}
444	break;
445	case 16:
446	if (memEQ(name, "Z_NO_COMPRESSION", 16)) {
447	#ifdef Z_NO_COMPRESSION
448	*iv_return = Z_NO_COMPRESSION;
449	return PERL_constant_ISIV;
450	#else
451	return PERL_constant_NOTDEF;
452	#endif
453	}
454	break;
455	case 18:
456	/* Names all of length 18. */
457	/* Z_BEST_COMPRESSION Z_DEFAULT_STRATEGY */
458	/* Offset 14 gives the best switch position. */
459	switch (name[14]) {
460	case 'S':
461	if (memEQ(name, "Z_BEST_COMPRESSION", 18)) {
462	/* ^ */
463	#ifdef Z_BEST_COMPRESSION
464	*iv_return = Z_BEST_COMPRESSION;
465	return PERL_constant_ISIV;
466	#else
467	return PERL_constant_NOTDEF;
468	#endif
469	}
470	break;
471	case 'T':
472	if (memEQ(name, "Z_DEFAULT_STRATEGY", 18)) {
473	/* ^ */
474	#ifdef Z_DEFAULT_STRATEGY
475	*iv_return = Z_DEFAULT_STRATEGY;
476	return PERL_constant_ISIV;
477	#else
478	return PERL_constant_NOTDEF;
479	#endif
480	}
481	break;
482	}
483	break;
484	case 21:
485	if (memEQ(name, "Z_DEFAULT_COMPRESSION", 21)) {
486	#ifdef Z_DEFAULT_COMPRESSION
487	*iv_return = Z_DEFAULT_COMPRESSION;
488	return PERL_constant_ISIV;
489	#else
490	return PERL_constant_NOTDEF;
491	#endif
492	}
493	break;
494	}
495	return PERL_constant_NOTFOUND;
496	}
497