[perl5.git] / h2pl / mkvars

#!/usr/bin/perl

require 'sizeof.ph';

$LIB = '/usr/local/lib/perl';

foreach $include (@ARGV) {
    printf STDERR "including %s\n", $include;
    do $include;
    warn "sourcing $include: $@\n" if ($@);
    if (!open (INCLUDE,"$LIB/$include")) {
	warn "can't open $LIB/$include: $!\n"; 
	next; 
    } 
    while (<INCLUDE>) {
	chop;
	if (/^\s*eval\s+'sub\s+(\w+)\s.*[^{]$/ || /^\s*sub\s+(\w+)\s.*[^{]$/) {
	    $var = $1;
	    $val = eval "&$var;";
	    if ($@) {
		warn "$@: $_";
		print <<EOT;
warn "\$$var isn't correctly set" if defined \$_main{'$var'};
EOT
		next;
	    } 
	    ( $nval = sprintf ("%x",$val ) ) =~ tr/a-z/A-Z/;
	    printf "\$%s = 0x%s;\n", $var, $nval;
	} 
    }
}
Commit	Line	Data
450a55e4 LW	1	#!/usr/bin/perl
	2
	3	require 'sizeof.ph';
	4
	5	$LIB = '/usr/local/lib/perl';
	6
	7	foreach $include (@ARGV) {
	8	printf STDERR "including %s\n", $include;
	9	do $include;
	10	warn "sourcing $include: $@\n" if ($@);
	11	if (!open (INCLUDE,"$LIB/$include")) {
	12	warn "can't open $LIB/$include: $!\n";
	13	next;
	14	}
	15	while (<INCLUDE>) {
	16	chop;
	17	if (/^\seval\s+'sub\s+(\w+)\s.[^{]$/ \|\| /^\ssub\s+(\w+)\s.[^{]$/) {
	18	$var = $1;
	19	$val = eval "&$var;";
	20	if ($@) {
	21	warn "$@: $_";
352d5a3a	22	print <<EOT;
450a55e4 LW	23	warn "\$$var isn't correctly set" if defined \$_main{'$var'};
	24	EOT
	25	next;
	26	}
	27	( $nval = sprintf ("%x",$val ) ) =~ tr/a-z/A-Z/;
	28	printf "\$%s = 0x%s;\n", $var, $nval;
	29	}
	30	}
	31	}