Commit | Line | Data |
8883bb5a |
1 | #ifndef isSLASH\r |
2 | #define isSLASH(c) ((c) == '/' || (c) == '\\')\r |
3 | #define SKIP_SLASHES(s) \\r |
4 | STMT_START { \\r |
5 | while (*(s) && isSLASH(*(s))) \\r |
6 | ++(s); \\r |
7 | } STMT_END\r |
8 | #define COPY_NONSLASHES(d,s) \\r |
9 | STMT_START { \\r |
10 | while (*(s) && !isSLASH(*(s))) \\r |
11 | *(d)++ = *(s)++; \\r |
12 | } STMT_END\r |
13 | #endif\r |
14 | \r |
15 | /* Find the longname of a given path. path is destructively modified.\r |
16 | * It should have space for at least MAX_PATH characters. */\r |
17 | \r |
18 | CHAR_T *\r |
19 | LONGPATH(CHAR_T *path)\r |
20 | {\r |
21 | WIN32_FIND_DATA_T fdata;\r |
22 | HANDLE fhand;\r |
23 | CHAR_T tmpbuf[MAX_PATH+1];\r |
24 | CHAR_T *tmpstart = tmpbuf;\r |
25 | CHAR_T *start = path;\r |
26 | CHAR_T sep;\r |
27 | if (!path)\r |
28 | return NULL;\r |
29 | \r |
30 | /* drive prefix */\r |
31 | if (isALPHA(path[0]) && path[1] == ':') {\r |
32 | start = path + 2;\r |
33 | *tmpstart++ = toupper(path[0]);\r |
34 | *tmpstart++ = ':';\r |
35 | }\r |
36 | /* UNC prefix */\r |
37 | else if (isSLASH(path[0]) && isSLASH(path[1])) {\r |
38 | start = path + 2;\r |
39 | *tmpstart++ = path[0];\r |
40 | *tmpstart++ = path[1];\r |
41 | SKIP_SLASHES(start);\r |
42 | COPY_NONSLASHES(tmpstart,start); /* copy machine name */\r |
43 | if (*start) {\r |
44 | *tmpstart++ = *start++;\r |
45 | SKIP_SLASHES(start);\r |
46 | COPY_NONSLASHES(tmpstart,start); /* copy share name */\r |
47 | }\r |
48 | }\r |
49 | *tmpstart = '\0';\r |
50 | while (*start) {\r |
51 | /* copy initial slash, if any */\r |
52 | if (isSLASH(*start)) {\r |
53 | *tmpstart++ = *start++;\r |
54 | *tmpstart = '\0';\r |
55 | SKIP_SLASHES(start);\r |
56 | }\r |
57 | \r |
58 | /* FindFirstFile() expands "." and "..", so we need to pass\r |
59 | * those through unmolested */\r |
60 | if (*start == '.'\r |
61 | && (!start[1] || isSLASH(start[1])\r |
62 | || (start[1] == '.' && (!start[2] || isSLASH(start[2])))))\r |
63 | {\r |
64 | COPY_NONSLASHES(tmpstart,start); /* copy "." or ".." */\r |
65 | *tmpstart = '\0';\r |
66 | continue;\r |
67 | }\r |
68 | \r |
69 | /* if this is the end, bust outta here */\r |
70 | if (!*start)\r |
71 | break;\r |
72 | \r |
73 | /* now we're at a non-slash; walk up to next slash */\r |
74 | while (*start && !isSLASH(*start))\r |
75 | ++start;\r |
76 | \r |
77 | /* stop and find full name of component */\r |
78 | sep = *start;\r |
79 | *start = '\0';\r |
80 | fhand = FN_FINDFIRSTFILE(path,&fdata);\r |
81 | *start = sep;\r |
82 | if (fhand != INVALID_HANDLE_VALUE) {\r |
83 | STRLEN len = FN_STRLEN(fdata.cFileName);\r |
84 | if ((STRLEN)(tmpbuf + sizeof(tmpbuf) - tmpstart) > len) {\r |
85 | FN_STRCPY(tmpstart, fdata.cFileName);\r |
86 | tmpstart += len;\r |
87 | FindClose(fhand);\r |
88 | }\r |
89 | else {\r |
90 | FindClose(fhand);\r |
91 | errno = ERANGE;\r |
92 | return NULL;\r |
93 | }\r |
94 | }\r |
95 | else {\r |
96 | /* failed a step, just return without side effects */\r |
97 | /*PerlIO_printf(Perl_debug_log, "Failed to find %s\n", path);*/\r |
98 | errno = EINVAL;\r |
99 | return NULL;\r |
100 | }\r |
101 | }\r |
102 | FN_STRCPY(path,tmpbuf);\r |
103 | return path;\r |
104 | }\r |
105 | \r |
106 | #undef CHAR_T\r |
107 | #undef WIN32_FIND_DATA_T\r |
108 | #undef FN_FINDFIRSTFILE\r |
109 | #undef FN_STRLEN\r |
110 | #undef FN_STRCPY\r |
111 | #undef LONGPATH\r |