sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-25 23:21:54 +03:00
Code

r10388: Add version numbers (required for CPAN)

Browse Source
This commit is contained in:
Jelmer Vernooij 2005-09-21 12:57:18 +00:00 committed by Gerald (Jerry) Carter
parent b9e9cca14e
commit 786329576b
22 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
source/pidl/lib/Parse/Pidl/Compat.pm
View File

@ -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"],

2
source/pidl/lib/Parse/Pidl/Dump.pm
View File

@ -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);

2
source/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm
View File

@ -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);

3
source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
View File

@ -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 = ();

2
source/pidl/lib/Parse/Pidl/NDR.pm
View File

@ -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);

3
source/pidl/lib/Parse/Pidl/ODL.pm
View File

@ -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($$)

3
source/pidl/lib/Parse/Pidl/Samba/COM/Header.pm
View File

@ -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($)

3
source/pidl/lib/Parse/Pidl/Samba/COM/Proxy.pm
View File

@ -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);

3
source/pidl/lib/Parse/Pidl/Samba/COM/Stub.pm
View File

@ -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($)

3
source/pidl/lib/Parse/Pidl/Samba/EJS.pm
View File

@ -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;

3
source/pidl/lib/Parse/Pidl/Samba/EJSHeader.pm
View File

@ -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 ($)

3
source/pidl/lib/Parse/Pidl/Samba/Header.pm
View File

@ -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);

3
source/pidl/lib/Parse/Pidl/Samba/NDR/Client.pm
View File

@ -5,6 +5,9 @@
package Parse::Pidl::Samba::NDR::Client;
use vars qw($VERSION);
$VERSION = '0.01';
use strict;
my($res);

3
source/pidl/lib/Parse/Pidl/Samba/NDR/Header.pm
View File

@ -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);

3
source/pidl/lib/Parse/Pidl/Samba/NDR/Parser.pm
View File

@ -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;

3
source/pidl/lib/Parse/Pidl/Samba/NDR/Server.pm
View File

@ -8,6 +8,9 @@ package Parse::Pidl::Samba::NDR::Server;
use strict;
use vars qw($VERSION);
$VERSION = '0.01';
my($res);
sub pidl($)

3
source/pidl/lib/Parse/Pidl/Samba/SWIG.pm
View File

@ -5,6 +5,9 @@
package Parse::Pidl::Samba::SWIG;
use vars qw($VERSION);
$VERSION = '0.01';
use strict;
sub pidl($)

3
source/pidl/lib/Parse/Pidl/Samba/TDR.pm
View File

@ -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 = "";

3
source/pidl/lib/Parse/Pidl/Samba/Template.pm
View File

@ -5,6 +5,9 @@
package Parse::Pidl::Samba::Template;
use vars qw($VERSION);
$VERSION = '0.01';
use strict;
my($res);

2
source/pidl/lib/Parse/Pidl/Test.pm
View File

@ -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};

2
source/pidl/lib/Parse/Pidl/Typelist.pm
View File

@ -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;

2
source/pidl/lib/Parse/Pidl/Util.pm
View File

@ -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;