From 50cf51b1cbe9fb93c8a58540e5fc0f02af74120f Mon Sep 17 00:00:00 2001
From: davygrvy <davygrvy@pobox.com>
Date: Wed, 3 Nov 2004 00:53:05 +0000
Subject: * generic/tclFileSystem.h: Added use of MODULE_SCOPE on protos.

---
 generic/tclFileSystem.h | 92 +++++++++++++++++++++++++++++++------------------
 1 file 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 */
-- 
cgit v0.12