milsko/tools/watcom.pl

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