#!/usr/bin/perl
use Getopt::Long;
    Getopt::Long::Configure ("pass_through");  

foreach $argument (0 .. $#ARGV) {
	$thisarg = $ARGV[$argument];
	if ($thisarg =~ m/^\$/) {
		$thisarg = system("expand_parm $thisarg");
		}
	$allargs[$argument] = $thisarg;
        $wrapped = $wrapped . " " . $thisarg;
	}

GetOptions('c'=>\$dave,
            'p'=>\$dave,
            'm'=>\$dave);

if (!(($allargs[0] =~ m/^(\Qcvs\E|\Qbk\E|\Qurl\E|\Qfile\E|\Qdir\E|\Qbin\E)$/i) || ($dave))) {
	if ($allargs[0] =~ m/\Qstock\E/i) {
		$wrapped = $allargs[0] . " " . $allargs[1];
		}
	else {
		$wrapped = "url " . $allargs[0] . $allargs[1];
		}
	if ($allargs[2]) {
		$wrapped = $wrapped . " -c " . $allargs[2];
	}
	foreach $index (3 .. $#allargs) {
	$wrapped = $wrapped . " -p " . $allargs[$index];
	}
}
#print "$wrapped\n";
$return = system("__build $wrapped");
#get real retern value
$return = $return >> 8;
exit $return;
