#!/usr/bin/perl

open FD, $ARGV[0] . "-in" || die "Could not open" . $ARGV[1] . "-in";
open FD2, ">$ARGV[0]" || die "Could not open" . $ARGV[1];
while ($line = <FD>) {
	if (eof(FD)) { break }
	if ($line =~ /\<\!--\#include file="/) {
		$line =~ s/\<\!--\#include file="//;
		$line =~ s/"--\>\n//;
		open FI, $line;
		@fi = <FI>;
		print FD2 "@fi";
		close FI;
	} else {
		print FD2 $line;
	}
}
close FD;