diff options
Diffstat (limited to 'contrib/perl5/utils/h2ph.PL')
| -rw-r--r-- | contrib/perl5/utils/h2ph.PL | 50 |
1 files changed, 21 insertions, 29 deletions
diff --git a/contrib/perl5/utils/h2ph.PL b/contrib/perl5/utils/h2ph.PL index 855a899499a3..7b15ed1ed460 100644 --- a/contrib/perl5/utils/h2ph.PL +++ b/contrib/perl5/utils/h2ph.PL @@ -1,4 +1,5 @@ #!/usr/local/bin/perl +# $FreeBSD$ use Config; use File::Basename qw(basename dirname); @@ -36,24 +37,21 @@ $Config{startperl} print OUT <<'!NO!SUBS!'; -use strict; - use Config; use File::Path qw(mkpath); use Getopt::Std; getopts('Dd:rlhaQ'); -use vars qw($opt_D $opt_d $opt_r $opt_l $opt_h $opt_a $opt_Q); die "-r and -a options are mutually exclusive\n" if ($opt_r and $opt_a); -my @inc_dirs = inc_dirs() if $opt_a; +@inc_dirs = inc_dirs() if $opt_a; my $Exit = 0; -my $Dest_dir = $opt_d || $Config{installsitearch}; +my $Dest_dir = $opt_d || $Config{installarchlib}; die "Destination directory $Dest_dir doesn't exist or isn't a directory\n" unless -d $Dest_dir; -my @isatype = split(' ',<<END); +@isatype = split(' ',<<END); char uchar u_char short ushort u_short int uint u_int @@ -61,18 +59,14 @@ my @isatype = split(' ',<<END); FILE key_t caddr_t END -my %isatype; @isatype{@isatype} = (1) x @isatype; -my $inif = 0; -my %Is_converted; +$inif = 0; @ARGV = ('-') unless @ARGV; build_preamble_if_necessary(); -my ($t, $tab, %curargs, $new, $eval_index, $dir, $name, $args, $outfile); -my ($incl, $next); -while (defined (my $file = next_file())) { +while (defined ($file = next_file())) { if (-l $file and -d $file) { link_if_possible($file) if ($opt_l); next; @@ -136,7 +130,7 @@ while (defined (my $file = next_file())) { my $proto = '() '; if ($args ne '') { $proto = ''; - foreach my $arg (split(/,\s*/,$args)) { + foreach $arg (split(/,\s*/,$args)) { $arg =~ s/^\s*([^\s].*[^\s])\s*$/$1/; $curargs{$arg} = 1; } @@ -264,11 +258,11 @@ while (defined (my $file = next_file())) { s@/\*.*?\*/@@g; s/\s+/ /g; /^\s?(typedef\s?)?enum\s?([a-zA-Z_]\w*)?\s?\{(.*)\}\s?([a-zA-Z_]\w*)?\s?;/; - (my $enum_subs = $3) =~ s/\s//g; - my @enum_subs = split(/,/, $enum_subs); - my $enum_val = -1; - foreach my $enum (@enum_subs) { - my ($enum_name, $enum_value) = $enum =~ /^([a-zA-Z_]\w*)(=.+)?$/; + ($enum_subs = $3) =~ s/\s//g; + @enum_subs = split(/,/, $enum_subs); + $enum_val = -1; + for $enum (@enum_subs) { + ($enum_name, $enum_value) = $enum =~ /^([a-zA-Z_]\w*)(=.+)?$/; $enum_value =~ s/^=//; $enum_val = (length($enum_value) ? $enum_value : $enum_val + 1); if ($opt_h) { @@ -287,13 +281,12 @@ while (defined (my $file = next_file())) { } print OUT "1;\n"; - $Is_converted{$file} = 1; + $is_converted{$file} = 1; queue_includes_from($file) if ($opt_a); } exit $Exit; - sub reindent($) { my($text) = shift; $text =~ s/\n/\n /g; @@ -301,11 +294,9 @@ sub reindent($) { $text; } - sub expr { - my $joined_args; if(keys(%curargs)) { - $joined_args = join('|', keys(%curargs)); + my($joined_args) = join('|', keys(%curargs)); } while ($_ ne '') { s/^\&\&// && do { $new .= " &&"; next;}; # handle && operator @@ -357,7 +348,7 @@ sub expr { }; # struct/union member, including arrays: s/^([_A-Z]\w*(\[[^\]]+\])?((\.|->)[_A-Z]\w*(\[[^\]]+\])?)+)//i && do { - my $id = $1; + $id = $1; $id =~ s/(\.|(->))([^\.\-]*)/->\{$3\}/g; $id =~ s/\b([^\$])($joined_args)/$1\$$2/g if length($joined_args); while($id =~ /\[\s*([^\$\&\d\]]+)\]/) { @@ -373,7 +364,7 @@ sub expr { $new .= " (\$$id)"; }; s/^([_a-zA-Z]\w*)// && do { - my $id = $1; + $id = $1; if ($id eq 'struct') { s/^\s+(\w+)//; $id .= ' ' . $1; @@ -515,7 +506,7 @@ sub queue_includes_from } if ($line =~ /^#\s*include\s+<(.*?)>/) { - push(@ARGV, $1) unless $Is_converted{$1}; + push(@ARGV, $1) unless $is_converted{$1}; } } close HEADER; @@ -585,8 +576,7 @@ sub build_preamble_if_necessary sub _extract_cc_defines { my %define; - my $allsymbols = join " ", - @Config{'ccsymbols', 'cppsymbols', 'cppccsymbols'}; + my $allsymbols = join " ", @Config{ccsymbols, cppsymbols, cppccsymbols}; # Split compiler pre-definitions into `key=value' pairs: foreach (split /\s+/, $allsymbols) { @@ -640,7 +630,7 @@ If run with no arguments, filters standard input to standard output. =item -d destination_dir Put the resulting B<.ph> files beneath B<destination_dir>, instead of -beneath the default Perl library location (C<$Config{'installsitsearch'}>). +beneath the default Perl library location (C<$Config{'installarchlib'}>). =item -r @@ -719,6 +709,8 @@ that it can translate. It's only intended as a rough tool. You may need to dicker with the files produced. +Doesn't run with C<use strict> + You have to run this program by hand; it's not run as part of the Perl installation. |