#include "tclInt.h"
#include "tclPort.h"
#include "tclRegexp.h"
static int initialized = 0;
#define WIN_ROOT_PATTERN "^(([a-zA-Z]:)|[/\\][/\\]+([^/\\]+)[/\\]+([^/\\]+)|([/\\]))([/\\])*"
#define MAC_ROOT_PATTERN "^((/+([.][.]?/+)*([.][.]?)?)|(~[^:/]*)(/[^:]*)?|(~[^:]*)(:.*)?|/+([.][.]?/+)*([^:/]+)(/[^:]*)?|([^:]+):.*)$"
static regexp *winRootPatternPtr = NULL;
static regexp *macRootPatternPtr = NULL;
TclPlatformType tclPlatform = TCL_PLATFORM_UNIX;
static char * DoTildeSubst _ANSI_ARGS_((Tcl_Interp *interp,
char *user, Tcl_DString *resultPtr));
static char * ExtractWinRoot _ANSI_ARGS_((char *path,
Tcl_DString *resultPtr, int offset));
static void FileNameCleanup _ANSI_ARGS_((ClientData clientData));
static int SkipToChar _ANSI_ARGS_((char **stringPtr,
char *match));
static char * SplitMacPath _ANSI_ARGS_((char *path,
Tcl_DString *bufPtr));
static char * SplitWinPath _ANSI_ARGS_((char *path,
Tcl_DString *bufPtr));
static char * SplitUnixPath _ANSI_ARGS_((char *path,
Tcl_DString *bufPtr));
static void
FileNameCleanup(clientData)
ClientData clientData;
{
if (winRootPatternPtr != NULL) {
ckfree((char *)winRootPatternPtr);
winRootPatternPtr = (regexp *) NULL;
}
if (macRootPatternPtr != NULL) {
ckfree((char *)macRootPatternPtr);
macRootPatternPtr = (regexp *) NULL;
}
initialized = 0;
}
static char *
ExtractWinRoot(path, resultPtr, offset)
char *path;
Tcl_DString *resultPtr;
int offset;
{
int length;
if (winRootPatternPtr == NULL) {
winRootPatternPtr = TclRegComp(WIN_ROOT_PATTERN);
if (!initialized) {
Tcl_CreateExitHandler(FileNameCleanup, NULL);
initialized = 1;
}
}
if (!TclRegExec(winRootPatternPtr, path, path)) {
return path;
}
Tcl_DStringSetLength(resultPtr, offset);
if (winRootPatternPtr->startp[2] != NULL) {
Tcl_DStringAppend(resultPtr, winRootPatternPtr->startp[2], 2);
if (winRootPatternPtr->startp[6] != NULL) {
Tcl_DStringAppend(resultPtr, "/", 1);
}
} else if (winRootPatternPtr->startp[4] != NULL) {
Tcl_DStringAppend(resultPtr, "//", 2);
length = winRootPatternPtr->endp[3]
- winRootPatternPtr->startp[3];
Tcl_DStringAppend(resultPtr, winRootPatternPtr->startp[3], length);
Tcl_DStringAppend(resultPtr, "/", 1);
length = winRootPatternPtr->endp[4]
- winRootPatternPtr->startp[4];
Tcl_DStringAppend(resultPtr, winRootPatternPtr->startp[4], length);
} else {
Tcl_DStringAppend(resultPtr, "/", 1);
}
return winRootPatternPtr->endp[0];
}
Tcl_PathType
Tcl_GetPathType(path)
char *path;
{
Tcl_PathType type = TCL_PATH_ABSOLUTE;
switch (tclPlatform) {
case TCL_PLATFORM_UNIX:
if ((path[0] != '/') && (path[0] != '~')) {
type = TCL_PATH_RELATIVE;
}
break;
case TCL_PLATFORM_MAC:
if (path[0] == ':') {
type = TCL_PATH_RELATIVE;
} else if (path[0] != '~') {
if (!macRootPatternPtr) {
macRootPatternPtr = TclRegComp(MAC_ROOT_PATTERN);
if (!initialized) {
Tcl_CreateExitHandler(FileNameCleanup, NULL);
initialized = 1;
}
}
if (!TclRegExec(macRootPatternPtr, path, path)
|| (macRootPatternPtr->startp[2] != NULL)) {
type = TCL_PATH_RELATIVE;
}
}
break;
case TCL_PLATFORM_WINDOWS:
if (path[0] != '~') {
if (!winRootPatternPtr) {
winRootPatternPtr = TclRegComp(WIN_ROOT_PATTERN);
if (!initialized) {
Tcl_CreateExitHandler(FileNameCleanup, NULL);
initialized = 1;
}
}
if (TclRegExec(winRootPatternPtr, path, path)) {
if (winRootPatternPtr->startp[5]
|| (winRootPatternPtr->startp[2]
&& !(winRootPatternPtr->startp[6]))) {
type = TCL_PATH_VOLUME_RELATIVE;
}
} else {
type = TCL_PATH_RELATIVE;
}
}
break;
}
return type;
}
void
Tcl_SplitPath(path, argcPtr, argvPtr)
char *path;
int *argcPtr;
char ***argvPtr;
{
int i, size;
char *p;
Tcl_DString buffer;
Tcl_DStringInit(&buffer);
p = NULL;
switch (tclPlatform) {
case TCL_PLATFORM_UNIX:
p = SplitUnixPath(path, &buffer);
break;
case TCL_PLATFORM_WINDOWS:
p = SplitWinPath(path, &buffer);
break;
case TCL_PLATFORM_MAC:
p = SplitMacPath(path, &buffer);
break;
}
size = Tcl_DStringLength(&buffer);
*argcPtr = 0;
for (i = 0; i < size; i++) {
if (p[i] == '\0') {
(*argcPtr)++;
}
}
*argvPtr = (char **) ckalloc((unsigned)
((((*argcPtr) + 1) * sizeof(char *)) + size));
p = (char *) &(*argvPtr)[(*argcPtr) + 1];
memcpy((VOID *) p, (VOID *) Tcl_DStringValue(&buffer), (size_t) size);
for (i = 0; i < *argcPtr; i++) {
(*argvPtr)[i] = p;
while ((*p++) != '\0') {}
}
(*argvPtr)[i] = NULL;
Tcl_DStringFree(&buffer);
}
static char *
SplitUnixPath(path, bufPtr)
char *path;
Tcl_DString *bufPtr;
{
int length;
char *p, *elementStart;
if (path[0] == '/') {
Tcl_DStringAppend(bufPtr, "/", 2);
p = path+1;
} else {
p = path;
}
for (;;) {
elementStart = p;
while ((*p != '\0') && (*p != '/')) {
p++;
}
length = p - elementStart;
if (length > 0) {
if ((elementStart[0] == '~') && (elementStart != path)) {
Tcl_DStringAppend(bufPtr, "./", 2);
}
Tcl_DStringAppend(bufPtr, elementStart, length);
Tcl_DStringAppend(bufPtr, "", 1);
}
if (*p++ == '\0') {
break;
}
}
return Tcl_DStringValue(bufPtr);
}
static char *
SplitWinPath(path, bufPtr)
char *path;
Tcl_DString *bufPtr;
{
int length;
char *p, *elementStart;
p = ExtractWinRoot(path, bufPtr, 0);
if (p != path) {
Tcl_DStringAppend(bufPtr, "", 1);
}
do {
elementStart = p;
while ((*p != '\0') && (*p != '/') && (*p != '\\')) {
p++;
}
length = p - elementStart;
if (length > 0) {
if ((elementStart[0] == '~') && (elementStart != path)) {
Tcl_DStringAppend(bufPtr, "./", 2);
}
Tcl_DStringAppend(bufPtr, elementStart, length);
Tcl_DStringAppend(bufPtr, "", 1);
}
} while (*p++ != '\0');
return Tcl_DStringValue(bufPtr);
}
static char *
SplitMacPath(path, bufPtr)
char *path;
Tcl_DString *bufPtr;
{
int isMac = 0;
int i, length;
char *p, *elementStart;
if (macRootPatternPtr == NULL) {
macRootPatternPtr = TclRegComp(MAC_ROOT_PATTERN);
if (!initialized) {
Tcl_CreateExitHandler(FileNameCleanup, NULL);
initialized = 1;
}
}
i = 0;
if (TclRegExec(macRootPatternPtr, path, path) == 1) {
if (macRootPatternPtr->startp[2] != NULL) {
Tcl_DStringAppend(bufPtr, ":", 1);
Tcl_DStringAppend(bufPtr, path, macRootPatternPtr->endp[0]
- macRootPatternPtr->startp[0] + 1);
return Tcl_DStringValue(bufPtr);
}
if (macRootPatternPtr->startp[5] != NULL) {
isMac = 0;
i = 5;
} else if (macRootPatternPtr->startp[7] != NULL) {
isMac = 1;
i = 7;
} else if (macRootPatternPtr->startp[10] != NULL) {
isMac = 0;
i = 10;
} else if (macRootPatternPtr->startp[12] != NULL) {
isMac = 1;
i = 12;
}
length = macRootPatternPtr->endp[i]
- macRootPatternPtr->startp[i];
Tcl_DStringAppend(bufPtr, macRootPatternPtr->startp[i], length);
Tcl_DStringAppend(bufPtr, ":", 2);
p = macRootPatternPtr->endp[i];
} else {
isMac = (strchr(path, ':') != NULL);
p = path;
}
if (isMac) {
elementStart = p++;
while ((p = strchr(p, ':')) != NULL) {
length = p - elementStart;
if (length == 1) {
while (*p == ':') {
Tcl_DStringAppend(bufPtr, "::", 3);
elementStart = p++;
}
} else {
if ((elementStart[1] != '~')
&& (strchr(elementStart+1, '/') == NULL)) {
elementStart++;
length--;
}
Tcl_DStringAppend(bufPtr, elementStart, length);
Tcl_DStringAppend(bufPtr, "", 1);
elementStart = p++;
}
}
if (elementStart[1] != '\0' || elementStart == path) {
if ((elementStart[1] != '~') && (elementStart[1] != '\0')
&& (strchr(elementStart+1, '/') == NULL)) {
elementStart++;
}
Tcl_DStringAppend(bufPtr, elementStart, -1);
Tcl_DStringAppend(bufPtr, "", 1);
}
} else {
for (;;) {
elementStart = p;
while ((*p != '\0') && (*p != '/')) {
p++;
}
length = p - elementStart;
if (length > 0) {
if ((length == 1) && (elementStart[0] == '.')) {
Tcl_DStringAppend(bufPtr, ":", 2);
} else if ((length == 2) && (elementStart[0] == '.')
&& (elementStart[1] == '.')) {
Tcl_DStringAppend(bufPtr, "::", 3);
} else {
if (*elementStart == '~') {
Tcl_DStringAppend(bufPtr, ":", 1);
}
Tcl_DStringAppend(bufPtr, elementStart, length);
Tcl_DStringAppend(bufPtr, "", 1);
}
}
if (*p++ == '\0') {
break;
}
}
}
return Tcl_DStringValue(bufPtr);
}
char *
Tcl_JoinPath(argc, argv, resultPtr)
int argc;
char **argv;
Tcl_DString *resultPtr;
{
int oldLength, length, i, needsSep;
Tcl_DString buffer;
char *p, c, *dest;
Tcl_DStringInit(&buffer);
oldLength = Tcl_DStringLength(resultPtr);
switch (tclPlatform) {
case TCL_PLATFORM_UNIX:
for (i = 0; i < argc; i++) {
p = argv[i];
if (*p == '/') {
Tcl_DStringSetLength(resultPtr, oldLength);
Tcl_DStringAppend(resultPtr, "/", 1);
while (*p == '/') {
p++;
}
} else if (*p == '~') {
Tcl_DStringSetLength(resultPtr, oldLength);
} else if ((Tcl_DStringLength(resultPtr) != oldLength)
&& (p[0] == '.') && (p[1] == '/')
&& (p[2] == '~')) {
p += 2;
}
if (*p == '\0') {
continue;
}
length = Tcl_DStringLength(resultPtr);
if ((length != oldLength)
&& (Tcl_DStringValue(resultPtr)[length-1] != '/')) {
Tcl_DStringAppend(resultPtr, "/", 1);
length++;
}
Tcl_DStringSetLength(resultPtr, (int) (length + strlen(p)));
dest = Tcl_DStringValue(resultPtr) + length;
for (; *p != '\0'; p++) {
if (*p == '/') {
while (p[1] == '/') {
p++;
}
if (p[1] != '\0') {
*dest++ = '/';
}
} else {
*dest++ = *p;
}
}
length = dest - Tcl_DStringValue(resultPtr);
Tcl_DStringSetLength(resultPtr, length);
}
break;
case TCL_PLATFORM_WINDOWS:
for (i = 0; i < argc; i++) {
p = ExtractWinRoot(argv[i], resultPtr, oldLength);
length = Tcl_DStringLength(resultPtr);
if (p == argv[i]) {
if ((length != oldLength)
&& (p[0] == '.')
&& ((p[1] == '/') || (p[1] == '\\'))
&& (p[2] == '~')) {
p += 2;
} else if (*p == '~') {
Tcl_DStringSetLength(resultPtr, oldLength);
length = oldLength;
}
}
if (*p != '\0') {
if (length != oldLength) {
c = Tcl_DStringValue(resultPtr)[length-1];
if ((c != '/') && (c != ':')) {
Tcl_DStringAppend(resultPtr, "/", 1);
}
}
length = Tcl_DStringLength(resultPtr);
Tcl_DStringSetLength(resultPtr, (int) (length + strlen(p)));
dest = Tcl_DStringValue(resultPtr) + length;
for (; *p != '\0'; p++) {
if ((*p == '/') || (*p == '\\')) {
while ((p[1] == '/') || (p[1] == '\\')) {
p++;
}
if (p[1] != '\0') {
*dest++ = '/';
}
} else {
*dest++ = *p;
}
}
length = dest - Tcl_DStringValue(resultPtr);
Tcl_DStringSetLength(resultPtr, length);
}
}
break;
case TCL_PLATFORM_MAC:
needsSep = 1;
for (i = 0; i < argc; i++) {
Tcl_DStringSetLength(&buffer, 0);
p = SplitMacPath(argv[i], &buffer);
if ((*p != ':') && (*p != '\0')
&& (strchr(p, ':') != NULL)) {
Tcl_DStringSetLength(resultPtr, oldLength);
length = strlen(p);
Tcl_DStringAppend(resultPtr, p, length);
needsSep = 0;
p += length+1;
}
for (; *p != '\0'; p += length+1) {
if (p[0] == ':' && p[1] == '\0') {
if (Tcl_DStringLength(resultPtr) != oldLength) {
p++;
} else {
needsSep = 0;
}
} else {
c = p[1];
if (*p == ':') {
if (!needsSep) {
p++;
}
} else {
if (needsSep) {
Tcl_DStringAppend(resultPtr, ":", 1);
}
}
needsSep = (c == ':') ? 0 : 1;
}
length = strlen(p);
Tcl_DStringAppend(resultPtr, p, length);
}
}
break;
}
Tcl_DStringFree(&buffer);
return Tcl_DStringValue(resultPtr);
}
char *
Tcl_TranslateFileName(interp, name, bufferPtr)
Tcl_Interp *interp;
char *name;
Tcl_DString *bufferPtr;
{
register char *p;
if (name[0] == '~') {
int argc, length;
char **argv;
Tcl_DString temp;
Tcl_SplitPath(name, &argc, &argv);
if (tclPlatform == TCL_PLATFORM_MAC) {
length = strlen(argv[0]);
argv[0][length-1] = '\0';
}
Tcl_DStringInit(&temp);
argv[0] = DoTildeSubst(interp, argv[0]+1, &temp);
if (argv[0] == NULL) {
Tcl_DStringFree(&temp);
ckfree((char *)argv);
return NULL;
}
Tcl_DStringInit(bufferPtr);
Tcl_JoinPath(argc, argv, bufferPtr);
Tcl_DStringFree(&temp);
ckfree((char*)argv);
} else {
Tcl_DStringInit(bufferPtr);
Tcl_JoinPath(1, &name, bufferPtr);
}
#ifndef __CYGWIN__
if (tclPlatform == TCL_PLATFORM_WINDOWS) {
for (p = Tcl_DStringValue(bufferPtr); *p != '\0'; p++) {
if (*p == '/') {
*p = '\\';
}
}
}
#endif
return Tcl_DStringValue(bufferPtr);
}
char *
TclGetExtension(name)
char *name;
{
char *p, *lastSep;
lastSep = NULL;
switch (tclPlatform) {
case TCL_PLATFORM_UNIX:
lastSep = strrchr(name, '/');
break;
case TCL_PLATFORM_MAC:
if (strchr(name, ':') == NULL) {
lastSep = strrchr(name, '/');
} else {
lastSep = strrchr(name, ':');
}
break;
case TCL_PLATFORM_WINDOWS:
lastSep = NULL;
for (p = name; *p != '\0'; p++) {
if (strchr("/\\:", *p) != NULL) {
lastSep = p;
}
}
break;
}
p = strrchr(name, '.');
if ((p != NULL) && (lastSep != NULL)
&& (lastSep > p)) {
p = NULL;
}
if (p != NULL) {
while ((p > name) && *(p-1) == '.') {
p--;
}
}
return p;
}
static char *
DoTildeSubst(interp, user, resultPtr)
Tcl_Interp *interp;
char *user;
Tcl_DString *resultPtr;
{
char *dir;
if (*user == '\0') {
dir = TclGetEnv("HOME");
if (dir == NULL) {
if (interp) {
Tcl_ResetResult(interp);
Tcl_AppendResult(interp, "couldn't find HOME environment ",
"variable to expand path", (char *) NULL);
}
return NULL;
}
Tcl_JoinPath(1, &dir, resultPtr);
} else {
if (TclGetUserHome(user, resultPtr) == NULL) {
if (interp) {
Tcl_ResetResult(interp);
Tcl_AppendResult(interp, "user \"", user, "\" doesn't exist",
(char *) NULL);
}
return NULL;
}
}
return resultPtr->string;
}
int
Tcl_GlobCmd(dummy, interp, argc, argv)
ClientData dummy;
Tcl_Interp *interp;
int argc;
char **argv;
{
int i, noComplain, firstArg;
char c;
int result = TCL_OK;
Tcl_DString buffer;
char *separators, *head, *tail;
noComplain = 0;
for (firstArg = 1; (firstArg < argc) && (argv[firstArg][0] == '-');
firstArg++) {
if (strcmp(argv[firstArg], "-nocomplain") == 0) {
noComplain = 1;
} else if (strcmp(argv[firstArg], "--") == 0) {
firstArg++;
break;
} else {
Tcl_AppendResult(interp, "bad switch \"", argv[firstArg],
"\": must be -nocomplain or --", (char *) NULL);
return TCL_ERROR;
}
}
if (firstArg >= argc) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
" ?switches? name ?name ...?\"", (char *) NULL);
return TCL_ERROR;
}
Tcl_DStringInit(&buffer);
separators = NULL;
for (i = firstArg; i < argc; i++) {
switch (tclPlatform) {
case TCL_PLATFORM_UNIX:
separators = "/";
break;
case TCL_PLATFORM_WINDOWS:
separators = "/\\:";
break;
case TCL_PLATFORM_MAC:
separators = (strchr(argv[i], ':') == NULL) ? "/" : ":";
break;
}
Tcl_DStringSetLength(&buffer, 0);
if (argv[i][0] == '~') {
char *p;
for (tail = argv[i]; *tail != '\0'; tail++) {
if (*tail == '\\') {
if (strchr(separators, tail[1]) != NULL) {
break;
}
} else if (strchr(separators, *tail) != NULL) {
break;
}
}
c = *tail;
*tail = '\0';
p = strpbrk(argv[i]+1, "\\[]*?{}");
if (p == NULL) {
head = DoTildeSubst(interp, argv[i]+1, &buffer);
} else {
if (!noComplain) {
Tcl_ResetResult(interp);
Tcl_AppendResult(interp, "globbing characters not ",
"supported in user names", (char *) NULL);
}
head = NULL;
}
*tail = c;
if (head == NULL) {
if (noComplain) {
Tcl_ResetResult(interp);
continue;
} else {
result = TCL_ERROR;
goto done;
}
}
if (head != Tcl_DStringValue(&buffer)) {
Tcl_DStringAppend(&buffer, head, -1);
}
} else {
tail = argv[i];
}
result = TclDoGlob(interp, separators, &buffer, tail);
if (result != TCL_OK) {
if (noComplain) {
Tcl_ResetResult(interp);
result = TCL_OK;
continue;
} else {
goto done;
}
}
}
if ((*interp->result == 0) && !noComplain) {
char *sep = "";
Tcl_AppendResult(interp, "no files matched glob pattern",
(argc == 2) ? " \"" : "s \"", (char *) NULL);
for (i = firstArg; i < argc; i++) {
Tcl_AppendResult(interp, sep, argv[i], (char *) NULL);
sep = " ";
}
Tcl_AppendResult(interp, "\"", (char *) NULL);
result = TCL_ERROR;
}
done:
Tcl_DStringFree(&buffer);
return result;
}
static int
SkipToChar(stringPtr, match)
char **stringPtr;
char *match;
{
int quoted, level;
register char *p;
quoted = 0;
level = 0;
for (p = *stringPtr; *p != '\0'; p++) {
if (quoted) {
quoted = 0;
continue;
}
if ((level == 0) && (*p == *match)) {
*stringPtr = p;
return 1;
}
if (*p == '{') {
level++;
} else if (*p == '}') {
level--;
} else if (*p == '\\') {
quoted = 1;
}
}
*stringPtr = p;
return 0;
}
int
TclDoGlob(interp, separators, headPtr, tail)
Tcl_Interp *interp;
char *separators;
Tcl_DString *headPtr;
char *tail;
{
int baseLength, quoted, count;
int result = TCL_OK;
char *p, *openBrace, *closeBrace, *name, *firstSpecialChar, savedChar;
char lastChar = 0;
int length = Tcl_DStringLength(headPtr);
if (length > 0) {
lastChar = Tcl_DStringValue(headPtr)[length-1];
}
count = 0;
name = tail;
for (; *tail != '\0'; tail++) {
if ((*tail == '\\') && (strchr(separators, tail[1]) != NULL)) {
tail++;
} else if (strchr(separators, *tail) == NULL) {
break;
}
count++;
}
switch (tclPlatform) {
case TCL_PLATFORM_MAC:
if (*separators == '/') {
if (((length == 0) && (count == 0))
|| ((length > 0) && (lastChar != ':'))) {
Tcl_DStringAppend(headPtr, ":", 1);
}
} else {
if (count == 0) {
if ((length > 0) && (lastChar != ':')) {
Tcl_DStringAppend(headPtr, ":", 1);
}
} else {
if (lastChar == ':') {
count--;
}
while (count-- > 0) {
Tcl_DStringAppend(headPtr, ":", 1);
}
}
}
break;
case TCL_PLATFORM_WINDOWS:
if (*name == ':') {
Tcl_DStringAppend(headPtr, ":", 1);
if (count > 1) {
Tcl_DStringAppend(headPtr, "/", 1);
}
} else if ((*tail != '\0')
&& (((length > 0)
&& (strchr(separators, lastChar) == NULL))
|| ((length == 0) && (count > 0)))) {
Tcl_DStringAppend(headPtr, "/", 1);
if ((length == 0) && (count > 1)) {
Tcl_DStringAppend(headPtr, "/", 1);
}
}
break;
case TCL_PLATFORM_UNIX:
if ((*tail != '\0')
&& (((length > 0)
&& (strchr(separators, lastChar) == NULL))
|| ((length == 0) && (count > 0)))) {
Tcl_DStringAppend(headPtr, "/", 1);
}
break;
}
openBrace = closeBrace = NULL;
quoted = 0;
for (p = tail; *p != '\0'; p++) {
if (quoted) {
quoted = 0;
} else if (*p == '\\') {
quoted = 1;
if (strchr(separators, p[1]) != NULL) {
break;
}
} else if (strchr(separators, *p) != NULL) {
break;
} else if (*p == '{') {
openBrace = p;
p++;
if (SkipToChar(&p, "}")) {
closeBrace = p;
break;
}
Tcl_SetResult(interp, "unmatched open-brace in file name",
TCL_STATIC);
return TCL_ERROR;
} else if (*p == '}') {
Tcl_SetResult(interp, "unmatched close-brace in file name",
TCL_STATIC);
return TCL_ERROR;
}
}
if (openBrace != NULL) {
char *element;
Tcl_DString newName;
Tcl_DStringInit(&newName);
Tcl_DStringAppend(&newName, tail, openBrace-tail);
baseLength = Tcl_DStringLength(&newName);
length = Tcl_DStringLength(headPtr);
*closeBrace = '\0';
for (p = openBrace; p != closeBrace; ) {
p++;
element = p;
SkipToChar(&p, ",");
Tcl_DStringSetLength(headPtr, length);
Tcl_DStringSetLength(&newName, baseLength);
Tcl_DStringAppend(&newName, element, p-element);
Tcl_DStringAppend(&newName, closeBrace+1, -1);
result = TclDoGlob(interp, separators,
headPtr, Tcl_DStringValue(&newName));
if (result != TCL_OK) {
break;
}
}
*closeBrace = '}';
Tcl_DStringFree(&newName);
return result;
}
if (*p != '\0') {
savedChar = *p;
*p = '\0';
firstSpecialChar = strpbrk(tail, "*[]?\\");
*p = savedChar;
} else {
firstSpecialChar = strpbrk(tail, "*[]?\\");
}
if (firstSpecialChar != NULL) {
return TclMatchFiles(interp, separators, headPtr, tail, p);
}
Tcl_DStringAppend(headPtr, tail, p-tail);
if (*p != '\0') {
return TclDoGlob(interp, separators, headPtr, p);
}
switch (tclPlatform) {
case TCL_PLATFORM_MAC:
if (strchr(Tcl_DStringValue(headPtr), ':') == NULL) {
Tcl_DStringAppend(headPtr, ":", 1);
}
name = Tcl_DStringValue(headPtr);
if (TclAccess(name, F_OK) == 0) {
if ((name[1] != '\0') && (strchr(name+1, ':') == NULL)) {
Tcl_AppendElement(interp, name+1);
} else {
Tcl_AppendElement(interp, name);
}
}
break;
case TCL_PLATFORM_WINDOWS: {
int exists;
#ifndef __CYGWIN__
if (Tcl_DStringLength(headPtr) == 0) {
if (((*name == '\\') && (name[1] == '/' || name[1] == '\\'))
|| (*name == '/')) {
Tcl_DStringAppend(headPtr, "\\", 1);
} else {
Tcl_DStringAppend(headPtr, ".", 1);
}
} else {
for (p = Tcl_DStringValue(headPtr); *p != '\0'; p++) {
if (*p == '/') {
*p = '\\';
}
}
}
#endif
name = Tcl_DStringValue(headPtr);
exists = (TclAccess(name, F_OK) == 0);
for (p = name; *p != '\0'; p++) {
if (*p == '\\') {
*p = '/';
}
}
if (exists) {
Tcl_AppendElement(interp, name);
}
break;
}
case TCL_PLATFORM_UNIX:
if (Tcl_DStringLength(headPtr) == 0) {
if ((*name == '\\' && name[1] == '/') || (*name == '/')) {
Tcl_DStringAppend(headPtr, "/", 1);
} else {
Tcl_DStringAppend(headPtr, ".", 1);
}
}
name = Tcl_DStringValue(headPtr);
if (TclAccess(name, F_OK) == 0) {
Tcl_AppendElement(interp, name);
}
break;
}
return TCL_OK;
}