Posted to tcl by kostix at Sun Apr 01 22:17:17 GMT 2007view pretty

#ifdef WIN32
    LPVOID sMsg;
	Tcl_DString *dsPtr;
	Tcl_DStringInit(dsPtr);
    FormatMessageW(FORMAT_MESSAGE_ALLOCATE_BUFFER
                   | FORMAT_MESSAGE_FROM_SYSTEM
                   | FORMAT_MESSAGE_IGNORE_INSERTS,
                   NULL, GetLastError(),
                   MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
                   (LPTSTR)&sMsg, 0, NULL);
	Tcl_UniCharToUtfDString(sMsg, -1, dsPtr);
    errObj = Tcl_NewStringObj(prefix, -1);
    Tcl_AppendStringsToObj(errObj, ": ", Tcl_DStringValue(dsPtr), NULL);
    LocalFree(sMsg);
	Tcl_DStringFree(dsPtr);
#elif defined(HAVE_STRERROR)