#!/usr/bin/perl

my $basedir = "$ENV{RPM_BUILD_ROOT}/usr/include/singular";
foreach my $file (`find $basedir -name \*.h`) {
    chomp($file);
    my $temp = "$file" . ".tmp";
    open(I, "<$file") or die("cannot read from $file");
    open(O, ">$temp") or die("cannot write to $temp");
    while (<I>) {
	if (m/(^\s*#\s*include\s+[<"])([^>"]+)(.+)/) {
	    if (-f "$basedir/$2") {
		print(O "$1" . "singular/$2" . "$3\n");
	    }
	    elsif (-f "$basedir/Singular/$2") {
		print(O "$1" . "singular/Singular/$2" . "$3\n");
	    }
	    else {
		print(O $_);
	    }
	}
	else {
	    print(O $_);
	}
    }
    close(I);
    close(O);
    `mv $temp $file`;
}