diff options
| author | Andrew Tridgell <tridge@samba.org> | 2003-11-20 04:36:09 +0000 |
|---|---|---|
| committer | Andrew Tridgell <tridge@samba.org> | 2003-11-20 04:36:09 +0000 |
| commit | b2fd4284b6935f93514cd7d165ab481101e92472 (patch) | |
| tree | b6826c47888b2786f2f7e74f63ae8df7d4b65843 /source4/build/pidl/pidl.pl | |
| parent | 8f0f97b078f45abbd001a1fa893455bd27d072cd (diff) | |
| download | samba-b2fd4284b6935f93514cd7d165ab481101e92472.tar.gz samba-b2fd4284b6935f93514cd7d165ab481101e92472.tar.bz2 samba-b2fd4284b6935f93514cd7d165ab481101e92472.zip | |
use a precompiled grammer in pidl. This speeds up pidl by about a
factor of 2 on my system.
(This used to be commit a291dd835f68ae5a109670b1d1ca1a48b2aacfb6)
Diffstat (limited to 'source4/build/pidl/pidl.pl')
| -rwxr-xr-x | source4/build/pidl/pidl.pl | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/source4/build/pidl/pidl.pl b/source4/build/pidl/pidl.pl index 06bdb92b12..484223d4aa 100755 --- a/source4/build/pidl/pidl.pl +++ b/source4/build/pidl/pidl.pl @@ -8,12 +8,10 @@ use strict; -my($PIDLBASE) = "$ENV{HOME}/pidl"; use lib "$ENV{HOME}/pidl"; use Getopt::Long; -use Data::Dumper; -use Parse::RecDescent; +use idl; use dump; use header; use parser; @@ -43,8 +41,7 @@ sub IdlParse($) $item[1] : "XX_" . $item[0] . "_XX[$#item]" }; my($filename) = shift; - my($grammer) = util::FileLoad("$PIDLBASE/idl.gram"); - my($parser) = Parse::RecDescent->new($grammer); + my($parser) = idl->new; my($saved_sep) = $/; undef $/; |