From 36c71dae935ba4b18896ffcfc069a64130731dfd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Aug 2001 20:35:52 +0000
Subject: generate the doc in Common.pm from Common/*.pm

---
 MDK/.cvsignore   |  1 +
 MDK/Common.pm    | 60 --------------------------------------------
 MDK/Common.pm.pl | 76 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 77 insertions(+), 60 deletions(-)
 create mode 100644 MDK/.cvsignore
 delete mode 100644 MDK/Common.pm
 create mode 100644 MDK/Common.pm.pl

(limited to 'MDK')

diff --git a/MDK/.cvsignore b/MDK/.cvsignore
new file mode 100644
index 0000000..d74cfd1
--- /dev/null
+++ b/MDK/.cvsignore
@@ -0,0 +1 @@
+Common.pm
diff --git a/MDK/Common.pm b/MDK/Common.pm
deleted file mode 100644
index 5819b01..0000000
--- a/MDK/Common.pm
+++ /dev/null
@@ -1,60 +0,0 @@
-=head1 NAME
-
-MDK::Common - miscellaneous functions
-
-=head1 SYNOPSIS
-
-    use MDK::Common;
-    # exports all functions, equivalent to
-
-    use MDK::Common::DataStructure qw(:all);
-    use MDK::Common::File qw(:all);
-    use MDK::Common::Func qw(:all);
-    use MDK::Common::Math qw(:all);
-    use MDK::Common::String qw(:all);
-    use MDK::Common::System qw(:all);
-    use MDK::Common::Various qw(:all);
-
-=head1 DESCRIPTION
-
-C<MDK::Common> is a collection of packages containing various simple functions:
-L<MDK::Common::DataStructure>,
-L<MDK::Common::File>,
-L<MDK::Common::Func>,
-L<MDK::Common::Globals>,
-L<MDK::Common::Math>,
-L<MDK::Common::String>,
-L<MDK::Common::System>,
-L<MDK::Common::Various>.
-
-=head1 EXPORTS
-
-C<MDK::Common> exports the functions in the package mentioned above. See their
-manpage for more.
-
-=head1 COPYRIGHT
-
-Copyright (c) 2001 MandrakeSoft <pixel@mandrakesoft.com>. All rights reserved.
-This program is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=cut
-
-package MDK::Common;
-
-use MDK::Common::DataStructure qw(:all);
-use MDK::Common::File qw(:all);
-use MDK::Common::Func qw(:all);
-use MDK::Common::Math qw(:all);
-use MDK::Common::String qw(:all);
-use MDK::Common::System qw(:all);
-use MDK::Common::Various qw(:all);
-
-use vars qw(@ISA @EXPORT $VERSION); #);
-@ISA = qw(Exporter);
-# perl_checker: RE-EXPORT-ALL
-@EXPORT = map { @$_ } map { values %{'MDK::Common::' . $_ . 'EXPORT_TAGS'} } grep { /::$/ } keys %MDK::Common::;
-
-$VERSION = "1.0";
-
-1;
diff --git a/MDK/Common.pm.pl b/MDK/Common.pm.pl
new file mode 100644
index 0000000..328ace6
--- /dev/null
+++ b/MDK/Common.pm.pl
@@ -0,0 +1,76 @@
+
+
+print <<'EOF';
+=head1 NAME
+
+MDK::Common - miscellaneous functions
+
+=head1 SYNOPSIS
+
+    use MDK::Common;
+    # exports all functions, equivalent to
+
+    use MDK::Common::DataStructure qw(:all);
+    use MDK::Common::File qw(:all);
+    use MDK::Common::Func qw(:all);
+    use MDK::Common::Math qw(:all);
+    use MDK::Common::String qw(:all);
+    use MDK::Common::System qw(:all);
+    use MDK::Common::Various qw(:all);
+
+=head1 DESCRIPTION
+
+C<MDK::Common> is a collection of packages containing various simple functions:
+L<MDK::Common::DataStructure>,
+L<MDK::Common::File>,
+L<MDK::Common::Func>,
+L<MDK::Common::Globals>,
+L<MDK::Common::Math>,
+L<MDK::Common::String>,
+L<MDK::Common::System>,
+L<MDK::Common::Various>.
+
+EOF
+
+foreach my $f (<MDK/Common/*.pm>) {
+    (my $pkg = $f) =~ s|/|::|g;
+    open F, $f or die "can't open file $f";
+    while (<F>) {
+	if (/^=head1 (EXPORTS|OTHER)/ .. /^=back/) {
+	    s/^=head1 EXPORTS/=head1 EXPORTS from $pkg/;
+	    s/^=head1 OTHER/=head1 OTHER in $pkg/;
+	    s/^=back/=back\n/;
+	    print;
+	}
+    }
+}
+
+
+print <<'EOF';
+=head1 COPYRIGHT
+
+Copyright (c) 2001 MandrakeSoft <pixel@mandrakesoft.com>. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
+package MDK::Common;
+
+use MDK::Common::DataStructure qw(:all);
+use MDK::Common::File qw(:all);
+use MDK::Common::Func qw(:all);
+use MDK::Common::Math qw(:all);
+use MDK::Common::String qw(:all);
+use MDK::Common::System qw(:all);
+use MDK::Common::Various qw(:all);
+
+use vars qw(@ISA @EXPORT $VERSION); #);
+@ISA = qw(Exporter);
+# perl_checker: RE-EXPORT-ALL
+@EXPORT = map { @$_ } map { values %{'MDK::Common::' . $_ . 'EXPORT_TAGS'} } grep { /::$/ } keys %MDK::Common::;
+
+$VERSION = "1.0";
+
+1;
+EOF
-- 
cgit v1.2.1