a28b025150
range of OS friendly path management functions, such as opal_basename opal_dirname. They should always be used instead of basename and dirname. There are several functions which allow us to create paths that are compatible with the OS. The OPAL_ENV_SEP define should be used (instead of ':') when a env variable is splitted. This commit was SVN r11336.
107 строки
3.8 KiB
C
107 строки
3.8 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
* of Tennessee Research Foundation. All rights
|
|
* reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
/** @file:
|
|
* Creates an operating system-acceptable path name.
|
|
*
|
|
* The opal_os_path() function takes a variable number of string arguments and
|
|
* concatenates them into a path name using the path separator character appropriate
|
|
* to the local operating system. NOTE: the string returned by this function has been
|
|
* malloc'd - thus, the user is responsible for free'ing the memory used by
|
|
* the string.
|
|
*
|
|
* CRITICAL NOTE: The input variable list MUST be terminated by a NULL value. Failure
|
|
* to do this will cause the program to suffer a catastrophic failure - usually a
|
|
* segmentation violation or bus error.
|
|
*
|
|
* The function calls orte_sys_info() to ensure that the path separator character
|
|
* has been identified. If that value cannot be identified for some reason,
|
|
* the function will return a NULL value. Likewise, specifying a path name that
|
|
* exceeds the maximum allowable path name length on the local system will result
|
|
* in the return of a NULL value.
|
|
*
|
|
*
|
|
*/
|
|
|
|
#ifndef OPAL_OS_PATH_H
|
|
#define OPAL_OS_PATH_H
|
|
|
|
#include "opal_config.h"
|
|
|
|
#include <stdio.h>
|
|
#include <stdarg.h>
|
|
|
|
#if defined(c_plusplus) || defined(__cplusplus)
|
|
extern "C" {
|
|
#endif
|
|
|
|
/**
|
|
* @param relative A boolean that specifies if the path name is to be constructed
|
|
* relative to the current directory or as an absolute path. If no path
|
|
* elements are included in the function call, then the function returns
|
|
* "." for a relative path name and "<path separator char>" -
|
|
* the top of the directory tree - for an absolute path name.
|
|
* @param elem1,elem2,... A variable number of (char *)path_elements
|
|
* can be provided to the function, terminated by a NULL value. These
|
|
* elements will be concatenated, each separated by the path separator
|
|
* character, into a path name and returned.
|
|
* @retval path_name A pointer to a fully qualified path name composed of the
|
|
* provided path elements, separated by the path separator character
|
|
* appropriate to the local operating system. The path_name string has been malloc'd
|
|
* and therefore the user is responsible for free'ing the field.
|
|
*/
|
|
OPAL_DECLSPEC char *opal_os_path(bool relative, ...);
|
|
|
|
/**
|
|
* Convert the path to be OS friendly. On UNIX this function will
|
|
* be empty, when on Windows it will convert all '/' to '\\' and
|
|
* eventually remove the '/cygdrive/' from the beginning of the
|
|
* path (if the configure was runned under Cygwin).
|
|
*/
|
|
#if defined(__WINDOWS__)
|
|
static inline char* opal_make_filename_os_friendly( char* filename )
|
|
{
|
|
char* p = filename;
|
|
size_t length;
|
|
|
|
if( NULL == filename )
|
|
return NULL;
|
|
|
|
length = strlen(filename);
|
|
if( strncmp( filename, "/cygdrive/", 10 ) == 0 ) {
|
|
memmove( filename + 1, filename + 10, length - 10 );
|
|
filename[0] = filename[1];
|
|
filename[1] = ':';
|
|
filename[length - 10 + 1] = '\0';
|
|
}
|
|
for( ; *p != '\0'; p++ ) {
|
|
if( *p == '/' )
|
|
*p = '\\';
|
|
}
|
|
return filename;
|
|
}
|
|
#else
|
|
#define opal_make_filename_os_friendly(PATH) (PATH)
|
|
#endif /* defined(__WINDOWS__) */
|
|
|
|
#if defined(c_plusplus) || defined(__cplusplus)
|
|
}
|
|
#endif
|
|
|
|
#endif /* OPAL_OS_PATH_H */
|