svn commit: samba r8801 - in branches/SAMBA_4_0/source: build/pidl
build/pidl/Parse/Pidl script
jelmer at samba.org
jelmer at samba.org
Wed Jul 27 18:53:07 GMT 2005
Author: jelmer
Date: 2005-07-27 18:53:07 +0000 (Wed, 27 Jul 2005)
New Revision: 8801
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=8801
Log:
Change --output to --outputdir and make pidl add a data representation prefix
to pidl itself. Useful for supporting other data representation types.
Modified:
branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/Util.pm
branches/SAMBA_4_0/source/build/pidl/pidl
branches/SAMBA_4_0/source/script/build_idl.sh
Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/Util.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/Util.pm 2005-07-27 17:41:07 UTC (rev 8800)
+++ branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/Util.pm 2005-07-27 18:53:07 UTC (rev 8801)
@@ -88,18 +88,6 @@
}
#####################################################################
-# return a filename with a changed extension
-sub ChangeExtension($$)
-{
- my($fname) = shift;
- my($ext) = shift;
- if ($fname =~ /^(.*)\.(.*?)$/) {
- return "$1$ext";
- }
- return "$fname$ext";
-}
-
-#####################################################################
# a dumper wrapper to prevent dependence on the Data::Dumper module
# unless we actually need it
sub MyDumper($)
Modified: branches/SAMBA_4_0/source/build/pidl/pidl
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/pidl 2005-07-27 17:41:07 UTC (rev 8800)
+++ branches/SAMBA_4_0/source/build/pidl/pidl 2005-07-27 18:53:07 UTC (rev 8801)
@@ -51,7 +51,7 @@
my($opt_ejs);
my($opt_odl) = 0;
my($opt_quiet) = 0;
-my($opt_output);
+my($opt_outputdir) = '.';
my($opt_verbose) = 0;
my($opt_warn_compat) = 0;
@@ -66,7 +66,7 @@
Options:
--help this help page
- --output=OUTNAME put output in OUTNAME.*
+ --outputdir=OUTDIR put output in OUTDIR/ [.]
--parse parse a idl file to a .pidl file
--dump dump a pidl file back to idl
--uint-enums don't use C enums, instead use uint* types
@@ -94,7 +94,7 @@
# main program
GetOptions (
'help|h|?' => \$opt_help,
- 'output=s' => \$opt_output,
+ 'outputdir=s' => \$opt_outputdir,
'parse' => \$opt_parse,
'dump' => \$opt_dump,
'uint-enums' => \$opt_uint_enums,
@@ -125,20 +125,14 @@
sub process_file($)
{
my $idl_file = shift;
- my $output;
+ my $outputdir = $opt_outputdir;
my $pidl;
my $ndr;
my $basename = basename($idl_file, ".idl");
- if (!defined($opt_output)) {
- $output = $idl_file;
- } else {
- $output = $opt_output . $basename;
- }
+ my($pidl_file) = ($opt_keep or "$outputdir/$basename.pidl");
- my($pidl_file) = ($opt_keep or Parse::Pidl::Util::ChangeExtension($output, ".pidl"));
-
unless ($opt_quiet) { print "Compiling $idl_file\n"; }
if ($opt_parse) {
@@ -169,7 +163,7 @@
}
if ($opt_diff) {
- my($tempfile) = Parse::Pidl::Util::ChangeExtension($output, ".tmp");
+ my($tempfile) = "$outputdir/$basename.tmp";
Parse::Pidl::Util::FileSave($tempfile, IdlDump::Dump($pidl));
system("diff -wu $idl_file $tempfile");
unlink($tempfile);
@@ -179,10 +173,10 @@
require Parse::Pidl::Samba::COM::Header;
my $res = Parse::Pidl::Samba::COM::Header::Parse($pidl);
if ($res) {
- my $comh_filename = ($opt_com_header or (dirname($output) . "/com_$basename.h"));
+ my $comh_filename = ($opt_com_header or "$outputdir/com_$basename.h");
Parse::Pidl::Util::FileSave($comh_filename,
"#include \"librpc/gen_ndr/ndr_orpc.h\"\n" .
- "#include \"librpc/gen_ndr/ndr_$basename.h\"\n" .
+ "#include \"$outputdir/ndr_$basename.h\"\n" .
$res);
}
$opt_odl = 1;
@@ -192,10 +186,10 @@
require Parse::Pidl::Samba::COM::Proxy;
my $res = Parse::Pidl::Samba::COM::Proxy::Parse($pidl);
if ($res) {
- my ($client) = ($opt_dcom_proxy or Parse::Pidl::Util::ChangeExtension($output, "_p.c"));
+ my ($client) = ($opt_dcom_proxy or "$outputdir/$basename\_p.c");
Parse::Pidl::Util::FileSave($client,
"#include \"includes.h\"\n" .
- "#include \"librpc/gen_ndr/com_$basename.h\"\n" .
+ "#include \"$outputdir/com_$basename.h\"\n" .
"#include \"lib/com/dcom/dcom.h\"\n" .$res);
}
$opt_odl = 1;
@@ -220,32 +214,27 @@
}
if (defined($opt_header)) {
- my $header = $opt_header;
- if ($header eq "") {
- $header = Parse::Pidl::Util::ChangeExtension($output, ".h");
- }
+ my $header = ($opt_header or "$outputdir/ndr_$basename.h");
require Parse::Pidl::Samba::NDR::Header;
Parse::Pidl::Util::FileSave($header, Parse::Pidl::Samba::NDR::Header::Parse($pidl));
if (defined($opt_swig)) {
require Parse::Pidl::Samba::SWIG;
- my($filename) = $output;
- $filename =~ s/\/ndr_/\//;
- $filename = ($opt_swig or Parse::Pidl::Util::ChangeExtension($filename, ".i"));
+ my($filename) = ($opt_swig or "$outputdir/$basename.i");
Parse::Pidl::Samba::SWIG::RewriteHeader($pidl, $header, $filename);
}
}
if (defined($opt_eth_header)) {
require Parse::Pidl::Ethereal::NDR::Header;
- my($eparserhdr) = ($opt_eth_header or (dirname($output) . "/packet-dcerpc-$basename.h"));
+ my($eparserhdr) = ($opt_eth_header or "$outputdir/packet-dcerpc-$basename.h");
Parse::Pidl::Util::FileSave($eparserhdr, Parse::Pidl::Ethereal::NDR::Header::Parse($ndr));
}
- my $h_filename = Parse::Pidl::Util::ChangeExtension($output, ".h");
+ my $h_filename = "$outputdir/ndr_$basename.h";
if (defined($opt_client)) {
require Parse::Pidl::Samba::NDR::Client;
- my ($client) = ($opt_client or Parse::Pidl::Util::ChangeExtension($output, "_c.c"));
+ my ($client) = ($opt_client or "$outputdir/ndr_$basename\_c.c");
Parse::Pidl::Util::FileSave($client, Parse::Pidl::Samba::NDR::Client::Parse($ndr,$h_filename));
}
@@ -253,11 +242,9 @@
if (defined($opt_ejs)) {
require Parse::Pidl::Samba::EJS;
require Parse::Pidl::Samba::EJSHeader;
- my $ejs = Parse::Pidl::Util::ChangeExtension($output, "_ejs.c");
- Parse::Pidl::Util::FileSave($ejs, Parse::Pidl::Samba::EJS::Parse($ndr, $h_filename));
+ Parse::Pidl::Util::FileSave("$outputdir/ndr_$basename\_ejs.c", Parse::Pidl::Samba::EJS::Parse($ndr, $h_filename));
- $ejs = Parse::Pidl::Util::ChangeExtension($output, "_ejs.h");
- Parse::Pidl::Util::FileSave($ejs, Parse::Pidl::Samba::EJSHeader::Parse($ndr));
+ Parse::Pidl::Util::FileSave("$outputdir/ndr_$basename\_ejs.h", Parse::Pidl::Samba::EJSHeader::Parse($ndr));
}
if (defined($opt_server)) {
@@ -273,7 +260,7 @@
}
}
- Parse::Pidl::Util::FileSave(($opt_server or Parse::Pidl::Util::ChangeExtension($output, "_s.c")), Parse::Pidl::Samba::NDR::Server::Parse($ndr,$h_filename));
+ Parse::Pidl::Util::FileSave(($opt_server or "$outputdir/ndr_$basename\_s.c"), Parse::Pidl::Samba::NDR::Server::Parse($ndr,$h_filename));
if ($dcom ne "") {
$dcom = "
@@ -284,19 +271,19 @@
$dcom
";
- Parse::Pidl::Util::FileSave(Parse::Pidl::Util::ChangeExtension($output, "_d.c"), $dcom);
+ Parse::Pidl::Util::FileSave("$outputdir/$basename\_d.c", $dcom);
}
}
if (defined($opt_parser)) {
- my $parser = ($opt_parser or Parse::Pidl::Util::ChangeExtension($output, ".c"));
+ my $parser = ($opt_parser or "$outputdir/ndr_$basename.c");
require Parse::Pidl::Samba::NDR::Parser;
Parse::Pidl::Util::FileSave($parser, Parse::Pidl::Samba::NDR::Parser::Parse($ndr, $parser));
}
if (defined($opt_eth_parser)) {
require Parse::Pidl::Ethereal::NDR::Parser;
- my($eparser) = ($opt_eth_parser or dirname($output) . "/packet-dcerpc-$basename.c");
+ my($eparser) = ($opt_eth_parser or "$outputdir/packet-dcerpc-$basename.c");
Parse::Pidl::Util::FileSave($eparser, Parse::Pidl::Ethereal::NDR::Parser::Parse($ndr, $basename, $eparser));
}
Modified: branches/SAMBA_4_0/source/script/build_idl.sh
===================================================================
--- branches/SAMBA_4_0/source/script/build_idl.sh 2005-07-27 17:41:07 UTC (rev 8800)
+++ branches/SAMBA_4_0/source/script/build_idl.sh 2005-07-27 18:53:07 UTC (rev 8801)
@@ -6,7 +6,7 @@
[ -d librpc/gen_ndr ] || mkdir -p librpc/gen_ndr || exit 1
-PIDL="$PERL -Ibuild/pidl ./build/pidl/pidl --output librpc/gen_ndr/ndr_ --parse --header --parser --server --client --dcom-proxy --com-header --swig --odl --ejs $PIDL_EXTRA_ARGS"
+PIDL="$PERL -Ibuild/pidl ./build/pidl/pidl --outputdir librpc/gen_ndr --parse --header --parser --server --client --dcom-proxy --com-header --swig --odl --ejs $PIDL_EXTRA_ARGS"
if [ x$FULLBUILD = xFULL ]; then
echo Rebuilding all idl files in librpc/idl
More information about the samba-cvs
mailing list