[perl5.git] / util.h

/*    util.h
 *
 *    Copyright (c) 1991-1997, Larry Wall
 *
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 */

#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 */
#    ifdef DOSISH
#      define PERL_FILE_IS_ABSOLUTE(f) \
	(*(f) == '/'							\
	 || ((f)[0] && (f)[1] == ':'))		/* drive name */
#    else	/* !DOSISH */
#      define PERL_FILE_IS_ABSOLUTE(f)	(*(f) == '/')
#    endif	/* DOSISH */
#  endif	/* WIN32 */
#endif		/* VMS */
Commit	Line	Data
a0d0e21e	1	/* util.h
a687059c	2	*
9607fc9c	3	* Copyright (c) 1991-1997, Larry Wall
a687059c	4	*
d48672a2 LW	5	* You may distribute under the terms of either the GNU General Public
d48672a2 LW	6	* License or the Artistic License, as specified in the README file.
8d063cd8	7	*
8d063cd8	8	*/
57843af0 GS	9
	10	#ifdef VMS
	11	# define PERL_FILE_IS_ABSOLUTE(f) \
	12	(*(f) == '/' \
	13	\|\| (strchr(f,':') \
	14	\|\| (((f) == '[' \|\| (f) == '<') \
	15	&& (isALNUM((f)[1]) \|\| strchr("$-_]>",(f)[1])))))
	16
	17	#else /* !VMS */
	18	# ifdef WIN32
	19	# define PERL_FILE_IS_ABSOLUTE(f) \
	20	(*(f) == '/' \
	21	\|\| ((f)[0] && (f)[1] == ':') /* drive name */ \
	22	\|\| ((f)[0] == '\\' && (f)[1] == '\\')) /* UNC path */
	23	# else /* !WIN32 */
	24	# ifdef DOSISH
	25	# define PERL_FILE_IS_ABSOLUTE(f) \
	26	(*(f) == '/' \
	27	\|\| ((f)[0] && (f)[1] == ':')) /* drive name */
	28	# else /* !DOSISH */
	29	# define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/')
	30	# endif /* DOSISH */
	31	# endif /* WIN32 */
	32	#endif /* VMS */