make/lib/find-includes.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

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;