From 0431978d40ba1881ed098a4c1964a668179d5254 Mon Sep 17 00:00:00 2001
From: Daniel Silverstone <dsilvers@digital-scurf.org>
Date: Sat, 6 Oct 2012 16:30:56 +0100
Subject: More hacking

---
 makeheader.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 makeheader.pl

(limited to 'makeheader.pl')

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;
-- 
cgit v1.2.3