about summary refs log tree commit diff
path: root/make/lib/find-includes.pl
blob: f4f1f43239f31595198dd92a05be80f0f0605692 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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;