[pdf-devel] libgnupdf ChangeLog prmgt/srcinfo-extractor.pl

[Gerardo E. Gidoni]

CVSROOT:        /sources/pdf
Module name:    libgnupdf
Changes by:     Gerardo E. Gidoni <gerel>       08/07/07 21:14:34

Modified files:
        .              : ChangeLog 
Added files:
        prmgt          : srcinfo-extractor.pl 

Log message:
        added source info extractor

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/libgnupdf/ChangeLog?cvsroot=pdf&r1=1.274&r2=1.275
http://cvs.savannah.gnu.org/viewcvs/libgnupdf/prmgt/srcinfo-extractor.pl?cvsroot=pdf&rev=1.1

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/pdf/libgnupdf/ChangeLog,v
retrieving revision 1.274
retrieving revision 1.275
diff -u -b -r1.274 -r1.275
--- ChangeLog   7 Jul 2008 20:22:30 -0000       1.274
+++ ChangeLog   7 Jul 2008 21:14:33 -0000       1.275
@@ -1,3 +1,7 @@
+2008-07-07  gerel  <address@hidden>
+
+       * prmgt/srcinfo-extractor.pl: FS#52, first add.
+
 2008-07-08  Jose E. Marchesi  <address@hidden>
 
        * doc/gnupdf.texi: Grammatical fixes and new example. Patch by Zac

Index: prmgt/srcinfo-extractor.pl
===================================================================
RCS file: prmgt/srcinfo-extractor.pl
diff -N prmgt/srcinfo-extractor.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ prmgt/srcinfo-extractor.pl  7 Jul 2008 21:14:33 -0000       1.1
@@ -0,0 +1,64 @@
+#!/usr/bin/env perl
+
+# Copyright (C) 2008 Free Software Foundation, Inc.
+
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+use warnings;
+use strict;
+
+##
+# This script traverses every directory in the root and looks for a
+# "MANIFEST.wiki" file, from which the directory information is then extracted.
+###
+
+my $TOPDIR="..";
+my $DOCFILE = "MANIFEST.wiki";
+
+sub print_docfile
+{
+    my $str = shift;
+    open (FILE, $str);
+    print <FILE>;
+    print "\n"; # in case it's not at end of FILE.
+    close(FILE);
+}
+
+
+
+##
+# MAIN PROGRAM
+###
+
+my @dirs;
+
+opendir (DIR, $TOPDIR) or die "Couldn't open $TOPDIR\n";
address@hidden = grep { !m/^\./ && -d "$TOPDIR/$_" } readdir(DIR);
+closedir(DIR);
+
+# push these by hand
+push (@dirs, ""); # for TOPDIR
+push (@dirs, "src/base");
+push (@dirs, "src/object");
+push (@dirs, "src/document");
+push (@dirs, "src/page");
+
+foreach my $dir (sort(@dirs)){
+    my $file = $TOPDIR . '/' . $dir . '/' . $DOCFILE;
+    if (-e $file and -r $file){
+        print_docfile ($file);
+    }
+}
+
+0;