summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclFileSystem.h157
1 files changed, 75 insertions, 82 deletions
diff --git a/generic/tclFileSystem.h b/generic/tclFileSystem.h
index 459e572..cff0942 100644
--- a/generic/tclFileSystem.h
+++ b/generic/tclFileSystem.h
@@ -1,57 +1,52 @@
-/*
+/*
* tclFileSystem.h --
*
- * This file contains the common defintions and prototypes for
- * use by Tcl's filesystem and path handling layers.
+ * This file contains the common defintions and prototypes for use by
+ * Tcl's filesystem and path handling layers.
*
* Copyright (c) 2003 Vince Darley.
*
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ * See the file "license.terms" for information on usage and redistribution of
+ * this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclFileSystem.h,v 1.10 2004/11/03 00:53:05 davygrvy Exp $
+ * RCS: @(#) $Id: tclFileSystem.h,v 1.11 2005/10/13 00:07:17 dkf Exp $
*/
#ifndef _TCLFILESYSTEM
#define _TCLFILESYSTEM
-#ifndef _TCL
#include "tcl.h"
-#endif
-/*
+/*
* struct FilesystemRecord --
- *
- * A filesystem record is used to keep track of each
- * filesystem currently registered with the core,
- * in a linked list. Pointers to these structures
- * are also kept by each "path" Tcl_Obj, and we must
- * retain a refCount on the number of such references.
+ *
+ * A filesystem record is used to keep track of each filesystem currently
+ * registered with the core, in a linked list. Pointers to these structures
+ * are also kept by each "path" Tcl_Obj, and we must retain a refCount on the
+ * number of such references.
*/
+
typedef struct FilesystemRecord {
- ClientData clientData; /* Client specific data for the new
- * filesystem (can be NULL) */
- Tcl_Filesystem *fsPtr; /* Pointer to filesystem dispatch
- * table. */
- int fileRefCount; /* How many Tcl_Obj's use this
- * filesystem. */
- struct FilesystemRecord *nextPtr;
- /* The next filesystem registered
- * to Tcl, or NULL if no more. */
+ ClientData clientData; /* Client specific data for the new filesystem
+ * (can be NULL) */
+ Tcl_Filesystem *fsPtr; /* Pointer to filesystem dispatch table. */
+ int fileRefCount; /* How many Tcl_Obj's use this filesystem. */
+ struct FilesystemRecord *nextPtr;
+ /* The next filesystem registered to Tcl, or
+ * NULL if no more. */
struct FilesystemRecord *prevPtr;
- /* The previous filesystem registered
- * to Tcl, or NULL if no more. */
+ /* The previous filesystem registered to Tcl,
+ * or NULL if no more. */
} FilesystemRecord;
/*
- * This structure holds per-thread private copy of the
- * current directory maintained by the global cwdPathPtr.
- * This structure holds per-thread private copies of
- * some global data. This way we avoid most of the
- * synchronization calls which boosts performance, at
- * cost of having to update this information each
- * time the corresponding epoch counter changes.
+ * This structure holds per-thread private copy of the current directory
+ * maintained by the global cwdPathPtr. This structure holds per-thread
+ * private copies of some global data. This way we avoid most of the
+ * synchronization calls which boosts performance, at cost of having to update
+ * this information each time the corresponding epoch counter changes.
*/
+
typedef struct ThreadSpecificData {
int initialized;
int cwdPathEpoch;
@@ -61,70 +56,68 @@ typedef struct ThreadSpecificData {
FilesystemRecord *filesystemList;
} ThreadSpecificData;
-/*
- * The internal TclFS API provides routines for handling and
- * manipulating paths efficiently, taking direct advantage of
- * the "path" Tcl_Obj type.
- *
+/*
+ * The internal TclFS API provides routines for handling and manipulating
+ * paths efficiently, taking direct advantage of the "path" Tcl_Obj type.
+ *
* These functions are not exported at all at present.
*/
-MODULE_SCOPE int TclFSCwdPointerEquals _ANSI_ARGS_((
- Tcl_Obj** pathPtrPtr));
-MODULE_SCOPE int TclFSMakePathFromNormalized _ANSI_ARGS_((
- Tcl_Interp *interp, Tcl_Obj *pathPtr,
- ClientData clientData));
-MODULE_SCOPE int TclFSNormalizeToUniquePath _ANSI_ARGS_((
- Tcl_Interp *interp, Tcl_Obj *pathPtr,
- int startAt, ClientData *clientDataPtr));
-MODULE_SCOPE Tcl_Obj * TclFSMakePathRelative _ANSI_ARGS_((
- Tcl_Interp *interp, Tcl_Obj *pathPtr,
- Tcl_Obj *cwdPtr));
-MODULE_SCOPE Tcl_Obj * TclFSInternalToNormalized _ANSI_ARGS_((
+MODULE_SCOPE int TclFSCwdPointerEquals(Tcl_Obj **pathPtrPtr);
+MODULE_SCOPE int TclFSMakePathFromNormalized(Tcl_Interp *interp,
+ Tcl_Obj *pathPtr, ClientData clientData);
+MODULE_SCOPE int TclFSNormalizeToUniquePath(Tcl_Interp *interp,
+ Tcl_Obj *pathPtr, int startAt,
+ ClientData *clientDataPtr);
+MODULE_SCOPE Tcl_Obj * TclFSMakePathRelative(Tcl_Interp *interp,
+ Tcl_Obj *pathPtr, Tcl_Obj *cwdPtr);
+MODULE_SCOPE Tcl_Obj * TclFSInternalToNormalized(
Tcl_Filesystem *fromFilesystem,
ClientData clientData,
- FilesystemRecord **fsRecPtrPtr));
-MODULE_SCOPE int TclFSEnsureEpochOk _ANSI_ARGS_((Tcl_Obj* pathPtr,
- Tcl_Filesystem **fsPtrPtr));
-MODULE_SCOPE void TclFSSetPathDetails _ANSI_ARGS_((Tcl_Obj *pathPtr,
+ FilesystemRecord **fsRecPtrPtr);
+MODULE_SCOPE int TclFSEnsureEpochOk(Tcl_Obj *pathPtr,
+ Tcl_Filesystem **fsPtrPtr);
+MODULE_SCOPE void TclFSSetPathDetails(Tcl_Obj *pathPtr,
FilesystemRecord *fsRecPtr,
- ClientData clientData ));
-MODULE_SCOPE Tcl_Obj * TclFSNormalizeAbsolutePath _ANSI_ARGS_((
- Tcl_Interp* interp, Tcl_Obj *pathPtr,
- ClientData *clientDataPtr));
+ ClientData clientData);
+MODULE_SCOPE Tcl_Obj * TclFSNormalizeAbsolutePath(Tcl_Interp *interp,
+ Tcl_Obj *pathPtr, ClientData *clientDataPtr);
-/*
+/*
* Private shared variables for use by tclIOUtil.c and tclPathObj.c
*/
+
MODULE_SCOPE Tcl_Filesystem tclNativeFilesystem;
MODULE_SCOPE Tcl_ThreadDataKey tclFsDataKey;
-/*
- * Private shared functions for use by tclIOUtil.c, tclPathObj.c
- * and tclFileName.c, and any platform-specific filesystem code.
+/*
+ * Private shared functions for use by tclIOUtil.c, tclPathObj.c and
+ * tclFileName.c, and any platform-specific filesystem code.
*/
-MODULE_SCOPE Tcl_PathType TclFSGetPathType _ANSI_ARGS_((
- Tcl_Obj *pathPtr,
- Tcl_Filesystem **filesystemPtrPtr,
- int *driveNameLengthPtr));
-MODULE_SCOPE Tcl_PathType TclFSNonnativePathType _ANSI_ARGS_((
- CONST char *pathPtr, int pathLen,
- Tcl_Filesystem **filesystemPtrPtr,
- int *driveNameLengthPtr,
- Tcl_Obj **driveNameRef));
-MODULE_SCOPE Tcl_PathType TclGetPathType _ANSI_ARGS_((
- Tcl_Obj *pathPtr,
- Tcl_Filesystem **filesystemPtrPtr,
- int *driveNameLengthPtr,
- Tcl_Obj **driveNameRef));
-MODULE_SCOPE int TclFSEpochOk _ANSI_ARGS_((
- int filesystemEpoch));
-MODULE_SCOPE int TclFSCwdIsNative _ANSI_ARGS_((void));
-MODULE_SCOPE Tcl_Obj* TclWinVolumeRelativeNormalize _ANSI_ARGS_((
- Tcl_Interp *interp, CONST char *path,
- Tcl_Obj **useThisCwdPtr));
+
+MODULE_SCOPE Tcl_PathType TclFSGetPathType(Tcl_Obj *pathPtr,
+ Tcl_Filesystem **filesystemPtrPtr,
+ int *driveNameLengthPtr);
+MODULE_SCOPE Tcl_PathType TclFSNonnativePathType(CONST char *pathPtr,
+ int pathLen, Tcl_Filesystem **filesystemPtrPtr,
+ int *driveNameLengthPtr, Tcl_Obj **driveNameRef);
+MODULE_SCOPE Tcl_PathType TclGetPathType(Tcl_Obj *pathPtr,
+ Tcl_Filesystem **filesystemPtrPtr,
+ int *driveNameLengthPtr, Tcl_Obj **driveNameRef);
+MODULE_SCOPE int TclFSEpochOk(int filesystemEpoch);
+MODULE_SCOPE int TclFSCwdIsNative(void);
+MODULE_SCOPE Tcl_Obj * TclWinVolumeRelativeNormalize(Tcl_Interp *interp,
+ CONST char *path, Tcl_Obj **useThisCwdPtr);
MODULE_SCOPE Tcl_FSPathInFilesystemProc TclNativePathInFilesystem;
MODULE_SCOPE Tcl_FSCreateInternalRepProc TclNativeCreateNativeRep;
#endif /* _TCLFILESYSTEM */
+
+/*
+ * Local Variables:
+ * mode: c
+ * c-basic-offset: 4
+ * fill-column: 78
+ * End:
+ */