home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / util.h < prev    next >
C/C++ Source or Header  |  2000-02-06  |  904b  |  33 lines
  1. /*    util.h
  2.  *
  3.  *    Copyright (c) 1991-2000, Larry Wall
  4.  *
  5.  *    You may distribute under the terms of either the GNU General Public
  6.  *    License or the Artistic License, as specified in the README file.
  7.  *
  8.  */
  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 */
  33.