let's start a TeXCatalogue module, currently quasi empty ;-)

git-svn-id: svn://tug.org/texlive/trunk@4532 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 65 insertions, 0 deletions

diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm
new file mode 100644
index 00000000000..122a4068a6f
--- /dev/null
+++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm
@@ -0,0 +1,65 @@
+#
+# TeXLive::TeXCatalogue
+# module for accessing the TeX Catalogue
+# Copyright 2007 Norbert Preining
+#
+# This file is licensed under the GNU General Public Licence version 2
+# or any later version
+
+die "THIS MODULE IS NOT EVEN CLOSE TO BE FINISHED\n";
+
+package TeXLive::TeXCatalogue;
+
+use XML::Parser;
+
+sub new { 
+  my $class = shift;
+  my %params = @_;
+  my $self = {
+    location => $params{'location'},
+  };
+  bless $self, $class;
+  if (defined($self->{'location'})) {
+    $self->initialize();
+  }
+  return $self;
+}
+
+sub initialize {
+	my $class = shift;
+	die "Not done yet ...\n";
+}
+
+
+1;
+
+
+__END__
+
+=head1 NAME
+
+TeXLive::TeXCatalogue - Accessing the TeX Catalogue
+
+=head1 SYNOPSIS
+
+missing
+
+=head1 DESCRIPTION
+
+The L<TeXLive::TeXCatalogue> module provides access to the data stored
+in the TeX Catalogue.
+
+=head1 AUTHORS AND COPYRIGHT
+
+This module and its documentation was written by 
+Norbert Preining <F<preining@logic.at>> for the TeX Live distribution and both
+are licensed under the GNU General Public License Version 2 or later.
+
+=cut
+
+### Local Variables:
+### perl-indent-level: 2
+### tab-width: 2
+### indent-tabs-mode: nil
+### End:
+# vim:set tabstop=2: #