Lines Matching defs:pathPtr
69 Tcl_Obj *pathPtr, int startAt, ClientData *clientDataPtr));
97 _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Obj *pathPtr,
105 static Tcl_Obj* FsListMounts _ANSI_ARGS_((Tcl_Obj *pathPtr,
108 Tcl_Obj *pathPtr, CONST char *pattern, Tcl_GlobTypeData *types));
138 Tcl_Obj *pathPtr = Tcl_NewStringObj(path,-1);
140 Tcl_IncrRefCount(pathPtr);
141 ret = Tcl_FSStat(pathPtr, &buf);
142 Tcl_DecrRefCount(pathPtr);
224 Tcl_Obj *pathPtr = Tcl_NewStringObj(path,-1);
225 Tcl_IncrRefCount(pathPtr);
226 ret = Tcl_FSAccess(pathPtr,mode);
227 Tcl_DecrRefCount(pathPtr);
245 Tcl_Obj *pathPtr = Tcl_NewStringObj(path,-1);
246 Tcl_IncrRefCount(pathPtr);
247 ret = Tcl_FSOpenFileChannel(interp, pathPtr, modeString, permissions);
248 Tcl_DecrRefCount(pathPtr);
260 Tcl_Obj *pathPtr = Tcl_NewStringObj(dirName,-1);
261 Tcl_IncrRefCount(pathPtr);
262 ret = Tcl_FSChdir(pathPtr);
263 Tcl_DecrRefCount(pathPtr);
295 Tcl_Obj *pathPtr = Tcl_NewStringObj(fileName,-1);
296 Tcl_IncrRefCount(pathPtr);
297 ret = Tcl_FSEvalFile(interp, pathPtr);
298 Tcl_DecrRefCount(pathPtr);
994 * function for the filesystem to which pathPtr belongs will be
995 * called. If pathPtr does not belong to any filesystem and if it
999 * issue, we create a pathPtr on the fly (equal to the cwd), and
1001 * easy to write, since they can assume the pathPtr passed to them
1005 * If 'pattern' is NULL, then pathPtr is assumed to be a fully
1031 Tcl_FSMatchInDirectory(interp, result, pathPtr, pattern, types)
1034 Tcl_Obj *pathPtr; /* Contains path to directory to search. */
1040 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
1044 int ret = (*proc)(interp, result, pathPtr, pattern, types);
1046 result = FsAddMountsToGlobResult(result, pathPtr,
1054 if (pathPtr != NULL) {
1056 Tcl_GetStringFromObj(pathPtr,&len);
1142 FsAddMountsToGlobResult(result, pathPtr, pattern, types)
1144 Tcl_Obj *pathPtr; /* The directory in question */
1150 Tcl_Obj *mounts = FsListMounts(pathPtr, pattern);
1356 TclFSNormalizeAbsolutePath(interp, pathPtr, clientDataPtr)
1358 Tcl_Obj *pathPtr; /* Absolute path to normalize */
1368 split = Tcl_FSSplitPath(pathPtr, &splen);
1456 * The pathPtr is modified in place. The return value is
1476 TclFSNormalizeToUniquePath(interp, pathPtr, startAt, clientDataPtr)
1478 Tcl_Obj *pathPtr;
1500 startAt = (*proc)(interp, pathPtr, startAt);
1513 startAt = (*proc)(interp, pathPtr, startAt);
1518 * if (retVal == length-of(pathPtr)) {break;}
1729 * point to pathPtr (the old value is cached and replaced when
1736 Tcl_FSEvalFile(interp, pathPtr)
1738 Tcl_Obj *pathPtr; /* Path of file to process. Tilde-substitution
1749 if (Tcl_FSGetNormalizedPath(interp, pathPtr) == NULL) {
1757 if (Tcl_FSStat(pathPtr, &statBuf) == -1) {
1760 Tcl_GetString(pathPtr),
1764 chan = Tcl_FSOpenFileChannel(interp, pathPtr, "r", 0644);
1768 Tcl_GetString(pathPtr),
1781 Tcl_GetString(pathPtr),
1791 iPtr->scriptFile = pathPtr;
1804 * assuming it still points to 'pathPtr'.
1820 sprintf(msg, "\n (file \"%.150s\" line %d)", Tcl_GetString(pathPtr),
1924 * The appropriate function for the filesystem to which pathPtr
1937 Tcl_FSStat(pathPtr, buf)
1938 Tcl_Obj *pathPtr; /* Path of file to stat (in current CP). */
1956 Tcl_Obj *transPtr = Tcl_FSGetTranslatedPath(NULL, pathPtr);
1997 fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
2001 return (*proc)(pathPtr, buf);
2015 * The appropriate function for the filesystem to which pathPtr
2030 Tcl_FSLstat(pathPtr, buf)
2031 Tcl_Obj *pathPtr; /* Path of file to stat (in current CP). */
2034 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
2038 return (*proc)(pathPtr, buf);
2042 return (*sproc)(pathPtr, buf);
2057 * The appropriate function for the filesystem to which pathPtr
2070 Tcl_FSAccess(pathPtr, mode)
2071 Tcl_Obj *pathPtr; /* Path of file to access (in current CP). */
2088 Tcl_Obj *transPtr = Tcl_FSGetTranslatedPath(NULL, pathPtr);
2110 fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
2114 return (*proc)(pathPtr, mode);
2128 * The appropriate function for the filesystem to which pathPtr
2142 Tcl_FSOpenFileChannel(interp, pathPtr, modeString, permissions)
2145 Tcl_Obj *pathPtr; /* Name of file to open. */
2166 Tcl_Obj *transPtr = Tcl_FSGetTranslatedPath(interp, pathPtr);
2195 if (Tcl_FSGetNormalizedPath(interp, pathPtr) == NULL) {
2199 fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
2208 retVal = (*proc)(interp, pathPtr, mode, permissions);
2216 Tcl_GetString(pathPtr), "\": ",
2231 Tcl_GetString(pathPtr), "\": ",
2244 * The appropriate function for the filesystem to which pathPtr
2257 Tcl_FSUtime (pathPtr, tval)
2258 Tcl_Obj *pathPtr; /* File to change access/modification times */
2262 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
2266 return (*proc)(pathPtr, tval);
2294 NativeFileAttrStrings(pathPtr, objPtrRef)
2295 Tcl_Obj *pathPtr;
2327 NativeFileAttrsGet(interp, index, pathPtr, objPtrRef)
2330 Tcl_Obj *pathPtr; /* path of file we are operating on. */
2334 pathPtr, objPtrRef);
2359 NativeFileAttrsSet(interp, index, pathPtr, objPtr)
2362 Tcl_Obj *pathPtr; /* path of file we are operating on. */
2366 pathPtr, objPtr);
2377 * filesystem to which pathPtr belongs will be called.
2396 Tcl_FSFileAttrStrings(pathPtr, objPtrRef)
2397 Tcl_Obj* pathPtr;
2400 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
2404 return (*proc)(pathPtr, objPtrRef);
2419 * filesystem to which pathPtr belongs will be called.
2436 Tcl_FSFileAttrsGet(interp, index, pathPtr, objPtrRef)
2439 Tcl_Obj *pathPtr; /* filename we are operating on. */
2442 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
2446 return (*proc)(interp, index, pathPtr, objPtrRef);
2461 * filesystem to which pathPtr belongs will be called.
2473 Tcl_FSFileAttrsSet(interp, index, pathPtr, objPtr)
2476 Tcl_Obj *pathPtr; /* filename we are operating on. */
2479 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
2483 return (*proc)(interp, index, pathPtr, objPtr);
2668 Tcl_FSChdir(pathPtr)
2669 Tcl_Obj *pathPtr;
2690 if (pathPtr->bytes && pathPtr->length == 1 && pathPtr->bytes[0] == '~') {
2694 objPtr = Tcl_FSGetTranslatedPath(NULL, pathPtr);
2702 pathPtr = Tcl_NewStringObj(str, len);
2703 Tcl_AppendToObj(pathPtr, "/", 1);
2704 Tcl_IncrRefCount(pathPtr);
2706 objPtr = pathPtr;
2713 if (Tcl_FSGetNormalizedPath(NULL, pathPtr) == NULL) {
2721 fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
2725 retVal = (*proc)(pathPtr);
2731 if ((Tcl_FSStat(pathPtr, &buf) == 0)
2733 && (Tcl_FSAccess(pathPtr, R_OK) == 0)) {
2759 Tcl_Obj *normDirName = Tcl_FSGetNormalizedPath(NULL, pathPtr);
2788 * pathPtr belongs will be called.
2791 * 'pathPtr' is a path. Rather it assumes filename is either
2810 Tcl_FSLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr,
2813 Tcl_Obj *pathPtr; /* Name of the file containing the desired
2828 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
2832 int retVal = (*proc)(interp, pathPtr, handlePtr, unloadProcPtr);
2851 if (Tcl_FSAccess(pathPtr, R_OK) != 0) {
2853 Tcl_GetString(pathPtr), "\": ",
2870 ret = Tcl_FSStat(pathPtr, &statBuf);
2879 data = Tcl_FSOpenFileChannel(interp, pathPtr, "r", 0666);
2931 if (TclCrossFilesystemCopy(interp, pathPtr,
3052 TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr,
3055 Tcl_Obj *pathPtr; /* Name of the file containing the desired
3073 res = TclpDlopen(interp, pathPtr, &handle, unloadProcPtr);
3187 * the filesystem to which pathPtr belongs will be called.
3191 * contents of the symbolic link given by 'pathPtr', or NULL if
3207 * fail unless toPtr is in the same FS as pathPtr.
3217 Tcl_FSLink(pathPtr, toPtr, linkAction)
3218 Tcl_Obj *pathPtr; /* Path of file to readlink or link */
3222 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
3226 return (*proc)(pathPtr, toPtr, linkAction);
3321 FsListMounts(pathPtr, pattern)
3322 Tcl_Obj *pathPtr; /* Contains path to directory to search. */
3345 (*proc)(NULL, resultPtr, pathPtr, pattern, &mountsOnly);
3376 Tcl_FSSplitPath(pathPtr, lenPtr)
3377 Tcl_Obj *pathPtr; /* Path to split. */
3390 if (FSGetPathType(pathPtr, &fsPtr, &driveNameLength)
3393 return TclpNativeSplitPath(pathPtr, lenPtr);
3396 return TclpNativeSplitPath(pathPtr, lenPtr);
3401 Tcl_Obj *sep = (*fsPtr->filesystemSeparatorProc)(pathPtr);
3414 p = Tcl_GetString(pathPtr);
3765 * The appropriate function for the filesystem to which pathPtr
3778 Tcl_FSDeleteFile(pathPtr)
3779 Tcl_Obj *pathPtr; /* Pathname of file to be removed (UTF-8). */
3781 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
3785 return (*proc)(pathPtr);
3798 * The appropriate function for the filesystem to which pathPtr
3811 Tcl_FSCreateDirectory(pathPtr)
3812 Tcl_Obj *pathPtr; /* Pathname of directory to create (UTF-8). */
3814 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
3818 return (*proc)(pathPtr);
3876 * The appropriate function for the filesystem to which pathPtr
3889 Tcl_FSRemoveDirectory(pathPtr, recursive, errorPtr)
3890 Tcl_Obj *pathPtr; /* Pathname of directory to be removed
3899 Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
3912 Tcl_Obj *normPath = Tcl_FSGetNormalizedPath(NULL, pathPtr);
3922 Tcl_Obj *dirPtr = TclFileDirname(NULL, pathPtr);
3930 return (*proc)(pathPtr, recursive, errorPtr);
5555 Tcl_FSGetTranslatedPath(interp, pathPtr)
5557 Tcl_Obj* pathPtr;
5562 if (Tcl_FSConvertToPathType(interp, pathPtr) != TCL_OK) {
5565 srcFsPathPtr = (FsPath*) PATHOBJ(pathPtr);
5567 if (PATHFLAGS(pathPtr) != 0) {
5624 Tcl_FSGetTranslatedStringPath(interp, pathPtr)
5626 Tcl_Obj* pathPtr;
5628 Tcl_Obj *transPtr = Tcl_FSGetTranslatedPath(interp, pathPtr);
6614 NativePathInFilesystem(pathPtr, clientDataPtr)
6615 Tcl_Obj *pathPtr;
6626 if (pathPtr->typePtr == &tclFsPathType) {
6627 if (pathPtr->bytes != NULL && pathPtr->bytes[0] == '\0') {
6639 Tcl_GetStringFromObj(pathPtr,&len);