mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-08 14:35:40 -04:00
55 lines
1.7 KiB
C++
55 lines
1.7 KiB
C++
#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 (pTHX_ const char *name, STRLEN len) {
|
|
/* 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/bin/perl -w
|
|
use ExtUtils::Constant qw (constant_types C_constant XS_constant);
|
|
|
|
my $types = {map {($_, 1)} qw()};
|
|
my @names = (qw());
|
|
|
|
print constant_types(), "\n"; # macro defs
|
|
foreach (C_constant ("Language::K20", 'constant', 'IV', $types, undef, 3, @names) ) {
|
|
print $_, "\n"; # C constant subs
|
|
}
|
|
print "\n#### XS Section:\n";
|
|
print XS_constant ("Language::K20", $types);
|
|
__END__
|
|
*/
|
|
|
|
switch (len) {
|
|
}
|
|
return PERL_constant_NOTFOUND;
|
|
}
|
|
|