about summary refs log blame commit diff
path: root/make/lib/find-includes.pl
blob: 43406825aeace3fcc4df9d40eecbd9339ab51e5a (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11










                                  


                                  






                             
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 OUT "\"$1\"\n";
    }
    if (/^\#include\s+\<(.*)\>/) {
        print OUT "\"$1\"\n";
    }
}
close IN;

print OUT "]\n";
close OUT;