home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _568c061c268ec80fb9979b41b8463bce < prev    next >
Encoding:
Text File  |  2004-06-01  |  1.4 KB  |  44 lines
  1. /*    util.h
  2.  *
  3.  *    Copyright (C) 1991, 1992, 1993, 1999, 2001, 2002,
  4.  *    by Larry Wall and others
  5.  *
  6.  *    You may distribute under the terms of either the GNU General Public
  7.  *    License or the Artistic License, as specified in the README file.
  8.  *
  9.  */
  10.  
  11. #ifdef VMS
  12. #  define PERL_FILE_IS_ABSOLUTE(f) \
  13.     (*(f) == '/'                            \
  14.      || (strchr(f,':')                        \
  15.          || ((*(f) == '[' || *(f) == '<')                \
  16.          && (isALNUM((f)[1]) || strchr("$-_]>",(f)[1])))))
  17.  
  18. #else        /* !VMS */
  19. #  ifdef WIN32
  20. #    define PERL_FILE_IS_ABSOLUTE(f) \
  21.     (*(f) == '/' || *(f) == '\\'        /* UNC/rooted path */    \
  22.      || ((f)[0] && (f)[1] == ':'))        /* drive name */
  23. #  else        /* !WIN32 */
  24. #  ifdef NETWARE
  25. #    define PERL_FILE_IS_ABSOLUTE(f) \
  26.     (((f)[0] && (f)[1] == ':')        /* drive name */    \
  27.      || ((f)[0] == '\\' && (f)[1] == '\\')    /* UNC path */    \
  28.      ||    ((f)[3] == ':'))                /* volume name, currently only sys */
  29. #  else        /* !NETWARE */
  30. #    if defined( DOSISH) || defined(EPOC)
  31. #      define PERL_FILE_IS_ABSOLUTE(f) \
  32.     (*(f) == '/'                            \
  33.      || ((f)[0] && (f)[1] == ':'))        /* drive name */
  34. #    else    /* NEITHER DOSISH NOR EPOCISH */
  35. #      ifdef MACOS_TRADITIONAL
  36. #        define PERL_FILE_IS_ABSOLUTE(f)    (strchr(f, ':') && *(f) != ':')
  37. #      else /* !MACOS_TRADITIONAL */
  38. #        define PERL_FILE_IS_ABSOLUTE(f)    (*(f) == '/')
  39. #      endif /* MACOS_TRADITIONAL */
  40. #    endif    /* DOSISH */
  41. #   endif    /* NETWARE */
  42. #  endif    /* WIN32 */
  43. #endif        /* VMS */
  44.