[patch] sys-hacks.pl

sys-hacks.pl (text/plain), 567 bytes, created by David Schaefer on 2006-07-17 07:57:09 UTC

# perl

use strict;
use warnings;

# usage: sys-hacks.pl <file...>
#
# Before the first #include directive, include the file
# <system-dependent-hacks.h>.

foreach my $fname (@ARGV) {

	print STDERR " Inserting hacks inclusion to ${fname}\n";

	open(F, "<", $fname) or die;
	my @lines = <F>;
	close(F) or die;

	open(F, ">", $fname) or die;
	my $done = 0;
	foreach my $line (@lines) {
		if (!$done && $line =~ qr"^\#\s*include") {
			print F ("\#include \"system-dependent-hacks.h\"\n");
			print F ("\n");
			$done = 1;
		}
		print F ($line);
	}
	close(F) or die;
}