|
#! /usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
require Cwd;
|
|
|
|
my $tool = $0;
|
|
$tool =~ s%^(?:.*?/)?([^/]+)$%$1%;
|
|
|
|
$_ = Cwd::cwd();
|
|
while($_) {
|
|
my $file = "$_/tools/winapi/$tool";
|
|
if(-e $file) {
|
|
exec("$file @ARGV");
|
|
}
|
|
s%/[^/]*$%%;
|
|
}
|
|
print STDERR "$0: $tool: can't link to command\n";
|