#!/usr/bin/perl -w
# $Id: mktut,v 1.1.1.1 2002/12/20 01:37:30 mike Exp $

# mktut - create "sac" tutorial as a POD from specified stages

use IO::File;
use strict;


if (@ARGV < 2) {
    print STDERR "Usage: $0 <head-file> <tail-file> [<stage-number>...]\n";
    exit 1;
}

my $headname = shift @ARGV;
my $tailname = shift @ARGV;

cat($headname);
foreach my $stagenum (@ARGV) {
    process($stagenum);
}
cat($tailname);


sub cat {
    my($filename, $indent) = @_;

    my $fh = new IO::File("<$filename")
	or die "can't open '$filename': $!";

    while (my $line = <$fh>) {
	$line = "\t" . $line
	    if defined $indent;

	print $line;
    }

    $fh->close();
}


sub process {
    my($stagenum) = @_;

    print "=head1 STAGE $stagenum\n\n";
    cat("t$stagenum.intro");
    print "\n";

    print "=head2 Stage $stagenum Map\n\n";
    cat("t$stagenum.map", 1);
    print "\n";

    print "=head2 Stage $stagenum Source\n\n";
    cat("t$stagenum.sac", 1);
    print "\n";
}