Borland build file from Bob Soliday.

2000-04-17 16:27:51 +00:00
parent 96f1563b75
commit a8905acdaf
1 changed files with 31 additions and 0 deletions
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+ 
+use Cwd;
+use File::Basename;
+
+sub Usage
+{
+	my ($txt) = @_;
+
+	print "\nError: $txt\n" if $txt;
+
+	exit 2;
+}
+
+# need at least one args: ARGV[0]
+Usage("need more args") if $#ARGV < 0;
+
+$target=$ARGV[0];
+
+$basename = basename($target,"");
+$dirname = dirname($target,"");
+if ($dirname eq ".") {
+  print "$basename";
+} else {
+  $dir=cwd();
+  chdir $dirname;
+  $nativename=cwd();
+  chdir $dir;
+  $nativename="$nativename/$basename";
+  print "$nativename";
+}