Algorithm-CP-IZ
view release on metacpan or search on metacpan
fallback/const-c.inc view on Meta::CPAN
#endif
#ifndef pTHX_
#define pTHX_ /* 5.6 or later define this for threading support. */
#endif
static int
constant_16 (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.
CS_ERR_NO_MEMORY IZ_VERSION_MAJOR IZ_VERSION_MINOR IZ_VERSION_PATCH */
/* Offset 13 gives the best switch position. */
switch (name[13]) {
case 'J':
if (memEQ(name, "IZ_VERSION_MAJOR", 16)) {
/* ^ */
#ifdef IZ_VERSION_MAJOR
*iv_return = IZ_VERSION_MAJOR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
fallback/const-c.inc view on Meta::CPAN
*iv_return = CS_ERR_NONE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 15:
/* Names all of length 15. */
/* CS_ERR_GETVALUE CS_ERR_OVERFLOW */
/* Offset 10 gives the best switch position. */
switch (name[10]) {
case 'R':
if (memEQ(name, "CS_ERR_OVERFLOW", 15)) {
/* ^ */
#ifdef CS_ERR_OVERFLOW
*iv_return = CS_ERR_OVERFLOW;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
#ifndef UV_MAX
# define UV_MAX PERL_ULONG_MAX
#endif
#endif
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
#ifndef sv_setuv
#endif
#ifndef PERL_MAGIC_backref
# define PERL_MAGIC_backref '<'
#endif
#ifndef PERL_MAGIC_ext
# define PERL_MAGIC_ext '~'
#endif
/* That's the best we can do... */
#ifndef sv_catpvn_nomg
# define sv_catpvn_nomg sv_catpvn
#endif
#ifndef sv_catsv_nomg
# define sv_catsv_nomg sv_catsv
#endif
#ifndef sv_setsv_nomg
# define sv_setsv_nomg sv_setsv
( run in 0.388 second using v1.01-cache-2.11-cpan-4e96b696675 )