Mercurial > hg > CbC > old > device

annotate tools/find-gcc-include-path @ 842:3b2bdacc5a31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
funciton register arg
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 06 Dec 2010 10:01:22 +0900
parents c14a1426cfed
children c005a392e27e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
615
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
1 #!/usr/bin/perl
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
2
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
3 my $CC = $ARGV[1];
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
4 my $gcc = `echo '#include <stddef.h>' | $CC -E - `;
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
5
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
6 $gcc =~ m=\"(/[^"]+/)stddef\.h"=;
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
7 my $gcc_path = $1;
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
8
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
9 if ($ARGV[0]=~/-l/) {
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
10 print <<EOF
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
11 char *l_include_path[] = {
767
c14a1426cfed i64 strop/simp1/alloca
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 615
diff changeset
12 "$gcc_path",
615
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
13 "/usr/include/",
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
14 0
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
15 };
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
16 EOF
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
17 } else {
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
18 print "$gcc_path\n";
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
19 }