[p5sagit/p5-mst-13.2.git] / ext / Time / HiRes / fallback / const-c.inc

#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_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.
     ITIMER_PROF ITIMER_REAL d_getitimer d_nanosleep d_setitimer */
  /* Offset 7 gives the best switch position.  */
  switch (name[7]) {
  case 'P':
    if (memEQ(name, "ITIMER_PROF", 11)) {
    /*                      ^          */
#ifdef ITIMER_PROF
      *iv_return = ITIMER_PROF;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'R':
    if (memEQ(name, "ITIMER_REAL", 11)) {
    /*                      ^          */
#ifdef ITIMER_REAL
      *iv_return = ITIMER_REAL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'i':
    if (memEQ(name, "d_getitimer", 11)) {
    /*                      ^          */
#ifdef HAS_GETITIMER
      *iv_return = 1;
      return PERL_constant_ISIV;
#else
      *iv_return = 0;
      return PERL_constant_ISIV;
#endif
    }
    if (memEQ(name, "d_setitimer", 11)) {
    /*                      ^          */
#ifdef HAS_SETITIMER
      *iv_return = 1;
      return PERL_constant_ISIV;
#else
      *iv_return = 0;
      return PERL_constant_ISIV;
#endif
    }
    break;
  case 'l':
    if (memEQ(name, "d_nanosleep", 11)) {
    /*                      ^          */
#ifdef TIME_HIRES_NANOSLEEP
      *iv_return = 1;
      return PERL_constant_ISIV;
#else
      *iv_return = 0;
      return PERL_constant_ISIV;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_14 (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.
     CLOCK_REALTIME ITIMER_VIRTUAL d_clock_getres d_gettimeofday */
  /* Offset 6 gives the best switch position.  */
  switch (name[6]) {
  case 'R':
    if (memEQ(name, "CLOCK_REALTIME", 14)) {
    /*                     ^              */
#ifdef CLOCK_REALTIME
      *iv_return = CLOCK_REALTIME;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case '_':
    if (memEQ(name, "ITIMER_VIRTUAL", 14)) {
    /*                     ^              */
#ifdef ITIMER_VIRTUAL
      *iv_return = ITIMER_VIRTUAL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'i':
    if (memEQ(name, "d_gettimeofday", 14)) {
    /*                     ^              */
#ifdef HAS_GETTIMEOFDAY
      *iv_return = 1;
      return PERL_constant_ISIV;
#else
      *iv_return = 0;
      return PERL_constant_ISIV;
#endif
    }
    break;
  case 'k':
    if (memEQ(name, "d_clock_getres", 14)) {
    /*                     ^              */
#ifdef TIME_HIRES_CLOCK_GETRES
      *iv_return = 1;
      return PERL_constant_ISIV;
#else
      *iv_return = 0;
      return PERL_constant_ISIV;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_15 (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.
     CLOCK_MONOTONIC CLOCK_TIMEOFDAY ITIMER_REALPROF d_clock_gettime */
  /* Offset 7 gives the best switch position.  */
  switch (name[7]) {
  case 'I':
    if (memEQ(name, "CLOCK_TIMEOFDAY", 15)) {
    /*                      ^              */
#ifdef CLOCK_TIMEOFDAY
      *iv_return = CLOCK_TIMEOFDAY;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'O':
    if (memEQ(name, "CLOCK_MONOTONIC", 15)) {
    /*                      ^              */
#ifdef CLOCK_MONOTONIC
      *iv_return = CLOCK_MONOTONIC;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'R':
    if (memEQ(name, "ITIMER_REALPROF", 15)) {
    /*                      ^              */
#ifdef ITIMER_REALPROF
      *iv_return = ITIMER_REALPROF;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case '_':
    if (memEQ(name, "d_clock_gettime", 15)) {
    /*                      ^              */
#ifdef TIME_HIRES_CLOCK_GETTIME
      *iv_return = 1;
      return PERL_constant_ISIV;
#else
      *iv_return = 0;
      return PERL_constant_ISIV;
#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

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

my $types = {map {($_, 1)} qw(IV)};
my @names = (qw(CLOCK_HIGHRES CLOCK_MONOTONIC CLOCK_PROCESS_CPUTIME_ID
	       CLOCK_REALTIME CLOCK_THREAD_CPUTIME_ID CLOCK_TIMEOFDAY
	       ITIMER_PROF ITIMER_REAL ITIMER_REALPROF ITIMER_VIRTUAL),
            {name=>"d_clock_getres", type=>"IV", macro=>"TIME_HIRES_CLOCK_GETRES", value=>"1", default=>["IV", "0"]},
            {name=>"d_clock_gettime", type=>"IV", macro=>"TIME_HIRES_CLOCK_GETTIME", value=>"1", default=>["IV", "0"]},
            {name=>"d_getitimer", type=>"IV", macro=>"HAS_GETITIMER", value=>"1", default=>["IV", "0"]},
            {name=>"d_gettimeofday", type=>"IV", macro=>"HAS_GETTIMEOFDAY", value=>"1", default=>["IV", "0"]},
            {name=>"d_nanosleep", type=>"IV", macro=>"TIME_HIRES_NANOSLEEP", value=>"1", default=>["IV", "0"]},
            {name=>"d_setitimer", type=>"IV", macro=>"HAS_SETITIMER", value=>"1", default=>["IV", "0"]},
            {name=>"d_ualarm", type=>"IV", macro=>"HAS_UALARM", value=>"1", default=>["IV", "0"]},
            {name=>"d_usleep", type=>"IV", macro=>"HAS_USLEEP", value=>"1", default=>["IV", "0"]});

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

  switch (len) {
  case 8:
    /* Names all of length 8.  */
    /* d_ualarm d_usleep */
    /* Offset 7 gives the best switch position.  */
    switch (name[7]) {
    case 'm':
      if (memEQ(name, "d_ualar", 7)) {
      /*                      m     */
#ifdef HAS_UALARM
        *iv_return = 1;
        return PERL_constant_ISIV;
#else
        *iv_return = 0;
        return PERL_constant_ISIV;
#endif
      }
      break;
    case 'p':
      if (memEQ(name, "d_uslee", 7)) {
      /*                      p     */
#ifdef HAS_USLEEP
        *iv_return = 1;
        return PERL_constant_ISIV;
#else
        *iv_return = 0;
        return PERL_constant_ISIV;
#endif
      }
      break;
    }
    break;
  case 11:
    return constant_11 (aTHX_ name, iv_return);
    break;
  case 13:
    if (memEQ(name, "CLOCK_HIGHRES", 13)) {
#ifdef CLOCK_HIGHRES
      *iv_return = CLOCK_HIGHRES;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 14:
    return constant_14 (aTHX_ name, iv_return);
    break;
  case 15:
    return constant_15 (aTHX_ name, iv_return);
    break;
  case 23:
    if (memEQ(name, "CLOCK_THREAD_CPUTIME_ID", 23)) {
#ifdef CLOCK_THREAD_CPUTIME_ID
      *iv_return = CLOCK_THREAD_CPUTIME_ID;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 24:
    if (memEQ(name, "CLOCK_PROCESS_CPUTIME_ID", 24)) {
#ifdef CLOCK_PROCESS_CPUTIME_ID
      *iv_return = CLOCK_PROCESS_CPUTIME_ID;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}
Commit	Line	Data
98b50af3	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
98b50af3	22	static int
	23	constant_11 (pTHX_ const char name, IV iv_return) {
	24	/* When generated this function returned values for the list of names given
	25	here. However, subsequent manual editing may have added or removed some.
	26	ITIMER_PROF ITIMER_REAL d_getitimer d_nanosleep d_setitimer */
	27	/* Offset 7 gives the best switch position. */
	28	switch (name[7]) {
	29	case 'P':
	30	if (memEQ(name, "ITIMER_PROF", 11)) {
	31	/* ^ */
	32	#ifdef ITIMER_PROF
	33	*iv_return = ITIMER_PROF;
	34	return PERL_constant_ISIV;
	35	#else
	36	return PERL_constant_NOTDEF;
	37	#endif
	38	}
	39	break;
	40	case 'R':
	41	if (memEQ(name, "ITIMER_REAL", 11)) {
	42	/* ^ */
	43	#ifdef ITIMER_REAL
	44	*iv_return = ITIMER_REAL;
	45	return PERL_constant_ISIV;
	46	#else
	47	return PERL_constant_NOTDEF;
	48	#endif
	49	}
	50	break;
	51	case 'i':
	52	if (memEQ(name, "d_getitimer", 11)) {
	53	/* ^ */
	54	#ifdef HAS_GETITIMER
	55	*iv_return = 1;
	56	return PERL_constant_ISIV;
	57	#else
	58	*iv_return = 0;
	59	return PERL_constant_ISIV;
	60	#endif
	61	}
	62	if (memEQ(name, "d_setitimer", 11)) {
	63	/* ^ */
	64	#ifdef HAS_SETITIMER
	65	*iv_return = 1;
	66	return PERL_constant_ISIV;
	67	#else
	68	*iv_return = 0;
	69	return PERL_constant_ISIV;
	70	#endif
	71	}
	72	break;
	73	case 'l':
	74	if (memEQ(name, "d_nanosleep", 11)) {
	75	/* ^ */
ced84e60	76	#ifdef TIME_HIRES_NANOSLEEP
	77	*iv_return = 1;
	78	return PERL_constant_ISIV;
	79	#else
	80	*iv_return = 0;
	81	return PERL_constant_ISIV;
	82	#endif
	83	}
	84	break;
	85	}
	86	return PERL_constant_NOTFOUND;
	87	}
	88
	89	static int
	90	constant_14 (pTHX_ const char name, IV iv_return) {
	91	/* When generated this function returned values for the list of names given
	92	here. However, subsequent manual editing may have added or removed some.
	93	CLOCK_REALTIME ITIMER_VIRTUAL d_clock_getres d_gettimeofday */
	94	/* Offset 6 gives the best switch position. */
	95	switch (name[6]) {
	96	case 'R':
	97	if (memEQ(name, "CLOCK_REALTIME", 14)) {
	98	/* ^ */
	99	#ifdef CLOCK_REALTIME
	100	*iv_return = CLOCK_REALTIME;
	101	return PERL_constant_ISIV;
	102	#else
	103	return PERL_constant_NOTDEF;
	104	#endif
	105	}
	106	break;
	107	case '_':
	108	if (memEQ(name, "ITIMER_VIRTUAL", 14)) {
	109	/* ^ */
	110	#ifdef ITIMER_VIRTUAL
	111	*iv_return = ITIMER_VIRTUAL;
	112	return PERL_constant_ISIV;
	113	#else
	114	return PERL_constant_NOTDEF;
	115	#endif
	116	}
	117	break;
	118	case 'i':
	119	if (memEQ(name, "d_gettimeofday", 14)) {
	120	/* ^ */
	121	#ifdef HAS_GETTIMEOFDAY
	122	*iv_return = 1;
	123	return PERL_constant_ISIV;
	124	#else
	125	*iv_return = 0;
	126	return PERL_constant_ISIV;
	127	#endif
	128	}
	129	break;
	130	case 'k':
	131	if (memEQ(name, "d_clock_getres", 14)) {
	132	/* ^ */
	133	#ifdef TIME_HIRES_CLOCK_GETRES
	134	*iv_return = 1;
	135	return PERL_constant_ISIV;
	136	#else
	137	*iv_return = 0;
	138	return PERL_constant_ISIV;
	139	#endif
140	}
141	break;
142	}
143	return PERL_constant_NOTFOUND;
144	}
145
146	static int
147	constant_15 (pTHX_ const char name, IV iv_return) {
148	/* When generated this function returned values for the list of names given
149	here. However, subsequent manual editing may have added or removed some.
150	CLOCK_MONOTONIC CLOCK_TIMEOFDAY ITIMER_REALPROF d_clock_gettime */
151	/* Offset 7 gives the best switch position. */
152	switch (name[7]) {
153	case 'I':
154	if (memEQ(name, "CLOCK_TIMEOFDAY", 15)) {
155	/* ^ */
156	#ifdef CLOCK_TIMEOFDAY
157	*iv_return = CLOCK_TIMEOFDAY;
158	return PERL_constant_ISIV;
159	#else
160	return PERL_constant_NOTDEF;
161	#endif
162	}
163	break;
164	case 'O':
165	if (memEQ(name, "CLOCK_MONOTONIC", 15)) {
166	/* ^ */
167	#ifdef CLOCK_MONOTONIC
168	*iv_return = CLOCK_MONOTONIC;
169	return PERL_constant_ISIV;
170	#else
171	return PERL_constant_NOTDEF;
172	#endif
173	}
174	break;
175	case 'R':
176	if (memEQ(name, "ITIMER_REALPROF", 15)) {
177	/* ^ */
178	#ifdef ITIMER_REALPROF
179	*iv_return = ITIMER_REALPROF;
180	return PERL_constant_ISIV;
181	#else
182	return PERL_constant_NOTDEF;
183	#endif
184	}
185	break;
186	case '_':
187	if (memEQ(name, "d_clock_gettime", 15)) {
188	/* ^ */
189	#ifdef TIME_HIRES_CLOCK_GETTIME
98b50af3	190	*iv_return = 1;
	191	return PERL_constant_ISIV;
	192	#else
	193	*iv_return = 0;
	194	return PERL_constant_ISIV;
	195	#endif
	196	}
	197	break;
	198	}
	199	return PERL_constant_NOTFOUND;
	200	}
	201
	202	static int
	203	constant (pTHX_ const char name, STRLEN len, IV iv_return) {
	204	/* Initially switch on the length of the name. */
	205	/* When generated this function returned values for the list of names given
	206	in this section of perl code. Rather than manually editing these functions
	207	to add or remove constants, which would result in this comment and section
	208	of code becoming inaccurate, we recommend that you edit this section of
	209	code, and use it to regenerate a new set of constant functions which you
	210	then use to replace the originals.
	211
	212	Regenerate these constant functions by feeding this entire source file to
	213	perl -x
	214
ced84e60	215	#!perl -w
98b50af3	216	use ExtUtils::Constant qw (constant_types C_constant XS_constant);
	217
	218	my $types = {map {($_, 1)} qw(IV)};
ced84e60	219	my @names = (qw(CLOCK_HIGHRES CLOCK_MONOTONIC CLOCK_PROCESS_CPUTIME_ID
	220	CLOCK_REALTIME CLOCK_THREAD_CPUTIME_ID CLOCK_TIMEOFDAY
	221	ITIMER_PROF ITIMER_REAL ITIMER_REALPROF ITIMER_VIRTUAL),
	222	{name=>"d_clock_getres", type=>"IV", macro=>"TIME_HIRES_CLOCK_GETRES", value=>"1", default=>["IV", "0"]},
	223	{name=>"d_clock_gettime", type=>"IV", macro=>"TIME_HIRES_CLOCK_GETTIME", value=>"1", default=>["IV", "0"]},
98b50af3	224	{name=>"d_getitimer", type=>"IV", macro=>"HAS_GETITIMER", value=>"1", default=>["IV", "0"]},
98b50af3	225	{name=>"d_gettimeofday", type=>"IV", macro=>"HAS_GETTIMEOFDAY", value=>"1", default=>["IV", "0"]},
ced84e60	226	{name=>"d_nanosleep", type=>"IV", macro=>"TIME_HIRES_NANOSLEEP", value=>"1", default=>["IV", "0"]},
98b50af3	227	{name=>"d_setitimer", type=>"IV", macro=>"HAS_SETITIMER", value=>"1", default=>["IV", "0"]},
	228	{name=>"d_ualarm", type=>"IV", macro=>"HAS_UALARM", value=>"1", default=>["IV", "0"]},
	229	{name=>"d_usleep", type=>"IV", macro=>"HAS_USLEEP", value=>"1", default=>["IV", "0"]});
	230
	231	print constant_types(); # macro defs
	232	foreach (C_constant ("Time::HiRes", 'constant', 'IV', $types, undef, 3, @names) ) {
	233	print $_, "\n"; # C constant subs
	234	}
	235	print "#### XS Section:\n";
	236	print XS_constant ("Time::HiRes", $types);
	237	__END__
	238	*/
	239
	240	switch (len) {
	241	case 8:
	242	/* Names all of length 8. */
	243	/* d_ualarm d_usleep */
	244	/* Offset 7 gives the best switch position. */
	245	switch (name[7]) {
	246	case 'm':
ced84e60	247	if (memEQ(name, "d_ualar", 7)) {
ced84e60	248	/* m */
98b50af3	249	#ifdef HAS_UALARM
	250	*iv_return = 1;
	251	return PERL_constant_ISIV;
	252	#else
	253	*iv_return = 0;
	254	return PERL_constant_ISIV;
	255	#endif
	256	}
	257	break;
	258	case 'p':
ced84e60	259	if (memEQ(name, "d_uslee", 7)) {
ced84e60	260	/* p */
98b50af3	261	#ifdef HAS_USLEEP
	262	*iv_return = 1;
	263	return PERL_constant_ISIV;
	264	#else
	265	*iv_return = 0;
	266	return PERL_constant_ISIV;
	267	#endif
	268	}
	269	break;
	270	}
	271	break;
	272	case 11:
	273	return constant_11 (aTHX_ name, iv_return);
	274	break;
ced84e60	275	case 13:
	276	if (memEQ(name, "CLOCK_HIGHRES", 13)) {
	277	#ifdef CLOCK_HIGHRES
	278	*iv_return = CLOCK_HIGHRES;
	279	return PERL_constant_ISIV;
98b50af3	280	#else
ced84e60	281	return PERL_constant_NOTDEF;
98b50af3	282	#endif
ced84e60	283	}
	284	break;
	285	case 14:
	286	return constant_14 (aTHX_ name, iv_return);
	287	break;
	288	case 15:
	289	return constant_15 (aTHX_ name, iv_return);
	290	break;
	291	case 23:
	292	if (memEQ(name, "CLOCK_THREAD_CPUTIME_ID", 23)) {
	293	#ifdef CLOCK_THREAD_CPUTIME_ID
	294	*iv_return = CLOCK_THREAD_CPUTIME_ID;
	295	return PERL_constant_ISIV;
98b50af3	296	#else
ced84e60	297	return PERL_constant_NOTDEF;
98b50af3	298	#endif
98b50af3	299	}
98b50af3	300	break;
ced84e60	301	case 24:
	302	if (memEQ(name, "CLOCK_PROCESS_CPUTIME_ID", 24)) {
	303	#ifdef CLOCK_PROCESS_CPUTIME_ID
	304	*iv_return = CLOCK_PROCESS_CPUTIME_ID;
98b50af3	305	return PERL_constant_ISIV;
	306	#else
	307	return PERL_constant_NOTDEF;
	308	#endif
	309	}
	310	break;
	311	}
	312	return PERL_constant_NOTFOUND;
	313	}
	314