#!/usr/bin/perl -w

use strict;

die if !(@ARGV);

my @codes = qw(61 31 21 1 44 16 21 11 7 9 37 39 33 3 2 1 0 32 51 41 10);

open TARGET,"$ARGV[0]";
open NEW,">$ARGV[0]\.c";

print NEW "#include <EXTERN.h>\n#include <perl.h>\n\n";
print NEW "extern void xs_init();\n";
print NEW "static PerlInterpreter *perl;\n\nvoid main() {\n";
print NEW "        int execute[] = {";
my $total = 0;
my $counter = 0;
my $beginning = 1;
while(<TARGET>) {
	my @tmp = split //,$_;
	$total += $#tmp;
	for(my $i=0;$i<=$#tmp;$i++) {
		my $check = $tmp[$i];
		if($beginning) { $beginning = 0;
			       $tmp[$i] = ord($tmp[$i])+$codes[$counter];
			       print NEW $tmp[$i];
		}
		else { 
			$tmp[$i] = ord($tmp[$i])+$codes[$counter];
			print NEW ",".$tmp[$i];
		}
		$counter++;
		$counter = 0 if $counter>$#codes;
	}
	$total++;
}

print NEW ",0};\n    int i = 0;\n    int codes[] = {61,31,21,1,44,16,21,11,7,9,37,39,33,3,2,1,0,32,51,41,10};\n        char *embedding[] = { \"\",\"-e\",\"0\" };\n";
print NEW "	char str[".$total."];\n";
print NEW "        int count = 0;\n";
print NEW "	while(execute[i]!=0) {\n                str[i] = (char)(execute[i] - codes[count]);\n";
print NEW "                i++;\n          	count++;\n              	if(count>40) count=0;\n        }\n        str[i]='\0';\n";
print NEW "	perl = perl_alloc();\n        perl_construct(perl);\n        perl_parse(perl,xs_init,3,embedding,NULL);\n        perl_run(perl);\n        eval_pv(str,TRUE);\n        perl_destruct(perl);\n  perl_free(perl);\n}";

close TARGET;
close NEW;

open MAKE,">make";
my $name = $ARGV[0];
print MAKE "perl -MExtUtils::Embed -e xsinit -- -o perlxsi.c ";
while(shift @ARGV) { if($ARGV[0]) { print MAKE $ARGV[0]," "; } }
print MAKE "\n";
print MAKE "cc -c perlxsi.c `perl -MExtUtils::Embed -e ccopts`\n";
print MAKE "cc -c $name\.c  `perl -MExtUtils::Embed -e ccopts`\n";
print MAKE "cc -o exe perlxsi.o $name\.o `perl -MExtUtils::Embed -e ldopts -- -std DynaLoader `\n";
`chmod 700 ./make`;
close MAKE;