#!/usr/bin/perl
#
# $Id: bubblestofile,v 1.1 1996/09/08 01:35:52 jwz Exp $
#
#----------------------------------------------------------------------------
#  Copyright (C) 1995-1996 James Macnicol
#
#   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 2, 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 MERCHANTIBILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# for more details.
#-----------------------------------------------------------------------------
#
# Contact me (J.Macnicol@student.anu.edu.au) if you have problems.
#
# [ The moral of this story is use a version of rm which safely backs up
# files when you delete them in case you do something stupid like
# "rm * xpm" which trashed all the scripts in this directory so I had
# to write them again.  Grrrrrr..... ]
#
#-----------------------------------------------------------------------------
#
# This script takes a set of XPM files (from povbubbles, for example)
# whose names are listed in file with extension .names (of same format
# as output by povbubbles) and puts them together into a file which can
# loaded with the -file option or place in a directory suitable for
# use with the -directory option to bubbles.  Note that neither of these
# options are available if you have just compiled bubbles as provided.
# You must edit bubbles.h to enable these.  Files generated by this script
# have by default the extension ".bub".
#
# To use it, provide as an argument the base-name of the .names file,
# i.e. if you ran povbubbles on the file foo.pov by typing "povbubbles foo"
# then this created a file "foo.names" so you can now make the loadable file
# "foo.bub" by typing "bubblestofile foo".
#

sub die_help {
    print STDERR "Usage: $0 [-help] base-name\n";
    print STDERR "  -help\n";
    print STDERR "    gives this message.\n";
    print STDERR "  base-name is the name of the file used to generate\n";
    print STDERR "    the XPM files, e.g. if you invoked povbubbles with\n";
    print STDERR "              \"povbubbles foo\"\n";
    print STDERR "    then you should invoke $0 with\n";
    die("              \"$0 foo\"\n");
}

sub die_usage {
    die "Usage: $0 [-help] base-name\n";
}

$infile = undef;

# Process command line arguments
while ($op = shift) {
    if ($op eq "-help") {
        &die_help;
    } else {
        $infile = $op;
        # Ignore further arguments
        break;
    }
}
if ($infile eq undef) {
    &die_usage;
}

$namesfile = $infile . ".names";
$outfile = $infile . ".bub";

if (! -f $namesfile) {
    die("File list $namesfile doesn't exist\n");
}

if (-f $outfile) {
    print "Backing up $outfile\n";
    system("mv -f $outfile $outfile.bak");
}

open(OUT, ">$outfile") || die("Couldn't open $outfile\n");
open(NAMES, $namesfile) || die ("Couldn't open $namesfile\n");
$numbubbles = 0;
while (<NAMES>) {
    if (/\s*(\S+)\:(\S+)\s*/) {
	$filename = $1;
	$xpmname = $2;
	open(CAT, $filename) || die("Couldn't open file $filename listed in\
$namesfile\n");
	while (<CAT>) {
	    print OUT;
	}
	close(CAT);
    } else {
	print STDERR "Can't understand the line \"$_\"\n";
	print STDERR "  in $namesfile.  Ignoring...\n";
    }
}
close(NAMES);
close(OUT);