diff options
Diffstat (limited to 'tools/pidl/pidl')
-rwxr-xr-x | tools/pidl/pidl | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/tools/pidl/pidl b/tools/pidl/pidl index 8084213e5d..0bd841a5ff 100755 --- a/tools/pidl/pidl +++ b/tools/pidl/pidl @@ -4,7 +4,7 @@ # package to parse IDL files and generate code for # rpc functions in Samba # Copyright tridge@samba.org 2000-2003 -# Copyright jelmer@samba.org 2005 +# Copyright jelmer@samba.org 2005-2007 # released under the GNU GPL =pod @@ -17,7 +17,7 @@ pidl - An IDL compiler written in Perl pidl --help -pidl [--outputdir[=OUTNAME]] [--includedir DIR...] [--parse-idl-tree] [--dump-idl-tree] [--dump-ndr-tree] [--header[=OUTPUT]] [--ejs[=OUTPUT]] [--swig[=OUTPUT]] [--uint-enums] [--ndr-parser[=OUTPUT]] [--client] [--server] [--dcom-proxy] [--com-header] [--warn-compat] [--quiet] [--verbose] [--template] [--ws-parser[=OUTPUT]] [--diff] [--dump-idl] [--tdr-parser[=OUTPUT]] [--samba3-ndr-client[=OUTPUT]] [--samba3-ndr-server[=OUTPUT]] [<idlfile>.idl]... +pidl [--outputdir[=OUTNAME]] [--includedir DIR...] [--parse-idl-tree] [--dump-idl-tree] [--dump-ndr-tree] [--header[=OUTPUT]] [--ejs[=OUTPUT]] [--swig[=OUTPUT]] [--ndr-parser[=OUTPUT]] [--client] [--server] [--dcom-proxy] [--com-header] [--warn-compat] [--quiet] [--verbose] [--template] [--ws-parser[=OUTPUT]] [--diff] [--dump-idl] [--tdr-parser[=OUTPUT]] [--samba3-ndr-client[=OUTPUT]] [--samba3-ndr-server[=OUTPUT]] [<idlfile>.idl]... =head1 DESCRIPTION @@ -319,6 +319,9 @@ Specifies that a size of I<length> bytes should be read, followed by a blob of that size, which will be parsed as NDR. +subcontext() is deprecated now, and should not be used in new code. +Instead, use represent_as() or transmit_as(). + =item flag Specify boolean options, mostly used for @@ -391,7 +394,7 @@ pidl README by Andrew Tridgell. use strict; -use FindBin qw($RealBin); +use FindBin qw($RealBin $Script); use lib "$RealBin"; use lib "$RealBin/lib"; use Getopt::Long; @@ -451,7 +454,6 @@ my($opt_parse_idl_tree) = 0; my($opt_dump_idl_tree); my($opt_dump_ndr_tree); my($opt_dump_idl) = 0; -my($opt_uint_enums) = 0; my($opt_diff) = 0; my($opt_header); my($opt_samba3_header); @@ -482,7 +484,7 @@ print "perl IDL parser and code generator Copyright (C) Andrew Tridgell <tridge\@samba.org> Copyright (C) Jelmer Vernooij <jelmer\@samba.org> -Usage: pidl [options] [--] <idlfile> [<idlfile>...] +Usage: $Script [options] [--] <idlfile> [<idlfile>...] Generic Options: --help this help page @@ -501,7 +503,6 @@ Debugging: Samba 4 output: --header[=OUTFILE] create generic header file [BASENAME.h] - --uint-enums don't use C enums, instead use uint* types --ndr-parser[=OUTFILE] create a C NDR parser [ndr_BASENAME.c] --client[=OUTFILE] create a C NDR client [ndr_BASENAME_c.c] --tdr-parser[=OUTFILE] create a C TDR parser [tdr_BASENAME.c] @@ -532,7 +533,6 @@ my $result = GetOptions ( 'dump-idl-tree:s' => \$opt_dump_idl_tree, 'parse-idl-tree' => \$opt_parse_idl_tree, 'dump-ndr-tree:s' => \$opt_dump_ndr_tree, - 'uint-enums' => \$opt_uint_enums, 'samba3-ndr-client:s' => \$opt_samba3_ndr_client, 'samba3-ndr-server:s' => \$opt_samba3_ndr_server, 'header:s' => \$opt_header, @@ -590,10 +590,6 @@ sub process_file($) SaveStructure($pidl_file, $pidl) or die "Failed to save $pidl_file\n"; } - if ($opt_uint_enums) { - Parse::Pidl::Util::setUseUintEnums(1); - } - if ($opt_dump_idl) { require Parse::Pidl::Dump; print Parse::Pidl::Dump($pidl); @@ -606,7 +602,6 @@ sub process_file($) unlink($tempfile); } - my $comh_filename = ($opt_com_header or "$outputdir/com_$basename.h"); if (defined($opt_com_header)) { require Parse::Pidl::Samba4::COM::Header; @@ -770,7 +765,7 @@ $dcom } if (scalar(@ARGV) == 0) { - print "pidl: no input files\n"; + print "$Script: no input files\n"; exit(1); } |