#! /usr/bin/perl
#
# $Id: pinclude,v 1.1 1996/01/06 02:04:15 lf Exp $
#
# Copyright (C) 1995 Lars Fenneberg
#
# See the file COPYRIGHT for the respective terms and conditions. 
# If the file is missing contact me at in5y050@public.uni-hamburg.de 
# and I'll send you a copy.
#

while (<>)
{
	if (/^(|[\t ])#include[\t ](.+)$/) {

		$file = $2;
		$file =~ s/"(.+)"/$1/;

		open(INC,"<$file") || die "can't open $file";
		while (<INC>) {
			print $_;
		}
		close(INC)

	} else {
		print $_;
	}
}
