Minor changes to enforce Engineering Manual style rules.

1 files changed, 74 insertions, 65 deletions

diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index ff7af5a..6723f27 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -17,7 +17,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclIOUtil.c,v 1.173 2010/04/02 23:11:55 nijtmans Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.174 2010/04/04 15:11:51 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -42,9 +42,8 @@ static void		FsUpdateCwd(Tcl_Obj *cwdObj, ClientData clientData);
 #ifdef TCL_THREADS
 static void		FsRecacheFilesystemList(void);
 #endif
-static void*		DivertFindSymbol(Tcl_Interp* interp,
-					 Tcl_LoadHandle loadHandle,
-					 const char* symbol);
+static void *		DivertFindSymbol(Tcl_Interp *interp,
+			    Tcl_LoadHandle loadHandle, const char *symbol);
 static void		DivertUnloadFile(Tcl_LoadHandle loadHandle);
 
 /*
@@ -2989,8 +2988,8 @@ Tcl_FSLoadFile(
 
     res = Tcl_LoadFile(interp, pathPtr, symbols, 0, procPtrs, handlePtr);
     if (res == TCL_OK) {
-	*proc1Ptr = (Tcl_PackageInitProc*) procPtrs[0];
-	*proc2Ptr = (Tcl_PackageInitProc*) procPtrs[1];
+	*proc1Ptr = (Tcl_PackageInitProc *) procPtrs[0];
+	*proc2Ptr = (Tcl_PackageInitProc *) procPtrs[1];
     } else {
 	*proc1Ptr = *proc2Ptr = NULL;
     }
@@ -3031,7 +3030,7 @@ Tcl_LoadFile(
     Tcl_Interp *interp,		/* Used for error reporting. */
     Tcl_Obj *pathPtr,		/* Name of the file containing the desired
 				 * code. */
-    const char *const symbols[],	/* Names of functions to look up in the file's
+    const char *const symbols[],/* Names of functions to look up in the file's
 				 * symbol table. */
     int flags,			/* Flags (unused) */
     void *procVPtrs,		/* Where to return the addresses corresponding
@@ -3040,10 +3039,10 @@ Tcl_LoadFile(
 				 * information which can be used in
 				 * TclpFindSymbol. */
 {
-    void** procPtrs = (void**) procVPtrs;
+    void **procPtrs = (void **) procVPtrs;
     const Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
     const Tcl_Filesystem *copyFsPtr;
-    Tcl_FSUnloadFileProc* unloadProcPtr;
+    Tcl_FSUnloadFileProc *unloadProcPtr;
     Tcl_Obj *copyToPtr;
     Tcl_LoadHandle newLoadHandle = NULL;
     Tcl_LoadHandle divertedLoadHandle = NULL;
@@ -3152,7 +3151,8 @@ Tcl_LoadFile(
 
 	Tcl_FSDeleteFile(copyToPtr);
 	Tcl_DecrRefCount(copyToPtr);
-	Tcl_AppendResult(interp, "couldn't load from current filesystem",NULL);
+	Tcl_AppendResult(interp, "couldn't load from current filesystem",
+		NULL);
 	return TCL_ERROR;
     }
 
@@ -3166,7 +3166,7 @@ Tcl_LoadFile(
 	return TCL_ERROR;
     }
 
-#if !defined(__WIN32__)
+#ifndef __WIN32__
     /*
      * Do we need to set appropriate permissions on the file? This may be
      * required on some systems. On Unix we could loop over the file
@@ -3195,7 +3195,7 @@ Tcl_LoadFile(
     Tcl_ResetResult(interp);
 
     retVal = Tcl_LoadFile(interp, copyToPtr, symbols, 0, procPtrs,
-			 &newLoadHandle);
+	    &newLoadHandle);
     if (retVal != TCL_OK) {
 	/*
 	 * The file didn't load successfully.
@@ -3279,7 +3279,7 @@ Tcl_LoadFile(
 
     
     divertedLoadHandle = (Tcl_LoadHandle)
-	ckalloc(sizeof (struct Tcl_LoadHandle_));
+	    ckalloc(sizeof (struct Tcl_LoadHandle_));
     divertedLoadHandle->clientData = (ClientData) tvdlPtr;
     divertedLoadHandle->findSymbolProcPtr = DivertFindSymbol;
     divertedLoadHandle->unloadFileProcPtr = DivertUnloadFile;
@@ -3293,16 +3293,18 @@ Tcl_LoadFile(
      * At this point, *handlePtr is already set up to the handle for the
      * loaded library. We now try to resolve the symbols.
      */
+
     if (symbols != NULL) {
 	for (i=0 ; symbols[i] != NULL; i++) {
 	    procPtrs[i] = Tcl_FindSymbol(interp, *handlePtr, symbols[i]);
 	    if (procPtrs[i] == NULL) {
 		/* 
-		 * At least one symbol in the list was not found.
-		 * Unload the file, and report the problem back to the 
-		 * caller. (Tcl_FindSymbol should already have left an
-		 * appropriate error message.)
-		 */	
+		 * At least one symbol in the list was not found.  Unload the
+		 * file, and report the problem back to the caller.
+		 * (Tcl_FindSymbol should already have left an appropriate
+		 * error message.)
+		 */
+
 		(*handlePtr)->unloadFileProcPtr(*handlePtr);
 		*handlePtr = NULL;
 		return TCL_ERROR;
@@ -3313,44 +3315,47 @@ Tcl_LoadFile(
 }
 
 /*
- *-----------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  *
  * DivertFindSymbol --
  *	
  *	Find a symbol in a shared library loaded by copy-from-VFS.
  *
- *-----------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  */
 
-static void*
-DivertFindSymbol(Tcl_Interp* interp, 	    /* Tcl interpreter */
-		 Tcl_LoadHandle loadHandle, /* Handle to the diverted module */
-		 const char* symbol)	    /* Symbol to resolve */
+static void *
+DivertFindSymbol(
+    Tcl_Interp *interp, 	/* Tcl interpreter */
+    Tcl_LoadHandle loadHandle,	/* Handle to the diverted module */
+    const char *symbol)		/* Symbol to resolve */
 {
-    FsDivertLoad* tvdlPtr = (FsDivertLoad*) (loadHandle->clientData);
+    FsDivertLoad *tvdlPtr = (FsDivertLoad *) loadHandle->clientData;
     Tcl_LoadHandle originalHandle = tvdlPtr->loadHandle;
+
     return originalHandle->findSymbolProcPtr(interp, originalHandle, symbol);
 }
 
 /*
- *-----------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  *
  * DivertUnloadFile --
  *
- *	Unloads a file that has been loaded by copying from VFS to the
- *	native filesystem.
+ *	Unloads a file that has been loaded by copying from VFS to the native
+ *	filesystem.
  *
  * Parameters:
  *	loadHandle -- Handle of the file to unload
  *
- *-----------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  */
 
 static void
-DivertUnloadFile(Tcl_LoadHandle loadHandle)
+DivertUnloadFile(
+    Tcl_LoadHandle loadHandle)
 {
-    FsDivertLoad* tvdlPtr = (FsDivertLoad*) (loadHandle->clientData);
-    Tcl_LoadHandle originalHandle = tvdlPtr->loadHandle;
+    FsDivertLoad *tvdlPtr = (FsDivertLoad *) loadHandle->clientData;
+    Tcl_LoadHandle originalHandle;
 
     /*
      * This test should never trigger, since we give the client data in the
@@ -3360,6 +3365,7 @@ DivertUnloadFile(Tcl_LoadHandle loadHandle)
     if (tvdlPtr == NULL) {
 	return;
     }
+    originalHandle = tvdlPtr->loadHandle;
 
     /*
      * Call the real 'unloadfile' proc we actually used. It is very important
@@ -3370,7 +3376,9 @@ DivertUnloadFile(Tcl_LoadHandle loadHandle)
 
     originalHandle->unloadFileProcPtr(originalHandle);
 
-    /* What filesystem contains the temp copy of the library? */
+    /*
+     * What filesystem contains the temp copy of the library?
+     */
 
     if (tvdlPtr->divertedFilesystem == NULL) {
 	/*
@@ -3415,8 +3423,8 @@ DivertUnloadFile(Tcl_LoadHandle loadHandle)
 	Tcl_DecrRefCount(tvdlPtr->divertedFile);
     }
 
-    ckfree((void*)tvdlPtr);
-    ckfree((void*)loadHandle);
+    ckfree((void *) tvdlPtr);
+    ckfree((void *) loadHandle);
 }
 
 /*
@@ -3464,82 +3472,83 @@ TclpLoadFile(
 }
 
 /*
- *-----------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  *
  * Tcl_FindSymbol --
  *
  *	Find a symbol in a loaded library
  *
  * Results:
- *	Returns a pointer to the symbol if found. If not found, returns
- *	NULL and leaves an error message in the interpreter result.
+ *	Returns a pointer to the symbol if found. If not found, returns NULL
+ *	and leaves an error message in the interpreter result.
  *
- * This function was once filesystem-specific, but has been made portable
- * by having TclpDlopen return a structure that includes procedure pointers.
+ * This function was once filesystem-specific, but has been made portable by
+ * having TclpDlopen return a structure that includes procedure pointers.
  *
- *-----------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  */
 
-void*
-Tcl_FindSymbol(Tcl_Interp* interp,	  /* Tcl interpreter */
-	       Tcl_LoadHandle loadHandle, /* Handle to the loaded library */
-	       const char* symbol)        /* Name of the symbol to resolve */
+void *
+Tcl_FindSymbol(
+    Tcl_Interp *interp,		/* Tcl interpreter */
+    Tcl_LoadHandle loadHandle,	/* Handle to the loaded library */
+    const char *symbol)		/* Name of the symbol to resolve */
 {
-    return (*(loadHandle->findSymbolProcPtr))(interp, loadHandle, symbol);
+    return loadHandle->findSymbolProcPtr(interp, loadHandle, symbol);
 }
 
 /*
- *-----------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  *
  * Tcl_FSUnloadFile --
  *
  *	Unloads a library given its handle. Checks first that the library
  *	supports unloading.
  *
- *-----------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  */
 
 int
-Tcl_FSUnloadFile(Tcl_Interp* interp, /* Tcl interpreter */
-		 Tcl_LoadHandle handle) /* Handle of the file to unload */
+Tcl_FSUnloadFile(
+    Tcl_Interp *interp,		/* Tcl interpreter */
+    Tcl_LoadHandle handle)	/* Handle of the file to unload */
 {
     if (handle->unloadFileProcPtr == NULL) {
 	if (interp != NULL) {
-	    Tcl_SetObjResult(interp,
-			     Tcl_NewStringObj("cannot unload: filesystem "
-					      "does not support unloading",
-					      -1));
+	    Tcl_SetObjResult(interp, Tcl_NewStringObj(
+		    "cannot unload: filesystem does not support unloading",
+		    -1));
 	}
 	return TCL_ERROR;
-    } else {
-	TclpUnloadFile(handle);
-    return TCL_OK;
     }
+    TclpUnloadFile(handle);
+    return TCL_OK;
 }
 
 /*
- *-----------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  *
  * TclpUnloadFile --
  *
  *	Unloads a library given its handle
  *
- * This function was once filesystem-specific, but has been made portable
- * by having TclpDlopen return a structure that includes procedure pointers.
+ * This function was once filesystem-specific, but has been made portable by
+ * having TclpDlopen return a structure that includes procedure pointers.
  *
- *-----------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  */
 
 void
-TclpUnloadFile(Tcl_LoadHandle handle)
+TclpUnloadFile(
+    Tcl_LoadHandle handle)
 {
     if (handle->unloadFileProcPtr != NULL) {
-	(*(handle->unloadFileProcPtr))(handle);
+	handle->unloadFileProcPtr(handle);
     }
 }
 
 /*
- *---------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  *
  * TclFSUnloadTempFile --
  *
@@ -3554,7 +3563,7 @@ TclpUnloadFile(Tcl_LoadHandle handle)
  *	The effects of the 'unload' function called, and of course the
  *	temporary file will be deleted.
  *
- *---------------------------------------------------------------------------
+ *----------------------------------------------------------------------
  */
 
 void