summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclFileSystem.h92
1 files changed, 58 insertions, 34 deletions
diff --git a/generic/tclFileSystem.h b/generic/tclFileSystem.h
index a9a9245..459e572 100644
--- a/generic/tclFileSystem.h
+++ b/generic/tclFileSystem.h
@@ -9,9 +9,16 @@
* 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.9 2004/10/07 14:50:22 vincentdarley Exp $
+ * RCS: @(#) $Id: tclFileSystem.h,v 1.10 2004/11/03 00:53:05 davygrvy Exp $
*/
+#ifndef _TCLFILESYSTEM
+#define _TCLFILESYSTEM
+
+#ifndef _TCL
+#include "tcl.h"
+#endif
+
/*
* struct FilesystemRecord --
*
@@ -62,45 +69,62 @@ typedef struct ThreadSpecificData {
* These functions are not exported at all at present.
*/
-int TclFSCwdPointerEquals _ANSI_ARGS_((Tcl_Obj** pathPtrPtr));
-int TclFSMakePathFromNormalized _ANSI_ARGS_((Tcl_Interp *interp,
- Tcl_Obj *pathPtr, ClientData clientData));
-int TclFSNormalizeToUniquePath _ANSI_ARGS_((Tcl_Interp *interp,
- Tcl_Obj *pathPtr, int startAt, ClientData *clientDataPtr));
-Tcl_Obj* TclFSMakePathRelative _ANSI_ARGS_((Tcl_Interp *interp,
- Tcl_Obj *pathPtr, Tcl_Obj *cwdPtr));
-Tcl_Obj* TclFSInternalToNormalized _ANSI_ARGS_((
- Tcl_Filesystem *fromFilesystem, ClientData clientData,
- FilesystemRecord **fsRecPtrPtr));
-int TclFSEnsureEpochOk _ANSI_ARGS_((Tcl_Obj* pathPtr,
- Tcl_Filesystem **fsPtrPtr));
-void TclFSSetPathDetails _ANSI_ARGS_((Tcl_Obj *pathPtr,
- FilesystemRecord *fsRecPtr, ClientData clientData ));
-Tcl_Obj* TclFSNormalizeAbsolutePath _ANSI_ARGS_((Tcl_Interp* interp,
- Tcl_Obj *pathPtr, ClientData *clientDataPtr));
+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_((
+ 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 *fsRecPtr,
+ ClientData clientData ));
+MODULE_SCOPE Tcl_Obj * TclFSNormalizeAbsolutePath _ANSI_ARGS_((
+ Tcl_Interp* interp, Tcl_Obj *pathPtr,
+ ClientData *clientDataPtr));
/*
* Private shared variables for use by tclIOUtil.c and tclPathObj.c
*/
-extern Tcl_Filesystem tclNativeFilesystem;
-extern Tcl_ThreadDataKey tclFsDataKey;
+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.
*/
-Tcl_PathType TclFSGetPathType _ANSI_ARGS_((Tcl_Obj *pathPtr,
- Tcl_Filesystem **filesystemPtrPtr,
- int *driveNameLengthPtr));
-Tcl_PathType TclFSNonnativePathType _ANSI_ARGS_((CONST char *pathPtr,
- int pathLen, Tcl_Filesystem **filesystemPtrPtr,
- int *driveNameLengthPtr, Tcl_Obj **driveNameRef));
-Tcl_PathType TclGetPathType _ANSI_ARGS_((Tcl_Obj *pathPtr,
- Tcl_Filesystem **filesystemPtrPtr,
- int *driveNameLengthPtr, Tcl_Obj **driveNameRef));
-int TclFSEpochOk _ANSI_ARGS_((int filesystemEpoch));
-int TclFSCwdIsNative _ANSI_ARGS_((void));
-Tcl_Obj* TclWinVolumeRelativeNormalize _ANSI_ARGS_((Tcl_Interp *interp,
- CONST char *path, Tcl_Obj **useThisCwdPtr));
-Tcl_FSPathInFilesystemProc TclNativePathInFilesystem;
-Tcl_FSCreateInternalRepProc TclNativeCreateNativeRep;
+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_FSPathInFilesystemProc TclNativePathInFilesystem;
+MODULE_SCOPE Tcl_FSCreateInternalRepProc TclNativeCreateNativeRep;
+
+#endif /* _TCLFILESYSTEM */