Mercurial > hg > CbC > old > device

annotate tools/find-gcc-include-path @ 636:72c4a8137fff intel-mac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
String concatenation fix
author kono
date Wed, 11 Oct 2006 18:38:15 +0900
parents 2dee957ef988
children c14a1426cfed
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[] = {
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
12 "/usr/include/",
2dee957ef988 test case on undeclared name
kono
parents:
diff changeset
13 "$gcc_path",
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 }