diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2005-11-03 11:53:59 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2005-11-03 11:53:59 (GMT) |
| commit | 70b0f37994c80b2ecf30178e140a144d45afcb8b (patch) | |
| tree | cbda3650576addc11f3653bb42bdef4e139abdc9 /win/tclWin32Dll.c | |
| parent | 239e8679aa5bc2c3e8db30277a67a2df86fc893a (diff) | |
| download | tcl-70b0f37994c80b2ecf30178e140a144d45afcb8b.zip tcl-70b0f37994c80b2ecf30178e140a144d45afcb8b.tar.gz tcl-70b0f37994c80b2ecf30178e140a144d45afcb8b.tar.bz2 | |
* win/tclWin32Dll.c: Backported Anton Kovalenko's patch #1256872
* win/tclWinConsole.c: to give unicode console support on
* win/tclWinInt.h: suitable systems (eg: NT/XP)
Diffstat (limited to 'win/tclWin32Dll.c')
| -rw-r--r-- | win/tclWin32Dll.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c index bd2ebd0..1e4a0b3 100644 --- a/win/tclWin32Dll.c +++ b/win/tclWin32Dll.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWin32Dll.c,v 1.24.2.7 2005/06/06 21:04:47 kennykb Exp $ + * RCS: @(#) $Id: tclWin32Dll.c,v 1.24.2.8 2005/11/03 11:53:59 patthoyts Exp $ */ #include "tclWinInt.h" @@ -118,6 +118,8 @@ static TclWinProcs asciiProcs = { (int (__cdecl*)(CONST TCHAR *, struct _utimbuf *)) _utime, NULL, NULL, + (BOOL (WINAPI *)(HANDLE, LPVOID, DWORD, LPDWORD, LPVOID)) ReadConsoleA, + (BOOL (WINAPI *)(HANDLE, const VOID*, DWORD, LPDWORD, LPVOID)) WriteConsoleA }; static TclWinProcs unicodeProcs = { @@ -167,6 +169,8 @@ static TclWinProcs unicodeProcs = { (int (__cdecl*)(CONST TCHAR *, struct _utimbuf *)) _wutime, NULL, NULL, + (BOOL (WINAPI *)(HANDLE, LPVOID, DWORD, LPDWORD, LPVOID)) ReadConsoleW, + (BOOL (WINAPI *)(HANDLE, const VOID*, DWORD, LPDWORD, LPVOID)) WriteConsoleW }; TclWinProcs *tclWinProcs; |