*
 * 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.77.2.21 2005/05/24 04:19:32 das Exp $
 */

#include "tclInt.h"
#include "tclPort.h"
#ifdef MAC_TCL
#include "tclMacInt.h"
#endif

	    if (Tcl_FSAccess(pathPtr, R_OK) != 0) {
		Tcl_AppendResult(interp, "couldn't load library \"",
				 Tcl_GetString(pathPtr), "\": ", 
				 Tcl_PosixError(interp), (char *) NULL);
		return TCL_ERROR;
	    }
	    
#ifdef TCL_LOAD_FROM_MEMORY
	/* 
	 * The platform supports loading code from memory, so ask for a
	 * buffer of the appropriate size, read the file into it and 
	 * load the code from the buffer:
	 */
	do {
            int ret, size;
            void *buffer;
            Tcl_StatBuf statBuf;
            Tcl_Channel data;
            
            ret = Tcl_FSStat(pathPtr, &statBuf);
            if (ret < 0) {
                break;
            }
            size = (int) statBuf.st_size;
            /* Tcl_Read takes an int: check that file size isn't wide */
            if (size != (Tcl_WideInt)statBuf.st_size) {
                break;
            }
	    data = Tcl_FSOpenFileChannel(interp, pathPtr, "r", 0666);
            if (!data) {
                break;
            }
            buffer = TclpLoadMemoryGetBuffer(interp, size);
            if (!buffer) {
                Tcl_Close(interp, data);
                break;
            }
            Tcl_SetChannelOption(interp, data, "-translation", "binary");
            ret = Tcl_Read(data, buffer, size);
            Tcl_Close(interp, data);
            ret = TclpLoadMemory(interp, buffer, size, ret, handlePtr, unloadProcPtr);
            if (ret == TCL_OK) {
		if (*handlePtr == NULL) {
		    break;
		}
                if (sym1 != NULL) {
                    *proc1Ptr = TclpFindSymbol(interp, *handlePtr, sym1);
                }
                if (sym2 != NULL) {
                    *proc2Ptr = TclpFindSymbol(interp, *handlePtr, sym2);
                }
		return TCL_OK;
	    }
	} while (0); 
	Tcl_ResetResult(interp);
#endif

	    /* 
	     * Get a temporary filename to use, first to
	     * copy the file into, and then to load. 
	     */
	    copyToPtr = TclpTempFileName();
	    if (copyToPtr == NULL) {
	        return -1;