35 lines
694 B
Perl
35 lines
694 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
# $Id$
|
||
|
|
|
||
|
|
my $target = "nt";
|
||
|
|
my @cmd = ();
|
||
|
|
push(@cmd, "-I$ENV{WATCOM}/h");
|
||
|
|
push(@cmd, "-I$ENV{WATCOM}/h/nt");
|
||
|
|
push(@cmd, "-DSTBI_NO_SIMD");
|
||
|
|
foreach my $f (@ARGV){
|
||
|
|
if($f eq "-static-libgcc"){
|
||
|
|
next;
|
||
|
|
}elsif($f =~ /^-Wl,--out-implib,(.+)$/){
|
||
|
|
push(@cmd, "-Wl,option implib=$1");
|
||
|
|
next;
|
||
|
|
}elsif($f =~ /^-W.+$/){
|
||
|
|
next;
|
||
|
|
}elsif($f =~ /^-L(.+)$/){
|
||
|
|
push(@cmd, "-Wl,libpath $1");
|
||
|
|
next;
|
||
|
|
}elsif($f eq "-lMw"){
|
||
|
|
push(@cmd, "-lMw");
|
||
|
|
next;
|
||
|
|
}elsif($f =~ /^-l(.+)$/){
|
||
|
|
push(@cmd, "$1.lib");
|
||
|
|
next;
|
||
|
|
}elsif($f =~ /^(?:oo)?src\//){
|
||
|
|
$target = "nt_dll";
|
||
|
|
}
|
||
|
|
push(@cmd, $f);
|
||
|
|
}
|
||
|
|
|
||
|
|
unshift(@cmd, "-b$target");
|
||
|
|
|
||
|
|
print("Running: owcc " . join(" ", @cmd) . "\n");
|
||
|
|
exec("owcc", @cmd);
|