1N/A/* util.h
1N/A *
1N/A * Copyright (C) 1991, 1992, 1993, 1999, 2001, 2002,
1N/A * by Larry Wall and others
1N/A *
1N/A * You may distribute under the terms of either the GNU General Public
1N/A * License or the Artistic License, as specified in the README file.
1N/A *
1N/A */
1N/A
1N/A#ifdef VMS
1N/A# define PERL_FILE_IS_ABSOLUTE(f) \
1N/A (*(f) == '/' \
1N/A || (strchr(f,':') \
1N/A || ((*(f) == '[' || *(f) == '<') \
1N/A && (isALNUM((f)[1]) || strchr("$-_]>",(f)[1])))))
1N/A
1N/A#else /* !VMS */
1N/A# ifdef WIN32
1N/A# define PERL_FILE_IS_ABSOLUTE(f) \
1N/A (*(f) == '/' || *(f) == '\\' /* UNC/rooted path */ \
1N/A || ((f)[0] && (f)[1] == ':')) /* drive name */
1N/A# else /* !WIN32 */
1N/A# ifdef NETWARE
1N/A# define PERL_FILE_IS_ABSOLUTE(f) \
1N/A (((f)[0] && (f)[1] == ':') /* drive name */ \
1N/A || ((f)[0] == '\\' && (f)[1] == '\\') /* UNC path */ \
1N/A || ((f)[3] == ':')) /* volume name, currently only sys */
1N/A# else /* !NETWARE */
1N/A# if defined( DOSISH) || defined(EPOC)
1N/A# define PERL_FILE_IS_ABSOLUTE(f) \
1N/A (*(f) == '/' \
1N/A || ((f)[0] && (f)[1] == ':')) /* drive name */
1N/A# else /* NEITHER DOSISH NOR EPOCISH */
1N/A# ifdef MACOS_TRADITIONAL
1N/A# define PERL_FILE_IS_ABSOLUTE(f) (strchr(f, ':') && *(f) != ':')
1N/A# else /* !MACOS_TRADITIONAL */
1N/A# define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/')
1N/A# endif /* MACOS_TRADITIONAL */
1N/A# endif /* DOSISH */
1N/A# endif /* NETWARE */
1N/A# endif /* WIN32 */
1N/A#endif /* VMS */