code recursive include

[timm]

BEGIN {Root="."}

{rinclude($0)}

function rinclude (line, x,a) {
if ( line ~ /^#!/ ) {print line; return};
sub(/^[;%#]/,"",line);
sub(/ROOT/,Root,line);
split(line,a,/ /);
if ( a[1] ~ /^=include/ ) {
while ( ( getline x < a[2] ) > 0) rinclude(x);
close(a[2])}
else {print line} }