#!/usr/local/bin/perl
#
# Perl script to generate the doppler makefile starting from makefile.template
#

if(@ARGV != 1){
    print "usage: genmake <setup file>\n";
    print "See main doppler directory for examples.\n";
    exit;
}

$setup = shift;

if(-e $setup){
    open(TEMP,"makefile.template") or die "makefile.template not found!\n";
    open(MAKE,">makefile") or die "Failed to open makefile!\n";

    $not_done = 1;
    while(<TEMP>){
	print MAKE $_;
	if(/^ *$/ && $not_done){
	    $not_done = 0;
	    open(SETUP,"$setup") or die "$setup not found!\n";
	    while(<SETUP>){
		print MAKE;
	    }
	    close(SETUP);
	}
    }
    close(TEMP);
    close(MAKE);

}else{
    print "$setup not found.\n";
    print "See main doppler directory for examples.\n";
}
exit;




