More hacking

1 files changed, 24 insertions, 0 deletions

diff --git a/makeheader.pl b/makeheader.pl
new file mode 100644
index 0000000..2e2c426
--- /dev/null
+++ b/makeheader.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my ($basename, $midname, $endname, $infilename, $outfilename) = @ARGV;
+
+my $perl = $ENV{PERL};
+
+my $output_text = `$perl bin2c.pl THINGY < $infilename`;
+
+$output_text =~ s/THINGY\[\]/$basename\[\]/;
+
+$output_text =~ s/unsigned int THINGY_len = (\d+)/unsigned char $endname = $basename + $1/;
+
+my $repltext = "unsigned char $midname = $endname - 4;";
+$repltext = "" if ($midname eq '');
+
+$output_text =~ s/int THINGY_mtime = \d+;/$repltext/;
+
+open JELLY, ">", $outfilename;
+
+print JELLY $output_text;
+
+close JELLY;