#!/usr/local/bin/perl5

use POSIX qw /getcwd/;

$makefile = "Makefile";
$home = $ENV{'HOME'};
$hal = $ENV{'HAL_DIR'};

# Figure out the current package name
$directory = getcwd();
$directory =~ s|.*hal/source/(.+)|$1|;
$package = join(".", split('/', $directory));

print "Creating Makefile for package $package\n";

$template = "$hal/source/rec/make/Makefile.template";

open($template, $template);
while (<$template>) {
  $file .= $_;
}
close $template;

$file =~ s/"this space left blank"/$package/mg;
$file =~ s/"and this one too"/$directory/m;

open ($makefile, ">$makefile");
print $makefile $file;
close $makefile;

system("touch files");
