#!/usr/bin/perl
#
# Copyright (c) 2001-2007 Hypertriton, Inc. <http://hypertriton.com/>
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
# USE OF THIS SOFTWARE EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

sub MKCopy;

sub MKCopy
{
	my ($src, $dir) = @_;
	my $destmk = join('/', 'mk', $src);
	my $srcmk = join('/', $dir, $src);
	my @deps = ();

	print "copy: $src\n";

	unless (-f $srcmk) {
		#print STDERR "src $srcmk: $!\n";
		return 0;
	}
	unless (open(SRC, $srcmk)) {
		#print STDERR "src $srcmk: $!\n";
		return 0;
	}
	chop(@src = <SRC>);
	close(SRC);

	unless (open(DEST, ">$destmk")) {
		print STDERR "dst $destmk: $!\n";
		close(SRC);
		return 0;
	}
	foreach $_ (@src) {
		print DEST $_, "\n";

		if (/^include .+\/mk\/(.+)$/) {
			print "$src: depends on $1\n";
			push @deps, $1;
		}
	}
	close(DEST);

	foreach my $dep (@deps) {
		MKCopy($dep, $dir);
	}
	if ($src eq 'build.www.mk') {
		MKCopy('hstrip.pl', $dir);
	}
	if ($src eq 'build.lib.mk') {
		mkdir("mk/libtool");
		for $lf ('config.guess', 'config.sub', 'configure',
		         'configure.in', 'ltconfig', 'ltmain.sh') {
			if (open(LF, "$dir/libtool/$lf")) {
				open(DF, ">mk/libtool/$lf");
				print DF <LF>;
				close(DF);
				close(LF);
			}
		}
		chmod(0755, 'mk/libtool/config.sub');
	}

	return 1;
}

BEGIN
{
	my $dir = '%PREFIX%/share/bsdbuild';
	my $mk = './mk';

	unless (@ARGV) {
		print STDERR "Usage: $0 [module1 module2 ...]\n\n";
		print STDERR "Possible modules include: \n";
		print STDERR "\tprog     Executable\n";
		print STDERR "\tlib      Library\n";
		print STDERR "\tman      Manual pages\n";
		print STDERR "\twww      HTML pages\n\n";
		print STDERR "See contents of $dir for full list\n";
		exit(1);
	}
	if (! -d $mk && !mkdir($mk)) {
		print STDERR "mkdir $mk: $!\n";
		exit (1);
	}
	if (opendir(MKDIR, $mk)) {
		foreach my $f (readdir(MKDIR)) {
			next unless -f "$mk/$f";
			MKCopy($f, $dir);
		}
		closedir(MKDIR);
	} else {
		print "opendir $mk: $!\n";
		exit (1);
	}
	my $type = '';
	foreach my $f (@ARGV) {
		$type = $f;
		$f = join('.', 'build', $f, 'mk');
		my $dest = join('/', $mk, $f);

		MKCopy($f, $dir);
	}

	MKCopy('mkdep', $dir);
	MKCopy('mkconcurrent.pl', $dir);
	MKCopy('mkpremake.pl', $dir);
	MKCopy('manlinks.pl', $dir);
	MKCopy('cmpfiles.pl', $dir);

	if (!-e 'configure.in' &&
	    open(CONFIN, '>configure.in')) {
		print CONFIN << 'EOF';
# Public domain
#
# Sample BSDbuild configure script source.
# To generate a configure script, use the command:
#
#     $ cat configure.in |mkconfigure > configure
#

# Name and version of the application, written to config/progname.h
# and config/version.h.
HDEFINE(PROGNAME, "\"foo\"")
HDEFINE(VERSION, "\"1.0-beta\"")

# Codename of the release (optional).
HDEFINE(RELEASE, "\"Foo\"")

# Register the ${enable_warnings} option.
REGISTER("--enable-warnings",   "Enable compiler warnings [default: no]")

# Check for a suitable C compiler.
CHECK(cc)

# Output these CFLAGS to Makefile.config.
MDEFINE(CFLAGS, "$CFLAGS -I$SRC")

# Set the recommended -Wall switches.
if [ "${enable_warnings}" = "yes" ]; then
        MDEFINE(CFLAGS, "$CFLAGS -Wall -Werror -Wmissing-prototypes")
        MDEFINE(CFLAGS, "$CFLAGS -Wno-unused")
fi
EOF
		system('mkconfigure < configure.in > configure');
		chmod(0755, 'configure');
		close(CONFIN);
	}

	if (!-e 'Makefile' &&
	    open(MAKE, '>Makefile')) {
		if ($type eq 'prog') {
			print MAKE << 'EOF';
# Sample Makefile for a program.

# Path to parent directory of "mk".
TOP=.

# Executable output name (exact meaning is platform-dependent)
PROG=foo

#
# Source files. See the <build.prog.mk> source for a list of all
# possible source types allowed.
# 
SRCS=foo.c bar.cc baz.m

include ${TOP}/Makefile.config
include ${TOP}/mk/build.prog.mk
EOF
		} elsif ($type eq 'lib') {
			print MAKE << 'EOF';
# Sample Makefile for a library.

# Path to parent directory of "mk".
TOP=.

# Library output name (exact meaning is platform-dependent)
LIB=	foo

#
# Source files. See the <build.lib.mk> source for a list of all
# possible source types allowed.
# 
SRCS=	foo.c bar.cc baz.m

include ${TOP}/Makefile.config
include ${TOP}/mk/build.lib.mk
EOF
		} elsif ($type eq 'www') {
			print MAKE << 'EOF';
# Sample Makefile for a webpage or website.

# Path to parent directory of "mk".
TOP=.

#
# Target HTML files. The actual source files must be named foo.htm and
# bar.htm, and will be processed into a number of language and character
# set variants (ie. foo.html.en). Standard Apache-compatible variant maps
# will be generated as well.
# 
HTML=	foo.html bar.html

include ${TOP}/mk/build.www.mk
EOF
		}
		close(MAKE);
	}
	if (!-e 'Makefile.config' &&
	    open(MAKE, '>Makefile.config')) {
		print MAKE "# File is auto-generated, do not edit\n";
		close(MAKE);
	}
}