Posted to tcl by patthoyts at Sun Apr 01 21:51:10 GMT 2007view raw

  1. Index: generic/udp_tcl.c
  2. ===================================================================
  3. RCS file: /cvsroot/tcludp/tcludp/generic/udp_tcl.c,v
  4. retrieving revision 1.37
  5. diff -u -r1.37 udp_tcl.c
  6. --- generic/udp_tcl.c 30 Mar 2007 21:22:54 -0000 1.37
  7. +++ generic/udp_tcl.c 1 Apr 2007 21:47:14 -0000
  8. @@ -1458,9 +1458,22 @@
  9. static Tcl_Obj *
  10. ErrorToObj(const char * prefix)
  11. {
  12. + Tcl_Obj *errObj;
  13. +#ifdef WIN32
  14. + LPVOID sMsg;
  15. + DWORD cbWrote = 0;
  16. + FormatMessageA(FORMAT_MESSAGE_ALLOCATE_BUFFER
  17. + | FORMAT_MESSAGE_FROM_SYSTEM
  18. + | FORMAT_MESSAGE_IGNORE_INSERTS,
  19. + NULL, GetLastError(),
  20. + MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
  21. + (LPSTR)&sMsg, 0, NULL);
  22. + errObj = Tcl_NewStringObj(prefix, -1);
  23. + Tcl_AppendStringsToObj(errObj, ": ", (LPSTR)sMsg, NULL);
  24. + LocalFree(sMsg);
  25. +#elif defined(HAVE_STRERROR)
  26. extern int errno;
  27. Tcl_Obj *errObj = Tcl_NewStringObj(prefix, -1);
  28. -#ifdef HAVE_STRERROR
  29. Tcl_AppendStringsToObj(errObj, ": ", strerror(errno), NULL);
  30. #endif
  31. return errObj;
  32. @@ -1511,7 +1524,7 @@
  33. {
  34. int port = 0;
  35. int r = UdpSockGetPort(interp, service, "udp", &port);
  36. - *servicePort = htons(port);
  37. + *servicePort = htons((short)port);
  38. return r;
  39. }
  40.  
  41. Index: win/makefile.vc
  42. ===================================================================
  43. RCS file: /cvsroot/tcludp/tcludp/win/makefile.vc,v
  44. retrieving revision 1.5
  45. diff -u -r1.5 makefile.vc
  46. --- win/makefile.vc 27 Nov 2005 21:32:01 -0000 1.5
  47. +++ win/makefile.vc 1 Apr 2007 21:49:00 -0000
  48. @@ -156,7 +156,7 @@
  49. PROJECT = udp
  50. !include "rules.vc"
  51.  
  52. -DOTVERSION = 1.0.8
  53. +DOTVERSION = 1.0.9
  54. VERSION = $(DOTVERSION:.=)
  55. STUBPREFIX = $(PROJECT)stub

Comments

Posted by kostix at Sun Apr 01 22:16:49 GMT 2007 [text] [code]

#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)