#!/usr/bin/perl -w
# embed_template.pl - Don Yang (uguu.org)
#
# ./embed_template.pl <template> <code> <youmu> <yuyuko> <generator> > output
#
# 07/08/07

use strict;
die unless $#ARGV == 4;

sub CopyDataFromFile($)
{
   local (*INFILE);
   open INFILE, "<".$_[0] or die $!;
   print "   \"";
   while(<INFILE>)
   {
      chomp;
      print;
   }
   print "\"\n";
   close INFILE;
}

sub CopyAttachedData($)
{
   local (*INFILE);
   open INFILE, "<".$_[0] or die $!;
   while(<INFILE>)
   {
      last if /__DATA__/;
   }
   while(<INFILE>)
   {
      print;
   }
   close INFILE;
}

local (*SRC);
open SRC, "< $ARGV[0]" or die $!;

while(<SRC>)
{
   if( /ENCODED_SOURCE/ )
   {
      CopyDataFromFile($ARGV[1]);
   }
   elsif( /C_TEMPLATE/ )
   {
      CopyDataFromFile($ARGV[2]);
   }
   elsif( /CPP_TEMPLATE/ )
   {
      CopyDataFromFile($ARGV[3]);
   }
   elsif( /PLAINTEXT_SOURCE/ )
   {
      CopyAttachedData($ARGV[4]);
   }
   else
   {
      print;
   }
}

close SRC;