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

Subversion Repositories openrisc_me

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

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 157 Rev 225
Line 1... Line 1...
/* Utility to pick a temporary filename prefix.
/* Utility to pick a temporary filename prefix.
   Copyright (C) 1996, 1997, 1998, 2001 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
Line 21... Line 21...
#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>
#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>
Line 33... Line 34...
#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__)
 
#include <windows.h>
 
#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
Line 53... Line 57...
/* 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__)
 
 
/* 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.  */
Line 78... Line 84...
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
 
 
static char *memoized_tmpdir;
static char *memoized_tmpdir;
 
 
/*
/*
 
 
@deftypefn Replacement char* choose_tmpdir ()
@deftypefn Replacement char* choose_tmpdir ()
Line 94... Line 102...
*/
*/
 
 
char *
char *
choose_tmpdir (void)
choose_tmpdir (void)
{
{
 
  if (!memoized_tmpdir)
 
    {
 
#if !defined(_WIN32) || defined(__CYGWIN__)
  const char *base = 0;
  const char *base = 0;
  char *tmpdir;
  char *tmpdir;
  unsigned int len;
  unsigned int len;
 
 
  if (memoized_tmpdir)
#ifdef VMS
    return memoized_tmpdir;
      /* Try VMS standard temp logical.  */
 
      base = try_dir ("/sys$scratch", base);
 
#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
 
 
#ifdef P_tmpdir
#ifdef P_tmpdir
  base = try_dir (P_tmpdir, base);
  base = try_dir (P_tmpdir, base);
#endif
#endif
 
 
Line 117... Line 130...
  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;
  return tmpdir;
#else /* defined(_WIN32) && !defined(__CYGWIN__) */
 
      DWORD len;
 
 
 
      /* Figure out how much space we need.  */
 
      len = GetTempPath(0, NULL);
 
      if (len)
 
        {
 
          memoized_tmpdir = XNEWVEC (char, len);
 
          if (!GetTempPath(len, memoized_tmpdir))
 
            {
 
              XDELETEVEC (memoized_tmpdir);
 
              memoized_tmpdir = NULL;
 
            }
 
        }
 
      if (!memoized_tmpdir)
 
        /* If all else fails, use the current directory.  */
 
        memoized_tmpdir = xstrdup (".\\");
 
#endif /* defined(_WIN32) && !defined(__CYGWIN__) */
 
    }
 
 
 
  return memoized_tmpdir;
}
}
 
 
/*
/*
 
 
@deftypefn Replacement char* make_temp_file (const char *@var{suffix})
@deftypefn Replacement char* make_temp_file (const char *@var{suffix})
Line 164... Line 195...
  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);
  /* If mkstemps failed, then something bad is happening.  Maybe we should
  /* Mkstemps failed.  It may be EPERM, ENOSPC etc.  */
     issue a message about a possible security attack in progress?  */
 
  if (fd == -1)
  if (fd == -1)
 
    {
 
      fprintf (stderr, "Cannot create temporary file in %s: %s\n",
 
               base, strerror (errno));
    abort ();
    abort ();
  /* Similarly if we can not close the file.  */
    }
 
  /* We abort on failed close out of sheer paranoia.  */
  if (close (fd))
  if (close (fd))
    abort ();
    abort ();
  return temp_filename;
  return temp_filename;
}
}
 
 
 No newline at end of file
 No newline at end of file

powered by: WebSVN 2.1.0

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