*
 * Copyright (c) 1991-1994 The Regents of the University of California.
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 *
 * 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.113.2.2 2005/04/25 21:37:21 kennykb Exp $
 */

#include "tclInt.h"
#ifdef __WIN32__
#include "tclWinInt.h"
#endif
#include "tclFileSystem.h"

		    if (symbols[i] != NULL) {
			*procPtrs[i] = TclpFindSymbol(interp, *handlePtr, 
						      symbols[i]);
		    }
		}
		/* Copy this across, since both are equal for the native fs */
		*clientDataPtr = (ClientData)*handlePtr;
                Tcl_ResetResult(interp);
		return TCL_OK;
	    }
	    if (Tcl_GetErrno() != EXDEV) {
	        return retVal;
	    }
	}
	/* 
	 * The filesystem doesn't support 'load', so we fall back on

	
	/* 
	 * Get a temporary filename to use, first to
	 * copy the file into, and then to load. 
	 */
	copyToPtr = TclpTempFileName();
	if (copyToPtr == NULL) {
	    Tcl_AppendResult(interp, "couldn't create temporary file: ",
			     Tcl_PosixError(interp), (char *) NULL);
	    return TCL_ERROR;
	}
	Tcl_IncrRefCount(copyToPtr);
	
	copyFsPtr = Tcl_FSGetFileSystemForPath(copyToPtr);
	if ((copyFsPtr == NULL) || (copyFsPtr == fsPtr)) {
	    /* 
	     * We already know we can't use Tcl_FSLoadFile from 
	     * this filesystem, and we must avoid a possible
	     * infinite loop.  Try to delete the file we
	     * probably created, and then exit.
	     */
	    Tcl_FSDeleteFile(copyToPtr);
	    Tcl_DecrRefCount(copyToPtr);
	    Tcl_AppendResult(interp, "couldn't load from current filesystem",
			     (char *) NULL);
	    return TCL_ERROR;
	}
	
	if (TclCrossFilesystemCopy(interp, pathPtr, copyToPtr) == TCL_OK) {
	    Tcl_LoadHandle newLoadHandle = NULL;
	    ClientData newClientData = NULL;
	    Tcl_FSUnloadFileProc *newUnloadProcPtr = NULL;
	    FsDivertLoad *tvdlPtr;

		 * by 'load' will store the original (vfs)
		 * path alongside the temporary load handle
		 * and unload proc ptr.
		 */
		(*handlePtr) = newLoadHandle;
		(*clientDataPtr) = newClientData;
		(*unloadProcPtr) = newUnloadProcPtr;
		Tcl_ResetResult(interp);
		return TCL_OK;
	    }
	    /* 
	     * When we unload this file, we need to divert the 
	     * unloading so we can unload and cleanup the 
	     * temporary file correctly.
	     */

		Tcl_DecrRefCount(copyToPtr);
	    }

	    copyToPtr = NULL;
	    (*handlePtr) = newLoadHandle;
	    (*clientDataPtr) = (ClientData)tvdlPtr;
	    (*unloadProcPtr) = &FSUnloadTempFile;
	    Tcl_ResetResult(interp);
	    return retVal;
	} else {
	    /* Cross-platform copy failed */
	    Tcl_FSDeleteFile(copyToPtr);
	    Tcl_DecrRefCount(copyToPtr);
	    return TCL_ERROR;
	}
    }
    Tcl_SetErrno(ENOENT);
    return TCL_ERROR;
}
/* 
 * This function used to be in the platform specific directories, but it
 * has now been made to work cross-platform
 */
int
TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr,