about summary refs log blame commit diff
path: root/make/lib/find-includes.pl
blob: f4f1f43239f31595198dd92a05be80f0f0605692 (plain) (tree)


















                                  
use strict;

my $root = $ENV{"main"};
my $out = $ENV{"out"};

open OUT, ">$out" or die "$!";
print OUT "[\n";

open IN, "<$root" or die "$!";
while (<IN>) {
    if (/^\#include\s+\"(.*)\"/) {
        print "DEP $1\n";
        print OUT "\"$1\"\n";
    }
}
close IN;

print OUT "]\n";
close OUT;