head	1.3;
access;
symbols
	RELENG_2_2_8_RELEASE:1.2
	RELENG_2_2_7_RELEASE:1.2
	RELENG_2_2_6_RELEASE:1.2
	RELENG_2_2_5_RELEASE:1.2
	RELENG_2_2_2_RELEASE:1.2
	RELENG_2_2_1_RELEASE:1.2
	RELENG_2_2_0_RELEASE:1.2
	RELENG_2_1_7_RELEASE:1.2
	RELENG_2_1_6_1_RELEASE:1.2
	RELENG_2_1_6_RELEASE:1.2
	RELENG_2_2:1.2.0.8
	RELENG_2_2_BP:1.2
	RELENG_2_1_5_RELEASE:1.2
	RELENG_2_1_0_RELEASE:1.2
	RELENG_2_1_0:1.2.0.6
	RELENG_2_1_0_BP:1.2
	RELENG_2_0_5_RELEASE:1.2
	RELENG_2_0_5:1.2.0.4
	RELENG_2_0_5_BP:1.2
	RELENG_2_0_5_ALPHA:1.2
	RELEASE_2_0:1.2
	BETA_2_0:1.2
	ALPHA_2_0:1.2.0.2
	perl_4_036_bmake:1.1.1.1
	lwall:1.1.1;
locks; strict;
comment	@# @;


1.3
date	98.09.09.06.49.08;	author markm;	state dead;
branches;
next	1.2;

1.2
date	94.10.27.23.16.37;	author wollman;	state Exp;
branches;
next	1.1;

1.1
date	94.09.10.06.27.50;	author gclarkii;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	94.09.10.06.27.51;	author gclarkii;	state Exp;
branches;
next	;


desc
@@


1.3
log
@Old Perl is leaving us. Goodbye, faithful friend.
@
text
@#!/usr/bin/perl

require 'sizeof.ph';

$LIB = '/usr/share/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;
	} 
    }
} 
@


1.2
log
@Convince Perl to that is is part of the system, as /usr/bin/perl (binary)
and /usr/share/perl (library).  The latter was chosen as analogous to other
directories already present in /usr/share, like /usr/share/groff_font and
(particularly) /usr/share/mk.
@
text
@@


1.1
log
@Initial revision
@
text
@d5 1
a5 1
$LIB = '/usr/local/lib/perl';
@


1.1.1.1
log
@Initial import of Perl 4.046 bmaked

@
text
@@
