#!/usr/bin/perl -w
# generate_python.pl - Don Yang (uguu.org)
#
# Generate unformatted lily.py
#
# 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.py");
my $d = DataFromFile("data_template.txt");
my $x = DataFromFile("data_core.pl");

print <<"EOT";

print (lambda (p), q, x, d:
   eval(eval(p)(q))(p, q, x, d, '"""')
)(
   """$p""",
   """$q""",
   """$x""",
   """$d"""
)

EOT