*
 * 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.81.2.6 2004/03/26 22:28:26 dgp Exp $
 * RCS: @(#) $Id: tclIOUtil.c,v 1.81.2.7 2004/03/31 01:36:17 dgp Exp $
 */

#include "tclInt.h"
#include "tclPort.h"
#ifdef __WIN32__
/* for tclWinProcs->useWide */
#include "tclWinInt.h"

Tcl_PathType
TclGetPathType(pathPtr, filesystemPtrPtr, driveNameLengthPtr, driveNameRef)
    Tcl_Obj *pathPtr;                   /* Path to determine type for */
    Tcl_Filesystem **filesystemPtrPtr;  /* If absolute path and this is
                                         * non-NULL, then set to the
                                         * filesystem which claims this
                                         * path */  
    int *driveNameLengthPtr;            
    Tcl_Obj **driveNameRef;
    int *driveNameLengthPtr;            /* If the path is absolute, and 
                                         * this is non-NULL, then set to
                                         * the length of the driveName */
    Tcl_Obj **driveNameRef;             /* If the path is absolute, and
                                         * this is non-NULL, then set to
                                         * the name of the drive,
                                         * network-volume which contains
                                         * the path, already with a
                                         * refCount for the caller.  */
{
    FilesystemRecord *fsRecPtr;
    int pathLen;
    char *path;
    Tcl_PathType type = TCL_PATH_RELATIVE;
    
    path = Tcl_GetStringFromObj(pathPtr, &pathLen);