1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393
|
#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.
CLOCKS_PER_SEC CLOCK_REALTIME CLOCK_SOFTTIME ITIMER_VIRTUAL d_clock_getres
d_gettimeofday */
/* Offset 8 gives the best switch position. */
switch (name[8]) {
case 'A':
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 'E':
if (memEQ(name, "CLOCKS_PER_SEC", 14)) {
/* ^ */
#ifdef CLOCKS_PER_SEC
*iv_return = CLOCKS_PER_SEC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'F':
if (memEQ(name, "CLOCK_SOFTTIME", 14)) {
/* ^ */
#ifdef CLOCK_SOFTTIME
*iv_return = CLOCK_SOFTTIME;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
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 'e':
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 'g':
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(CLOCKS_PER_SEC CLOCK_HIGHRES CLOCK_MONOTONIC
CLOCK_PROCESS_CPUTIME_ID CLOCK_REALTIME CLOCK_SOFTTIME
CLOCK_THREAD_CPUTIME_ID CLOCK_TIMEOFDAY ITIMER_PROF ITIMER_REAL
ITIMER_REALPROF ITIMER_VIRTUAL TIMER_ABSTIME),
{name=>"d_clock", type=>"IV", macro=>"TIME_HIRES_CLOCK", value=>"1", default=>["IV", "0"]},
{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_clock_nanosleep", type=>"IV", macro=>"TIME_HIRES_CLOCK_NANOSLEEP", 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_hires_stat", type=>"IV", macro=>"TIME_HIRES_STAT", 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 7:
if (memEQ(name, "d_clock", 7)) {
#ifdef TIME_HIRES_CLOCK
*iv_return = 1;
return PERL_constant_ISIV;
#else
*iv_return = 0;
return PERL_constant_ISIV;
#endif
}
break;
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 12:
if (memEQ(name, "d_hires_stat", 12)) {
#ifdef TIME_HIRES_STAT
*iv_return = 1;
return PERL_constant_ISIV;
#else
*iv_return = 0;
return PERL_constant_ISIV;
#endif
}
break;
case 13:
/* Names all of length 13. */
/* CLOCK_HIGHRES TIMER_ABSTIME */
/* Offset 2 gives the best switch position. */
switch (name[2]) {
case 'M':
if (memEQ(name, "TIMER_ABSTIME", 13)) {
/* ^ */
#ifdef TIMER_ABSTIME
*iv_return = TIMER_ABSTIME;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "CLOCK_HIGHRES", 13)) {
/* ^ */
#ifdef CLOCK_HIGHRES
*iv_return = CLOCK_HIGHRES;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
break;
case 14:
return constant_14 (aTHX_ name, iv_return);
break;
case 15:
return constant_15 (aTHX_ name, iv_return);
break;
case 17:
if (memEQ(name, "d_clock_nanosleep", 17)) {
#ifdef TIME_HIRES_CLOCK_NANOSLEEP
*iv_return = 1;
return PERL_constant_ISIV;
#else
*iv_return = 0;
return PERL_constant_ISIV;
#endif
}
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;
}
|