perl/os2/os2.c

949 file_type(char *path)
956     if (CheckOSError(DosQueryAppType(path, &apptype))) {
1321                path. */
1833 /* tmp path */
2589 #define sys_is_absolute(path) ( isALPHA((path)[0]) && (path)[1] == ':' \
2590                                 && ((path)[2] == '/' || (path)[2] == '\\'))
3383         Perl_croak_nocontext("Usage: Cwd::sys_chdir(path)");
3386         char *	path = (char *)SvPV(ST(0),n_a);
3389         RETVAL = sys_chdir(path);
3417         Perl_croak_nocontext("Usage: Cwd::sys_is_absolute(path)");
3420         char *	path = (char *)SvPV(ST(0),n_a);
3423         RETVAL = sys_is_absolute(path);
3434         Perl_croak_nocontext("Usage: Cwd::sys_is_rooted(path)");
3437         char *	path = (char *)SvPV(ST(0),n_a);
3440         RETVAL = sys_is_rooted(path);
3451         Perl_croak_nocontext("Usage: Cwd::sys_is_relative(path)");
3454         char *	path = (char *)SvPV(ST(0),n_a);
3457         RETVAL = sys_is_relative(path);
3486         Perl_croak_nocontext("Usage: Cwd::sys_abspath(path = '.', dir = NULL)");
3489         char *	path = items ? (char *)SvPV(ST(0),n_a) : ".";
3501         if (path[0] == '.' && (path[1] == '/' || path[1] == '\\')) {
3502             path += 2;
3505             if (_abspath(p, path, MAXPATHLEN) == 0) {
3512             if ( sys_is_absolute(path) ) {
3513                 if (_abspath(p, path, MAXPATHLEN) == 0) {
3518             } else if (path[0] == '/' || path[0] == '\\') {
3526                     Copy(path, p1 + 2, strlen(path) + 1, char);
3533                 } else if (_abspath(p, path, MAXPATHLEN) == 0) {
3539                 /* Either path is relative, or starts with a drive letter. */
3540                 /* If the path starts with a drive letter, then dir is
3543                    c)	path is on current drive, and dir is rooted
3545                    of the path. */
3546                 if ( !sys_is_relative(path) ) {
3549                                  && strnicmp(dir, path,1) == 0))
3550                            && strnicmp(dir, path,1) == 0)
3552                               && toupper(path[0]) == current_drive())) {
3553                         path += 2;
3554                     } else if (_abspath(p, path, MAXPATHLEN) == 0) {
3561                     /* Need to prepend the absolute path of dir. */
3571                         Copy(path, p1 + l, strlen(path) + 1, char);
3594            may be parts of a server-based path */
3614 typedef APIRET (*PELP)(PSZ path, ULONG type);
3622 ExtLIBPATH(ULONG ord, PSZ path, IV type, int fatal)
3635     return (*(PELP)f)(path, what);