perl/win32/win32.c

249      * explicitly by LoadLibrary() with a relative path. */
252     /* Make sure we start with the long path name of the module because we
255      * this path segment (e.g. by removing the dot on NTFS to something
1199 chown(const char *path, uid_t owner, gid_t group)
1212 int mkstemp(const char *path)
1223     if (!GetTempFileNameA((LPCSTR)path, "plr", 1, buf)) {
1609 win32_stat_low(HANDLE handle, const char *path, STRLEN len, Stat_t *sbuf,
1683                 if (!path) {
1695                         path = path_buf;
1699                 if (path && len > 4 &&
1700                     (_stricmp(path + len - 4, ".exe") == 0 ||
1701                      _stricmp(path + len - 4, ".bat") == 0 ||
1702                      _stricmp(path + len - 4, ".cmd") == 0 ||
1703                      _stricmp(path + len - 4, ".com") == 0)) {
1745 non-symlink path.
1856 win32_stat(const char *path, Stat_t *sbuf)
1864     path = PerlDir_mapA(path);
1867         CreateFileA(path, FILE_READ_ATTRIBUTES,
1877         handle = S_follow_symlinks_to(aTHX_ path, &reparse_type);
1884         result = win32_stat_low(handle, path, strlen(path), sbuf, reparse_type);
2084 win32_lstat(const char *path, Stat_t *sbuf)
2088     DWORD attr = GetFileAttributes(path); /* doesn't follow symlinks */
2096         return win32_stat(path, sbuf);
2099     f = CreateFileA(path, GENERIC_READ, 0, NULL, OPEN_EXISTING,
2110         return win32_stat(path, sbuf);
2140 /* Find the longname of a given path.  path is destructively modified.
2143 win32_longpath(char *path)
2149     char *start = path;
2151     if (!path)
2155     if (isALPHA(path[0]) && path[1] == ':') {
2156         start = path + 2;
2157         *tmpstart++ = path[0];
2161     else if (isSLASH(path[0]) && isSLASH(path[1])) {
2162         start = path + 2;
2163         *tmpstart++ = path[0];
2164         *tmpstart++ = path[1];
2204         fhand = FindFirstFile(path,&fdata);
2225     strcpy(path,tmpbuf);
2226     return path;
2272  * called; otherwise there is no way to determine the short path name.
2275  * - Only convert those segments of the path that are not in the current
2278  *   additional path segments into short names until the full name
3353 win32_freopen(const char *path, const char *mode, FILE *stream)
3356     if (stricmp(path, "/dev/null")==0)
3357         path = "NUL";
3360     return freopen(PerlDir_mapA(path), mode, stream);
3787        Otherwise if the oldfile is relative we need to make a relative path
3950 win32_open(const char *path, int flag, ...)
3960     if (stricmp(path, "/dev/null")==0)
3961         path = "NUL";
3964     return open(PerlDir_mapA(path), flag, pmode);
4167 win32_access(const char *path, int mode)
4170     return access(PerlDir_mapA(path), mode);
4174 win32_chmod(const char *path, int mode)
4177     return chmod(PerlDir_mapA(path), mode);
4401         /* quit if no other path exists, or if cmd already has path */
4626          * jump through our own hoops by picking out the path