tools/winapi/trampoline

#! /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";