Create target directories from configure script

1 files changed, 62 insertions, 29 deletions

diff --git a/macos/configure b/macos/configure
index ef09d9f9e..b5c361259 100755
--- a/macos/configure
+++ b/macos/configure
@@ -23,8 +23,8 @@
 
 # ***************************** NOTE **************************************
 # This script try to figure out things about this release but has a hard
-# time doing it. So it reads some lines in "configure", "Makefile.am" and
-# "mp*/Makefile.am" and try to guess things. So with every new release
+# time doing it. It reads some lines in "configure", "Makefile.am" and
+# "mp*/Makefile.am" and try to guess things. With every new release
 # this script has to be tested.
 # ***************************** NOTE **************************************
 
@@ -39,39 +39,28 @@ use strict;
 $/ = "\012"			# Input files use Unix end-of-line chars
   if $^O eq 'MacOS';
 
-sub mf {
-  my $path = shift;
-
-  return $path unless $^O eq 'MacOS';
-
-  $path =~ /:/ and die "File name already converted to mac format: $path\n";
-
-  if ($path =~ s&^/&&) {
-    # Absolute path
-    unless ($path =~ s&/&:&g) {
-      # This is a drive name
-      $path .= ':';
-    }
-  } else {
-    # Relative path
-    if ($path =~ s&/&:&g) {
-      # Contains slash
-      $path = ":$path";
-      $path =~ s&\.\.:&:&g;
-    } else {
-      # Plain file name, no directory part
-    }
-  }
-  return $path;
-}
-
-
 ###########################################################################
 #
 #  Constants
 #
 ###########################################################################
 
+# Directories to create
+
+my @dirs =
+  (
+   'MpfObj',
+   'MpnObj',
+   'MpqObj',
+   'MpzObj',
+   'CmnObj',
+   'AsmObj',
+   'Asm',
+   'MpfBin',
+   'MpqBin',
+   'MpzBin',
+  );
+
 my $cfg;			# Will point to %cfg_apple or %cfg_cw
 
 my %cfg_apple =
@@ -191,6 +180,17 @@ close CONFIG_IN;
 
 ###########################################################################
 #
+#  Create directories
+#
+###########################################################################
+
+foreach (@dirs) {
+  -d $_ or mkdir $_, 0775
+    or die "Can't create directory \"$_\"\n";
+}
+
+###########################################################################
+#
 #  Parse the *.asm files found and convert them to MPW format
 #
 ###########################################################################
@@ -419,3 +419,36 @@ sub asm_prologue {
 HERE
     return $asm;
 }
+
+
+###########################################################################
+#
+#  Platform dependent filename conversion
+#
+###########################################################################
+
+sub mf {
+  my $path = shift;
+
+  return $path unless $^O eq 'MacOS';
+
+  $path =~ /:/ and die "File name already converted to mac format: $path\n";
+
+  if ($path =~ s&^/&&) {
+    # Absolute path
+    unless ($path =~ s&/&:&g) {
+      # This is a drive name
+      $path .= ':';
+    }
+  } else {
+    # Relative path
+    if ($path =~ s&/&:&g) {
+      # Contains slash
+      $path = ":$path";
+      $path =~ s&\.\.:&:&g;
+    } else {
+      # Plain file name, no directory part
+    }
+  }
+  return $path;
+}