6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-09-30 04:56:49 +00:00
Code Issues Projects Releases Wiki Activity

Don't "shell out" to resolve paths. Using pure perl makes llvm-config

Browse Source 
friendlier to non-Unixes that happen to have perl. Patch from Sascha Othman!


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@58687 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Nick Lewycky 2008-11-04 08:05:21 +00:00
parent 89687e3e4a
commit c40b75b55a
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tools/llvm-config/llvm-config.in.in
View File

@ -18,6 +18,7 @@
use 5.006;
use strict;
use warnings;
use Cwd;
#---- begin autoconf values ----
my $PACKAGE_NAME = q{@PACKAGE_NAME@};
@ -64,21 +65,13 @@ my $LLVM_BUILDMODE = q{@LLVM_BUILDMODE@};
# Convert the current executable name into its directory (e.g. ".").
my ($RUN_DIR) = ($0 =~ /^(.*)\/.*$/);
# Find the unix pwd program: we don't want to use the bash builtin, as it does
# not look through symlinks etc.
my $PWD = `which pwd`;
chomp($PWD);
$PWD = "pwd" if (!-e $PWD);
# Turn the directory into an absolute directory on the file system, also pop up
# from "bin" into the build or prefix dir.
my $ABS_RUN_DIR = `cd $RUN_DIR/..; $PWD`;
chomp($ABS_RUN_DIR);
my $ABS_RUN_DIR = Cwd::realpath("$RUN_DIR/..");
# Compute the absolute object directory build, e.g. "foo/llvm/Debug".
my $ABS_OBJ_ROOT = "$LLVM_OBJ_ROOT/$LLVM_BUILDMODE";
$ABS_OBJ_ROOT = `cd $ABS_OBJ_ROOT; $PWD` if (-d $ABS_OBJ_ROOT);
chomp($ABS_OBJ_ROOT);
$ABS_OBJ_ROOT = Cwd::realpath($ABS_OBJ_ROOT) if (-d $ABS_OBJ_ROOT);
my $INCLUDEDIR = "$ABS_RUN_DIR/include";
my $LIBDIR = "$ABS_RUN_DIR/lib";
@ -142,9 +135,9 @@ foreach my $arg (@ARGV) {
} elsif ($arg eq "--build-mode") {
$has_opt = 1; print "$LLVM_BUILDMODE\n";
} elsif ($arg eq "--obj-root") {
$has_opt = 1; print `cd $LLVM_OBJ_ROOT/; $PWD`;
$has_opt = 1; print Cwd::realpath($LLVM_OBJ_ROOT), "\n";
} elsif ($arg eq "--src-root") {
$has_opt = 1; print `cd $LLVM_SRC_ROOT/; $PWD`;
$has_opt = 1; print Cwd::realpath($LLVM_SRC_ROOT), "\n";
} else {
usage();
}