#!/usr/bin/perl

use POSIX qw /getcwd/;

$makefile = "Makefile";
$drg = $ENV{'DRG_DIR'};

# Figure out the current package name
$directory = getcwd();
#$directory =~ s|.*$drg/code/src/(.+)|edu/mit/$1|;
$directory =~ s|.*$drg/code/src/(.+)|$1|;
$package = join(".", split('/', $directory));

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

$template = "$drg/scripts/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");
