Mercurial > hg > xemacs-beta
annotate src/syswindows.h @ 5750:66d2f63df75f
Correct some spelling and formatting in behavior.el.
Mentioned in tracker issue 826, the third thing mentioned there (the file
name at the bottom of the file) had already been fixed.
lisp/ChangeLog addition:
2013-08-05 Aidan Kehoe <kehoea@parhasard.net>
* behavior.el:
(override-behavior):
Correct some spelling and formatting here, thank you Steven
Mitchell in tracker issue 826.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 05 Aug 2013 10:05:32 +0100 |
| parents | 1003acd5a4b8 |
| children | 2f34b59f451a |
| rev | line source |
|---|---|
| 442 | 1 /* Copyright (C) 2000 Free Software Foundation, Inc. |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
2 Copyright (C) 2000, 2001, 2002, 2004, 2010 Ben Wing. |
| 442 | 3 |
| 4 This file is part of XEmacs. | |
| 5 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5048
diff
changeset
|
6 XEmacs is free software: you can redistribute it and/or modify it |
| 442 | 7 under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5048
diff
changeset
|
8 Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5048
diff
changeset
|
9 option) any later version. |
| 442 | 10 |
| 11 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 14 for more details. | |
| 15 | |
| 16 You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5048
diff
changeset
|
17 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 442 | 18 |
| 19 /* Synched up with: Not in FSF. */ | |
| 20 | |
|
5022
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
21 #ifndef INCLUDED_syswindows_h_ |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
22 #define INCLUDED_syswindows_h_ |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
23 |
| 442 | 24 /* Authorship: |
| 25 | |
| 771 | 26 Current primary author: Ben Wing <ben@xemacs.org> |
| 27 | |
| 442 | 28 Created May 2000 by Andy Piper. |
| 771 | 29 Windows-Mule stuff added by Ben Wing, 2000-2001. |
| 30 September 2001 Ben Wing reorganized and included nt.h and ntheap.h into | |
| 31 this file; comments in those files say: | |
| 32 * Adapted for XEmacs by David Hobley <david@spook-le0.cia.com.au> | |
| 33 * Sync'ed with Emacs 19.34.6 by Marc Paquette <marcpa@cam.org> | |
| 34 (Note: Sync messages from Marc Paquette may indicate | |
| 35 incomplete synching, so beware.) | |
| 36 (in ntheap.h only) Geoff Voelker (voelker@cs.washington.edu) 7-29-94 | |
| 37 | |
| 442 | 38 */ |
| 39 | |
|
5022
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
40 /* See win32.c for info about the different Windows files in XEmacs. */ |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
41 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
42 /* |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
43 A capsule introduction to Windows-related build flags: |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
44 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
45 See also: (Info-goto-node "(internals)Windows Build Flags") |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
46 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
47 1. Operating-system level: |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
48 -------------------------- |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
49 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
50 `CYGWIN' Compiled for Cygwin. Cygwin provides a full Unix-like |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
51 environment under Windows. Applications compiled for Cygwin |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
52 are linked with CYGWIN1.DLL, which provides the POSIX |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
53 emulation. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
54 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
55 Corresponding s/ file: s/cygwin32.h |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
56 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
57 `MINGW' Compiled for MinGW. MinGW is a Unix-like environment under |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
58 Windows that allows for the use of `gcc' to create fully |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
59 native Windows applications that link with the normal |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
60 Microsoft C-runtime library (e.g. MSVCRT.DLL), and don't |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
61 require a special POSIX-emulation DLL (e.g. CYGWIN1.DLL). |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
62 Conversely, the only POSIX-like services available are |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
63 those in MSVCRT.DLL, which isn't much. Essentially, coding |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
64 for MinGW is identical to coding for native Windows using |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
65 Visual C++ or the like, whereas coding for Cygwin is like |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
66 coding for Linux, but with the additional possibility of |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
67 making Win32-API calls. Additional confusion comes from |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
68 the fact that you can use the Cygwin environment and |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
69 compilers to build a MINGW application (e.g. by passing the |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
70 `-mno-cygwin' command-line argument to `gcc'). |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
71 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
72 Corresponding s/ file: s/mingw32.h |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
73 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
74 (none) There's no flag to indicate that you are specifically |
|
5384
3889ef128488
Fix misspelled words, and some grammar, across the entire source tree.
Jerry James <james@xemacs.org>
parents:
5048
diff
changeset
|
75 targeting native Windows and not doing this with MINGW. |
|
5022
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
76 Presumably this means you're using Visual C++. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
77 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
78 Corresponding s/ file: s/windowsnt.h |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
79 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
80 `WIN32_ANY' Any of the above three environments. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
81 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
82 Corresponding s/ file: s/win32-common.h |
| 442 | 83 |
|
5022
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
84 `WIN32_NATIVE' |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
85 Native Windows target, either MinGW or Visual C++. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
86 That is, not Cygwin. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
87 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
88 Corresponding s/ file: s/win32-native.h |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
89 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
90 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
91 2. Compiler level: |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
92 ------------------ |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
93 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
94 `__GNUC__' Defined whenever compiling with gcc (Cygwin or MinGW). |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
95 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
96 `_MSC_VER' Defined whenever compiling with Visual C++. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
97 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
98 `CYGWIN_HEADERS' |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
99 Defined whenever using Cygwin-style header files rather |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
100 than Visual C++ headers. Currently this means the same |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
101 as "Cygwin or MinGW" and the same as "compiling with gcc". |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
102 This applies especially to the header files in |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
103 /usr/include/w32api, which is a free replacement for the |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
104 standard Visual C++ headers for the Win32 API. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
105 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
106 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
107 3. Window-system level: |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
108 ----------------------- |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
109 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
110 `HAVE_MS_WINDOWS' |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
111 MS Windows native windowing system (anything related to the |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
112 appearance of the graphical screen). May or may not apply |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
113 to any of VC++, MinGW, or Cygwin. For example, it's |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
114 definitely possible to compile XEmacs under Cygwin with |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
115 support for X-Windows frames and TTY frames, but no |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
116 native MS Windows frames. It may also be possible to do that |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
117 under MinGW or (less likely, but feasible) Visual C++. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
118 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
119 `HAVE_X_WINDOWS' |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
120 Support for X-Windows frames, regardless of whether under |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
121 MS Windows. You can certainly compile XEmacs with support |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
122 for X-Windows frames when running on MS Windows, using Cygwin. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
123 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
124 `HAVE_GTK', `HAVE_TTY' |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
125 Likewise. All are available on MS Windows with Cygwin. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
126 |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
127 Note further that more than one of these can be defined at the same time. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
128 In fact, in general, it's possible to compile with support for all of |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
129 these at the same time. |
|
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
130 |
| 5046 | 131 |
| 132 | |
| 133 Here is a table mapping from GNU Emacs constants to XEmacs constants for | |
| 134 use in porting code. | |
| 135 | |
| 136 | |
| 137 Old Constant New Constant | |
| 138 --------------------------------------------------------------- | |
| 139 `WINDOWSNT' `WIN32_NATIVE' | |
| 140 `WIN32' `WIN32_NATIVE' | |
| 141 `_WIN32' `WIN32_NATIVE' | |
| 142 `HAVE_WIN32' `WIN32_NATIVE' | |
| 143 `DOS_NT' `WIN32_NATIVE' | |
| 144 `HAVE_NTGUI' `WIN32_NATIVE', unless it ends up already bracketed | |
| 145 by this | |
| 146 `HAVE_FACES' always true | |
| 147 `MSDOS' determine whether this code is really specific to | |
| 148 MS-DOS (and not Windows - e.g. DJGPP code); if so, | |
| 149 delete the code; otherwise, convert to `WIN32_NATIVE' | |
| 150 (we do not support MS-DOS w/DOS Extender under XEmacs) | |
| 151 `__CYGWIN__' `CYGWIN' | |
| 152 `__CYGWIN32__' `CYGWIN' | |
| 153 `__MINGW32__' `MINGW' | |
| 154 | |
|
5022
cfe36e196dc7
long comment in syswindows.h about build constants
Ben Wing <ben@xemacs.org>
parents:
4988
diff
changeset
|
155 */ |
| 442 | 156 |
| 771 | 157 /* ------------------------- Basic includes ------------------------- */ |
| 442 | 158 |
| 159 #ifndef WIN32_LEAN_AND_MEAN | |
| 160 #define WIN32_LEAN_AND_MEAN | |
| 161 #endif | |
| 162 | |
|
4858
e1d8b6b0c589
Define CYGWIN_HEADERS in s/cygwin32.h and s/mingw32.h instead of syswindows.h, so they're available everywhere
Ben Wing <ben@xemacs.org>
parents:
4854
diff
changeset
|
163 #ifdef CYGWIN_HEADERS |
| 771 | 164 # ifndef _WIN32_IE |
| 165 # define _WIN32_IE 0x0400 | |
| 166 # endif | |
| 665 | 167 |
| 1743 | 168 BEGIN_C_DECLS |
| 665 | 169 |
|
4827
11daf37dae4d
more fixes to get a clean compile
Ben Wing <ben@xemacs.org>
parents:
4824
diff
changeset
|
170 #if 0 /* breaks the build, as of GCC 3.4.4 or earlier, since the prototype |
|
11daf37dae4d
more fixes to get a clean compile
Ben Wing <ben@xemacs.org>
parents:
4824
diff
changeset
|
171 is now declared static */ |
| 665 | 172 /* Fucking GCC complains about "no previous prototype" for inline |
| 173 functions. DUH! See DECLARE_INLINE_HEADER. */ | |
| 174 extern __inline void *GetCurrentFiber (void); | |
| 175 extern __inline void *GetFiberData (void); | |
|
4824
c12b646d84ee
changes to get things to compile under latest cygwin
Ben Wing <ben@xemacs.org>
parents:
4538
diff
changeset
|
176 #endif |
| 665 | 177 |
| 1743 | 178 END_C_DECLS |
| 665 | 179 |
| 180 #endif | |
| 181 | |
| 771 | 182 /* Defines for COM so it's usable in both C and C++. XECOMCALLn() calls a |
| 183 method with the specified number of parameters. XECOMID() surrounds a | |
| 184 class or interface name when passed to CoCreateInstance, a | |
| 185 QueryInterface method, or the like. */ | |
| 186 #ifdef __cplusplus | |
| 187 #define XECOMCALL0(cl, meth) ((cl)->meth ()) | |
| 188 #define XECOMCALL1(cl, meth, a1) ((cl)->meth (a1)) | |
| 189 #define XECOMCALL2(cl, meth, a1, a2) ((cl)->meth (a1, a2)) | |
| 190 #define XECOMCALL3(cl, meth, a1, a2, a3) ((cl)->meth (a1, a2, a3)) | |
| 191 #define XECOMCALL4(cl, meth, a1, a2, a3, a4) ((cl)->meth (a1, a2, a3, a4)) | |
| 192 #define XECOMID(id) (id) | |
| 193 #else | |
| 194 #define XECOMCALL0(cl, meth) ((cl)->lpVtbl->meth (cl)) | |
| 195 #define XECOMCALL1(cl, meth, a1) ((cl)->lpVtbl->meth (cl, a1)) | |
| 196 #define XECOMCALL2(cl, meth, a1, a2) ((cl)->lpVtbl->meth (cl, a1, a2)) | |
| 197 #define XECOMCALL3(cl, meth, a1, a2, a3) ((cl)->lpVtbl->meth (cl, a1, a2, a3)) | |
| 198 #define XECOMCALL4(cl, meth, a1, a2, a3, a4) \ | |
| 199 ((cl)->lpVtbl->meth (cl, a1, a2, a3, a4)) | |
| 200 #define XECOMID(id) (&(id)) | |
| 201 #endif | |
| 202 | |
| 203 #define OEMRESOURCE /* Define OCR_ and friend constants */ | |
| 442 | 204 #include <windows.h> |
| 205 | |
| 3728 | 206 #include <aclapi.h> |
| 207 | |
| 558 | 208 #if defined (WIN32_LEAN_AND_MEAN) |
| 209 # ifdef HAVE_X_WINDOWS | |
| 442 | 210 /* Christ almighty. The problems you get when combining two large code bases, |
| 211 neither with any respect for namespace purity. */ | |
| 558 | 212 # undef Status |
| 213 # endif | |
| 214 # include <winspool.h> | |
| 215 # ifdef HAVE_X_WINDOWS | |
| 216 # define Status int | |
| 217 # endif | |
| 218 # include <mmsystem.h> | |
| 673 | 219 # include <shlobj.h> |
| 558 | 220 # include <shellapi.h> |
| 221 # include <ddeml.h> | |
| 442 | 222 #endif |
| 223 | |
| 546 | 224 #include <lmaccess.h> /* next three for NetUserEnum and friends */ |
| 531 | 225 #include <lmapibuf.h> |
| 226 #include <lmerr.h> | |
| 546 | 227 #include <lmcons.h> /* for UNLEN and possibly other constants */ |
| 531 | 228 |
| 771 | 229 #include <cderr.h> |
| 230 #include <commdlg.h> | |
| 231 | |
| 232 #ifdef NEED_MSWINDOWS_COMMCTRL | |
| 233 #include <commctrl.h> | |
| 442 | 234 #endif |
| 771 | 235 #ifdef NEED_MSWINDOWS_OBJBASE |
| 236 #include <objbase.h> | |
| 442 | 237 #endif |
| 771 | 238 #ifdef NEED_MSWINDOWS_SHLOBJ |
| 239 #include <shlobj.h> | |
| 442 | 240 #endif |
| 241 | |
| 771 | 242 #include <zmouse.h> /* WHEEL_PAGESCROLL under Cygwin */ |
| 243 | |
| 244 #include <wchar.h> | |
| 442 | 245 |
| 771 | 246 /* ------------------------- Cygwin header brokenness ---------------------- */ |
| 247 | |
| 248 #ifdef CYGWIN_HEADERS | |
| 249 | |
| 1683 | 250 #include <cygwin/stat.h> /* for struct stat */ |
| 1304 | 251 #include <w32api.h> /* for version info */ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
252 #include <sys/cygwin.h> /* path conversion functions */ |
| 1304 | 253 |
| 1683 | 254 /* Test for a specific version of w32api */ |
| 255 #define W32API_VER(major,minor) (((major) << 16) + (minor)) | |
| 256 #define W32API_INSTALLED_VER \ | |
| 257 W32API_VER (__W32API_MAJOR_VERSION, __W32API_MINOR_VERSION) | |
| 1304 | 258 |
| 771 | 259 /* Various brokennesses in various versions of Cygwin */ |
| 673 | 260 |
| 442 | 261 /* windows.h defines. */ |
| 262 #ifndef SPI_GETWHEELSCROLLLINES | |
| 263 #define SPI_GETWHEELSCROLLLINES 104 | |
| 264 #endif | |
| 771 | 265 |
| 266 /* commctrl.h defines. */ | |
| 267 #ifndef TB_SETIMAGELIST | |
| 268 #define TB_SETIMAGELIST (WM_USER + 48) | |
| 442 | 269 #endif |
| 771 | 270 #ifndef TB_GETIMAGELIST |
| 271 #define TB_GETIMAGELIST (WM_USER + 49) | |
| 272 #endif | |
| 273 #ifndef TB_SETDISABLEDIMAGELIST | |
| 274 #define TB_SETDISABLEDIMAGELIST (WM_USER + 54) | |
| 275 #endif | |
| 276 #ifndef TB_GETDISABLEDIMAGELIST | |
| 277 #define TB_GETDISABLEDIMAGELIST (WM_USER + 55) | |
| 442 | 278 #endif |
| 771 | 279 #ifndef TB_SETPADDING |
| 280 #define TB_SETPADDING (WM_USER + 87) | |
| 281 #endif | |
| 282 #ifndef TB_GETBUTTONINFOA | |
| 283 #define TB_GETBUTTONINFOA (WM_USER + 65) | |
| 284 #endif | |
| 285 #ifndef TB_GETBUTTONINFOW | |
| 286 #define TB_GETBUTTONINFOW (WM_USER + 63) | |
| 442 | 287 #endif |
| 771 | 288 #ifndef TB_SETBUTTONINFOA |
| 289 #define TB_SETBUTTONINFOA (WM_USER + 66) | |
| 290 #endif | |
| 291 #ifndef TB_SETBUTTONINFOW | |
| 292 #define TB_SETBUTTONINFOW (WM_USER + 64) | |
| 293 #endif | |
| 294 #ifndef TB_INSERTBUTTONA | |
| 295 #define TB_INSERTBUTTONA (WM_USER + 21) | |
| 442 | 296 #endif |
| 771 | 297 #ifndef TB_INSERTBUTTONW |
| 298 #define TB_INSERTBUTTONW (WM_USER + 67) | |
| 299 #endif | |
| 300 #ifndef TB_ADDBUTTONSA | |
| 301 #define TB_ADDBUTTONSA (WM_USER + 20) | |
| 302 #endif | |
| 303 #ifndef TB_ADDBUTTONSW | |
| 304 #define TB_ADDBUTTONSW (WM_USER + 68) | |
| 442 | 305 #endif |
| 771 | 306 #ifndef LVM_SETBKIMAGEA |
| 307 #define LVM_SETBKIMAGEA (LVM_FIRST + 68) | |
| 308 #endif | |
| 309 #ifndef LVM_SETBKIMAGEW | |
| 310 #define LVM_SETBKIMAGEW (LVM_FIRST + 138) | |
| 311 #endif | |
| 312 #ifndef LVM_GETBKIMAGEA | |
| 313 #define LVM_GETBKIMAGEA (LVM_FIRST + 69) | |
| 442 | 314 #endif |
| 771 | 315 #ifndef LVM_GETBKIMAGEW |
| 316 #define LVM_GETBKIMAGEW (LVM_FIRST + 139) | |
| 317 #endif | |
| 318 #ifndef WC_COMBOBOXEXW | |
| 319 #define WC_COMBOBOXEXW L"ComboBoxEx32" | |
| 320 #endif | |
| 321 #ifndef CBEM_INSERTITEMA | |
| 322 #define CBEM_INSERTITEMA (WM_USER + 1) | |
| 442 | 323 #endif |
| 771 | 324 #ifndef CBEM_INSERTITEMW |
| 325 #define CBEM_INSERTITEMW (WM_USER + 11) | |
| 442 | 326 #endif |
| 771 | 327 #ifndef CBEM_SETITEMA |
| 328 #define CBEM_SETITEMA (WM_USER + 5) | |
| 329 #endif | |
| 330 #ifndef CBEM_SETITEMW | |
| 331 #define CBEM_SETITEMW (WM_USER + 12) | |
| 442 | 332 #endif |
| 771 | 333 #ifndef CBEM_GETITEMA |
| 334 #define CBEM_GETITEMA (WM_USER + 4) | |
| 335 #endif | |
| 336 #ifndef CBEM_GETITEMW | |
| 337 #define CBEM_GETITEMW (WM_USER + 13) | |
| 442 | 338 #endif |
| 771 | 339 #ifndef HDN_GETDISPINFOA |
| 340 #define HDN_GETDISPINFOA (HDN_FIRST - 9) | |
| 341 #endif | |
| 342 #ifndef HDN_GETDISPINFOW | |
| 343 #define HDN_GETDISPINFOW (HDN_FIRST - 29) | |
| 344 #endif | |
| 345 #ifndef TBN_GETDISPINFOA | |
| 346 #define TBN_GETDISPINFOA (TBN_FIRST - 16) | |
| 442 | 347 #endif |
| 771 | 348 #ifndef TBN_GETDISPINFOW |
| 349 #define TBN_GETDISPINFOW (TBN_FIRST - 17) | |
| 350 #endif | |
| 351 #ifndef TBN_GETINFOTIPA | |
| 352 #define TBN_GETINFOTIPA (TBN_FIRST - 18) | |
| 442 | 353 #endif |
| 771 | 354 #ifndef TBN_GETINFOTIPW |
| 355 #define TBN_GETINFOTIPW (TBN_FIRST - 19) | |
| 356 #endif | |
| 357 #ifndef TTN_GETDISPINFOA | |
| 358 #define TTN_GETDISPINFOA (TTN_FIRST - 0) | |
| 359 #endif | |
| 360 #ifndef TTN_GETDISPINFOW | |
| 361 #define TTN_GETDISPINFOW (TTN_FIRST - 10) | |
| 442 | 362 #endif |
| 771 | 363 |
| 364 #if (_WIN32_IE >= 0x0400) | |
| 365 | |
| 366 #ifndef LVN_GETINFOTIPA | |
| 367 #define LVN_GETINFOTIPA (LVN_FIRST - 57) | |
| 368 #endif | |
| 369 #ifndef LVN_GETINFOTIPW | |
| 370 #define LVN_GETINFOTIPW (LVN_FIRST - 58) | |
| 442 | 371 #endif |
| 771 | 372 #ifndef TVN_GETINFOTIPA |
| 373 #define TVN_GETINFOTIPA (TVN_FIRST - 13) | |
| 374 #endif | |
| 375 #ifndef TVN_GETINFOTIPW | |
| 376 #define TVN_GETINFOTIPW (TVN_FIRST - 14) | |
| 377 #endif | |
| 378 #ifndef CBEN_GETDISPINFOA | |
| 379 #define CBEN_GETDISPINFOA (CBEN_FIRST - 0) | |
| 442 | 380 #endif |
| 771 | 381 #ifndef CBEN_GETDISPINFOW |
| 382 #define CBEN_GETDISPINFOW (CBEN_FIRST - 7) | |
| 383 #endif | |
| 384 #ifndef CBEN_DRAGBEGINA | |
| 385 #define CBEN_DRAGBEGINA (CBEN_FIRST - 8) | |
| 386 #endif | |
| 387 #ifndef CBEN_DRAGBEGINW | |
| 388 #define CBEN_DRAGBEGINW (CBEN_FIRST - 9) | |
| 442 | 389 #endif |
| 771 | 390 |
| 391 #endif /* (_WIN32_IE >= 0x0400) */ | |
| 392 | |
| 393 #ifndef CBEN_ENDEDITA | |
| 394 #define CBEN_ENDEDITA (CBEN_FIRST - 5) | |
| 442 | 395 #endif |
| 771 | 396 #ifndef CBEN_ENDEDITW |
| 397 #define CBEN_ENDEDITW (CBEN_FIRST - 6) | |
| 398 #endif | |
| 399 | |
| 400 #ifndef CBEMAXSTRLEN | |
| 401 #define CBEMAXSTRLEN 260 | |
| 442 | 402 #endif |
| 403 | |
| 1111 | 404 #ifndef NMCBEENDEDIT |
| 405 | |
| 406 typedef struct | |
| 407 { | |
| 408 NMHDR hdr; | |
| 409 BOOL fChanged; | |
| 410 int iNewSelection; | |
| 411 WCHAR szText[CBEMAXSTRLEN]; | |
| 412 int iWhy; | |
| 771 | 413 } NMCBEENDEDITW, *LPNMCBEENDEDITW, *PNMCBEENDEDITW; |
| 414 | |
| 1111 | 415 typedef struct |
| 416 { | |
| 417 NMHDR hdr; | |
| 418 BOOL fChanged; | |
| 419 int iNewSelection; | |
| 420 char szText[CBEMAXSTRLEN]; | |
| 421 int iWhy; | |
| 771 | 422 } NMCBEENDEDITA, *LPNMCBEENDEDITA,*PNMCBEENDEDITA; |
| 423 | |
| 1111 | 424 #endif /* not NMCBEENDEDIT */ |
| 425 | |
| 771 | 426 #if (_WIN32_IE >= 0x0400) |
| 427 | |
| 1111 | 428 #ifndef NMCBEDRAGBEGIN |
| 429 | |
| 430 typedef struct | |
| 431 { | |
| 432 NMHDR hdr; | |
| 433 int iItemid; | |
| 434 WCHAR szText[CBEMAXSTRLEN]; | |
| 435 } NMCBEDRAGBEGINW, *LPNMCBEDRAGBEGINW, *PNMCBEDRAGBEGINW; | |
| 771 | 436 |
| 1111 | 437 typedef struct |
| 438 { | |
| 439 NMHDR hdr; | |
| 440 int iItemid; | |
| 441 char szText[CBEMAXSTRLEN]; | |
| 442 } NMCBEDRAGBEGINA, *LPNMCBEDRAGBEGINA, *PNMCBEDRAGBEGINA; | |
| 443 | |
| 444 #endif /* not NMCBEDRAGBEGIN */ | |
| 445 | |
|
5716
1003acd5a4b8
Fix cygwin build on new win32api.
Vin Shelton <acs@xemacs.org>
parents:
5474
diff
changeset
|
446 #if W32API_INSTALLED_VER < W32API_VER(3,14) |
| 771 | 447 typedef struct tagNMDATETIMEFORMATA |
| 448 { | |
| 1111 | 449 NMHDR nmhdr; |
| 450 LPCSTR pszFormat; | |
| 451 SYSTEMTIME st; | |
| 452 LPCSTR pszDisplay; | |
| 453 CHAR szDisplay[64]; | |
| 771 | 454 } NMDATETIMEFORMATA, FAR * LPNMDATETIMEFORMATA; |
| 455 | |
| 456 typedef struct tagNMDATETIMEFORMATW | |
| 457 { | |
| 1111 | 458 NMHDR nmhdr; |
| 459 LPCWSTR pszFormat; | |
| 460 SYSTEMTIME st; | |
| 461 LPCWSTR pszDisplay; | |
| 462 WCHAR szDisplay[64]; | |
| 771 | 463 } NMDATETIMEFORMATW, FAR * LPNMDATETIMEFORMATW; |
|
5716
1003acd5a4b8
Fix cygwin build on new win32api.
Vin Shelton <acs@xemacs.org>
parents:
5474
diff
changeset
|
464 #endif |
| 771 | 465 |
| 1683 | 466 #if W32API_INSTALLED_VER < W32API_VER(2,2) |
| 1304 | 467 |
| 1111 | 468 typedef struct tagNMTTDISPIFNOA |
| 469 { | |
| 470 NMHDR hdr; | |
| 471 LPSTR lpszText; | |
| 472 char szText[80]; | |
| 473 HINSTANCE hinst; | |
| 474 UINT uFlags; | |
| 771 | 475 #if (_WIN32_IE >= 0x0300) |
| 1111 | 476 LPARAM lParam; |
| 771 | 477 #endif |
| 478 } NMTTDISPINFOA, FAR *LPNMTTDISPINFOA; | |
| 479 | |
| 1111 | 480 typedef struct tagNMTTDISPINFOW |
| 481 { | |
| 482 NMHDR hdr; | |
| 483 LPWSTR lpszText; | |
| 484 WCHAR szText[80]; | |
| 485 HINSTANCE hinst; | |
| 486 UINT uFlags; | |
| 771 | 487 #if (_WIN32_IE >= 0x0300) |
| 1111 | 488 LPARAM lParam; |
| 771 | 489 #endif |
| 490 } NMTTDISPINFOW, FAR *LPNMTTDISPINFOW; | |
| 491 | |
| 1683 | 492 #endif /* W32API_INSTALLED_VER < W32API_VER(2,2) */ |
| 1304 | 493 |
| 771 | 494 #endif /* (_WIN32_IE >= 0x0400) */ |
| 442 | 495 |
| 771 | 496 /* shlobj.h defines */ |
| 497 #ifndef BFFM_VALIDATEFAILEDA | |
| 498 #define BFFM_VALIDATEFAILEDA 3 | |
| 499 #endif | |
| 500 #ifndef BFFM_VALIDATEFAILEDW | |
| 501 #define BFFM_VALIDATEFAILEDW 4 | |
| 502 #endif | |
| 503 #ifndef BFFM_SETSELECTIONA | |
| 504 #define BFFM_SETSELECTIONA (WM_USER + 102) | |
| 505 #endif | |
| 506 #ifndef BFFM_SETSELECTIONW | |
| 507 #define BFFM_SETSELECTIONW (WM_USER + 103) | |
| 508 #endif | |
| 509 #ifndef BFFM_SETSTATUSTEXTA | |
| 510 #define BFFM_SETSTATUSTEXTA (WM_USER + 100) | |
| 511 #endif | |
| 512 #ifndef BFFM_SETSTATUSTEXTW | |
| 513 #define BFFM_SETSTATUSTEXTW (WM_USER + 104) | |
| 514 #endif | |
| 515 #ifndef SHARD_PATHA | |
| 516 #define SHARD_PATHA 2 | |
| 517 #endif | |
| 518 #ifndef SHARD_PATHW | |
| 519 #define SHARD_PATHW 3 | |
| 520 #endif | |
| 521 #ifndef SHCNF_PATHA | |
| 522 #define SHCNF_PATHA 1 | |
| 523 #endif | |
| 524 #ifndef SHCNF_PATHW | |
| 525 #define SHCNF_PATHW 5 | |
| 526 #endif | |
| 527 #ifndef SHCNF_PRINTERA | |
| 528 #define SHCNF_PRINTERA 2 | |
| 529 #endif | |
| 530 #ifndef SHCNF_PRINTERW | |
| 531 #define SHCNF_PRINTERW 6 | |
| 532 #endif | |
| 533 #ifndef BFFM_VALIDATEFAILED | |
| 534 #ifdef UNICODE | |
| 535 #define BFFM_VALIDATEFAILED BFFM_VALIDATEFAILEDW | |
| 536 #else | |
| 537 #define BFFM_VALIDATEFAILED BFFM_VALIDATEFAILEDA | |
| 538 #endif | |
| 819 | 539 #endif |
| 442 | 540 |
| 800 | 541 /* winnls.h defines */ |
| 819 | 542 #ifndef MAC_CHARSET |
| 543 #define MAC_CHARSET 77 | |
| 544 #endif | |
| 800 | 545 #ifndef LOCALE_RETURN_NUMBER |
| 819 | 546 #define LOCALE_RETURN_NUMBER 0x20000000 |
| 800 | 547 #endif |
| 548 | |
| 771 | 549 /* OEM resources */ |
| 550 #ifndef OCR_ICOCUR | |
| 551 #define OCR_ICOCUR 32647 | |
| 552 #define OIC_SAMPLE 32512 | |
| 553 #define OIC_HAND 32513 | |
| 554 #define OIC_QUES 32514 | |
| 555 #define OIC_BANG 32515 | |
| 556 #define OIC_NOTE 32516 | |
| 557 #define OIC_WINLOGO 32517 | |
| 558 #endif | |
| 559 | |
|
5716
1003acd5a4b8
Fix cygwin build on new win32api.
Vin Shelton <acs@xemacs.org>
parents:
5474
diff
changeset
|
560 #if W32API_INSTALLED_VER < W32API_VER(3,14) |
| 771 | 561 /* More Cygwin stupidity: Current w32api's winuser.h has IME message |
| 562 constants and they conflict with imm.h. (NOTE: Currently fixed, but | |
| 563 I'm sure the problems were present post 1.0.) */ | |
| 564 #undef WM_IME_STARTCOMPOSITION | |
| 565 #undef WM_IME_ENDCOMPOSITION | |
| 566 #undef WM_IME_COMPOSITION | |
| 567 #undef WM_IME_KEYLAST | |
| 568 #undef WM_IME_SETCONTEXT | |
| 569 #undef WM_IME_NOTIFY | |
| 570 #undef WM_IME_CONTROL | |
| 571 #undef WM_IME_COMPOSITIONFULL | |
| 572 #undef WM_IME_SELECT | |
| 573 #undef WM_IME_CHAR | |
| 574 #undef WM_IME_KEYDOWN | |
| 575 #undef WM_IME_KEYUP | |
|
5716
1003acd5a4b8
Fix cygwin build on new win32api.
Vin Shelton <acs@xemacs.org>
parents:
5474
diff
changeset
|
576 #endif |
| 771 | 577 |
| 578 #include <imm.h> | |
| 579 | |
| 1683 | 580 #if W32API_INSTALLED_VER < W32API_VER(2,4) |
| 771 | 581 typedef struct _SHQUERYRBINFO |
| 582 { | |
| 583 DWORD cbSize; | |
| 584 __int64 i64Size; | |
| 585 __int64 i64NumItems; | |
| 586 } SHQUERYRBINFO, *LPSHQUERYRBINFO; | |
| 1683 | 587 #endif |
| 771 | 588 |
| 589 typedef LPCDLGTEMPLATE LPCDLGTEMPLATEW; | |
| 590 typedef LPCDLGTEMPLATE LPCDLGTEMPLATEA; | |
| 591 | |
|
5716
1003acd5a4b8
Fix cygwin build on new win32api.
Vin Shelton <acs@xemacs.org>
parents:
5474
diff
changeset
|
592 #if W32API_VER(3,14) <= W32API_INSTALLED_VER |
|
1003acd5a4b8
Fix cygwin build on new win32api.
Vin Shelton <acs@xemacs.org>
parents:
5474
diff
changeset
|
593 typedef LPCVOID PCVOID; |
|
1003acd5a4b8
Fix cygwin build on new win32api.
Vin Shelton <acs@xemacs.org>
parents:
5474
diff
changeset
|
594 #endif |
|
1003acd5a4b8
Fix cygwin build on new win32api.
Vin Shelton <acs@xemacs.org>
parents:
5474
diff
changeset
|
595 |
| 1685 | 596 #else /* !CYGWIN_HEADERS */ |
|
4893
99f2102552d7
Add typedefs for PCVOID and PDWORD_PTR for non-Cygwin-headers folks.
Ben Wing <ben@xemacs.org>
parents:
4867
diff
changeset
|
597 |
| 1685 | 598 #define W32API_VER(major,minor) 0 |
| 599 #define W32API_INSTALLED_VER 0 | |
|
4893
99f2102552d7
Add typedefs for PCVOID and PDWORD_PTR for non-Cygwin-headers folks.
Ben Wing <ben@xemacs.org>
parents:
4867
diff
changeset
|
600 |
|
99f2102552d7
Add typedefs for PCVOID and PDWORD_PTR for non-Cygwin-headers folks.
Ben Wing <ben@xemacs.org>
parents:
4867
diff
changeset
|
601 /* Some types that show up in Cygwin headers but not in Visual Studio headers, |
|
99f2102552d7
Add typedefs for PCVOID and PDWORD_PTR for non-Cygwin-headers folks.
Ben Wing <ben@xemacs.org>
parents:
4867
diff
changeset
|
602 and cause problems if we used Cygwin headers to generate |
|
99f2102552d7
Add typedefs for PCVOID and PDWORD_PTR for non-Cygwin-headers folks.
Ben Wing <ben@xemacs.org>
parents:
4867
diff
changeset
|
603 intl-auto-encap-win32.[ch]. */ |
|
99f2102552d7
Add typedefs for PCVOID and PDWORD_PTR for non-Cygwin-headers folks.
Ben Wing <ben@xemacs.org>
parents:
4867
diff
changeset
|
604 typedef LPCVOID PCVOID; |
|
99f2102552d7
Add typedefs for PCVOID and PDWORD_PTR for non-Cygwin-headers folks.
Ben Wing <ben@xemacs.org>
parents:
4867
diff
changeset
|
605 |
| 771 | 606 #endif /* CYGWIN_HEADERS */ |
| 607 | |
| 608 /* Not in VC 6 */ | |
| 609 #ifndef BIF_NEWDIALOGSTYLE | |
| 610 #define BIF_NEWDIALOGSTYLE 64 | |
| 611 #endif | |
| 442 | 612 |
| 4538 | 613 #if defined (CYGWIN) && (CYGWIN_VERSION_DLL_COMBINED < 190) |
| 442 | 614 |
| 615 /* All but wcscmp and wcslen left out of Cygwin headers -- but present | |
| 771 | 616 in /usr/include/mingw/string.h! */ |
| 442 | 617 wchar_t* wcscat (wchar_t*, const wchar_t*); |
| 618 wchar_t* wcschr (const wchar_t*, wchar_t); | |
| 619 int wcscoll (const wchar_t*, const wchar_t*); | |
| 620 wchar_t* wcscpy (wchar_t*, const wchar_t*); | |
| 771 | 621 wchar_t* wcsdup (const wchar_t*); |
| 442 | 622 size_t wcscspn (const wchar_t*, const wchar_t*); |
| 623 /* Note: No wcserror in CRTDLL. */ | |
| 624 wchar_t* wcsncat (wchar_t*, const wchar_t*, size_t); | |
| 771 | 625 int wcsncmp (const wchar_t*, const wchar_t*, size_t); |
| 626 wchar_t* wcsncpy (wchar_t*, const wchar_t*, size_t); | |
| 627 wchar_t* wcspbrk (const wchar_t*, const wchar_t*); | |
| 628 wchar_t* wcsrchr (const wchar_t*, wchar_t); | |
| 629 size_t wcsspn (const wchar_t*, const wchar_t*); | |
| 630 wchar_t* wcsstr (const wchar_t*, const wchar_t*); | |
| 631 wchar_t* wcstok (wchar_t*, const wchar_t*); | |
| 632 size_t wcsxfrm (wchar_t*, const wchar_t*, size_t); | |
| 442 | 633 |
| 634 #endif /* CYGWIN */ | |
| 635 | |
| 771 | 636 /* ------------------------- Unicode encapsulation ------------------------- */ |
| 637 | |
| 2367 | 638 /* See intl-win32.c for more information about Unicode-encapsulation */ |
| 771 | 639 |
| 800 | 640 #define ERROR_WHEN_NONINTERCEPTED_FUNS_USED |
| 641 | |
| 771 | 642 #include "intl-auto-encap-win32.h" |
| 643 | |
| 644 /* would be encapsulatable but for parsing problems */ | |
| 800 | 645 |
| 646 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 647 #undef DefWindowProc | |
| 648 #define DefWindowProc error use qxeDefWindowProc or DefWindowProcA/DefWindowProcW | |
| 649 #endif | |
| 771 | 650 LRESULT qxeDefWindowProc (HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam); |
| 800 | 651 |
| 652 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 653 #undef CallWindowProc | |
| 654 #define CallWindowProc error use qxeCallWindowProc or CallWindowProcA/CallWindowProcW | |
| 655 #endif | |
| 771 | 656 LRESULT qxeCallWindowProc (WNDPROC lpPrevWndFunc, HWND hWnd, UINT Msg, |
| 657 WPARAM wParam, LPARAM lParam); | |
| 800 | 658 |
| 659 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 660 #undef DefDlgProc | |
| 661 #define DefDlgProc error use qxeDefDlgProc or DefDlgProcA/DefDlgProcW | |
| 662 #endif | |
| 771 | 663 LRESULT qxeDefDlgProc (HWND hDlg, UINT Msg, WPARAM wParam, LPARAM lParam); |
| 800 | 664 |
| 665 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 666 #undef SetWindowsHook | |
| 667 #define SetWindowsHook error use qxeSetWindowsHook or SetWindowsHookA/SetWindowsHookW | |
| 668 #endif | |
| 771 | 669 HHOOK qxeSetWindowsHook (int nFilterType, HOOKPROC pfnFilterProc); |
| 800 | 670 |
| 671 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 672 #undef DefMDIChildProc | |
| 673 #define DefMDIChildProc error use qxeDefMDIChildProc or DefMDIChildProcA/DefMDIChildProcW | |
| 674 #endif | |
| 771 | 675 LRESULT qxeDefMDIChildProc (HWND hWnd, UINT uMsg, WPARAM wParam, |
| 676 LPARAM lParam); | |
| 677 | |
| 800 | 678 #undef GetEnvironmentStrings |
| 679 #undef GetEnvironmentStringsA | |
| 680 #define GetEnvironmentStringsA GetEnvironmentStrings | |
| 681 Extbyte * qxeGetEnvironmentStrings (void); | |
| 682 | |
| 771 | 683 /* would be encapsulatable but for Cygwin problems */ |
| 800 | 684 |
| 685 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 1111 | 686 #undef DdeCreateStringHandle |
| 687 #define DdeCreateStringHandle error use qxeDdeCreateStringHandle or DdeCreateStringHandleA/DdeCreateStringHandleW | |
| 688 #endif | |
| 689 HSZ qxeDdeCreateStringHandle (DWORD idInst, const Extbyte * psz, int iCodePage); | |
| 690 | |
| 691 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 800 | 692 #undef RegConnectRegistry |
| 693 #define RegConnectRegistry error use qxeRegConnectRegistry or RegConnectRegistryA/RegConnectRegistryW | |
| 694 #endif | |
| 771 | 695 LONG qxeRegConnectRegistry (const Extbyte * lpMachineName, HKEY hKey, PHKEY phkResult); |
| 800 | 696 |
| 697 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 698 #undef ExtractIconEx | |
| 699 #define ExtractIconEx error use qxeExtractIconEx or ExtractIconExA/ExtractIconExW | |
| 700 #endif | |
| 771 | 701 UINT qxeExtractIconEx (const Extbyte * lpszFile, int nIconIndex, HICON FAR * phiconLarge, HICON FAR * phiconSmall, UINT nIcons); |
| 800 | 702 |
| 703 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 704 #undef GetICMProfile | |
| 705 #define GetICMProfile error use qxeGetICMProfile or GetICMProfileA/GetICMProfileW | |
| 706 #endif | |
| 771 | 707 BOOL qxeGetICMProfile (HDC arg1, LPDWORD arg2, Extbyte * arg3); |
| 800 | 708 |
| 709 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 710 #undef UpdateICMRegKey | |
| 711 #define UpdateICMRegKey error use qxeUpdateICMRegKey or UpdateICMRegKeyA/UpdateICMRegKeyW | |
| 712 #endif | |
| 771 | 713 BOOL qxeUpdateICMRegKey (DWORD arg1, Extbyte * arg2, Extbyte * arg3, UINT arg4); |
| 714 | |
| 2500 | 715 /* would be encapsulatable but for header changes in different versions of VC++ */ |
| 716 | |
| 717 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 718 #undef EnumResourceTypes | |
| 719 #define EnumResourceTypes error_use_qxeEnumResourceTypes_or_EnumResourceTypesA_and_EnumResourceTypesW | |
| 720 #endif | |
| 721 #if MSC_VERSION >= 1300 | |
| 722 BOOL qxeEnumResourceTypes (HMODULE hModule, ENUMRESTYPEPROCW lpEnumFunc, LONG lParam); | |
| 723 #else | |
| 724 BOOL qxeEnumResourceTypes (HMODULE hModule, ENUMRESTYPEPROC lpEnumFunc, LONG lParam); | |
| 725 #endif | |
| 726 | |
| 727 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 728 #undef EnumResourceNames | |
| 729 #define EnumResourceNames error_use_qxeEnumResourceNames_or_EnumResourceNamesA_and_EnumResourceNamesW | |
| 730 #endif | |
| 731 #if MSC_VERSION >= 1300 | |
| 732 BOOL qxeEnumResourceNames (HMODULE hModule, const Extbyte * lpType, ENUMRESNAMEPROCW lpEnumFunc, LONG lParam); | |
| 733 #else | |
| 734 BOOL qxeEnumResourceNames (HMODULE hModule, const Extbyte * lpType, ENUMRESNAMEPROC lpEnumFunc, LONG lParam); | |
| 735 #endif | |
| 736 | |
| 737 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 738 #undef EnumResourceLanguages | |
| 739 #define EnumResourceLanguages error_use_qxeEnumResourceLanguages_or_EnumResourceLanguagesA_and_EnumResourceLanguagesW | |
| 740 #endif | |
| 741 #if MSC_VERSION >= 1300 | |
| 742 BOOL qxeEnumResourceLanguages (HMODULE hModule, const Extbyte * lpType, const Extbyte * lpName, ENUMRESLANGPROCW lpEnumFunc, LONG lParam); | |
| 743 #else | |
| 744 BOOL qxeEnumResourceLanguages (HMODULE hModule, const Extbyte * lpType, const Extbyte * lpName, ENUMRESLANGPROC lpEnumFunc, LONG lParam); | |
| 745 #endif | |
| 746 | |
| 771 | 747 /* files */ |
| 800 | 748 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED |
| 749 #undef FindFirstFile | |
| 750 #define FindFirstFile error use qxeFindFirstFile or FindFirstFileA/FindFirstFileW | |
| 751 #endif | |
| 771 | 752 HANDLE qxeFindFirstFile (const Extbyte *lpFileName, |
| 753 WIN32_FIND_DATAW *lpFindFileData); | |
| 800 | 754 |
| 755 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 756 #undef FindNextFile | |
| 757 #define FindNextFile error use qxeFindNextFile or FindNextFileA/FindNextFileW | |
| 758 #endif | |
| 771 | 759 BOOL qxeFindNextFile (HANDLE hFindFile, WIN32_FIND_DATAW *lpFindFileData); |
| 760 | |
| 761 /* shell */ | |
| 800 | 762 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED |
| 763 #undef SHGetFileInfo | |
| 764 #define SHGetFileInfo error use qxeSHGetFileInfo or SHGetFileInfoA/SHGetFileInfoW | |
| 765 #endif | |
| 771 | 766 DWORD qxeSHGetFileInfo (const Extbyte *pszPath, DWORD dwFileAttributes, |
| 767 SHFILEINFOW *psfi, UINT cbFileInfo, UINT uFlags); | |
| 800 | 768 |
| 769 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 770 #undef SHBrowseForFolder | |
| 771 #define SHBrowseForFolder error use qxeSHBrowseForFolder or SHBrowseForFolderA/SHBrowseForFolderW | |
| 772 #endif | |
| 771 | 773 LPITEMIDLIST qxeSHBrowseForFolder (LPBROWSEINFOW lpbi); |
| 800 | 774 |
| 775 /* Not Unicode-split */ | |
| 771 | 776 VOID qxeSHAddToRecentDocs (UINT uFlags, LPCVOID pv); |
| 800 | 777 |
| 778 /* Not Unicode-split */ | |
| 771 | 779 VOID qxeSHChangeNotify (LONG wEventId, UINT uFlags, LPCVOID dwItem1, |
| 780 LPCVOID dwItem2); | |
| 800 | 781 |
| 782 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 783 #undef SHGetDataFromIDList | |
| 784 #define SHGetDataFromIDList error use qxeSHGetDataFromIDList or SHGetDataFromIDListA/SHGetDataFromIDListW | |
| 785 #endif | |
| 771 | 786 HRESULT qxeSHGetDataFromIDList (IShellFolder *psf, LPCITEMIDLIST pidl, |
| 787 int nFormat, PVOID pv, int cb); | |
| 788 | |
| 789 /* devmode */ | |
| 800 | 790 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED |
| 791 #undef CreateDC | |
| 792 #define CreateDC error use qxeCreateDC or CreateDCA/CreateDCW | |
| 793 #endif | |
| 771 | 794 HDC qxeCreateDC (const Extbyte *lpszDriver, const Extbyte *lpszDevice, |
| 795 const Extbyte *lpszOutput, CONST DEVMODEW *lpInitData); | |
| 800 | 796 |
| 797 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 798 #undef ResetDC | |
| 799 #define ResetDC error use qxeResetDC or ResetDCA/ResetDCW | |
| 800 #endif | |
| 771 | 801 HDC qxeResetDC (HDC hdc, CONST DEVMODEW *lpInitData); |
| 800 | 802 |
| 803 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 804 #undef OpenPrinter | |
| 805 #define OpenPrinter error use qxeOpenPrinter or OpenPrinterA/OpenPrinterW | |
| 806 #endif | |
| 771 | 807 DWORD qxeOpenPrinter (Extbyte *pPrinterName, LPHANDLE phPrinter, |
| 808 LPPRINTER_DEFAULTSW pDefaultconst); | |
| 800 | 809 |
| 810 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 811 #undef DocumentProperties | |
| 812 #define DocumentProperties error use qxeDocumentProperties or DocumentPropertiesA/DocumentPropertiesW | |
| 813 #endif | |
| 771 | 814 LONG qxeDocumentProperties (HWND hWnd, HANDLE hPrinter, Extbyte *pDeviceName, |
| 815 DEVMODEW *pDevModeOutput, DEVMODEW *pDevModeInput, | |
| 816 DWORD fMode); | |
| 800 | 817 |
| 818 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 819 #undef PrintDlg | |
| 820 #define PrintDlg error use qxePrintDlg or PrintDlgA/PrintDlgW | |
| 821 #endif | |
| 771 | 822 BOOL qxePrintDlg (PRINTDLGW *lppd); |
| 800 | 823 |
| 824 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 825 #undef PageSetupDlg | |
| 826 #define PageSetupDlg error use qxePageSetupDlg or PageSetupDlgA/PageSetupDlgW | |
| 827 #endif | |
| 771 | 828 BOOL qxePageSetupDlg (PAGESETUPDLGW *lppd); |
| 829 | |
| 830 /* fonts */ | |
| 800 | 831 |
| 832 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 833 #undef EnumFontFamiliesEx | |
| 834 #define EnumFontFamiliesEx error use qxeEnumFontFamiliesEx or EnumFontFamiliesExA/EnumFontFamiliesExW | |
| 835 #endif | |
| 771 | 836 int qxeEnumFontFamiliesEx (HDC hdc, LOGFONTW *lpLogfont, |
| 837 FONTENUMPROCW lpEnumFontFamProc, LPARAM lParam, | |
| 838 DWORD dwFlags); | |
| 800 | 839 |
| 840 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 841 #undef CreateFontIndirect | |
| 842 #define CreateFontIndirect error use qxeCreateFontIndirect or CreateFontIndirectA/CreateFontIndirectW | |
| 843 #endif | |
| 771 | 844 HFONT qxeCreateFontIndirect (CONST LOGFONTW *lplf); |
| 800 | 845 |
| 2500 | 846 #if defined (HAVE_MS_WINDOWS) |
| 800 | 847 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED |
| 848 #undef ImmSetCompositionFont | |
| 849 #define ImmSetCompositionFont error use qxeImmSetCompositionFont or ImmSetCompositionFontA/ImmSetCompositionFontW | |
| 850 #endif | |
| 771 | 851 BOOL qxeImmSetCompositionFont (HIMC imc, LOGFONTW *lplf); |
| 2500 | 852 #endif /* defined (HAVE_MS_WINDOWS) */ |
| 800 | 853 |
| 2500 | 854 #if defined (HAVE_MS_WINDOWS) |
| 800 | 855 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED |
| 856 #undef ImmGetCompositionFont | |
| 857 #define ImmGetCompositionFont error use qxeImmGetCompositionFont or ImmGetCompositionFontA/ImmGetCompositionFontW | |
| 858 #endif | |
| 771 | 859 BOOL qxeImmGetCompositionFont (HIMC imc, LOGFONTW *lplf); |
| 2500 | 860 #endif /* defined (HAVE_MS_WINDOWS) */ |
| 861 | |
| 862 #if defined (HAVE_MS_WINDOWS) | |
| 863 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 864 #undef ImmSetCompositionString | |
| 865 #define ImmSetCompositionString error_use_qxeImmSetCompositionString_or_ImmSetCompositionStringA_and_ImmSetCompositionStringW | |
| 866 #endif | |
| 867 #if MSC_VERSION >= 1300 | |
| 868 BOOL qxeImmSetCompositionString (HIMC arg1, DWORD dwIndex, LPVOID lpComp, DWORD arg4, LPCVOID lpRead, DWORD arg6); | |
| 869 #else | |
| 870 BOOL qxeImmSetCompositionString (HIMC arg1, DWORD dwIndex, LPCVOID lpComp, DWORD arg4, LPCVOID lpRead, DWORD arg6); | |
| 871 #endif | |
| 872 #endif /* defined (HAVE_MS_WINDOWS) */ | |
| 800 | 873 |
| 874 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 875 #undef GetObject | |
| 876 #define GetObject error use qxeGetObject or GetObjectA/GetObjectW | |
| 877 #endif | |
| 771 | 878 int qxeGetObject (HGDIOBJ hgdiobj, int cbBuffer, LPVOID lpvObject); |
| 800 | 879 |
| 880 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 881 #undef GetTextMetrics | |
| 882 #define GetTextMetrics error use qxeGetTextMetrics or GetTextMetricsA/GetTextMetricsW | |
| 883 #endif | |
| 771 | 884 BOOL qxeGetTextMetrics (HDC hdc, LPTEXTMETRICW lptm); |
| 885 | |
| 886 /* COMMCTRL.H */ | |
| 800 | 887 |
| 888 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 889 #undef SendMessage | |
| 890 #define SendMessage error use qxeSendMessage or SendMessageA/SendMessageW | |
| 891 #endif | |
| 771 | 892 LRESULT qxeSendMessage (HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam); |
| 893 | |
| 894 /* windows */ | |
| 800 | 895 |
| 896 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 897 #undef RegisterClass | |
| 898 #define RegisterClass error use qxeRegisterClass or RegisterClassA/RegisterClassW | |
| 899 #endif | |
| 771 | 900 ATOM qxeRegisterClass (CONST WNDCLASSW * lpWndClass); |
| 800 | 901 |
| 902 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 903 #undef UnregisterClass | |
| 904 #define UnregisterClass error use qxeUnregisterClass or UnregisterClassA/UnregisterClassW | |
| 905 #endif | |
| 771 | 906 BOOL qxeUnregisterClass (const Extbyte * lpClassName, HINSTANCE hInstance); |
| 800 | 907 |
| 908 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 909 #undef RegisterClassEx | |
| 910 #define RegisterClassEx error use qxeRegisterClassEx or RegisterClassExA/RegisterClassExW | |
| 911 #endif | |
| 771 | 912 ATOM qxeRegisterClassEx (CONST WNDCLASSEXW * arg1); |
| 800 | 913 |
| 914 #ifdef ERROR_WHEN_NONINTERCEPTED_FUNS_USED | |
| 915 #undef CreateWindow | |
| 916 #define CreateWindow error use qxeCreateWindow or CreateWindowA/CreateWindowW | |
| 917 #endif | |
| 771 | 918 #define qxeCreateWindow(lpClassName, lpWindowName, dwStyle, x, y, \ |
| 919 nWidth, nHeight, hWndParent, hMenu, hInstance, \ | |
| 920 lpParam) \ | |
| 921 qxeCreateWindowEx (0L, lpClassName, lpWindowName, dwStyle, x, y, \ | |
| 922 nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam) | |
| 923 | |
| 924 /* ------------------------- Unicode conversion ------------------------- */ | |
| 925 | |
| 926 /* Set early in command-line processing, when -nuni or | |
| 927 --no-unicode-lib-calls is seen. */ | |
| 928 extern int no_mswin_unicode_lib_calls; | |
| 2367 | 929 /* Set early, in init_win32_very_very_early(). */ |
| 771 | 930 extern int mswindows_windows9x_p; |
| 931 #define XEUNICODE_P (!mswindows_windows9x_p && !no_mswin_unicode_lib_calls) | |
| 932 | |
| 933 #define XELPTSTR LPWSTR | |
| 934 #define XELPCTSTR LPCWSTR | |
| 442 | 935 |
| 936 #define XETCHAR_SIZE (XEUNICODE_P ? sizeof (WCHAR) : sizeof (CHAR)) | |
| 937 #define MAX_XETCHAR_SIZE sizeof (WCHAR) | |
| 938 #define XETEXT1(arg) (XEUNICODE_P ? ((char *) (L##arg)) : (arg)) | |
| 939 /* We need to do this indirection in case ARG is also a manifest constant. | |
| 940 I don't really understand why. --ben */ | |
| 941 #define XETEXT(arg) XETEXT1(arg) | |
| 942 #define XECOPY_TCHAR(ptr, ch) \ | |
| 943 (XEUNICODE_P ? (* (LPWSTR) (ptr) = L##ch) : (* (LPSTR) (ptr) = (ch))) | |
| 2421 | 944 #define qxetcslen(arg) \ |
| 771 | 945 (XEUNICODE_P ? wcslen ((wchar_t *) arg) : strlen (arg)) |
| 2421 | 946 #define qxetcsbytelen(arg) \ |
| 771 | 947 (XEUNICODE_P ? wcslen ((wchar_t *) arg) * XETCHAR_SIZE : strlen (arg)) |
| 2421 | 948 #define qxetcscmp(s1, s2) \ |
| 442 | 949 (XEUNICODE_P ? wcscmp ((wchar_t *) s1, (wchar_t *) s2) \ |
| 950 : strcmp (s1, s2)) | |
| 2421 | 951 #define qxetcscpy(s1, s2) \ |
| 442 | 952 (XEUNICODE_P ? (char *) wcscpy ((wchar_t *) s1, (wchar_t *) s2) \ |
| 953 : strcpy (s1, s2)) | |
| 2421 | 954 #define qxetcsncpy(s1, s2, n) \ |
| 771 | 955 (XEUNICODE_P ? (char *) wcsncpy ((wchar_t *) s1, (wchar_t *) s2, n) \ |
| 956 : strncpy (s1, s2, n)) | |
| 2421 | 957 #define qxetcschr(s, ch) \ |
| 442 | 958 (XEUNICODE_P ? (char *) wcschr ((wchar_t *) s, (WCHAR) ch) \ |
| 959 : strchr (s, ch)) | |
| 2421 | 960 #define qxetcsrchr(s, ch) \ |
| 442 | 961 (XEUNICODE_P ? (char *) wcsrchr ((wchar_t *) s, (WCHAR) ch) \ |
| 962 : strrchr (s, ch)) | |
| 2421 | 963 #define qxetcsdup(s) \ |
| 771 | 964 (XEUNICODE_P ? (char *) wcsdup ((wchar_t *) s) \ |
| 965 : xstrdup (s)) | |
| 442 | 966 |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
967 #define ITEXT_TO_TSTR(in) ITEXT_TO_EXTERNAL (in, Qmswindows_tstr) |
|
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
968 #define LISP_STRING_TO_TSTR(in) LISP_STRING_TO_EXTERNAL (in, Qmswindows_tstr) |
|
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
969 #define TSTR_TO_ITEXT(in) EXTERNAL_TO_ITEXT (in, Qmswindows_tstr) |
|
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
970 #define TSTR_TO_ITEXT_MALLOC(in) \ |
|
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
971 EXTERNAL_TO_ITEXT_MALLOC (in, Qmswindows_tstr) |
| 771 | 972 |
| 973 #define build_tstr_string(in) \ | |
|
4953
304aebb79cd3
function renamings to track names of char typedefs
Ben Wing <ben@xemacs.org>
parents:
4952
diff
changeset
|
974 make_extstring (in, qxetcsbytelen ((Extbyte *) in), Qmswindows_tstr) |
| 771 | 975 |
| 976 #define MAX_ANSI_CHAR_LEN 1 | |
| 977 #define MAX_UNICODE_CHAR_LEN 2 | |
| 978 | |
| 979 DECLARE_INLINE_HEADER (int ansi_char_to_text (int ch, Extbyte *t)) | |
| 980 { | |
| 981 ch &= 0xFF; | |
| 982 t[0] = ch; | |
| 983 return 1; | |
| 984 } | |
| 985 | |
| 986 DECLARE_INLINE_HEADER (int unicode_char_to_text (int ch, Extbyte *t)) | |
| 987 { | |
| 988 t[0] = ch & 0xFF; | |
| 989 t[1] = (ch >> 8) & 0xFF; | |
| 990 return 2; | |
| 991 } | |
| 442 | 992 |
| 771 | 993 Extbyte *convert_multibyte_to_unicode_malloc (const Extbyte *src, |
| 994 Bytecount n, | |
| 995 int cp, Bytecount *size_out); | |
| 2367 | 996 Extbyte *convert_unicode_to_multibyte_malloc (const Extbyte *src, |
| 997 Bytecount n, | |
| 998 int cp, Bytecount *size_out); | |
| 867 | 999 Ibyte *convert_multibyte_to_internal_malloc (const Extbyte *src, |
| 771 | 1000 Bytecount n, |
| 1001 int cp, Bytecount *size_out); | |
| 1002 void convert_multibyte_to_unicode_dynarr (const Extbyte *src, Bytecount n, | |
| 1003 int cp, unsigned_char_dynarr *dst); | |
| 2367 | 1004 void convert_unicode_to_multibyte_dynarr (const Extbyte *src, Bytecount n, |
| 1005 int cp, unsigned_char_dynarr *dst); | |
| 1006 | |
| 1007 Bytecount unicode_multibyte_convert_size (const char *srctext, const void *src, | |
| 1008 Bytecount src_size, int to_unicode, | |
| 1009 int cp); | |
| 1010 void *unicode_multibyte_convert_copy_data (const char *srctext, | |
| 1011 void *alloca_data); | |
| 1012 | |
| 1013 /* NOTE: If you make two invocations of the following functions in the same | |
| 1014 subexpression and use the exact same expression for the source in both | |
| 1015 cases, you will lose. In this unlikely case, you may get an abort, and | |
| 1016 need to rewrite the code. | |
| 1017 | |
| 1018 We need to use ALLOCA_FUNCALL_OK here, see NEW_DFC in text.h. | |
| 1019 */ | |
| 1020 | |
| 1021 #ifdef WEXTTEXT_IS_WIDE | |
| 1022 #define MULTIBYTE_TO_WEXTTEXT(str) \ | |
| 1023 ((Wexttext *) \ | |
| 1024 unicode_multibyte_convert_copy_data \ | |
| 1025 (#str, ALLOCA_FUNCALL_OK (unicode_multibyte_convert_size \ | |
| 1026 (#str, str, strlen (str) + 1, 1, CP_ACP)))) | |
| 1027 | |
| 1028 #define WEXTTEXT_TO_MULTIBYTE(str) \ | |
| 1029 ((Extbyte *) \ | |
| 1030 unicode_multibyte_convert_copy_data \ | |
| 1031 (#str, ALLOCA_FUNCALL_OK (unicode_multibyte_convert_size \ | |
| 1032 (#str, str, \ | |
| 1033 (wcslen (str) + 1) * sizeof (WCHAR), 0, \ | |
| 1034 CP_ACP)))) | |
| 1035 #else | |
| 1036 #define MULTIBYTE_TO_WEXTTEXT(str) ((Wexttext *) (str)) | |
| 1037 #define WEXTTEXT_TO_MULTIBYTE(str) ((Extbyte *) (str)) | |
| 1038 #endif | |
| 1039 | |
| 1040 /* #### mbstowcs() uses MB_ERR_INVALID_CHARS in addition to MB_PRECOMPOSED. | |
| 1041 Should we do this? But then we have to handle errors. | |
| 1042 #### Do we already check for invalid sequences in the coding system? */ | |
| 1043 #define MBTOWC_OPTIONS MB_PRECOMPOSED /* | MB_ERR_INVALID_CHARS */ | |
| 1044 /* The following options are what wcstombs() uses in the CRT. It uses | |
| 1045 NULL in place of "~". */ | |
| 1046 #define WCTOMB_OPTIONS WC_COMPOSITECHECK | WC_SEPCHARS | |
| 1047 #define WCTOMB_INVALID_STRING "~" | |
| 771 | 1048 |
| 1049 /* ------------------------- Other Mule stuff ------------------------- */ | |
| 1050 | |
| 1051 LCID mswindows_current_locale (void); | |
| 1052 int mswindows_locale_to_code_page (LCID lcid); | |
| 1053 int mswindows_locale_to_oem_code_page (LCID lcid); | |
| 1054 | |
| 1055 /* ------------------------- Filename conversion ------------------------- */ | |
| 1056 | |
| 1057 #ifdef CYGWIN | |
| 1743 | 1058 |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1059 /* We should just remove the Windows 9x support */ |
| 1743 | 1060 |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1061 #define CCP_POSIX_TO_WIN_T \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1062 (XEUNICODE_P ? CCP_POSIX_TO_WIN_W : CCP_POSIX_TO_WIN_A) |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1063 #define CCP_WIN_T_TO_POSIX \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1064 (XEUNICODE_P ? CCP_WIN_W_TO_POSIX : CCP_WIN_A_TO_POSIX) |
| 1743 | 1065 |
| 771 | 1066 #endif |
| 1067 | |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1068 #ifdef HAVE_CYGWIN_CONV_PATH |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1069 #define LOCAL_FILE_FORMAT_TO_TSTR(path, out) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1070 do { \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1071 const Ibyte *lfftt = (path); \ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
1072 const Extbyte **lffttout = (const Extbyte **) &(out); \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1073 if (isalpha (lfftt[0]) && (IS_DEVICE_SEP (lfftt[1]))) \ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
1074 PATHNAME_CONVERT_OUT_TSTR (lfftt, *lffttout); \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1075 else \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1076 { \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1077 int lfftt_size; \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1078 Extbyte *lfftt_utf8_path; \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1079 Extbyte *lfftt_tstr_path; \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1080 \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1081 PATHNAME_CONVERT_OUT_UTF_8 (lfftt, lfftt_utf8_path); \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1082 lfftt_size = cygwin_conv_path (CCP_POSIX_TO_WIN_T | CCP_RELATIVE, \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1083 lfftt_utf8_path, NULL, 0); \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1084 lfftt_tstr_path = alloca_extbytes (lfftt_size); \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1085 cygwin_conv_path (CCP_POSIX_TO_WIN_T | CCP_RELATIVE, \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1086 lfftt_utf8_path, lfftt_tstr_path, lfftt_size); \ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
1087 *lffttout = lfftt_tstr_path; \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1088 } \ |
| 442 | 1089 } while (0) |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1090 #define TSTR_TO_LOCAL_FILE_FORMAT(path, out) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1091 do { \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1092 const Extbyte *ttlff = (path); \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1093 int ttlff_size; \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1094 Extbyte *ttlff_utf8_path; \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1095 \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1096 ttlff_size = cygwin_conv_path (CCP_WIN_T_TO_POSIX | CCP_RELATIVE, \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1097 ttlff, NULL, 0); \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1098 ttlff_utf8_path = alloca_extbytes (ttlff_size); \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1099 cygwin_conv_path (CCP_WIN_T_TO_POSIX | CCP_RELATIVE, \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1100 ttlff, ttlff_utf8_path, ttlff_size); \ |
|
4988
4cfb6aeb989d
fix compile problems on Windows native
Ben Wing <ben@xemacs.org>
parents:
4981
diff
changeset
|
1101 (out) = EXTERNAL_TO_ITEXT (ttlff_utf8_path, Qutf_8); \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1102 } while (0) |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1103 #else /* not HAVE_CYGWIN_CONV_PATH */ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1104 #define LOCAL_FILE_FORMAT_TO_TSTR(path, out) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1105 do { \ |
|
4867
7822019c5d98
Revert cast in check_writable() and fix up macros to use const.
Vin Shelton <acs@xemacs.org>
parents:
4858
diff
changeset
|
1106 const Ibyte *lfftt; \ |
|
4988
4cfb6aeb989d
fix compile problems on Windows native
Ben Wing <ben@xemacs.org>
parents:
4981
diff
changeset
|
1107 const Extbyte **lffttout = (const Extbyte **) &(out); \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1108 \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1109 LOCAL_FILE_FORMAT_TO_INTERNAL_MSWIN (path, lfftt); \ |
|
4988
4cfb6aeb989d
fix compile problems on Windows native
Ben Wing <ben@xemacs.org>
parents:
4981
diff
changeset
|
1110 PATHNAME_CONVERT_OUT_TSTR (lfftt, *lffttout); \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1111 } while (0) |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1112 #define TSTR_TO_LOCAL_FILE_FORMAT(path, out) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1113 do { \ |
|
4867
7822019c5d98
Revert cast in check_writable() and fix up macros to use const.
Vin Shelton <acs@xemacs.org>
parents:
4858
diff
changeset
|
1114 const Ibyte *ttlff; \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1115 \ |
|
4988
4cfb6aeb989d
fix compile problems on Windows native
Ben Wing <ben@xemacs.org>
parents:
4981
diff
changeset
|
1116 ttlff = TSTR_TO_ITEXT (path); \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1117 INTERNAL_MSWIN_TO_LOCAL_FILE_FORMAT (ttlff, out); \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1118 } while (0) |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1119 #endif /* (not) HAVE_CYGWIN_CONV_PATH */ |
| 442 | 1120 |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1121 #define LISP_LOCAL_FILE_FORMAT_TO_TSTR(path, out) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1122 LOCAL_FILE_FORMAT_TO_TSTR (XSTRING_DATA (path), out) |
| 826 | 1123 /* Convert from local file format, as used in XEmacs, to valid win32 |
| 1124 filenames as can be given to Windows API routines. Under native XEmacs, | |
| 1125 this is a no-op, but under Cygwin, the local names look different -- | |
| 1126 Cygwin mount points, forward slashes, etc. Currently, under Cygwin, we | |
| 1127 actually allow local names to be of both formats, i.e. Cygwin or Win32 | |
| 1128 native. So we check to see if we have Win32 native already (a cheesy | |
| 1129 check, look for letter plus colon at beginning of name) and do nothing | |
| 1130 in that case. */ | |
| 1131 | |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1132 #ifdef HAVE_CYGWIN_CONV_PATH |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1133 /* When Cygwin uses UTF-8, we can't just manipulate internal-format data |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1134 with its routines because it will mangle the high bytes, so we need to |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1135 convert to UTF-8 first, then to Win32 TSTR format (i.e. UTF-16, on |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1136 Windows NT), then back to internal format. Routines that want external |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1137 format should avoid this by using LISP_LOCAL_FILE_FORMAT_TO_TSTR(). |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1138 Same thing applies going the other direction. */ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1139 #define LOCAL_FILE_FORMAT_TO_INTERNAL_MSWIN(path, pathout) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1140 do \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1141 { \ |
|
4867
7822019c5d98
Revert cast in check_writable() and fix up macros to use const.
Vin Shelton <acs@xemacs.org>
parents:
4858
diff
changeset
|
1142 const Extbyte *lfftiwp; \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1143 \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1144 LOCAL_FILE_FORMAT_TO_TSTR (path, lfftiwp); \ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
1145 (pathout) = TSTR_TO_ITEXT (lfftiwp); \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1146 } \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1147 while (0) |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1148 #define INTERNAL_MSWIN_TO_LOCAL_FILE_FORMAT(path, pathout) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1149 do { \ |
|
4867
7822019c5d98
Revert cast in check_writable() and fix up macros to use const.
Vin Shelton <acs@xemacs.org>
parents:
4858
diff
changeset
|
1150 const Extbyte *iwtlffp; \ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
1151 iwtlffp = ITEXT_TO_TSTR (path); \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1152 TSTR_TO_LOCAL_FILE_FORMAT (iwtlffp, pathout); \ |
| 442 | 1153 } while (0) |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1154 #elif defined (CYGWIN) |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1155 #define LOCAL_FILE_FORMAT_TO_INTERNAL_MSWIN(path, pathout) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1156 do { \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1157 /* NOTE: It is a bit evil that here and below we are passing \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1158 internal-format data to a function that (nominally) should work \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1159 with external-format data. But in point of fact, the Cygwin \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1160 conversion functions are *NOT* localized, and will fail if they \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1161 get 7-bit ISO2022-encoded data. We know that our internal format \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1162 is ASCII-compatible, and so these functions will work fine with \ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
1163 this data (maybe ... not when Cygwin uses UTF-8) */ \ |
|
4867
7822019c5d98
Revert cast in check_writable() and fix up macros to use const.
Vin Shelton <acs@xemacs.org>
parents:
4858
diff
changeset
|
1164 const Ibyte *lfftiwp = (path); \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1165 if (isalpha (lfftiwp[0]) && (IS_DEVICE_SEP (lfftiwp[1]))) \ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
1166 (pathout) = lfftiwp; \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1167 else \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1168 { \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1169 int lfftiw2 = \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1170 cygwin_posix_to_win32_path_list_buf_size ((char *) lfftiwp); \ |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
1171 (pathout) = alloca_ibytes (lfftiw2); \ |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1172 cygwin_posix_to_win32_path_list ((char *) lfftiwp, (char *) pathout); \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1173 } \ |
| 442 | 1174 } while (0) |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1175 #define INTERNAL_MSWIN_TO_LOCAL_FILE_FORMAT(path, pathout) \ |
| 593 | 1176 do { \ |
|
4867
7822019c5d98
Revert cast in check_writable() and fix up macros to use const.
Vin Shelton <acs@xemacs.org>
parents:
4858
diff
changeset
|
1177 const Ibyte *wtlff1 = (path); \ |
| 593 | 1178 int wtlff2 = \ |
| 1179 cygwin_win32_to_posix_path_list_buf_size ((char *) wtlff1); \ | |
| 2367 | 1180 Ibyte *wtlff3 = alloca_ibytes (wtlff2); \ |
| 593 | 1181 cygwin_win32_to_posix_path_list ((char *) wtlff1, (char *) wtlff3); \ |
| 771 | 1182 (pathout) = wtlff3; \ |
| 442 | 1183 } while (0) |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1184 #else /* not defined (CYGWIN) */ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1185 #define LOCAL_FILE_FORMAT_TO_INTERNAL_MSWIN(path, pathout) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1186 do { \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1187 (pathout) = (path); \ |
| 442 | 1188 } while (0) |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1189 #define INTERNAL_MSWIN_TO_LOCAL_FILE_FORMAT(path, pathout) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1190 do { \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1191 (pathout) = (path); \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1192 } while (0) |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1193 #endif /* (not) defined (CYGWIN) */ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1194 |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1195 Lisp_Object tstr_to_local_file_format (Extbyte *pathout); |
| 442 | 1196 |
| 826 | 1197 /* Convert a local-format file name or URL in internal format into a Win32 |
| 1198 file name or URL in tstr format. */ | |
| 1199 | |
| 1200 #ifdef CYGWIN | |
| 1201 | |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1202 #define LISP_LOCAL_FILE_FORMAT_MAYBE_URL_TO_TSTR(lispstr, pathout) \ |
| 2526 | 1203 do \ |
| 1204 { \ | |
| 1205 Ibyte *lffmutt_fname1; \ | |
| 1206 Ibyte *lffmutt_pathint = XSTRING_DATA (lispstr); \ | |
| 1207 \ | |
| 1208 if ((lffmutt_fname1 = qxestrchr (lffmutt_pathint, ':')) != NULL \ | |
| 1209 && *++lffmutt_fname1 == '/' && *++lffmutt_fname1 == '/') \ | |
| 1210 { \ | |
| 1211 /* If URL style file, the innards may have Cygwin mount points and \ | |
| 1212 the like. so separate out the innards, process them, and put back \ | |
| 1213 together. */ \ | |
| 1214 if (qxestrncasecmp_ascii (lffmutt_pathint, "file://", 7) == 0) \ | |
| 1215 { \ | |
| 1216 Ibyte *lffmutt_path1, *lffmutt_path2; \ | |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1217 LOCAL_FILE_FORMAT_TO_INTERNAL_MSWIN (lffmutt_pathint + 7, \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1218 lffmutt_path1); \ |
| 2526 | 1219 if (lffmutt_path1 == lffmutt_pathint + 7) /* Optimization */ \ |
| 1220 lffmutt_path2 = lffmutt_pathint; \ | |
| 1221 else \ | |
| 1222 { \ | |
| 867 | 1223 lffmutt_path2 = alloca_ibytes (7 + qxestrlen (lffmutt_path1) \ |
| 2526 | 1224 + 1); \ |
| 1225 qxestrncpy (lffmutt_path2, lffmutt_pathint, 7); \ | |
| 1226 qxestrcpy (lffmutt_path2 + 7, lffmutt_path1); \ | |
| 1227 } \ | |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
1228 (pathout) = ITEXT_TO_TSTR (lffmutt_path2); \ |
| 2526 | 1229 } \ |
| 1230 else \ | |
| 1231 /* A straight URL, just convert */ \ | |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4959
diff
changeset
|
1232 (pathout) = LISP_STRING_TO_TSTR (lispstr); \ |
| 2526 | 1233 } \ |
| 1234 else \ | |
| 1235 /* Not URL-style, must be a straight filename. */ \ | |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1236 LISP_LOCAL_FILE_FORMAT_TO_TSTR (lispstr, pathout); \ |
| 826 | 1237 } while (0) |
| 1238 | |
| 1239 #else /* not CYGWIN */ | |
| 1240 | |
| 1241 /* URL's (and everything else) are already in the right format */ | |
|
4834
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1242 #define LISP_LOCAL_FILE_FORMAT_MAYBE_URL_TO_TSTR(lispstr, pathout) \ |
|
b3ea9c582280
Use new cygwin_conv_path API with Cygwin 1.7 for converting names between Win32 and POSIX, UTF-8-aware, with attendant changes elsewhere
Ben Wing <ben@xemacs.org>
parents:
4827
diff
changeset
|
1243 LISP_LOCAL_FILE_FORMAT_TO_TSTR (lispstr, pathout) |
| 826 | 1244 |
| 1245 #endif /* not CYGWIN */ | |
| 1246 | |
| 1247 | |
| 867 | 1248 Ibyte *urlify_filename (Ibyte *filename); |
| 1249 Ibyte *mswindows_canonicalize_filename (Ibyte *name); | |
| 771 | 1250 #define MSWINDOWS_NORMALIZE_FILENAME(name) \ |
| 867 | 1251 IBYTE_STRING_TO_ALLOCA (mswindows_canonicalize_filename (name), name) |
| 771 | 1252 |
| 1253 /* ------------------- Functions needed dynamic binding ------------------- */ | |
| 1254 | |
| 1255 typedef BOOL (WINAPI *pfSwitchToThread_t) (VOID); | |
| 1256 | |
| 1257 typedef NET_API_STATUS (NET_API_FUNCTION *pfNetUserEnum_t) | |
| 1258 (LPCWSTR, DWORD, DWORD, LPBYTE *, DWORD, LPDWORD, LPDWORD, LPDWORD); | |
| 1259 typedef NET_API_STATUS (NET_API_FUNCTION *pfNetApiBufferFree_t) (LPVOID); | |
| 1260 | |
| 1261 extern pfSwitchToThread_t xSwitchToThread; | |
| 1262 | |
| 1263 extern pfNetUserEnum_t xNetUserEnum; | |
| 1264 extern pfNetApiBufferFree_t xNetApiBufferFree; | |
| 1265 | |
| 1266 /* --------- Useful routines for manipulating memory-mapped files -------- */ | |
| 1267 | |
| 1268 typedef struct file_data | |
| 1269 { | |
| 867 | 1270 const Ibyte *name; |
| 771 | 1271 unsigned long size; |
| 1272 HANDLE file; | |
| 1273 HANDLE file_mapping; | |
| 1274 void *file_base; | |
| 1275 } file_data; | |
| 1276 | |
| 1277 #define OFFSET_TO_RVA(var,section) \ | |
| 1278 (section->VirtualAddress + \ | |
| 1279 ((DWORD)(var) - section->PointerToRawData)) | |
| 1280 | |
| 1281 #define RVA_TO_OFFSET(var,section) \ | |
| 1282 (section->PointerToRawData + \ | |
| 1283 ((DWORD)(var) - section->VirtualAddress)) | |
| 442 | 1284 |
| 771 | 1285 #define RVA_TO_PTR(var,section,filedata) \ |
| 1286 ((void *)(RVA_TO_OFFSET(var,section) + \ | |
| 1287 (char *)(filedata).file_base)) | |
| 1288 | |
| 867 | 1289 int open_input_file (file_data *p_file, const Ibyte *name); |
| 1290 int open_output_file (file_data *p_file, const Ibyte *name, | |
| 771 | 1291 unsigned long size); |
| 1292 void close_file_data (file_data *p_file); | |
| 1293 | |
| 1294 /* ------------------------- Heap related stuff ------------------------- */ | |
| 1295 | |
| 1296 #ifdef WIN32_NATIVE | |
| 442 | 1297 |
| 771 | 1298 #define get_reserved_heap_size() reserved_heap_size |
| 1299 #define get_committed_heap_size() (get_data_end () - get_data_start ()) | |
| 1300 #define get_heap_start() get_data_start () | |
| 1301 #define get_heap_end() get_data_end () | |
| 1302 #define get_page_size() sysinfo_cache.dwPageSize | |
| 1303 #define get_allocation_unit() sysinfo_cache.dwAllocationGranularity | |
| 1304 #define get_processor_type() sysinfo_cache.dwProcessorType | |
| 1305 #define get_nt_major_version() nt_major_version | |
| 1306 #define get_nt_minor_version() nt_minor_version | |
| 1307 | |
| 814 | 1308 unsigned char *get_data_start (void); |
| 1309 unsigned char *get_data_end (void); | |
| 771 | 1310 extern unsigned long data_region_size; |
| 1311 extern unsigned long reserved_heap_size; | |
| 1312 extern SYSTEM_INFO sysinfo_cache; | |
| 1313 extern int nt_major_version; | |
| 1314 extern int nt_minor_version; | |
| 1315 | |
| 1316 /* To prevent zero-initialized variables from being placed into the bss | |
| 1317 section, use non-zero values to represent an uninitialized state. */ | |
| 1318 #define UNINIT_PTR ((unsigned char*) 0xF0A0F0A0) | |
| 1319 #define UNINIT_LONG (0xF0A0F0A0L) | |
| 1320 | |
| 1321 /* Recreate the heap created during dumping. */ | |
| 814 | 1322 void recreate_heap (Extbyte *executable_path); |
| 771 | 1323 |
| 1324 /* Round the heap to this size. */ | |
| 814 | 1325 void round_heap (unsigned long size); |
| 771 | 1326 |
| 1327 /* Load in the dumped .bss section. */ | |
| 814 | 1328 void read_in_bss (Extbyte *name); |
| 771 | 1329 |
| 1330 /* Map in the dumped heap. */ | |
| 814 | 1331 void map_in_heap (Extbyte *name); |
| 771 | 1332 |
| 1333 /* Cache system info, e.g., the NT page size. */ | |
| 814 | 1334 void cache_system_info (void); |
| 771 | 1335 |
| 1336 /* Round ADDRESS up to be aligned with ALIGN. */ | |
| 814 | 1337 unsigned char *round_to_next (unsigned char *address, |
| 1338 unsigned long align); | |
| 771 | 1339 #endif /* WIN32_NATIVE */ |
| 1340 | |
| 1341 /* ------------------------- Misc prototypes ------------------------- */ | |
| 1342 | |
| 1343 #ifdef WIN32_NATIVE | |
| 1344 DECLARE_INLINE_HEADER (int strcasecmp (const char *a, const char *b)) | |
| 1345 { | |
| 867 | 1346 return qxestrcasecmp ((const Ibyte *) a, (const Ibyte *) b); |
| 771 | 1347 } |
| 1348 #endif /* WIN32_NATIVE */ | |
| 442 | 1349 |
| 771 | 1350 /* in nt.c */ |
| 867 | 1351 int mswindows_access (const Ibyte *path, int mode); |
| 3025 | 1352 int mswindows_link (const Ibyte *old, const Ibyte *new_); |
| 867 | 1353 int mswindows_rename (const Ibyte *oldname, const Ibyte *newname); |
| 1354 int mswindows_unlink (const Ibyte *path); | |
| 1355 int mswindows_stat (const Ibyte *path, struct stat *buf); | |
| 771 | 1356 int mswindows_fstat (int desc, struct stat *buf); |
| 1357 time_t mswindows_convert_time (FILETIME ft); | |
| 1204 | 1358 int mswindows_is_executable (const Ibyte *filename); |
| 1359 void mswindows_executable_type (const Ibyte *filename, int *is_dos_app, | |
| 1360 int *is_cygnus_app); | |
| 867 | 1361 Ibyte *mswindows_getdcwd (int drivelet); |
| 771 | 1362 |
| 872 | 1363 /* in process-nt.c */ |
| 771 | 1364 extern int mswindows_compare_env (const void *strp1, const void *strp2); |
| 1365 | |
| 1366 /* in win32.c */ | |
| 814 | 1367 Extbyte *mswindows_get_module_file_name (void); |
| 4932 | 1368 void mswindows_output_last_error (const Ascbyte *frob); |
|
4952
19a72041c5ed
Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents:
4932
diff
changeset
|
1369 DECLARE_DOESNT_RETURN (mswindows_report_process_error (const Ascbyte *reason, |
| 771 | 1370 Lisp_Object data, |
| 1371 int errnum)); | |
| 1372 Lisp_Object mswindows_lisp_error (int errnum); | |
| 2526 | 1373 Ibyte *mswindows_read_link (const Ibyte *fname); |
| 771 | 1374 |
| 872 | 1375 /* in intl-win32.c */ |
| 1376 extern Lisp_Object Qmswindows_tstr, Qmswindows_unicode; | |
| 1377 extern Lisp_Object Qmswindows_multibyte, Qmswindows_multibyte_to_unicode; | |
| 1378 | |
| 442 | 1379 #endif /* INCLUDED_syswindows_h_ */ |