view release on metacpan or  search on metacpan

fallback/const-c.inc  view on Meta::CPAN

#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_12 (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.
     BASS_TAG_ICY BASS_TAG_ID3 BASS_TAG_OGG BASS_UNICODE */
  /* Offset 11 gives the best switch position.  */
  switch (name[11]) {
  case '3':
    if (memEQ(name, "BASS_TAG_ID", 11)) {
    /*                          3      */
#ifdef BASS_TAG_ID3
      *iv_return = BASS_TAG_ID3;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'E':
    if (memEQ(name, "BASS_UNICOD", 11)) {
    /*                          E      */
#ifdef BASS_UNICODE
      *iv_return = BASS_UNICODE;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'G':
    if (memEQ(name, "BASS_TAG_OG", 11)) {
    /*                          G      */
#ifdef BASS_TAG_OGG
      *iv_return = BASS_TAG_OGG;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'Y':
    if (memEQ(name, "BASS_TAG_IC", 11)) {
    /*                          Y      */
#ifdef BASS_TAG_ICY
      *iv_return = BASS_TAG_ICY;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_13 (pTHX_ const char *name, IV *iv_return) {
  /* When generated this function returned values for the list of names given