File Coverage

const-c.inc

Criterion	Covered	Total	%
statement	21	225	9.3
branch	4	80	5.0
condition			n/a
subroutine			n/a
pod			n/a
total	25	305	8.2

#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.
     OASHIFT OA_LIST OA_LOOP OA_MARK OA_PMOP OA_SVOP OA_UNOP OCSHIFT */
  /* Offset 3 gives the best switch position.  */
  switch (name[3]) {
  case 'H':
    if (memEQ(name, "OASHIFT", 7)) {
    /*                  ^         */
#ifdef OASHIFT
      *iv_return = OASHIFT;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "OCSHIFT", 7)) {
    /*                  ^         */
#ifdef OCSHIFT
      *iv_return = OCSHIFT;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'L':
    if (memEQ(name, "OA_LIST", 7)) {
    /*                  ^         */
#ifdef OA_LIST
      *iv_return = OA_LIST;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "OA_LOOP", 7)) {
    /*                  ^         */
#ifdef OA_LOOP
      *iv_return = OA_LOOP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'M':
    if (memEQ(name, "OA_MARK", 7)) {
    /*                  ^         */
#ifdef OA_MARK
      *iv_return = OA_MARK;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'P':
    if (memEQ(name, "OA_PMOP", 7)) {
    /*                  ^         */
#ifdef OA_PMOP
      *iv_return = OA_PMOP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'S':
    if (memEQ(name, "OA_SVOP", 7)) {
    /*                  ^         */
#ifdef OA_SVOP
      *iv_return = OA_SVOP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'U':
    if (memEQ(name, "OA_UNOP", 7)) {
    /*                  ^         */
#ifdef OA_UNOP
      *iv_return = OA_UNOP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_8 (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.
     OA_AVREF OA_BINOP OA_CVREF OA_DEFGV OA_HVREF OA_LOGOP OA_PADOP */
  /* Offset 3 gives the best switch position.  */
  switch (name[3]) {
  case 'A':
    if (memEQ(name, "OA_AVREF", 8)) {
    /*                  ^          */
#ifdef OA_AVREF
      *iv_return = OA_AVREF;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'B':
    if (memEQ(name, "OA_BINOP", 8)) {
    /*                  ^          */
#ifdef OA_BINOP
      *iv_return = OA_BINOP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'C':
    if (memEQ(name, "OA_CVREF", 8)) {
    /*                  ^          */
#ifdef OA_CVREF
      *iv_return = OA_CVREF;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'D':
    if (memEQ(name, "OA_DEFGV", 8)) {
    /*                  ^          */
#ifdef OA_DEFGV
      *iv_return = OA_DEFGV;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'H':
    if (memEQ(name, "OA_HVREF", 8)) {
    /*                  ^          */
#ifdef OA_HVREF
      *iv_return = OA_HVREF;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'L':
    if (memEQ(name, "OA_LOGOP", 8)) {
    /*                  ^          */
#ifdef OA_LOGOP
      *iv_return = OA_LOGOP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'P':
    if (memEQ(name, "OA_PADOP", 8)) {
    /*                  ^          */
#ifdef OA_PADOP
      *iv_return = OA_PADOP;
      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.
     OA_BASEOP OA_LISTOP OA_SCALAR OA_TARGET */
  /* Offset 6 gives the best switch position.  */
  switch (name[6]) {
  case 'E':
    if (memEQ(name, "OA_BASEOP", 9)) {
    /*                     ^        */
#ifdef OA_BASEOP
      *iv_return = OA_BASEOP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'G':
    if (memEQ(name, "OA_TARGET", 9)) {
    /*                     ^        */
#ifdef OA_TARGET
      *iv_return = OA_TARGET;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'L':
    if (memEQ(name, "OA_SCALAR", 9)) {
    /*                     ^        */
#ifdef OA_SCALAR
      *iv_return = OA_SCALAR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'T':
    if (memEQ(name, "OA_LISTOP", 9)) {
    /*                     ^        */
#ifdef OA_LISTOP
      *iv_return = OA_LISTOP;
      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.
     OA_FILEREF OA_MAYVOID OA_NOSTACK OA_TARGLEX */
  /* Offset 5 gives the best switch position.  */
  switch (name[5]) {
  case 'L':
    if (memEQ(name, "OA_FILEREF", 10)) {
    /*                    ^           */
#ifdef OA_FILEREF
      *iv_return = OA_FILEREF;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'R':
    if (memEQ(name, "OA_TARGLEX", 10)) {
    /*                    ^           */
#ifdef OA_TARGLEX
      *iv_return = OA_TARGLEX;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'S':
    if (memEQ(name, "OA_NOSTACK", 10)) {
    /*                    ^           */
#ifdef OA_NOSTACK
      *iv_return = OA_NOSTACK;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'Y':
    if (memEQ(name, "OA_MAYVOID", 10)) {
    /*                    ^           */
#ifdef OA_MAYVOID
      *iv_return = OA_MAYVOID;
      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.
     OA_LOOPEXOP OA_MAYARRAY OA_OPTIONAL OA_OTHERINT OA_RETFIXED */
  /* Offset 6 gives the best switch position.  */
  switch (name[6]) {
  case 'A':
    if (memEQ(name, "OA_MAYARRAY", 11)) {
    /*                     ^           */
#ifdef OA_MAYARRAY
      *iv_return = OA_MAYARRAY;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'E':
    if (memEQ(name, "OA_OTHERINT", 11)) {
    /*                     ^           */
#ifdef OA_OTHERINT
      *iv_return = OA_OTHERINT;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'F':
    if (memEQ(name, "OA_RETFIXED", 11)) {
    /*                     ^           */
#ifdef OA_RETFIXED
      *iv_return = OA_RETFIXED;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'I':
    if (memEQ(name, "OA_OPTIONAL", 11)) {
    /*                     ^           */
#ifdef OA_OPTIONAL
      *iv_return = OA_OPTIONAL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'P':
    if (memEQ(name, "OA_LOOPEXOP", 11)) {
    /*                     ^           */
#ifdef OA_LOOPEXOP
      *iv_return = OA_LOOPEXOP;
      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) {
  /* When generated this function returned values for the list of names given
     here.  However, subsequent manual editing may have added or removed some.
     OA_DANGEROUS OA_FOLDCONST OA_MAYBRANCH OA_MAYSCALAR OA_RETSCALAR
     OA_SCALARREF */
  /* Offset 11 gives the best switch position.  */
  switch (name[11]) {
  case 'F':
    if (memEQ(name, "OA_SCALARRE", 11)) {
    /*                          F      */
#ifdef OA_SCALARREF
      *iv_return = OA_SCALARREF;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'H':
    if (memEQ(name, "OA_MAYBRANC", 11)) {
    /*                          H      */
#ifdef OA_MAYBRANCH
      *iv_return = OA_MAYBRANCH;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'R':
    if (memEQ(name, "OA_MAYSCALA", 11)) {
    /*                          R      */
#ifdef OA_MAYSCALAR
      *iv_return = OA_MAYSCALAR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "OA_RETSCALA", 11)) {
    /*                          R      */
#ifdef OA_RETSCALAR
      *iv_return = OA_RETSCALAR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'S':
    if (memEQ(name, "OA_DANGEROU", 11)) {
    /*                          S      */
#ifdef OA_DANGEROUS
      *iv_return = OA_DANGEROUS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'T':
    if (memEQ(name, "OA_FOLDCONS", 11)) {
    /*                          T      */
#ifdef OA_FOLDCONST
      *iv_return = OA_FOLDCONST;
      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
     here.  However, subsequent manual editing may have added or removed some.
     OA_CLASS_MASK OA_FILESTATOP OA_RETINTEGER */
  /* Offset 12 gives the best switch position.  */
  switch (name[12]) {
  case 'K':
    if (memEQ(name, "OA_CLASS_MAS", 12)) {
    /*                           K      */
#ifdef OA_CLASS_MASK
      *iv_return = OA_CLASS_MASK;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'P':
    if (memEQ(name, "OA_FILESTATO", 12)) {
    /*                           P      */
#ifdef OA_FILESTATOP
      *iv_return = OA_FILESTATOP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'R':
    if (memEQ(name, "OA_RETINTEGE", 12)) {
    /*                           R      */
#ifdef OA_RETINTEGER
      *iv_return = OA_RETINTEGER;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant (pTHX_ const char *name, STRLEN len, IV *iv_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

#!/usr/local/bin/perl -w
use ExtUtils::Constant qw (constant_types C_constant XS_constant);

my $types = {map {($_, 1)} qw(IV)};
my @names = (qw(OASHIFT OA_AVREF OA_BASEOP OA_BASEOP_OR_UNOP OA_BINOP
	       OA_CLASS_MASK OA_COP OA_CVREF OA_DANGEROUS OA_DEFGV OA_FILEREF
	       OA_FILESTATOP OA_FOLDCONST OA_HVREF OA_LIST OA_LISTOP OA_LOGOP
	       OA_LOOP OA_LOOPEXOP OA_MARK OA_MAYARRAY OA_MAYBRANCH
	       OA_MAYSCALAR OA_MAYVOID OA_NOSTACK OA_OPTIONAL OA_OTHERINT
	       OA_PADOP OA_PMOP OA_PVOP_OR_SVOP OA_RETFIXED OA_RETINTEGER
	       OA_RETSCALAR OA_SCALAR OA_SCALARREF OA_SVOP OA_TARGET OA_TARGLEX
	       OA_UNOP OCSHIFT));

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