#!/usr/bin/perl
use strict; 
use warnings;

local $/; # slurp
my $content = <DATA>;
my $error;

# Preprocess
while (local ($_) = $content =~ /^#include\s(.*?)$/m) {

	if (/<math/) { # Math library
		$content =~ s/#include\s$_/import java.lang.Math;/;
		next;
	}
	
	if (/"stdafx.h"/) { # Autogen MS IDE header for project/system includes
		$content =~ s/#include\s$_//;
		next;
	}
	
	if (/"/) { # A yet unconsidered header file
		(my $filename) = /"(.*)"/;
		open my $inc_handle, '<', $filename or warn "File open fail $filename: $!\n" and next;
		local $/; # slurp
		my $include = <$inc_handle>;
		$content =~ s/#include\s$_/$include/;
		next;
	}
	
} continue {
	if ($content =~ s/#include\s$_//) {
		warn "Unhandled include $_\n";
		$error++;
	}
}
die "$error errors encountered" if $error;
__DATA__
#include "stdafx.h"
#include <math.h>
#include "AlyLee.h"
#include "Common.h"