Mercurial > hg > xemacs-beta
changeset 5928:2f34b59f451a cygwin
from Vin?
author | Henry Thompson <ht@markup.co.uk> |
---|---|
date | Fri, 24 Jul 2015 14:48:46 +0100 |
parents | da02ba75e50a |
children | f5dfcf2323bc c608d4b0b75e |
files | lib-src/make-mswin-unicode.pl notes.txt nt/xemacs.mak src/intl-auto-encap-win32.c src/intl-auto-encap-win32.h src/intl-encap-win32.c src/syswindows.h |
diffstat | 7 files changed, 117 insertions(+), 81 deletions(-) [+] |
line wrap: on
line diff
--- a/lib-src/make-mswin-unicode.pl Fri Feb 27 17:48:44 2015 +0000 +++ b/lib-src/make-mswin-unicode.pl Fri Jul 24 14:48:46 2015 +0100 @@ -182,8 +182,10 @@ my $argmatch_re = "(?:($typetoken_re+)(${tok_ch}+)?(?: OPTIONAL)?)"; # regexp matching a parenthesized argument list in a prototype my $args_re = "\\(((?:${ws_re}${arg_re}${ws_re},)*${ws_re}${arg_re}${ws_re})\\)"; -# regexp matching a return type in a protype -my $rettype_re = "(SHSTDAPI_\\([${tok_ch} *]+\\)|${tok_ch}" . "[A-Za-z_0-9 \t\n\r\f]*?${tok_ch})"; +# regexp matching a return type in a protype -- this one from Vin +my $rettype_re = "(SHSTDAPI_\\(${tok_ch}+${ws_re}\\*?\\)|${tok_ch}" . +"[A-Za-z_0-9 \t\n\r\f]*?${tok_ch})"; +# HST "(SHSTDAPI_\\([${tok_ch} *]+\\)|${tok_ch}" . "[A-Za-z_0-9 \t\n\r\f]*?${tok_ch})"; # regexp matching a function name my $funname_re = "(${tok_ch}+)"; # Regexp matching a function prototype, $1 = rettype, $2 = name, $3 = args
--- a/notes.txt Fri Feb 27 17:48:44 2015 +0000 +++ b/notes.txt Fri Jul 24 14:48:46 2015 +0100 @@ -272,3 +272,39 @@ a) Should be ...LongtPtr b) Not enough room allocated for a 64-bit long ptr -- fixed in console-msw-impl.h +---- +Trying to get a clean diff to send to Vin +Need Change log entries! +Working with /c/C32/usr/local/src/xemacs-21.5-mine vs. -upstream (now +pulled from xemacs, not xemacs-beta) +_Only_ new files are + src/s/cygwin64.h + src/m/x86_64.h +Changed files are + > diff -rq --exclude=.hg --exclude=info --exclude=*.{o,i,exe,elc} xemacs-21.5-{upstream,mine}|egrep -v Only | cut -f 2 -d ' ' | cut -f 2- -d / + ChangeLog + README + configure + configure.ac + lib-src/gnuclient.c + lib-src/make-mswin-unicode.pl + lib-src/winclient.c + src/console-msw-impl.h + src/console-msw.c + src/device-impl.h + src/device.c + src/dialog-msw.c + src/event-msw.c + src/frame-msw.c + src/frame.c + src/glyphs-msw.c + src/glyphs.c + src/intl-auto-encap-win32.c + src/intl-auto-encap-win32.h + src/intl-encap-win32.c + src/menubar-msw.c + src/process-unix.c + src/scrollbar-msw.c + src/specifier.c + src/toolbar-msw.c + src/win32.c
--- a/nt/xemacs.mak Fri Feb 27 17:48:44 2015 +0000 +++ b/nt/xemacs.mak Fri Jul 24 14:48:46 2015 +0100 @@ -793,7 +793,7 @@ INCLUDES=-I$(NT)\inc -I$(SRC) $(OPT_INCLUDES) DEFINES=$(OPT_DEFINES) \ - -DWIN32_LEAN_AND_MEAN -DWIN32_NATIVE -Demacs \ + -DWIN32_LEAN_AND_MEAN -DWIN32_NATIVE -Demacs -DNTDDI_VERSION=NTDDI_WIN2K -D_WIN32_WINNT=_WIN32_WINNT_WIN2K \ -DHAVE_CONFIG_H $(PROGRAM_DEFINES) $(PATH_DEFINES) CFLAGS_NO_OPT=-nologo -W3 -DSTRICT $(DEBUG_FLAGS_COMPILE)
--- a/src/intl-auto-encap-win32.c Fri Feb 27 17:48:44 2015 +0000 +++ b/src/intl-auto-encap-win32.c Fri Jul 24 14:48:46 2015 +0100 @@ -627,14 +627,7 @@ /* Error if CreateDesktop used: split-sized LPDEVMODE */ -HDESK -qxeOpenDesktop (const Extbyte * lpszDesktop, DWORD dwFlags, WINBOOL fInherit, ACCESS_MASK dwDesiredAccess) -{ - if (XEUNICODE_P) - return OpenDesktopW ((LPCWSTR) lpszDesktop, dwFlags, fInherit, dwDesiredAccess); - else - return OpenDesktopA ((LPCSTR) lpszDesktop, dwFlags, fInherit, dwDesiredAccess); -} +/* Skipping OpenDesktop because HST_LPC...pblm_unused */ /* NOTE: // callback fun differs only in string pointer type */ WINBOOL @@ -663,14 +656,7 @@ return CreateWindowStationA ((LPSTR) arg1, arg2, arg3, arg4); } -HWINSTA -qxeOpenWindowStation (const Extbyte * lpszWinSta, WINBOOL fInherit, ACCESS_MASK dwDesiredAccess) -{ - if (XEUNICODE_P) - return OpenWindowStationW ((LPCWSTR) lpszWinSta, fInherit, dwDesiredAccess); - else - return OpenWindowStationA ((LPCSTR) lpszWinSta, fInherit, dwDesiredAccess); -} +/* Skipping OpenWindowStation because HST_LPC...pblm_unused */ /* NOTE: // callback fun differs only in string pointer type */ WINBOOL @@ -1215,23 +1201,9 @@ return DrawStateA (hdc, hbrFore, qfnCallBack, lData, wData, x, y, cx, cy, uFlags); } -LONG -qxeTabbedTextOut (HDC hdc, int x, int y, const Extbyte * lpString, int chCount, int nTabPositions, CONST INT * lpnTabStopPositions, int nTabOrigin) -{ - if (XEUNICODE_P) - return TabbedTextOutW (hdc, x, y, (LPCWSTR) lpString, chCount, nTabPositions, lpnTabStopPositions, nTabOrigin); - else - return TabbedTextOutA (hdc, x, y, (LPCSTR) lpString, chCount, nTabPositions, lpnTabStopPositions, nTabOrigin); -} - -DWORD -qxeGetTabbedTextExtent (HDC hdc, const Extbyte * lpString, int chCount, int nTabPositions, CONST INT * lpnTabStopPositions) -{ - if (XEUNICODE_P) - return GetTabbedTextExtentW (hdc, (LPCWSTR) lpString, chCount, nTabPositions, lpnTabStopPositions); - else - return GetTabbedTextExtentA (hdc, (LPCSTR) lpString, chCount, nTabPositions, lpnTabStopPositions); -} +/* Skipping TabbedTextOut because HST_LPC...pblm_unused */ + +/* Skipping GetTabbedTextExtent because HST_LPC...pblm_unused */ WINBOOL qxeSetProp (HWND hWnd, const Extbyte * lpString, HANDLE hData) @@ -2413,9 +2385,9 @@ qxeReadConsole (HANDLE hConsoleInput, LPVOID lpBuffer, DWORD nNumberOfCharsToRead, LPDWORD lpNumberOfCharsRead, LPVOID lpReserved) { if (XEUNICODE_P) - return ReadConsoleW (hConsoleInput, lpBuffer, nNumberOfCharsToRead, lpNumberOfCharsRead, lpReserved); - else - return ReadConsoleA (hConsoleInput, lpBuffer, nNumberOfCharsToRead, lpNumberOfCharsRead, lpReserved); + return ReadConsoleW (hConsoleInput, lpBuffer, nNumberOfCharsToRead, lpNumberOfCharsRead, (PCONSOLE_READCONSOLE_CONTROL)lpReserved); + else + return ReadConsoleA (hConsoleInput, lpBuffer, nNumberOfCharsToRead, lpNumberOfCharsRead, (PCONSOLE_READCONSOLE_CONTROL)lpReserved); } WINBOOL @@ -3756,7 +3728,14 @@ GetStartupInfoA ((LPSTARTUPINFOA) lpStartupInfo); } -/* Error if CreateProcess used: HST: new? -- needs review */ +WINBOOL +qxeCreateProcess (const Extbyte * lpApplicationName, Extbyte * lpCommandLine, LPSECURITY_ATTRIBUTES lpProcessAttributes, LPSECURITY_ATTRIBUTES lpThreadAttributes, WINBOOL bInheritHandles, DWORD dwCreationFlags, LPVOID lpEnvironment, const Extbyte * lpCurrentDirectory, LPSTARTUPINFOW lpStartupInfo, LPPROCESS_INFORMATION lpProcessInformation) +{ + if (XEUNICODE_P) + return CreateProcessW ((LPCWSTR) lpApplicationName, (LPWSTR) lpCommandLine, lpProcessAttributes, lpThreadAttributes, bInheritHandles, dwCreationFlags, lpEnvironment, (LPCWSTR) lpCurrentDirectory, lpStartupInfo, lpProcessInformation); + else + return CreateProcessA ((LPCSTR) lpApplicationName, (LPSTR) lpCommandLine, lpProcessAttributes, lpThreadAttributes, bInheritHandles, dwCreationFlags, lpEnvironment, (LPCSTR) lpCurrentDirectory, (LPSTARTUPINFOA) lpStartupInfo, lpProcessInformation); +} WINBOOL qxeCreateProcessAsUser (HANDLE hToken, const Extbyte * lpApplicationName, Extbyte * lpCommandLine, LPSECURITY_ATTRIBUTES lpProcessAttributes, LPSECURITY_ATTRIBUTES lpThreadAttributes, WINBOOL bInheritHandles, DWORD dwCreationFlags, LPVOID lpEnvironment, const Extbyte * lpCurrentDirectory, LPSTARTUPINFOW lpStartupInfo, LPPROCESS_INFORMATION lpProcessInformation) @@ -4461,14 +4440,7 @@ return GetUserNameA ((LPSTR) lpBuffer, pcbBuffer); } -WINBOOL -qxeLogonUser (const Extbyte * lpszUsername, const Extbyte * lpszDomain, const Extbyte * lpszPassword, DWORD dwLogonType, DWORD dwLogonProvider, PHANDLE phToken) -{ - if (XEUNICODE_P) - return LogonUserW ((LPCWSTR) lpszUsername, (LPCWSTR) lpszDomain, (LPCWSTR) lpszPassword, dwLogonType, dwLogonProvider, phToken); - else - return LogonUserA ((LPCSTR) lpszUsername, (LPCSTR) lpszDomain, (LPCSTR) lpszPassword, dwLogonType, dwLogonProvider, phToken); -} +/* Skipping LogonUser because HST_LPC...pblm_unused */ /* Error if LogonUserEx used: HST: new? -- needs review */
--- a/src/intl-auto-encap-win32.h Fri Feb 27 17:48:44 2015 +0000 +++ b/src/intl-auto-encap-win32.h Fri Jul 24 14:48:46 2015 +0100 @@ -478,11 +478,7 @@ #undef CreateDesktop #define CreateDesktop error_split_sized_LPDEVMODE -#ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED -#undef OpenDesktop -#define OpenDesktop error_use_qxeOpenDesktop_or_OpenDesktopA_and_OpenDesktopW -#endif -HDESK qxeOpenDesktop (const Extbyte * lpszDesktop, DWORD dwFlags, WINBOOL fInherit, ACCESS_MASK dwDesiredAccess); +/* Skipping OpenDesktop because HST_LPC...pblm_unused */ #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED #undef EnumDesktops @@ -496,11 +492,7 @@ #endif HWINSTA qxeCreateWindowStation (Extbyte * arg1, DWORD arg2, DWORD arg3, LPSECURITY_ATTRIBUTES arg4); -#ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED -#undef OpenWindowStation -#define OpenWindowStation error_use_qxeOpenWindowStation_or_OpenWindowStationA_and_OpenWindowStationW -#endif -HWINSTA qxeOpenWindowStation (const Extbyte * lpszWinSta, WINBOOL fInherit, ACCESS_MASK dwDesiredAccess); +/* Skipping OpenWindowStation because HST_LPC...pblm_unused */ #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED #undef EnumWindowStations @@ -879,17 +871,9 @@ #endif WINBOOL qxeDrawState (HDC hdc, HBRUSH hbrFore, DRAWSTATEPROC qfnCallBack, LPARAM lData, WPARAM wData, int x, int y, int cx, int cy, UINT uFlags); -#ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED -#undef TabbedTextOut -#define TabbedTextOut error_use_qxeTabbedTextOut_or_TabbedTextOutA_and_TabbedTextOutW -#endif -LONG qxeTabbedTextOut (HDC hdc, int x, int y, const Extbyte * lpString, int chCount, int nTabPositions, CONST INT * lpnTabStopPositions, int nTabOrigin); - -#ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED -#undef GetTabbedTextExtent -#define GetTabbedTextExtent error_use_qxeGetTabbedTextExtent_or_GetTabbedTextExtentA_and_GetTabbedTextExtentW -#endif -DWORD qxeGetTabbedTextExtent (HDC hdc, const Extbyte * lpString, int chCount, int nTabPositions, CONST INT * lpnTabStopPositions); +/* Skipping TabbedTextOut because HST_LPC...pblm_unused */ + +/* Skipping GetTabbedTextExtent because HST_LPC...pblm_unused */ #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED #undef SetProp @@ -2688,8 +2672,11 @@ #endif VOID qxeGetStartupInfo (LPSTARTUPINFOW lpStartupInfo); +#ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED #undef CreateProcess -#define CreateProcess error_HST__new_____needs_review +#define CreateProcess error_use_qxeCreateProcess_or_CreateProcessA_and_CreateProcessW +#endif +WINBOOL qxeCreateProcess (const Extbyte * lpApplicationName, Extbyte * lpCommandLine, LPSECURITY_ATTRIBUTES lpProcessAttributes, LPSECURITY_ATTRIBUTES lpThreadAttributes, WINBOOL bInheritHandles, DWORD dwCreationFlags, LPVOID lpEnvironment, const Extbyte * lpCurrentDirectory, LPSTARTUPINFOW lpStartupInfo, LPPROCESS_INFORMATION lpProcessInformation); #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED #undef CreateProcessAsUser @@ -3227,11 +3214,7 @@ #endif WINBOOL qxeGetUserName (Extbyte * lpBuffer, LPDWORD pcbBuffer); -#ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED -#undef LogonUser -#define LogonUser error_use_qxeLogonUser_or_LogonUserA_and_LogonUserW -#endif -WINBOOL qxeLogonUser (const Extbyte * lpszUsername, const Extbyte * lpszDomain, const Extbyte * lpszPassword, DWORD dwLogonType, DWORD dwLogonProvider, PHANDLE phToken); +/* Skipping LogonUser because HST_LPC...pblm_unused */ #undef LogonUserEx #define LogonUserEx error_HST__new_____needs_review
--- a/src/intl-encap-win32.c Fri Feb 27 17:48:44 2015 +0000 +++ b/src/intl-encap-win32.c Fri Jul 24 14:48:46 2015 +0100 @@ -225,7 +225,7 @@ yes GetComputerName yes SetComputerName yes GetUserName -yes LogonUser +skip LogonUser HST_LPC...pblm_unused no GetCurrentHwProfile split-sized LPHW_PROFILE_INFO; NT 4.0+ only no GetVersionEx split-sized LPOSVERSIONINFO no CreateJobObject NT 5.0+ only @@ -298,10 +298,10 @@ yes LoadKeyboardLayout yes GetKeyboardLayoutName no CreateDesktop split-sized LPDEVMODE -yes OpenDesktop +skip OpenDesktop HST_LPC...pblm_unused split EnumDesktops DESKTOPENUMPROC // callback fun differs only in string pointer type override HWINSTA CreateWindowStationW(LPWSTR,DWORD,DWORD,LPSECURITY_ATTRIBUTES); error arg 1, VS6 prototype, missing const -yes OpenWindowStation +skip OpenWindowStation HST_LPC...pblm_unused split EnumWindowStations WINSTAENUMPROC // callback fun differs only in string pointer type yes GetUserObjectInformation yes SetUserObjectInformation @@ -381,8 +381,8 @@ yes DrawTextEx NT 4.0+ only yes GrayString yes DrawState NT 4.0+ only -yes TabbedTextOut -yes GetTabbedTextExtent +skip TabbedTextOut HST_LPC...pblm_unused +skip GetTabbedTextExtent HST_LPC...pblm_unused yes SetProp yes GetProp yes RemoveProp @@ -1299,7 +1299,7 @@ split CreateProcessAsUser LPSTARTUPINFO split GetStartupInfo LPSTARTUPINFO -review CreateProcess HST: new? -- needs review +split CreateProcess LPSTARTUPINFO file SECURITYBASEAPI.H
--- a/src/syswindows.h Fri Feb 27 17:48:44 2015 +0000 +++ b/src/syswindows.h Fri Jul 24 14:48:46 2015 +0100 @@ -603,6 +603,49 @@ intl-auto-encap-win32.[ch]. */ typedef LPCVOID PCVOID; +/* from Vin */ + +typedef int WINBOOL; +/*typedef intptr_t LONG_PTR; +typedef uintptr_t ULONG_PTR; +typedef uintptr_t DWORD_PTR;*/ + +typedef ITEMIDLIST ITEMIDLIST_ABSOLUTE; + +typedef ITEMIDLIST_ABSOLUTE *PIDLIST_ABSOLUTE; +typedef const ITEMIDLIST_ABSOLUTE *PCIDLIST_ABSOLUTE; + +/* Defined in w32api/winuser.h */ +#define GCLP_MENUNAME (-8) +#define GCLP_HBRBACKGROUND (-10) +#define GCLP_HCURSOR (-12) +#define GCLP_HICON (-14) +#define GCLP_HMODULE (-16) +#define GCLP_WNDPROC (-24) +#define GCLP_HICONSM (-34) +#define GWLP_USERDATA (-21) +#define GWLP_WNDPROC (-4) +#define GWLP_HINSTANCE (-6) +#define GWLP_HWNDPARENT (-8) +#define GWLP_USERDATA (-21) +#define GWLP_ID (-12) + +#define DWL_MSGRESULT 0 +#define DWL_DLGPROC 4 +#define DWL_USER 8 + +#ifdef _WIN64 + +#undef DWL_MSGRESULT +#undef DWL_DLGPROC +#undef DWL_USER +#endif + +#define DWLP_MSGRESULT 0 +#define DWLP_DLGPROC DWLP_MSGRESULT + sizeof(LRESULT) +#define DWLP_USER DWLP_DLGPROC + sizeof(DLGPROC) + + #endif /* CYGWIN_HEADERS */ /* Not in VC 6 */