#!/usr/bin/perl -w
# generate_perl.pl - Don Yang (uguu.org)
#
# Generate unformatted lily.pl
#
# 12/24/08

use strict;

sub DataFromFile($)
{
   my ($file) = @_;
   my $handle;
   open $handle, "< $file" or die $!;
   my $data = join '', <$handle>;
   close $handle;
   return $data;
}

my $p = DataFromFile("data_util.py");
my $q = DataFromFile("data_core.pl");
my $d = DataFromFile("data_template.txt");
my $x = DataFromFile("data_core.py");

$d =~ s/!\n$//s or die;

printf q{

$d = '%s';
$p = q{%s};
$x = q{%s};
$q = q{%s};

$q =~ s/[\s]//gs;
eval ''.($q)x(1);

}, $d, $p, $x, $q;