[pdf-devel] FS#52: Automatic generation of the Sources Guide

[gerel]

Hey all,

jemarch, I just wrote a small script for printing MANIFEST.wiki files. Tell me
if it's enough for the task. Sorry for my delay.


=== srcinfo-extractor.pl ===

#!/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>;
    close(FILE);
}



##
# MAIN PROGRAM
###

my @dirs;

opendir (DIR, $TOPDIR) or die "Couldn't open $TOPDIR\n";
@dirs = 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;

=== EOF srcinfo-extractor.pl ===


cheers


-gerel