/*
 * tclWinSock.c --
 *
 *	This file contains Windows-specific socket related code.
 *
 * Copyright (c) 1995-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: tclWinSock.c,v 1.37.2.11 2006/04/28 16:10:51 dgp Exp $
 * RCS: @(#) $Id: tclWinSock.c,v 1.37.2.12 2006/08/29 16:19:48 dgp Exp $
 */

#include "tclWinInt.h"

/*
 * Make sure to remove the redirection defines set in tclWinPort.h that is in
 * use in other sections of the core, except for us.

    if ((*tclWinProcs->getComputerNameProc)(wbuf, &length) != 0) {
	/*
	 * Convert string from native to UTF then change to lowercase.
	 */

	Tcl_UtfToLower(Tcl_WinTCharToUtf((TCHAR *) wbuf, -1, &ds));

    } else {
	Tcl_DStringInit(&ds);
    } else if (TclpHasSockets(NULL) == TCL_OK) {
	/*
	 * Buffer length of 255 copied slavishly from previous version of this
	 * routine. Presumably there's a more "correct" macro value for a
	 * properly sized buffer for a gethostname() call. Maintainers are
	 * welcome to supply it.
	 */
	if (TclpHasSockets(NULL) == TCL_OK) {
	    /*
	     * Buffer length of 255 copied slavishly from previous version
	     * of this routine. Presumably there's a more "correct" macro
	     * value for a properly sized buffer for a gethostname() call.
	     * Maintainers are welcome to supply it.
	     */

	Tcl_DStringInit(&ds);
	Tcl_DStringSetLength(&ds, 255);
	if (winSock.gethostname(Tcl_DStringValue(&ds),
		Tcl_DStringLength(&ds)) == 0) {
	    Tcl_DStringSetLength(&ds, 0);
	} else {
	    Tcl_DStringSetLength(&ds, strlen(Tcl_DStringValue(&ds)));
	    Tcl_DStringSetLength(&ds, 255);
	    if (winSock.gethostname(Tcl_DStringValue(&ds),
		    Tcl_DStringLength(&ds)) == 0) {
		Tcl_DStringSetLength(&ds, 0);
	    } else {
		Tcl_DStringSetLength(&ds, strlen(Tcl_DStringValue(&ds)));
	    }
	}
    }

    *encodingPtr = Tcl_GetEncoding(NULL, "utf-8");
    *lengthPtr = Tcl_DStringLength(&ds);
    *valuePtr = ckalloc((unsigned int) (*lengthPtr)+1);
    memcpy((VOID *) *valuePtr, (VOID *) Tcl_DStringValue(&ds),