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

  1. #ifdef WIN32
  2. LPVOID sMsg;
  3. Tcl_DString *dsPtr;
  4. Tcl_DStringInit(dsPtr);
  5. FormatMessageW(FORMAT_MESSAGE_ALLOCATE_BUFFER
  6. | FORMAT_MESSAGE_FROM_SYSTEM
  7. | FORMAT_MESSAGE_IGNORE_INSERTS,
  8. NULL, GetLastError(),
  9. MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
  10. (LPTSTR)&sMsg, 0, NULL);
  11. Tcl_UniCharToUtfDString(sMsg, -1, dsPtr);
  12. errObj = Tcl_NewStringObj(prefix, -1);
  13. Tcl_AppendStringsToObj(errObj, ": ", Tcl_DStringValue(dsPtr), NULL);
  14. LocalFree(sMsg);
  15. Tcl_DStringFree(dsPtr);
  16. #elif defined(HAVE_STRERROR)