OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [libiberty/] [make-temp-file.c] - Diff between revs 225 and 816

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 225 Rev 816
/* Utility to pick a temporary filename prefix.
/* Utility to pick a temporary filename prefix.
   Copyright (C) 1996, 1997, 1998, 2001, 2009 Free Software Foundation, Inc.
   Copyright (C) 1996, 1997, 1998, 2001, 2009 Free Software Foundation, Inc.
 
 
This file is part of the libiberty library.
This file is part of the libiberty library.
Libiberty is free software; you can redistribute it and/or
Libiberty is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
version 2 of the License, or (at your option) any later version.
 
 
Libiberty is distributed in the hope that it will be useful,
Libiberty is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Library General Public License for more details.
Library General Public License for more details.
 
 
You should have received a copy of the GNU Library General Public
You should have received a copy of the GNU Library General Public
License along with libiberty; see the file COPYING.LIB.  If not,
License along with libiberty; see the file COPYING.LIB.  If not,
write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
Boston, MA 02110-1301, USA.  */
Boston, MA 02110-1301, USA.  */
 
 
#ifdef HAVE_CONFIG_H
#ifdef HAVE_CONFIG_H
#include "config.h"
#include "config.h"
#endif
#endif
 
 
#include <stdio.h>      /* May get P_tmpdir.  */
#include <stdio.h>      /* May get P_tmpdir.  */
#include <sys/types.h>
#include <sys/types.h>
#include <errno.h>
#include <errno.h>
#ifdef HAVE_UNISTD_H
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#include <unistd.h>
#endif
#endif
#ifdef HAVE_STDLIB_H
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#include <stdlib.h>
#endif
#endif
#ifdef HAVE_STRING_H
#ifdef HAVE_STRING_H
#include <string.h>
#include <string.h>
#endif
#endif
#ifdef HAVE_SYS_FILE_H
#ifdef HAVE_SYS_FILE_H
#include <sys/file.h>   /* May get R_OK, etc. on some systems.  */
#include <sys/file.h>   /* May get R_OK, etc. on some systems.  */
#endif
#endif
#if defined(_WIN32) && !defined(__CYGWIN__)
#if defined(_WIN32) && !defined(__CYGWIN__)
#include <windows.h>
#include <windows.h>
#endif
#endif
 
 
#ifndef R_OK
#ifndef R_OK
#define R_OK 4
#define R_OK 4
#define W_OK 2
#define W_OK 2
#define X_OK 1
#define X_OK 1
#endif
#endif
 
 
#include "libiberty.h"
#include "libiberty.h"
extern int mkstemps (char *, int);
extern int mkstemps (char *, int);
 
 
/* '/' works just fine on MS-DOS based systems.  */
/* '/' works just fine on MS-DOS based systems.  */
#ifndef DIR_SEPARATOR
#ifndef DIR_SEPARATOR
#define DIR_SEPARATOR '/'
#define DIR_SEPARATOR '/'
#endif
#endif
 
 
/* Name of temporary file.
/* Name of temporary file.
   mktemp requires 6 trailing X's.  */
   mktemp requires 6 trailing X's.  */
#define TEMP_FILE "ccXXXXXX"
#define TEMP_FILE "ccXXXXXX"
#define TEMP_FILE_LEN (sizeof(TEMP_FILE) - 1)
#define TEMP_FILE_LEN (sizeof(TEMP_FILE) - 1)
 
 
#if !defined(_WIN32) || defined(__CYGWIN__)
#if !defined(_WIN32) || defined(__CYGWIN__)
 
 
/* Subroutine of choose_tmpdir.
/* Subroutine of choose_tmpdir.
   If BASE is non-NULL, return it.
   If BASE is non-NULL, return it.
   Otherwise it checks if DIR is a usable directory.
   Otherwise it checks if DIR is a usable directory.
   If success, DIR is returned.
   If success, DIR is returned.
   Otherwise NULL is returned.  */
   Otherwise NULL is returned.  */
 
 
static inline const char *try_dir (const char *, const char *);
static inline const char *try_dir (const char *, const char *);
 
 
static inline const char *
static inline const char *
try_dir (const char *dir, const char *base)
try_dir (const char *dir, const char *base)
{
{
  if (base != 0)
  if (base != 0)
    return base;
    return base;
  if (dir != 0
  if (dir != 0
      && access (dir, R_OK | W_OK | X_OK) == 0)
      && access (dir, R_OK | W_OK | X_OK) == 0)
    return dir;
    return dir;
  return 0;
  return 0;
}
}
 
 
static const char tmp[] = { DIR_SEPARATOR, 't', 'm', 'p', 0 };
static const char tmp[] = { DIR_SEPARATOR, 't', 'm', 'p', 0 };
static const char usrtmp[] =
static const char usrtmp[] =
{ DIR_SEPARATOR, 'u', 's', 'r', DIR_SEPARATOR, 't', 'm', 'p', 0 };
{ DIR_SEPARATOR, 'u', 's', 'r', DIR_SEPARATOR, 't', 'm', 'p', 0 };
static const char vartmp[] =
static const char vartmp[] =
{ DIR_SEPARATOR, 'v', 'a', 'r', DIR_SEPARATOR, 't', 'm', 'p', 0 };
{ DIR_SEPARATOR, 'v', 'a', 'r', DIR_SEPARATOR, 't', 'm', 'p', 0 };
 
 
#endif
#endif
 
 
static char *memoized_tmpdir;
static char *memoized_tmpdir;
 
 
/*
/*
 
 
@deftypefn Replacement char* choose_tmpdir ()
@deftypefn Replacement char* choose_tmpdir ()
 
 
Returns a pointer to a directory path suitable for creating temporary
Returns a pointer to a directory path suitable for creating temporary
files in.
files in.
 
 
@end deftypefn
@end deftypefn
 
 
*/
*/
 
 
char *
char *
choose_tmpdir (void)
choose_tmpdir (void)
{
{
  if (!memoized_tmpdir)
  if (!memoized_tmpdir)
    {
    {
#if !defined(_WIN32) || defined(__CYGWIN__)
#if !defined(_WIN32) || defined(__CYGWIN__)
      const char *base = 0;
      const char *base = 0;
      char *tmpdir;
      char *tmpdir;
      unsigned int len;
      unsigned int len;
 
 
#ifdef VMS
#ifdef VMS
      /* Try VMS standard temp logical.  */
      /* Try VMS standard temp logical.  */
      base = try_dir ("/sys$scratch", base);
      base = try_dir ("/sys$scratch", base);
#else
#else
      base = try_dir (getenv ("TMPDIR"), base);
      base = try_dir (getenv ("TMPDIR"), base);
      base = try_dir (getenv ("TMP"), base);
      base = try_dir (getenv ("TMP"), base);
      base = try_dir (getenv ("TEMP"), base);
      base = try_dir (getenv ("TEMP"), base);
#endif
#endif
 
 
#ifdef P_tmpdir
#ifdef P_tmpdir
      base = try_dir (P_tmpdir, base);
      base = try_dir (P_tmpdir, base);
#endif
#endif
 
 
      /* Try /var/tmp, /usr/tmp, then /tmp.  */
      /* Try /var/tmp, /usr/tmp, then /tmp.  */
      base = try_dir (vartmp, base);
      base = try_dir (vartmp, base);
      base = try_dir (usrtmp, base);
      base = try_dir (usrtmp, base);
      base = try_dir (tmp, base);
      base = try_dir (tmp, base);
 
 
      /* If all else fails, use the current directory!  */
      /* If all else fails, use the current directory!  */
      if (base == 0)
      if (base == 0)
        base = ".";
        base = ".";
      /* Append DIR_SEPARATOR to the directory we've chosen
      /* Append DIR_SEPARATOR to the directory we've chosen
         and return it.  */
         and return it.  */
      len = strlen (base);
      len = strlen (base);
      tmpdir = XNEWVEC (char, len + 2);
      tmpdir = XNEWVEC (char, len + 2);
      strcpy (tmpdir, base);
      strcpy (tmpdir, base);
      tmpdir[len] = DIR_SEPARATOR;
      tmpdir[len] = DIR_SEPARATOR;
      tmpdir[len+1] = '\0';
      tmpdir[len+1] = '\0';
      memoized_tmpdir = tmpdir;
      memoized_tmpdir = tmpdir;
#else /* defined(_WIN32) && !defined(__CYGWIN__) */
#else /* defined(_WIN32) && !defined(__CYGWIN__) */
      DWORD len;
      DWORD len;
 
 
      /* Figure out how much space we need.  */
      /* Figure out how much space we need.  */
      len = GetTempPath(0, NULL);
      len = GetTempPath(0, NULL);
      if (len)
      if (len)
        {
        {
          memoized_tmpdir = XNEWVEC (char, len);
          memoized_tmpdir = XNEWVEC (char, len);
          if (!GetTempPath(len, memoized_tmpdir))
          if (!GetTempPath(len, memoized_tmpdir))
            {
            {
              XDELETEVEC (memoized_tmpdir);
              XDELETEVEC (memoized_tmpdir);
              memoized_tmpdir = NULL;
              memoized_tmpdir = NULL;
            }
            }
        }
        }
      if (!memoized_tmpdir)
      if (!memoized_tmpdir)
        /* If all else fails, use the current directory.  */
        /* If all else fails, use the current directory.  */
        memoized_tmpdir = xstrdup (".\\");
        memoized_tmpdir = xstrdup (".\\");
#endif /* defined(_WIN32) && !defined(__CYGWIN__) */
#endif /* defined(_WIN32) && !defined(__CYGWIN__) */
    }
    }
 
 
  return memoized_tmpdir;
  return memoized_tmpdir;
}
}
 
 
/*
/*
 
 
@deftypefn Replacement char* make_temp_file (const char *@var{suffix})
@deftypefn Replacement char* make_temp_file (const char *@var{suffix})
 
 
Return a temporary file name (as a string) or @code{NULL} if unable to
Return a temporary file name (as a string) or @code{NULL} if unable to
create one.  @var{suffix} is a suffix to append to the file name.  The
create one.  @var{suffix} is a suffix to append to the file name.  The
string is @code{malloc}ed, and the temporary file has been created.
string is @code{malloc}ed, and the temporary file has been created.
 
 
@end deftypefn
@end deftypefn
 
 
*/
*/
 
 
char *
char *
make_temp_file (const char *suffix)
make_temp_file (const char *suffix)
{
{
  const char *base = choose_tmpdir ();
  const char *base = choose_tmpdir ();
  char *temp_filename;
  char *temp_filename;
  int base_len, suffix_len;
  int base_len, suffix_len;
  int fd;
  int fd;
 
 
  if (suffix == 0)
  if (suffix == 0)
    suffix = "";
    suffix = "";
 
 
  base_len = strlen (base);
  base_len = strlen (base);
  suffix_len = strlen (suffix);
  suffix_len = strlen (suffix);
 
 
  temp_filename = XNEWVEC (char, base_len
  temp_filename = XNEWVEC (char, base_len
                           + TEMP_FILE_LEN
                           + TEMP_FILE_LEN
                           + suffix_len + 1);
                           + suffix_len + 1);
  strcpy (temp_filename, base);
  strcpy (temp_filename, base);
  strcpy (temp_filename + base_len, TEMP_FILE);
  strcpy (temp_filename + base_len, TEMP_FILE);
  strcpy (temp_filename + base_len + TEMP_FILE_LEN, suffix);
  strcpy (temp_filename + base_len + TEMP_FILE_LEN, suffix);
 
 
  fd = mkstemps (temp_filename, suffix_len);
  fd = mkstemps (temp_filename, suffix_len);
  /* Mkstemps failed.  It may be EPERM, ENOSPC etc.  */
  /* Mkstemps failed.  It may be EPERM, ENOSPC etc.  */
  if (fd == -1)
  if (fd == -1)
    {
    {
      fprintf (stderr, "Cannot create temporary file in %s: %s\n",
      fprintf (stderr, "Cannot create temporary file in %s: %s\n",
               base, strerror (errno));
               base, strerror (errno));
      abort ();
      abort ();
    }
    }
  /* We abort on failed close out of sheer paranoia.  */
  /* We abort on failed close out of sheer paranoia.  */
  if (close (fd))
  if (close (fd))
    abort ();
    abort ();
  return temp_filename;
  return temp_filename;
}
}
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.