tools/winapi/trampoline

   1 #! /usr/bin/perl -w
   2
   3 use strict;
   4
   5 require Cwd;
   6
   7 my $tool = $0;
   8 $tool =~ s%^(?:.*?/)?([^/]+)$%$1%;
   9
  10 $_ = Cwd::cwd();
  11 while($_) {
  12     my $file = "$_/tools/winapi/$tool";
  13     if(-e $file) {
  14         exec("$file @ARGV");
  15     }
  16     s%/[^/]*$%%;
  17 }
  18 print STDERR "$0: $tool: can't link to command\n";