|
111
|
1 /****************************************************************************
|
|
|
2 * *
|
|
|
3 * GNAT COMPILER COMPONENTS *
|
|
|
4 * *
|
|
|
5 * M I N G W 3 2 *
|
|
|
6 * *
|
|
|
7 * C Header File *
|
|
|
8 * *
|
|
131
|
9 * Copyright (C) 2002-2018, Free Software Foundation, Inc. *
|
|
111
|
10 * *
|
|
|
11 * GNAT is free software; you can redistribute it and/or modify it under *
|
|
|
12 * terms of the GNU General Public License as published by the Free Soft- *
|
|
|
13 * ware Foundation; either version 3, or (at your option) any later ver- *
|
|
|
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
|
|
|
15 * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
|
|
|
16 * or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
|
17 * *
|
|
|
18 * As a special exception under Section 7 of GPL version 3, you are granted *
|
|
|
19 * additional permissions described in the GCC Runtime Library Exception, *
|
|
|
20 * version 3.1, as published by the Free Software Foundation. *
|
|
|
21 * *
|
|
|
22 * You should have received a copy of the GNU General Public License and *
|
|
|
23 * a copy of the GCC Runtime Library Exception along with this program; *
|
|
|
24 * see the files COPYING3 and COPYING.RUNTIME respectively. If not, see *
|
|
|
25 * <http://www.gnu.org/licenses/>. *
|
|
|
26 * *
|
|
|
27 * GNAT was originally developed by the GNAT team at New York University. *
|
|
|
28 * Extensive contributions were provided by Ada Core Technologies Inc. *
|
|
|
29 * *
|
|
|
30 ****************************************************************************/
|
|
|
31
|
|
|
32 /* This file provides some macros used for the MINGW32 platform. The main
|
|
|
33 goal is to be able to build GNAT with a standard MINGW32 C header
|
|
|
34 set. This files contains also the circuitry for the unicode support. */
|
|
|
35
|
|
|
36 #ifndef _MINGW32_H
|
|
|
37 #define _MINGW32_H
|
|
|
38
|
|
|
39 #include <_mingw.h>
|
|
|
40
|
|
|
41 #ifndef RTX
|
|
|
42 #define GNAT_UNICODE_SUPPORT
|
|
|
43 #define _UNICODE /* For C runtime */
|
|
|
44 #define UNICODE /* For Win32 API */
|
|
|
45 #endif
|
|
|
46
|
|
|
47 /* We need functionality available only starting with Windows XP */
|
|
|
48 #ifndef _WIN32_WINNT
|
|
|
49 #define _WIN32_WINNT 0x0501
|
|
|
50 #endif
|
|
|
51
|
|
|
52 #ifndef __CYGWIN__
|
|
|
53 #include <tchar.h>
|
|
|
54 #endif
|
|
|
55 #if defined (__CYGWIN__) && !defined (__CYGWIN32__) && !defined (IN_RTS)
|
|
|
56 /* Note: windows.h on cygwin-64 includes x86intrin.h which uses malloc.
|
|
|
57 That fails to compile, if malloc is poisoned, i.e. if !IN_RTS. */
|
|
|
58 #define _X86INTRIN_H_INCLUDED
|
|
|
59 #endif
|
|
|
60 #include <windows.h>
|
|
|
61
|
|
|
62 /* After including this file it is possible to use the character t as prefix
|
|
|
63 to routines. If GNAT_UNICODE_SUPPORT is defined then the unicode enabled
|
|
|
64 versions will be used. */
|
|
|
65
|
|
|
66 /* Copy to/from wide-string, if GNAT_UNICODE_SUPPORT activated this will do
|
|
|
67 the proper translations using the UTF-8 encoding. */
|
|
|
68
|
|
|
69 #ifdef GNAT_UNICODE_SUPPORT
|
|
|
70
|
|
|
71 extern UINT __gnat_current_codepage;
|
|
|
72 extern UINT __gnat_current_ccs_encoding;
|
|
|
73
|
|
|
74 /* Macros to convert to/from the code page specified in
|
|
|
75 __gnat_current_codepage. */
|
|
|
76 #define S2WSC(wstr,str,len) \
|
|
|
77 MultiByteToWideChar (__gnat_current_codepage,0,str,-1,wstr,len)
|
|
|
78 #define WS2SC(str,wstr,len) \
|
|
|
79 WideCharToMultiByte (__gnat_current_codepage,0,wstr,-1,str,len,NULL,NULL)
|
|
|
80
|
|
|
81 /* Macros to convert to/from UTF-8 code page. */
|
|
|
82 #define S2WSU(wstr,str,len) \
|
|
|
83 MultiByteToWideChar (CP_UTF8,0,str,-1,wstr,len)
|
|
|
84 #define WS2SU(str,wstr,len) \
|
|
|
85 WideCharToMultiByte (CP_UTF8,0,wstr,-1,str,len,NULL,NULL)
|
|
|
86
|
|
|
87 /* Macros to convert to/from Windows default code page. */
|
|
|
88 #define S2WS(wstr,str,len) \
|
|
|
89 MultiByteToWideChar (CP_ACP,0,str,-1,wstr,len)
|
|
|
90 #define WS2S(str,wstr,len) \
|
|
|
91 WideCharToMultiByte (CP_ACP,0,wstr,-1,str,len,NULL,NULL)
|
|
|
92 #else
|
|
|
93 #define S2WSC(wstr,str,len) strncpy(wstr,str,len)
|
|
|
94 #define WS2SC(str,wstr,len) strncpy(str,wstr,len)
|
|
|
95 #define S2WSU(wstr,str,len) strncpy(wstr,str,len)
|
|
|
96 #define WS2SU(str,wstr,len) strncpy(str,wstr,len)
|
|
|
97 #define S2WS(wstr,str,len) strncpy(wstr,str,len)
|
|
|
98 #define WS2S(str,wstr,len) strncpy(str,wstr,len)
|
|
|
99 #endif
|
|
|
100
|
|
|
101 #include <stdlib.h>
|
|
|
102
|
|
|
103 /* STD_MINGW: standard if MINGW32 version > 1.3, we have switched to this
|
|
|
104 version instead of the previous enhanced version to ease building GNAT on
|
|
|
105 Windows platforms. By using STD_MINGW or OLD_MINGW it is possible to build
|
|
|
106 GNAT using both MingW include files (Old MingW + ACT changes and standard
|
|
|
107 MingW starting with version 1.3.
|
|
|
108 For w64 Mingw the define STD_MINGW is always set to value 1, because
|
|
|
109 there is no old header set present. */
|
|
|
110 #ifdef _WIN64
|
|
|
111 #define STD_MINGW 1
|
|
|
112 #else
|
|
|
113 #define STD_MINGW ((__MINGW32_MAJOR_VERSION == 1 \
|
|
|
114 && __MINGW32_MINOR_VERSION >= 3) \
|
|
|
115 || (__MINGW32_MAJOR_VERSION >= 2))
|
|
|
116 #endif
|
|
|
117
|
|
|
118 #define OLD_MINGW (!(STD_MINGW))
|
|
|
119
|
|
|
120 #ifndef MAXPATHLEN
|
|
|
121 #define MAXPATHLEN MAX_PATH
|
|
|
122 #endif
|
|
|
123
|
|
|
124 #endif /* _MINGW32_H */
|
