use Parse::Pidl::Util qw(has_property);
use strict;
+use vars qw($VERSION);
+$VERSION = '0.01';
+
my %supported_properties = (
# interface
"helpstring" => ["INTERFACE", "FUNCTION"],
use Exporter;
+use vars qw($VERSION);
+$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT_OK = qw(DumpTypedef DumpStruct DumpEnum DumpBitmap DumpUnion DumpFunction);
package Parse::Pidl::Ethereal::Conformance;
require Exporter;
+use vars qw($VERSION);
+$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT_OK = qw(ReadConformance);
use Parse::Pidl::Dump qw(DumpTypedef DumpFunction);
use Parse::Pidl::Ethereal::Conformance qw(ReadConformance);
+use vars qw($VERSION);
+$VERSION = '0.01';
+
my @ett;
my %hf_used = ();
package Parse::Pidl::NDR;
require Exporter;
+use vars qw($VERSION);
+$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw(GetPrevLevel GetNextLevel ContainsDeferred);
use Parse::Pidl::Typelist qw(hasType getType);
use strict;
+use vars qw($VERSION);
+$VERSION = '0.01';
+
#####################################################################
# find an interface in an array of interfaces
sub get_interface($$)
use Parse::Pidl::Typelist;
use Parse::Pidl::Util qw(has_property);
+use vars qw($VERSION);
+$VERSION = '0.01';
+
use strict;
sub GetArgumentProtoList($)
use Parse::Pidl::Samba::COM::Header;
use Parse::Pidl::Util qw(has_property);
+use vars qw($VERSION);
+$VERSION = '0.01';
+
use strict;
my($res);
use Parse::Pidl::Util qw(has_property);
use strict;
+use vars qw($VERSION);
+$VERSION = '0.01';
+
my($res);
sub pidl($)
use Parse::Pidl::Typelist;
use Parse::Pidl::Util qw(has_property);
+use vars qw($VERSION);
+$VERSION = '0.01';
+
my($res);
my %constants;
use Parse::Pidl::Typelist;
use Parse::Pidl::Util qw(has_property);
+use vars qw($VERSION);
+$VERSION = '0.01';
+
my($res);
sub pidl ($)
use Parse::Pidl::Util qw(has_property is_constant);
use Parse::Pidl::NDR qw(GetNextLevel GetPrevLevel);
+use vars qw($VERSION);
+$VERSION = '0.01';
+
my($res);
my($tab_depth);
package Parse::Pidl::Samba::NDR::Client;
+use vars qw($VERSION);
+$VERSION = '0.01';
+
use strict;
my($res);
use Parse::Pidl::NDR qw(GetNextLevel GetPrevLevel);
use Parse::Pidl::Samba::NDR::Parser;
+use vars qw($VERSION);
+$VERSION = '0.01';
+
my($res);
my($tab_depth);
use Parse::Pidl::Util qw(has_property ParseExpr);
use Parse::Pidl::NDR qw(GetPrevLevel GetNextLevel ContainsDeferred);
+use vars qw($VERSION);
+$VERSION = '0.01';
+
# list of known types
my %typefamily;
use strict;
+use vars qw($VERSION);
+$VERSION = '0.01';
+
my($res);
sub pidl($)
package Parse::Pidl::Samba::SWIG;
+use vars qw($VERSION);
+$VERSION = '0.01';
+
use strict;
sub pidl($)
package Parse::Pidl::Samba::TDR;
use Parse::Pidl::Util qw(has_property ParseExpr is_constant);
+use vars qw($VERSION);
+$VERSION = '0.01';
+
use strict;
my $ret = "";
package Parse::Pidl::Samba::Template;
+use vars qw($VERSION);
+$VERSION = '0.01';
+
use strict;
my($res);
use Parse::Pidl::Util;
use Getopt::Long;
+use vars qw($VERSION);
+$VERSION = '0.01';
my $cc = $ENV{CC};
my @cflags = split / /, $ENV{CFLAGS};
my @ldflags = split / /, $ENV{LDFLAGS};
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(hasType getType mapType);
+use vars qw($VERSION);
+$VERSION = '0.01';
use Parse::Pidl::Util qw(has_property);
use strict;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(has_property property_matches ParseExpr is_constant make_str);
+use vars qw($VERSION);
+$VERSION = '0.01';
use strict;