#!/usr/bin/perl
# generate.pl - Don Yang (uguu.org)
#
# 09/14/03


open OUTFILE, "> code5.ml" or die;

# Code (plaintext)
open INFILE, "< code.txt.keep" or die;
while(<INFILE>)
{
   print OUTFILE $_;
}
close INFILE;

# Template 1
open INFILE, "< template/karen.f.keep" or die;
@data = <INFILE>;
close INFILE;
foreach (@data)
{
   chomp;
}
$data[$#data] =~ s/\.$/,/;
foreach (@data)
{
   print OUTFILE $_, "\n";
}
print OUTFILE "\n";

# Template 2
open INFILE, "< template/miina.f.keep" or die;
@data = <INFILE>;
close INFILE;
foreach (@data)
{
   chomp;
   print OUTFILE $_, "\n";
}
print OUTFILE "\n\",\n\"\n";

# Code (xor)
@data = `perl template/xor.pl 21 < code.txt.keep`;
foreach (@data)
{
   print OUTFILE $_;
}
print OUTFILE "\n\"));;\n";
close OUTFILE;