diff options
author | Daniel Silverstone <dsilvers@digital-scurf.org> | 2012-10-06 17:08:59 +0100 |
---|---|---|
committer | Daniel Silverstone <dsilvers@digital-scurf.org> | 2012-10-06 17:08:59 +0100 |
commit | f5d443c7995415e9dec7757ca4640e3b23f12790 (patch) | |
tree | 0eb15f720fc7271a50d486bdfe2414a97db8f68e /makeheader.pl | |
parent | 06073b9f63c9032a2dcf712fb40bfe913f4653ae (diff) | |
download | squeeze-f5d443c7995415e9dec7757ca4640e3b23f12790.tar.gz squeeze-f5d443c7995415e9dec7757ca4640e3b23f12790.tar.bz2 |
Working (at least it works with NS)
Diffstat (limited to 'makeheader.pl')
-rw-r--r-- | makeheader.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/makeheader.pl b/makeheader.pl index 2e2c426..58d587e 100644 --- a/makeheader.pl +++ b/makeheader.pl @@ -8,11 +8,13 @@ my $perl = $ENV{PERL}; my $output_text = `$perl bin2c.pl THINGY < $infilename`; -$output_text =~ s/THINGY\[\]/$basename\[\]/; +$output_text =~ s/unsigned char THINGY\[\]/const unsigned char $basename\[\]/; -$output_text =~ s/unsigned int THINGY_len = (\d+)/unsigned char $endname = $basename + $1/; +my $objlen = ($output_text =~ /unsigned int THINGY_len = (\d+)/)[0]; -my $repltext = "unsigned char $midname = $endname - 4;"; +$output_text =~ s/unsigned int THINGY_len = (\d+)/const unsigned char \*$endname = $basename + $1/; + +my $repltext = "const unsigned char \*$midname = $basename + $objlen - 4;"; $repltext = "" if ($midname eq ''); $output_text =~ s/int THINGY_mtime = \d+;/$repltext/; |