use 5.008_001;
use strict;
use warnings;
use ExtUtils::MakeMaker;
use Devel::PPPort;

Devel::PPPort::WriteFile(); # ppport.h

open XS, ">b_sizeof.h" or die $!;
print XS <<'HEAD';
/* This file is generated by Makefile.PL */
HEAD

if ($] < 5.005_58) {
    print XS <<EOF;
#define PL_op_name op_name
#define PL_op_desc op_desc
typedef double NV;
EOF

}

if ($] >= 5.005_63) {
    print XS <<EOF;
#define GVOP SVOP
EOF
}
if($] >= 5.010) {
    print XS <<'EOF';
#define XRV XPV
#define XPVBM XPV
EOF
}

print XS <<EOF;
static void boot_B_Sizeof(pTHX)
{
    HV *stash = gv_stashpvn("B::Sizeof", 9, TRUE);
EOF

while (<DATA>) {
    chomp;
    next unless $_;
    print XS newCONSTSUB($_);
}
print XS newCONSTSUB("CONDOP") if $] < 5.005_58;

print XS "\n}\n";


WriteMakefile(
    'NAME' => 'B::Size2',
    'VERSION_FROM' => 'lib/B/Size2.pm',
    'AUTHOR' => 'Fuji, Goro (gfx) <gfuji@cpan.org>',

    PREREQ_PM => {
        'B' => 0,
    },

    'CONFIGURE_REQUIRES' => {
        'ExtUtils::MakeMaker' => 0,
        'Devel::PPPort' => '3.20',
    },

    'BUILD_REQUIRES' => {
        'ExtUtils::ParseXS' => 0,
    },

    'TEST_REQUIRES' => {
        'Test::More' => 0,
    },

    'OBJECT' => '$(O_FILES)',

    LICENSE => 'perl',
);

sub newCONSTSUB {
    my $name = shift;
    qq{   (void)newCONSTSUB(stash, "$name", newSViv(sizeof($name)));\n};
}

__END__
OP
PMOP
UNOP
BINOP
LISTOP
LOGOP
SVOP
GVOP
PVOP
COP
LOOP
SV
HV
AV
NV
IV
CV
GV
GP
U32
U16
U8
XRV
XPV
XPVIV
XPVUV
XPVNV
XPVMG
XPVLV
XPVGV
XPVBM
XPVFM
XPVIO
XPVCV
XPVAV
XPVHV
HE
HEK
MAGIC
REGEXP