source: trunk/src/gcc/libiberty/mpw.c@ 833

/* MPW-Unix compatibility library.
   Copyright (C) 1993, 1994, 1995, 1996 Free Software Foundation, Inc.

This file is part of the libiberty library.
Libiberty is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.

Libiberty is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Library General Public License for more details.

You should have received a copy of the GNU Library General Public
License along with libiberty; see the file COPYING.LIB.  If
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.  */

/* This should only be compiled and linked under MPW. */

#include "mpw.h"

#include <stdlib.h>

#ifndef USE_MW_HEADERS
#include <sys/time.h>
#include <sys/resource.h>
#endif

#include <Types.h>
#include <Files.h>

#include <Timer.h>

/* Initialize to 0 at first, then set to errno_max() later.  */

int sys_nerr = 0;

/* Debug flag for pathname hacking.  Set this to one and rebuild. */

int DebugPI = -1;

void
mpwify_filename(char *unixname, char *macname)
{
  int i, j;

  /* (should truncate 255 chars from end of name, not beginning) */
  if (strlen (unixname) > 255)
    {
      fprintf (stderr, "Pathname \"%s\" is too long for Macs, truncating\n",
               unixname);
    }
  j = 0;
  /* If you're going to end up with one or more colons in the middle of a
     path after an all-Unix relative path is translated, you must add a
     colon on the front, so that the first component is not thought to be
     a disk name.  */
  if (unixname[0] != '/' && ! strchr (unixname, ':') && strchr (unixname, '/'))
    {
      macname[j++] = ':';
    }
  for (i = 0; unixname[i] != '\0' && i < 255; ++i)
    {
      if (i == 0 && unixname[i] == '/')
        {
          if (strncmp (unixname, "/tmp/", 5) == 0)
            {
              /* A temporary name, make a more Mac-flavored tmpname. */
              /* A better choice would be {Boot}Trash:foo, but
                 that would require being able to identify the
                 boot disk's and trashcan's name.  Another option
                 would be to have an env var, so user can point it
                 at a ramdisk. */
              macname[j++] = ':';
              macname[j++] = 't';
              macname[j++] = 'm';
              macname[j++] = 'p';
              macname[j++] = '_';
              i += 4;
            }
          else
            {
              /* Don't copy the leading slash. */
            }
        }
      else if (unixname[i] == ':' && unixname[i+1] == '/')
        {
          macname[j++] = ':';
          i += 1;
        }
      else if (unixname[i] == '.' && unixname[i+1] == '/')
        {
          macname[j++] = ':';
          i += 1;
        }
      else if (unixname[i] == '.' && unixname[i+1] == '.' && unixname[i+2] == '/')
        {
          macname[j++] = ':';
          macname[j++] = ':';
          i += 2;
        }
      else if (unixname[i] == '/')
        {
          macname[j++] = ':';
        }
      else
        {
          macname[j++] = unixname[i];
        }
    }
  macname[j] = '\0';
  /* Allow for getting the debug flag from an env var; quite useful. */
  if (DebugPI < 0)
    DebugPI = (*(getenv ("DEBUG_PATHNAMES")) == '1' ? 1 : 0);
  if (DebugPI)
    {
      fprintf (stderr, "# Made \"%s\"\n", unixname);
      fprintf (stderr, "# into \"%s\"\n", macname);
    }
}

/* MPW-flavored basename finder. */

char *
mpw_basename (name)
  char *name;
{
  char *base = name;

  while (*name)
    {
      if (*name++ == ':')
        {
          base = name;
        }
    }
  return base;
}