diff options
author | Andrew Tridgell <tridge@samba.org> | 2003-11-06 12:29:23 +0000 |
---|---|---|
committer | Andrew Tridgell <tridge@samba.org> | 2003-11-06 12:29:23 +0000 |
commit | fa3db33a5441ed31f9d8c19dc6984d160b86e4da (patch) | |
tree | 12fd394ae4baad3eeded82953c39959a3521f362 /source4/build/pidl/pidl.pl | |
parent | 60f4bb657a5bbec766e170cb0755b1f36a33c8bc (diff) | |
download | samba-fa3db33a5441ed31f9d8c19dc6984d160b86e4da.tar.gz samba-fa3db33a5441ed31f9d8c19dc6984d160b86e4da.tar.bz2 samba-fa3db33a5441ed31f9d8c19dc6984d160b86e4da.zip |
updated pidl to auto-generate the ndr_push_*() functions for the
Samba4 rpc framework
not complete, but sufficient for a number of lsa functions
(This used to be commit 42cd6904f51bac1ff92f0aea0deffb11864dfac2)
Diffstat (limited to 'source4/build/pidl/pidl.pl')
-rwxr-xr-x | source4/build/pidl/pidl.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl index 6b32ade75a..a332671e34 100755 --- a/source4/build/pidl/pidl.pl +++ b/source4/build/pidl/pidl.pl @@ -7,6 +7,10 @@ # released under the GNU GPL use strict; + +my($PIDLBASE) = "$ENV{HOME}/pidl"; +use lib "$ENV{HOME}/pidl"; + use Getopt::Long; use Data::Dumper; use Parse::RecDescent; @@ -35,9 +39,10 @@ sub IdlParse($) $item[1] : "XX_" . $item[0] . "_XX[$#item]" }; my($filename) = shift; - my($grammer) = util::FileLoad("idl.gram"); + my($grammer) = util::FileLoad("$PIDLBASE/idl.gram"); my($parser) = Parse::RecDescent->new($grammer); my($saved_sep) = $/; + undef $/; my($idl) = $parser->idl(`cpp $filename`); $/ = $saved_sep; |