| … | |
… | |
| 1451 | |
1451 | |
| 1452 | _connect_to_perl_1 (); |
1452 | _connect_to_perl_1 (); |
| 1453 | |
1453 | |
| 1454 | newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1)); |
1454 | newCONSTSUB (stash_cf, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1)); |
| 1455 | |
1455 | |
| 1456 | //{ |
|
|
| 1457 | // require_pv ("Time::HiRes"); |
|
|
| 1458 | // |
|
|
| 1459 | // SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0); |
|
|
| 1460 | // if (!svp) croak ("Time::HiRes is required"); |
|
|
| 1461 | // if (!SvIOK(*svp)) croak ("Time::NVtime isn’t a function pointer"); |
|
|
| 1462 | // coroapi::time = INT2PTR (double(*)(), SvIV(*svp)); |
|
|
| 1463 | //} |
|
|
| 1464 | |
|
|
| 1465 | static const struct { |
1456 | static const struct { |
| 1466 | const char *name; |
1457 | const char *name; |
| 1467 | IV iv; |
1458 | IV iv; |
| 1468 | } *civ, const_iv[] = { |
1459 | } *civ, const_iv[] = { |
| 1469 | # define const_iv(name) { # name, (IV)name }, |
1460 | # define const_iv(name) { # name, (IV)name }, |
