Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Windows implementation of TclpCreateTemporaryDirectory |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | tip-431 |
Files: | files | file ages | folders |
SHA3-256: |
ec9291ddaade87c987c58c649c12a0da |
User & Date: | dkf 2019-04-30 13:31:59.213 |
Context
2019-04-30
| ||
13:35 | Export API check-in: f19a5c884c user: dkf tags: tip-431 | |
13:31 | Windows implementation of TclpCreateTemporaryDirectory check-in: ec9291ddaa user: dkf tags: tip-431 | |
07:44 | Starting to implement a temporary directory creator. check-in: ca92b413f2 user: dkf tags: tip-431 | |
Changes
Changes to unix/tclUnixFCmd.c.
︙ | ︙ | |||
2326 2327 2328 2329 2330 2331 2332 | } else { TclDStringAppendLiteral(&template, DEFAULT_TEMP_DIR_PREFIX); } } else { TclDStringAppendLiteral(&template, DEFAULT_TEMP_DIR_PREFIX); } | | | 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 2337 2338 2339 2340 | } else { TclDStringAppendLiteral(&template, DEFAULT_TEMP_DIR_PREFIX); } } else { TclDStringAppendLiteral(&template, DEFAULT_TEMP_DIR_PREFIX); } TclDStringAppendLiteral(&template, "_XXXXXX"); /* * Make the temporary directory. */ if (mkdtemp(Tcl_DStringValue(&template)) == NULL) { Tcl_DStringFree(&template); |
︙ | ︙ |
Changes to win/tclWinFCmd.c.
︙ | ︙ | |||
1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 | Tcl_ListObjAppendElement(NULL, resultPtr, elemPtr); } } Tcl_IncrRefCount(resultPtr); return resultPtr; } /* * Local Variables: * mode: c * c-basic-offset: 4 * fill-column: 78 * End: | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 | Tcl_ListObjAppendElement(NULL, resultPtr, elemPtr); } } Tcl_IncrRefCount(resultPtr); return resultPtr; } /* *---------------------------------------------------------------------- * * TclpCreateTemporaryDirectory -- * * Creates a temporary directory, possibly based on the supplied bits and * pieces of template supplied in the arguments. * * Results: * An object (refcount 0) containing the name of the newly-created * directory, or NULL on failure. * * Side effects: * Accesses the native filesystem. Makes a directory. * *---------------------------------------------------------------------- */ Tcl_Obj * TclpCreateTemporaryDirectory( Tcl_Obj *dirObj, Tcl_Obj *basenameObj) { Tcl_DString base, name; /* Contains WCHARs */ int baseLen; /* * Build the path in writable memory from the user-supplied pieces and * some defaults. First, the parent temporary directory. */ if (dirObj) { Tcl_GetString(dirObj); if (dirObj->length < 1) { goto useSystemTemp; } Tcl_WinUtfToTChar(Tcl_GetString(dirObj), -1, &base); if (dirObj->bytes[dirObj->length - 1] != '/') { TclUtfToWCharDString("/", -1, &base); } } else { useSystemTemp: WCHAR tempBuf[MAX_PATH + 1]; DWORD len = GetTempPathW(MAX_PATH, tempBuf); Tcl_DStringInit(&base); Tcl_DStringAppend(&base, (char *) tempBuf, len * sizeof(WCHAR)); } /* * Next, the base of the directory name. */ #define DEFAULT_TEMP_DIR_PREFIX "tcl" #define SUFFIX_LENGTH 8 if (basenameObj) { Tcl_WinUtfToTChar(Tcl_GetString(basenameObj), -1, &name); TclDStringAppendDString(&base, &name); Tcl_DStringFree(&name); } else { TclUtfToWCharDString(DEFAULT_TEMP_DIR_PREFIX, -1, &base); } TclUtfToWCharDString("_", -1, &base); /* * Now we keep on trying random suffixes until we get one that works. Note * that SUFFIX_LENGTH is longer than on Unix because we expect to be not * on a case-sensitive filesystem. */ baseLen = Tcl_DStringLength(&base); do { char tempbuf[SUFFIX_LENGTH + 1]; int i; static const char randChars[] = "QWERTYUIOPASDFGHJKLZXCVBNM1234567890"; static const int numRandChars = sizeof(randChars) - 1; /* * Put a random suffix on the end. */ tempbuf[SUFFIX_LENGTH] = '\0'; for (i = 0 ; i < SUFFIX_LENGTH; i++) { tempbuf[i] = randChars[(int) (rand() * numRandChars)]; } Tcl_DStringSetLength(&base, baseLen); TclUtfToWCharDString(tempbuf, -1, &base); } while (!CreateDirectoryW((LPCWSTR) Tcl_DStringValue(&base), NULL)); /* * We actually made the directory, so we're done! Report what we made back * as a (clean) Tcl_Obj. */ Tcl_WinTCharToUtf((LPCWSTR) Tcl_DStringValue(&base), -1, &name); Tcl_DStringFree(&base); return TclDStringToObj(&name); } /* * Local Variables: * mode: c * c-basic-offset: 4 * fill-column: 78 * End: |
︙ | ︙ |