diff options
Diffstat (limited to 'source4/script')
| -rwxr-xr-x | source4/script/mkproto.pl | 112 | ||||
| -rw-r--r-- | source4/script/mkproto.sh | 48 |
2 files changed, 82 insertions, 78 deletions
diff --git a/source4/script/mkproto.pl b/source4/script/mkproto.pl index 227c7c0dce..5db9424cd8 100755 --- a/source4/script/mkproto.pl +++ b/source4/script/mkproto.pl @@ -5,26 +5,71 @@ use strict; # don't use warnings module as it is not portable enough # use warnings; -my $header_name = '_PROTO_H_'; -if ($ARGV[0] eq '-h') { - shift @ARGV; - $header_name = shift @ARGV; +use Getopt::Long; + +my $public_file = undef; +my $private_file = undef; +my $public_define = undef; +my $private_define = undef; +my $public_fd = \*STDOUT; +my $private_fd = \*STDOUT; + +GetOptions( + 'public=s' => sub { my ($f,$v) = @_; $public_file = $v; }, + 'private=s' => sub { my ($f,$v) = @_; $private_file = $v; }, + 'define=s' => sub { + my ($f,$v) = @_; + $public_define = $v; + $private_define = "$v\_PRIVATE"; + }, + 'public-define=s' => \$public_define, + 'private-define=s' => \$private_define +); + +if ($public_define eq undef and $public_file ne undef) { + $public_define = $public_file; + $public_define =~ tr{./}{__}; +} elsif ($public_define eq undef) { + $public_define = '_PROTO_H_'; } -sub print_header { - print "#ifndef $header_name\n"; - print "#define $header_name\n\n"; - print "/* This file is automatically generated with \"make proto\". DO NOT EDIT */\n\n"; +if ($private_define eq undef and $private_file ne undef) { + $private_define = $private_file; + $private_define =~ tr{./}{__}; +} elsif ($public_define eq undef) { + $public_define = '_PROTO_H_'; } -sub print_footer { - printf "\n#endif /* %s */\n", $header_name; +if ($public_file ne undef) { + open PUBLIC, ">$public_file"; + $public_fd = \*PUBLIC; } +if ($private_file eq $public_file) { + $private_fd = $public_fd; +} elsif ($private_file ne undef) { + open PRIVATE, ">$private_file"; + $private_fd = \*PRIVATE; +} + +sub print_header($$) +{ + my ($file, $header_name) = @_; + print $file "#ifndef $header_name\n"; + print $file "#define $header_name\n\n"; + print $file "/* This file is automatically generated with \"make proto\". DO NOT EDIT */\n\n"; +} -sub handle_loadparm { - my $line = shift; +sub print_footer($$) +{ + my ($file, $header_name) = @_; + printf $file "\n#endif /* %s */\n", $header_name; +} + +sub handle_loadparm($$) +{ + my ($file,$line) = @_; if ($line =~ /^FN_(GLOBAL|LOCAL)_(CONST_STRING|STRING|BOOL|CHAR|INTEGER|LIST)\((\w+),.*\)/o) { my $scope = $1; @@ -45,20 +90,23 @@ sub handle_loadparm { "LOCAL" => "int " ); - print "$tmap{$type}$name($smap{$scope});\n"; + print $file "$tmap{$type}$name($smap{$scope});\n"; } } - -sub process_file($) +sub process_file($$$) { - my $filename = shift; + my ($public_file, $private_file, $filename) = @_; + + $filename =~ s/\.o$/\.c/g; open(FH, "< $filename") || die "Failed to open $filename"; - print "\n/* The following definitions come from $filename */\n\n"; + print $private_file "\n/* The following definitions come from $filename */\n\n"; while (my $line = <FH>) { + my $target = $private_file; + # these are ordered for maximum speed next if ($line =~ /^\s/); @@ -76,37 +124,41 @@ sub process_file($) next if ($line =~ /^int\s*main/); if ($line =~ /^FN_/) { - handle_loadparm($line); + handle_loadparm($public_file, $line); next; } + if ($line =~ s/_PUBLIC_//xo) { + $target = $public_file; + } + if ( $line =~ /\(.*\)\s*$/o ) { chomp $line; - print "$line;\n"; + print $target "$line;\n"; next; } - print $line; + print $target $line; while ($line = <FH>) { if ($line =~ /\)\s*$/o) { chomp $line; - print "$line;\n"; + print $target "$line;\n"; last; } - print $line; + print $target $line; } } close(FH); } -sub process_files { - foreach my $filename (@ARGV) { - process_file($filename); - } +if ($public_file != $private_file) { + print_header($private_fd, $private_define); +} +print_header($public_fd, $public_define); +process_file($public_fd, $private_fd, $_) foreach (@ARGV); +print_footer($public_fd, $public_define); +if ($public_file != $private_file) { + print_footer($private_fd, $private_define); } - -print_header(); -process_files(); -print_footer(); diff --git a/source4/script/mkproto.sh b/source4/script/mkproto.sh deleted file mode 100644 index c6da261b65..0000000000 --- a/source4/script/mkproto.sh +++ /dev/null @@ -1,48 +0,0 @@ -#! /bin/sh - -LANG=C; export LANG -LC_ALL=C; export LC_ALL -LC_COLLATE=C; export LC_COLLATE - -if [ $# -lt 3 ] -then - echo "Usage: $0 perl [-h headerdefine] outputheader proto_obj" - exit 1 -fi - -perl="$1" -shift - -if [ x"$1" = x-h ] -then - headeropt="-h $2" - shift; shift; -else - headeropt="-h _`echo $1 | tr ./ __`_" -fi - -header="$1" -shift -headertmp="$header.$$.tmp~" - -proto_src="`echo $@ | tr ' ' '\n' | sed -e 's/\.o/\.c/g' | sort | uniq | egrep -v 'ubiqx/|wrapped'`" - -echo creating $header - -mkdir -p `dirname $header` - -${perl} script/mkproto.pl $headeropt $proto_src > $headertmp - -RET=$? - -if test x"$RET" != x"0";then - exit $RET -fi - -if cmp -s $header $headertmp 2>/dev/null -then - echo "$header unchanged" - rm $headertmp -else - mv $headertmp $header -fi |