diff options
Diffstat (limited to 'contrib/perl5/ext/B/defsubs_h.PL')
-rw-r--r-- | contrib/perl5/ext/B/defsubs_h.PL | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/contrib/perl5/ext/B/defsubs_h.PL b/contrib/perl5/ext/B/defsubs_h.PL deleted file mode 100644 index da6566b..0000000 --- a/contrib/perl5/ext/B/defsubs_h.PL +++ /dev/null @@ -1,42 +0,0 @@ -# Do not remove the following line; MakeMaker relies on it to identify -# this file as a template for defsubs.h -# Extracting defsubs.h (with variable substitutions) -#!perl -my ($out) = __FILE__ =~ /(^.*)\.PL/i; -$out =~ s/_h$/.h/; -open(OUT,">$out") || die "Cannot open $file:$!"; -print "Extracting $out...\n"; -foreach my $const (qw( - AVf_REAL - HEf_SVKEY - SVf_READONLY SVTYPEMASK - GVf_IMPORTED_AV GVf_IMPORTED_HV - GVf_IMPORTED_SV GVf_IMPORTED_CV - CVf_METHOD CVf_LOCKED CVf_LVALUE - SVf_IOK SVf_IVisUV SVf_NOK SVf_POK - SVf_ROK SVp_IOK SVp_POK SVp_NOK - )) - { - doconst($const); - } -foreach my $file (qw(op.h cop.h)) - { - my $path = $^O eq 'MacOS' ? ":::$file" : "../../$file"; - open(OPH,"$path") || die "Cannot open $path:$!"; - while (<OPH>) - { - doconst($1) if (/#define\s+(\w+)\s+([\(\)\|\dx]+)\s*(?:$|\/\*)/); - } - close(OPH); - } -close(OUT); - -sub doconst -{ - my $sym = shift; - my $l = length($sym); - print OUT <<"END"; - newCONSTSUB(stash,"$sym",newSViv($sym)); - av_push(export_ok,newSVpvn("$sym",$l)); -END -} |