1998-09-09 07:00:04 +00:00
|
|
|
/* util.h
|
|
|
|
|
*
|
2002-03-16 20:14:30 +00:00
|
|
|
* Copyright (c) 1991-2001, Larry Wall
|
1998-09-09 07:00:04 +00:00
|
|
|
*
|
|
|
|
|
* You may distribute under the terms of either the GNU General Public
|
|
|
|
|
* License or the Artistic License, as specified in the README file.
|
|
|
|
|
*
|
|
|
|
|
*/
|
2000-06-25 11:04:01 +00:00
|
|
|
|
|
|
|
|
#ifdef VMS
|
|
|
|
|
# define PERL_FILE_IS_ABSOLUTE(f) \
|
|
|
|
|
(*(f) == '/' \
|
|
|
|
|
|| (strchr(f,':') \
|
|
|
|
|
|| ((*(f) == '[' || *(f) == '<') \
|
|
|
|
|
&& (isALNUM((f)[1]) || strchr("$-_]>",(f)[1])))))
|
|
|
|
|
|
|
|
|
|
#else /* !VMS */
|
|
|
|
|
# ifdef WIN32
|
|
|
|
|
# define PERL_FILE_IS_ABSOLUTE(f) \
|
|
|
|
|
(*(f) == '/' \
|
|
|
|
|
|| ((f)[0] && (f)[1] == ':') /* drive name */ \
|
|
|
|
|
|| ((f)[0] == '\\' && (f)[1] == '\\')) /* UNC path */
|
|
|
|
|
# else /* !WIN32 */
|
2002-03-16 20:14:30 +00:00
|
|
|
# if defined( DOSISH) || defined(EPOC)
|
2000-06-25 11:04:01 +00:00
|
|
|
# define PERL_FILE_IS_ABSOLUTE(f) \
|
|
|
|
|
(*(f) == '/' \
|
|
|
|
|
|| ((f)[0] && (f)[1] == ':')) /* drive name */
|
2002-03-16 20:14:30 +00:00
|
|
|
# else /* NEITHER DOSISH NOR EPOCISH */
|
|
|
|
|
# ifdef MACOS_TRADITIONAL
|
|
|
|
|
# define PERL_FILE_IS_ABSOLUTE(f) (strchr(f, ':') && *(f) != ':')
|
|
|
|
|
# else /* !MACOS_TRADITIONAL */
|
|
|
|
|
# define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/')
|
|
|
|
|
# endif /* MACOS_TRADITIONAL */
|
2000-06-25 11:04:01 +00:00
|
|
|
# endif /* DOSISH */
|
|
|
|
|
# endif /* WIN32 */
|
|
|
|
|
#endif /* VMS */
|
