summaryrefslogtreecommitdiff
path: root/source4
diff options
context:
space:
mode:
authorJulien Kerihuel <j.kerihuel@openchange.org>2008-01-18 18:30:00 +0100
committerJelmer Vernooij <jelmer@samba.org>2008-01-18 18:31:03 +0100
commit2cf35f206817bfcc77a3f258fe220aac2b6f19a8 (patch)
tree9f92104e612cf2c3500f0a8579dcf81d88120921 /source4
parentb39676089e8a4b0f2cca96c15ed21e054a78e8e2 (diff)
downloadsamba-2cf35f206817bfcc77a3f258fe220aac2b6f19a8.tar.gz
samba-2cf35f206817bfcc77a3f258fe220aac2b6f19a8.tar.bz2
samba-2cf35f206817bfcc77a3f258fe220aac2b6f19a8.zip
pidl: Add --version argument.
(This used to be commit ed1e58e8b35bc971451f4e0a357daa903cd7820d)
Diffstat (limited to 'source4')
-rw-r--r--source4/pidl/lib/Parse/Pidl.pm2
-rwxr-xr-xsource4/pidl/pidl25
2 files changed, 24 insertions, 3 deletions
diff --git a/source4/pidl/lib/Parse/Pidl.pm b/source4/pidl/lib/Parse/Pidl.pm
index 0c6e0e5727..c2c9463d03 100644
--- a/source4/pidl/lib/Parse/Pidl.pm
+++ b/source4/pidl/lib/Parse/Pidl.pm
@@ -9,7 +9,7 @@ package Parse::Pidl;
require Exporter;
@ISA = qw(Exporter);
-@EXPORT_OK = qw(warning error fatal);
+@EXPORT_OK = qw(warning error fatal $VERSION);
use strict;
diff --git a/source4/pidl/pidl b/source4/pidl/pidl
index 4dfd57dc20..220d62cd71 100755
--- a/source4/pidl/pidl
+++ b/source4/pidl/pidl
@@ -52,6 +52,10 @@ both marshalling/unmarshalling and debugging purposes).
=item I<--help>
Show list of available options.
+
+=item I<--version>
+
+Show pidl version
=item I<--outputdir OUTNAME>
@@ -403,7 +407,7 @@ use lib "$RealBin";
use lib "$RealBin/lib";
use Getopt::Long;
use File::Basename;
-use Parse::Pidl;
+use Parse::Pidl qw ( $VERSION );
use Parse::Pidl::Util;
#####################################################################
@@ -453,6 +457,7 @@ sub FileSave($$)
my(@opt_incdirs) = ();
my($opt_help) = 0;
+my($opt_version) = 0;
my($opt_parse_idl_tree) = 0;
my($opt_dump_idl_tree);
my($opt_dump_ndr_tree);
@@ -483,7 +488,9 @@ my($opt_warn_compat) = 0;
# display help text
sub ShowHelp()
{
-print "perl IDL parser and code generator
+print "perl IDL parser and code generator\n";
+ShowVersion();
+print"
Copyright (C) Andrew Tridgell <tridge\@samba.org>
Copyright (C) Jelmer Vernooij <jelmer\@samba.org>
@@ -491,6 +498,7 @@ Usage: $Script [options] [--] <idlfile> [<idlfile>...]
Generic Options:
--help this help page
+ --version show pidl version
--outputdir=OUTDIR put output in OUTDIR/ [.]
--warn-compat warn about incompatibility with other compilers
--quiet be quiet
@@ -528,9 +536,17 @@ Wireshark parsers:
exit(0);
}
+#########################################
+# Display version
+sub ShowVersion()
+{
+ print "perl IDL version $VERSION\n";
+}
+
# main program
my $result = GetOptions (
'help|h|?' => \$opt_help,
+ 'version' => \$opt_version,
'outputdir=s' => \$opt_outputdir,
'dump-idl' => \$opt_dump_idl,
'dump-idl-tree:s' => \$opt_dump_idl_tree,
@@ -565,6 +581,11 @@ if ($opt_help) {
exit(0);
}
+if ($opt_version) {
+ ShowVersion();
+ exit(0);
+}
+
sub process_file($)
{
my $idl_file = shift;