diff options
Diffstat (limited to 'source4/pidl')
22 files changed, 60 insertions, 0 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Compat.pm b/source4/pidl/lib/Parse/Pidl/Compat.pm index 39cb67fd71..2e7d686249 100644 --- a/source4/pidl/lib/Parse/Pidl/Compat.pm +++ b/source4/pidl/lib/Parse/Pidl/Compat.pm @@ -8,6 +8,9 @@ package Parse::Pidl::Compat; use Parse::Pidl::Util qw(has_property); use strict; +use vars qw($VERSION); +$VERSION = '0.01'; + my %supported_properties = ( # interface "helpstring" => ["INTERFACE", "FUNCTION"], diff --git a/source4/pidl/lib/Parse/Pidl/Dump.pm b/source4/pidl/lib/Parse/Pidl/Dump.pm index 7f426c1c0b..80219a8f1a 100644 --- a/source4/pidl/lib/Parse/Pidl/Dump.pm +++ b/source4/pidl/lib/Parse/Pidl/Dump.pm @@ -7,6 +7,8 @@ package Parse::Pidl::Dump; use Exporter; +use vars qw($VERSION); +$VERSION = '0.01'; @ISA = qw(Exporter); @EXPORT_OK = qw(DumpTypedef DumpStruct DumpEnum DumpBitmap DumpUnion DumpFunction); diff --git a/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm b/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm index c12731eca2..706a259306 100644 --- a/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm +++ b/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm @@ -6,6 +6,8 @@ package Parse::Pidl::Ethereal::Conformance; require Exporter; +use vars qw($VERSION); +$VERSION = '0.01'; @ISA = qw(Exporter); @EXPORT_OK = qw(ReadConformance); diff --git a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm index 4b1dd26876..8441ea25b9 100644 --- a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm +++ b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm @@ -15,6 +15,9 @@ use Parse::Pidl::NDR; 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 = (); diff --git a/source4/pidl/lib/Parse/Pidl/NDR.pm b/source4/pidl/lib/Parse/Pidl/NDR.pm index e00a0c9828..42c9fd133b 100644 --- a/source4/pidl/lib/Parse/Pidl/NDR.pm +++ b/source4/pidl/lib/Parse/Pidl/NDR.pm @@ -8,6 +8,8 @@ package Parse::Pidl::NDR; require Exporter; +use vars qw($VERSION); +$VERSION = '0.01'; @ISA = qw(Exporter); @EXPORT = qw(GetPrevLevel GetNextLevel ContainsDeferred); diff --git a/source4/pidl/lib/Parse/Pidl/ODL.pm b/source4/pidl/lib/Parse/Pidl/ODL.pm index 03d66bfc45..082deaea1d 100644 --- a/source4/pidl/lib/Parse/Pidl/ODL.pm +++ b/source4/pidl/lib/Parse/Pidl/ODL.pm @@ -8,6 +8,9 @@ use Parse::Pidl::Util qw(has_property); 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($$) diff --git a/source4/pidl/lib/Parse/Pidl/Samba/COM/Header.pm b/source4/pidl/lib/Parse/Pidl/Samba/COM/Header.pm index 7b6c4db212..0289a688ba 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/COM/Header.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/COM/Header.pm @@ -6,6 +6,9 @@ package Parse::Pidl::Samba::COM::Header; use Parse::Pidl::Typelist; use Parse::Pidl::Util qw(has_property); +use vars qw($VERSION); +$VERSION = '0.01'; + use strict; sub GetArgumentProtoList($) diff --git a/source4/pidl/lib/Parse/Pidl/Samba/COM/Proxy.pm b/source4/pidl/lib/Parse/Pidl/Samba/COM/Proxy.pm index c94ef59ae9..ab56d87492 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/COM/Proxy.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/COM/Proxy.pm @@ -9,6 +9,9 @@ package Parse::Pidl::Samba::COM::Proxy; use Parse::Pidl::Samba::COM::Header; use Parse::Pidl::Util qw(has_property); +use vars qw($VERSION); +$VERSION = '0.01'; + use strict; my($res); diff --git a/source4/pidl/lib/Parse/Pidl/Samba/COM/Stub.pm b/source4/pidl/lib/Parse/Pidl/Samba/COM/Stub.pm index 785c34fc77..17b33a6872 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/COM/Stub.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/COM/Stub.pm @@ -10,6 +10,9 @@ package Parse::Pidl::Samba::COM::Stub; use Parse::Pidl::Util qw(has_property); use strict; +use vars qw($VERSION); +$VERSION = '0.01'; + my($res); sub pidl($) diff --git a/source4/pidl/lib/Parse/Pidl/Samba/EJS.pm b/source4/pidl/lib/Parse/Pidl/Samba/EJS.pm index 743139c8cd..2cac7d81af 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/EJS.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/EJS.pm @@ -10,6 +10,9 @@ use strict; use Parse::Pidl::Typelist; use Parse::Pidl::Util qw(has_property); +use vars qw($VERSION); +$VERSION = '0.01'; + my($res); my %constants; diff --git a/source4/pidl/lib/Parse/Pidl/Samba/EJSHeader.pm b/source4/pidl/lib/Parse/Pidl/Samba/EJSHeader.pm index 81c75705de..fed717cad0 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/EJSHeader.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/EJSHeader.pm @@ -9,6 +9,9 @@ use strict; use Parse::Pidl::Typelist; use Parse::Pidl::Util qw(has_property); +use vars qw($VERSION); +$VERSION = '0.01'; + my($res); sub pidl ($) diff --git a/source4/pidl/lib/Parse/Pidl/Samba/Header.pm b/source4/pidl/lib/Parse/Pidl/Samba/Header.pm index d88b37e229..ed8952e746 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/Header.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/Header.pm @@ -11,6 +11,9 @@ use Parse::Pidl::Typelist qw(mapType); 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); diff --git a/source4/pidl/lib/Parse/Pidl/Samba/NDR/Client.pm b/source4/pidl/lib/Parse/Pidl/Samba/NDR/Client.pm index 126dbc3ba9..10b8dc71d8 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/NDR/Client.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/NDR/Client.pm @@ -5,6 +5,9 @@ package Parse::Pidl::Samba::NDR::Client; +use vars qw($VERSION); +$VERSION = '0.01'; + use strict; my($res); diff --git a/source4/pidl/lib/Parse/Pidl/Samba/NDR/Header.pm b/source4/pidl/lib/Parse/Pidl/Samba/NDR/Header.pm index 9aa0ed8daf..daf7ba0238 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/NDR/Header.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/NDR/Header.pm @@ -12,6 +12,9 @@ use Parse::Pidl::Util qw(has_property is_constant); 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); diff --git a/source4/pidl/lib/Parse/Pidl/Samba/NDR/Parser.pm b/source4/pidl/lib/Parse/Pidl/Samba/NDR/Parser.pm index 513fa0826d..3f08cbb527 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/NDR/Parser.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/NDR/Parser.pm @@ -12,6 +12,9 @@ use Parse::Pidl::Typelist qw(hasType getType mapType); 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; diff --git a/source4/pidl/lib/Parse/Pidl/Samba/NDR/Server.pm b/source4/pidl/lib/Parse/Pidl/Samba/NDR/Server.pm index a8c159572b..99982e4ad1 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/NDR/Server.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/NDR/Server.pm @@ -8,6 +8,9 @@ package Parse::Pidl::Samba::NDR::Server; use strict; +use vars qw($VERSION); +$VERSION = '0.01'; + my($res); sub pidl($) diff --git a/source4/pidl/lib/Parse/Pidl/Samba/SWIG.pm b/source4/pidl/lib/Parse/Pidl/Samba/SWIG.pm index 409095804f..471c3e9927 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/SWIG.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/SWIG.pm @@ -5,6 +5,9 @@ package Parse::Pidl::Samba::SWIG; +use vars qw($VERSION); +$VERSION = '0.01'; + use strict; sub pidl($) diff --git a/source4/pidl/lib/Parse/Pidl/Samba/TDR.pm b/source4/pidl/lib/Parse/Pidl/Samba/TDR.pm index 124cb61bb4..5d3d236e43 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/TDR.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/TDR.pm @@ -6,6 +6,9 @@ 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 = ""; diff --git a/source4/pidl/lib/Parse/Pidl/Samba/Template.pm b/source4/pidl/lib/Parse/Pidl/Samba/Template.pm index eb71b6d707..fea4b47dee 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba/Template.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba/Template.pm @@ -5,6 +5,9 @@ package Parse::Pidl::Samba::Template; +use vars qw($VERSION); +$VERSION = '0.01'; + use strict; my($res); diff --git a/source4/pidl/lib/Parse/Pidl/Test.pm b/source4/pidl/lib/Parse/Pidl/Test.pm index 34ea80c95c..66f5c73595 100644 --- a/source4/pidl/lib/Parse/Pidl/Test.pm +++ b/source4/pidl/lib/Parse/Pidl/Test.pm @@ -8,6 +8,8 @@ use strict; 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}; diff --git a/source4/pidl/lib/Parse/Pidl/Typelist.pm b/source4/pidl/lib/Parse/Pidl/Typelist.pm index 10a4baf7e7..7dfbe761de 100644 --- a/source4/pidl/lib/Parse/Pidl/Typelist.pm +++ b/source4/pidl/lib/Parse/Pidl/Typelist.pm @@ -8,6 +8,8 @@ package Parse::Pidl::Typelist; 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; diff --git a/source4/pidl/lib/Parse/Pidl/Util.pm b/source4/pidl/lib/Parse/Pidl/Util.pm index 572df0dc09..fec1301a59 100644 --- a/source4/pidl/lib/Parse/Pidl/Util.pm +++ b/source4/pidl/lib/Parse/Pidl/Util.pm @@ -7,6 +7,8 @@ package Parse::Pidl::Util; 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; |