+++ /dev/null
-//===- LinuxCommon.h - Common Declarations For Linux ------------*- C++ -*-===//
-//
-// The LLVM Compiler Infrastructure
-//
-// Copyright (C) 2004 eXtensible Systems, Inc. All Rights Reserved.
-//
-// This program is open source software; you can redistribute it and/or modify
-// it under the terms of the University of Illinois Open Source License. See
-// LICENSE.TXT (distributed with this software) for details.
-//
-// This program 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.
-//
-//===----------------------------------------------------------------------===//
-/// @file lib/System/linux/Common.h
-/// @author Reid Spencer <rspencer@x10sys.com> (original author)
-/// @version \verbatim $Id$ \endverbatim
-/// @date 2004/08/14
-/// @since 1.4
-/// @brief Provides common linux specific declarations and includes.
-//===----------------------------------------------------------------------===//
-
-#include <unistd.h>
-#include <stdlib.h>
-#include <string.h>
-#include <errno.h>
-#include <sys/types.h>
-#include <sys/param.h>
-#include <pthread.h>
-
-#define FATAL(arg) \
- { llvm::sys::panic(LLVM_CONTEXT, arg); }
-
-#define RETURN_ERRNO \
- return ErrorCode(LLVM_ERROR_CODE(OSDomain,errno))
-
-#define RETURN_OSERROR(code) \
- return ErrorCode(LLVM_ERROR_CODE(OSDomain,code))
-
-#ifdef assert
-#define ASSERT_ARG(expr) \
- if ( ! (expr) ) {\
- return ErrorCode(ERR_SYS_INVALID_ARG);\
- }
-#else
-#define ASSERT_ARG(expr)
-#endif
-
-#define CHECK(var,call,args,msg) \
- { \
- if ( -1 == ( var = ::call args )) { \
- panic(LLVM_CONTEXT, msg); \
- } \
- }
-
-#define RETURN_ON_ERROR(call,args) \
- { \
- errno = 0; \
- if ( 0 > ( call args ) ) { \
- RETURN_ERRNO; \
- } \
- }
-
-#define RETURN_ON_ERRORCODE(call,args) \
- { \
- ErrorCode code = call args ; \
- if ( ! code ) \
- return code; \
- }
-
-#define PTHREAD_CALL( call, args, cleanup ) \
- { \
- int errcode = ::call args ; \
- if ( errcode != 0 ) { \
- cleanup ; \
- RETURN_ERRNO ; \
- } \
- }
-
-#define CLEANUP_CALL( call, args, cleanup ) \
- { \
- int result = call args ; \
- if ( result != 0 ) { \
- cleanup ; \
- RETURN_ERRNO ; \
- } \
- }
-
-// Define our realtime signals
-#define SIG_LOOP_TERMINATE ( SIGRTMIN + 3 )
-#define SIG_USER_EVENT_1 ( SIGRTMIN + 4 )
-#define SIG_USER_EVENT_2 ( SIGRTMIN + 5 )
-#define SIG_USER_EVENT_3 ( SIGRTMIN + 6 )
-#define SIG_USER_EVENT_4 ( SIGRTMIN + 7 )
-#define SIG_USER_EVENT_5 ( SIGRTMIN + 8 )
-#define SIG_USER_EVENT_6 ( SIGRTMIN + 9 )
-#define SIG_USER_EVENT_7 ( SIGRTMIN + 10 )
-#define SIG_USER_EVENT_8 ( SIGRTMIN + 11 )
-#define SIG_AIO_1 ( SIGRTMIN + 12 )
-#define SIG_AIO_2 ( SIGRTMIN + 13 )
-#define SIG_AIO_3 ( SIGRTMIN + 14 )
-#define SIG_AIO_4 ( SIGRTMIN + 15 )
-#define SIG_AIO_5 ( SIGRTMIN + 16 )
-#define SIG_AIO_6 ( SIGRTMIN + 17 )
-#define SIG_AIO_7 ( SIGRTMIN + 18 )
-#define SIG_AIO_8 ( SIGRTMIN + 19 )
-
-namespace llvm {
-namespace sys {
-
-#if 0
-inline void
-time_t2TimeValue( time_t t, TimeValue &tv )
-{
- TimeValue::Seconds_Type seconds = t;
- seconds -= TimeValue::posix_zero_time.seconds();
- tv.set( seconds, 0 );
-}
-
-inline void
-TimeValue2timespec( const TimeValue& tv, struct timespec & ts )
-{
- uint64_t seconds;
- uint64_t nanos;
- tv.timespec_time( seconds, nanos );
- ts.tv_sec = static_cast<time_t>(seconds);
- ts.tv_nsec = static_cast<long int>(nanos);
-}
-
-inline void
-timeval2TimeValue( struct timeval& tval, TimeValue& tv )
-{
- TimeValue::Seconds_Type seconds = tval.tv_sec;
- seconds -= TimeValue::posix_zero_time.seconds();
- tv.set( seconds, tval.tv_usec * XPS_NANOSECONDS_PER_MICROSECOND );
-}
-
-extern pid_t pid_; ///< This processes' process identification number
-extern int pagesize_; ///< The virtual memory page size of this machine
-extern long arg_max_; ///< The maximum size in bytes of arguments to exec()
-extern long child_max_; ///< The maximum processes per user.
-extern long clk_tck_; ///< The number of clock ticks per second on this machine
-extern long stream_max_; ///< The maximum number of streams that can be opened
-extern long tzname_max_; ///< The maximum length of a timezone name
-extern long file_max_; ///< The maximum number of files that can be opened
-extern long line_max_; ///< The maximum length of an I/O line
-extern long job_control_; ///< Non-zero if POSIX job control enabled
-extern long saved_ids_; ///< ?
-extern long phys_pages_; ///< Total number of physical pages
-extern long avphys_pages_; ///< Average number of free physical pages
-
-#endif
-
-}
-}
-// vim: sw=2 smartindent smarttab tw=80 autoindent expandtab
+++ /dev/null
-//===- Path.cpp - Path Operating System Concept -----------------*- C++ -*-===//
-//
-// The LLVM Compiler Infrastructure
-//
-// Copyright (C) 2004 eXtensible Systems, Inc. All Rights Reserved.
-//
-// This program is open source software; you can redistribute it and/or modify
-// it under the terms of the University of Illinois Open Source License. See
-// LICENSE.TXT (distributed with this software) for details.
-//
-// This program 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.
-//
-//===----------------------------------------------------------------------===//
-//===----------------------------------------------------------------------===//
-/// @file lib/System/linux/Path.cpp
-/// @author Reid Spencer <raspencer@users.sourceforge.net> (original author)
-/// @version \verbatim $Id$ \endverbatim
-/// @date 2003/04/17
-/// @since 1.4
-/// @brief Implements the linux specific portion of class llvm::sys::Path
-////////////////////////////////////////////////////////////////////////////////
-
-#include "LinuxCommon.h"
-#include <sys/stat.h>
-#include <fcntl.h>
-
-namespace llvm {
-namespace sys {
-
-Path::Path(ConstructSpecial which) throw() {
- switch (which) {
- case CONSTRUCT_TEMP_FILE:
- this->make_temp_file();
- break;
- case CONSTRUCT_TEMP_DIR:
- this->make_temp_directory();
- break;
- }
-}
-
-bool
-Path::is_file() const throw() {
- if ( !empty() && ((*this)[length()-1] != '/' ))
- return true;
- return false;
-}
-
-bool
-Path::is_directory() const throw() {
- if ((!empty()) && ((*this)[length()-1] == '/' ))
- return true;
- return false;
-}
-
-ErrorCode
-Path::make_directory() throw() {
- char end[2];
- end[0] = '/';
- end[1] = 0;
- if ( empty() )
- this->assign( end );
- else if ( (*this)[length()-1] != '/' )
- this->append( end );
- return NOT_AN_ERROR;
-}
-
-ErrorCode
-Path::make_temp_directory() throw() {
- char temp_name[64];
- ::strcpy(temp_name,"/tmp/llvm_XXXXXX");
- char* res = ::mkdtemp(temp_name);
- if ( res == 0 )
- RETURN_ERRNO;
- *this = temp_name;
- make_directory();
- return NOT_AN_ERROR;
-}
-
-ErrorCode
-Path::make_file() throw() {
- if ( (*this)[length()-1] == '/' )
- this->erase( this->length()-1, 1 );
- return NOT_AN_ERROR;
-}
-
-ErrorCode
-Path::make_temp_file() throw() {
- char temp_name[64];
- ::strcpy(temp_name,"/tmp/llvm_XXXXXX");
- int fd = ::mkstemp(temp_name);
- if ( fd == -1 )
- RETURN_ERRNO;
- ::close(fd);
- *this = temp_name;
- return NOT_AN_ERROR;
-}
-
-ErrorCode
-Path::exists() throw() {
- char pathname[MAXPATHLEN];
- this->fill(pathname,MAXPATHLEN);
- int lastchar = this->length() - 1 ;
- if (pathname[lastchar] == '/')
- pathname[lastchar] = 0;
- RETURN_ON_ERROR( access,( pathname, F_OK | R_OK ) );
- return NOT_AN_ERROR;
-}
-
-ErrorCode
-Path::create_directory() throw() {
- char pathname[MAXPATHLEN];
- this->fill(pathname,MAXPATHLEN);
- int lastchar = this->length() - 1 ;
- if (pathname[lastchar] == '/')
- pathname[lastchar] = 0;
- RETURN_ON_ERROR( mkdir, ( pathname, S_IRWXU | S_IRWXG ) );
- return NOT_AN_ERROR;
-}
-
-ErrorCode
-Path::create_directories() throw() {
- char pathname[MAXPATHLEN];
- this->fill(pathname,MAXPATHLEN);
- int lastchar = this->length() - 1 ;
- if (pathname[lastchar] == '/')
- pathname[lastchar] = 0;
- char * next = index(pathname,'/');
- if ( pathname[0] == '/' )
- next = index(&pathname[1],'/');
- while ( next != 0 )
- {
- *next = 0;
- if ( 0 != access( pathname, F_OK | R_OK ) )
- RETURN_ON_ERROR( mkdir, (pathname, S_IRWXU | S_IRWXG ) );
- char* save = next;
- next = index(pathname,'/');
- *save = '/';
- }
- return NOT_AN_ERROR;
-}
-
-ErrorCode
-Path::remove_directory( ) throw() {
- char pathname[MAXPATHLEN];
- this->fill(pathname,MAXPATHLEN);
- int lastchar = this->length() - 1 ;
- if (pathname[lastchar] == '/')
- pathname[lastchar] = 0;
- RETURN_ON_ERROR( rmdir, (pathname) );
- return NOT_AN_ERROR;
-}
-
-ErrorCode
-Path::create_file( ) throw() {
- char pathname[MAXPATHLEN];
- this->fill(pathname,MAXPATHLEN);
- int lastchar = this->length() - 1 ;
- if (pathname[lastchar] == '/')
- pathname[lastchar] = 0;
- RETURN_ON_ERROR( creat, ( pathname, S_IRUSR | S_IWUSR ) );
- return NOT_AN_ERROR;
-}
-
-ErrorCode
-Path::remove_file( ) throw() {
- char pathname[MAXPATHLEN];
- this->fill(pathname,MAXPATHLEN);
- int lastchar = this->length() - 1 ;
- if (pathname[lastchar] == '/')
- pathname[lastchar] = 0;
- RETURN_ON_ERROR( unlink, (pathname) );
- return NOT_AN_ERROR;
-}
-
-ErrorCode
-Path::find_lib( const char * file ) throw()
-{
- ASSERT_ARG( file != 0 );
-
-#if 0
- ACE_TCHAR tempcopy[MAXPATHLEN + 1];
- ACE_TCHAR searchpathname[MAXPATHLEN + 1];
- ACE_TCHAR searchfilename[MAXPATHLEN + 1];
-
- // Create a copy of filename to work with.
- if (ACE_OS::strlen (filename) + 1
- > (sizeof tempcopy / sizeof (ACE_TCHAR)))
- {
- errno = ENOMEM;
- return -1;
- }
- else
- ACE_OS::strcpy (tempcopy, filename);
-
- // Insert canonical directory separators.
- ACE_TCHAR *separator_ptr;
-
-#if (ACE_DIRECTORY_SEPARATOR_CHAR != '/')
- // Make all the directory separators "canonical" to simplify
- // subsequent code.
- ACE_Lib_Find::strrepl (tempcopy, ACE_DIRECTORY_SEPARATOR_CHAR, '/');
-#endif /* ACE_DIRECTORY_SEPARATOR_CHAR */
-
- // Separate filename from pathname.
- separator_ptr = ACE_OS::strrchr (tempcopy, '/');
-
- // This is a relative path.
- if (separator_ptr == 0)
- {
- searchpathname[0] = '\0';
- ACE_OS::strcpy (searchfilename, tempcopy);
- }
- else // This is an absolute path.
- {
- ACE_OS::strcpy (searchfilename, separator_ptr + 1);
- separator_ptr[1] = '\0';
- ACE_OS::strcpy (searchpathname, tempcopy);
- }
-
- int got_suffix = 0;
-
- // Check to see if this has an appropriate DLL suffix for the OS
- // platform.
- ACE_TCHAR *s = ACE_OS::strrchr (searchfilename, '.');
-
- const ACE_TCHAR *dll_suffix = ACE_DLL_SUFFIX;
-
- if (s != 0)
- {
- // If we have a dot, we have a suffix
- got_suffix = 1;
-
- // Check whether this matches the appropriate platform-specific
- // suffix.
- if (ACE_OS::strcmp (s, dll_suffix) != 0)
- {
- ACE_ERROR ((LM_WARNING,
- ACE_LIB_TEXT ("Warning: improper suffix for a ")
- ACE_LIB_TEXT ("shared library on this platform: %s\n"),
- s));
- }
- }
-
- // Make sure we've got enough space in searchfilename.
- if (ACE_OS::strlen (searchfilename)
- + ACE_OS::strlen (ACE_DLL_PREFIX)
- + got_suffix ? 0 : ACE_OS::strlen (dll_suffix) >= (sizeof searchfilename /
- sizeof (ACE_TCHAR)))
- {
- errno = ENOMEM;
- return -1;
- }
-
- // Use absolute pathname if there is one.
- if (ACE_OS::strlen (searchpathname) > 0)
- {
- if (ACE_OS::strlen (searchfilename)
- + ACE_OS::strlen (searchpathname) >= maxpathnamelen)
- {
- errno = ENOMEM;
- return -1;
- }
- else
- {
-#if (ACE_DIRECTORY_SEPARATOR_CHAR != '/')
- // Revert to native path name separators.
- ACE_Lib_Find::strrepl (searchpathname,
- '/',
- ACE_DIRECTORY_SEPARATOR_CHAR);
-#endif /* ACE_DIRECTORY_SEPARATOR_CHAR */
- // First, try matching the filename *without* adding a
- // prefix.
-#if defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS)
- ACE_OS::sprintf (pathname,
- ACE_LIB_TEXT ("%s%s%s"),
- searchpathname,
- searchfilename,
- got_suffix ? ACE_static_cast (ACE_TCHAR *,
- ACE_LIB_TEXT (""))
- : ACE_static_cast (ACE_TCHAR *,
- dll_suffix));
-#else /* ! defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS) */
- ACE_OS::sprintf (pathname,
- ACE_LIB_TEXT ("%s%s%s"),
- searchpathname,
- searchfilename,
- got_suffix ? ACE_LIB_TEXT ("") : dll_suffix);
-#endif /* ! defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS) */
- if (ACE_OS::access (pathname, F_OK) == 0)
- return 0;
-
- // Second, try matching the filename *with* adding a prefix.
-#if defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS)
- ACE_OS::sprintf (pathname,
- ACE_LIB_TEXT ("%s%s%s%s"),
- searchpathname,
- ACE_DLL_PREFIX,
- searchfilename,
- got_suffix ? ACE_static_cast (ACE_TCHAR *,
- ACE_LIB_TEXT (""))
- : ACE_static_cast (ACE_TCHAR *,
- dll_suffix));
-#else /* ! defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS) */
- ACE_OS::sprintf (pathname,
- ACE_LIB_TEXT ("%s%s%s%s"),
- searchpathname,
- ACE_DLL_PREFIX,
- searchfilename,
- got_suffix ? ACE_LIB_TEXT ("") : dll_suffix);
-#endif /* ! defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS) */
- if (ACE_OS::access (pathname, F_OK) == 0)
- return 0;
- }
- }
-
- // Use relative filenames via LD_LIBRARY_PATH or PATH (depending on
- // OS platform).
- else
- {
- ACE_TCHAR *ld_path =
-#if defined ACE_DEFAULT_LD_SEARCH_PATH
- ACE_DEFAULT_LD_SEARCH_PATH;
-#else
- ACE_OS::getenv (ACE_LD_SEARCH_PATH);
-#endif /* ACE_DEFAULT_LD_SEARCH_PATH */
-
- if (ld_path != 0
- && (ld_path = ACE_OS::strdup (ld_path)) != 0)
- {
- // strtok has the strange behavior of not separating the
- // string ":/foo:/bar" into THREE tokens. One would expect
- // that the first iteration the token would be an empty
- // string, the second iteration would be "/foo", and the
- // third iteration would be "/bar". However, this is not
- // the case; one only gets two iterations: "/foo" followed
- // by "/bar".
-
- // This is especially a problem in parsing Unix paths
- // because it is permissible to specify 'the current
- // directory' as an empty entry. So, we introduce the
- // following special code to cope with this:
-
- // Look at each dynamic lib directory in the search path.
-
- ACE_TCHAR *nextholder = 0;
- const ACE_TCHAR *path_entry =
- ACE_Lib_Find::strsplit_r (ld_path,
- ACE_LD_SEARCH_PATH_SEPARATOR_STR,
- nextholder);
- int result = 0;
-
- for (;;)
- {
- // Check if at end of search path.
- if (path_entry == 0)
- {
- errno = ENOENT;
- result = -1;
- break;
- }
- else if (ACE_OS::strlen (path_entry)
- + 1
- + ACE_OS::strlen (searchfilename)
- >= maxpathnamelen)
- {
- errno = ENOMEM;
- result = -1;
- break;
- }
- // This works around the issue where a path might have
- // an empty component indicating 'current directory'.
- // We need to do it here rather than anywhere else so
- // that the loop condition will still work.
- else if (path_entry[0] == '\0')
- path_entry = ACE_LIB_TEXT (".");
-
- // First, try matching the filename *without* adding a
- // prefix.
-#if defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS)
- ACE_OS::sprintf (pathname,
- ACE_LIB_TEXT ("%s%c%s%s"),
- path_entry,
- ACE_DIRECTORY_SEPARATOR_CHAR,
- searchfilename,
- got_suffix ? ACE_static_cast (ACE_TCHAR *,
- ACE_LIB_TEXT (""))
- : ACE_static_cast (ACE_TCHAR *,
- dll_suffix));
-#else /* ! defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS) */
- ACE_OS::sprintf (pathname,
- ACE_LIB_TEXT ("%s%c%s%s"),
- path_entry,
- ACE_DIRECTORY_SEPARATOR_CHAR,
- searchfilename,
- got_suffix ? ACE_LIB_TEXT ("") : dll_suffix);
-#endif /* ! defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS) */
- if (ACE_OS::access (pathname, F_OK) == 0)
- break;
-
- // Second, try matching the filename *with* adding a
- // prefix.
-#if defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS)
- ACE_OS::sprintf (pathname,
- ACE_LIB_TEXT ("%s%c%s%s%s"),
- path_entry,
- ACE_DIRECTORY_SEPARATOR_CHAR,
- ACE_DLL_PREFIX,
- searchfilename,
- got_suffix ? ACE_static_cast (ACE_TCHAR *,
- ACE_LIB_TEXT (""))
- : ACE_static_cast (ACE_TCHAR *,
- dll_suffix));
-#else /* ! defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS) */
- ACE_OS::sprintf (pathname,
- ACE_LIB_TEXT ("%s%c%s%s%s"),
- path_entry,
- ACE_DIRECTORY_SEPARATOR_CHAR,
- ACE_DLL_PREFIX,
- searchfilename,
- got_suffix ? ACE_LIB_TEXT ("") : dll_suffix);
-#endif /* ! defined (ACE_HAS_BROKEN_CONDITIONAL_STRING_CASTS) */
- if (ACE_OS::access (pathname, F_OK) == 0)
- break;
-
- // Fetch the next item in the path
- path_entry = ACE_Lib_Find::strsplit_r (0,
- ACE_LD_SEARCH_PATH_SEPARATOR_STR,
- nextholder);
- }
-
- ACE_OS::free ((void *) ld_path);
- return result;
- }
- }
- errno = ENOENT;
- return -1;
-#endif
-
- /// @todo FIXME: Convert ACE code
- *this = Path( file );
-
- return NOT_AN_ERROR;
-}
-
-}
-}
-
-// vim: sw=2 smartindent smarttab tw=80 autoindent expandtab
projects / oota-llvm.git / commitdiff