2 Copyright (C) 2009-2020 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <https://www.gnu.org/licenses/>. */
20 #include <sys/utsname.h>
22 /* This file provides an implementation only for the native Windows API. */
23 #if defined _WIN32 && ! defined __CYGWIN__
31 /* Mingw headers don't have all the platform codes. */
32 #ifndef VER_PLATFORM_WIN32_CE
33 # define VER_PLATFORM_WIN32_CE 3
36 /* Some headers don't have all the processor architecture codes. */
37 #ifndef PROCESSOR_ARCHITECTURE_AMD64
38 # define PROCESSOR_ARCHITECTURE_AMD64 9
40 #ifndef PROCESSOR_ARCHITECTURE_IA32_ON_WIN64
41 # define PROCESSOR_ARCHITECTURE_IA32_ON_WIN64 10
44 /* Mingw headers don't have the latest processor codes. */
45 #ifndef PROCESSOR_AMD_X8664
46 # define PROCESSOR_AMD_X8664 8664
50 uname (struct utsname
*buf
)
52 OSVERSIONINFO version
;
53 OSVERSIONINFOEX versionex
;
54 BOOL have_versionex
; /* indicates whether versionex is filled */
55 const char *super_version
;
57 /* Preparation: Fill version and, if possible, also versionex.
58 But try to call GetVersionEx only once in the common case. */
59 versionex
.dwOSVersionInfoSize
= sizeof (OSVERSIONINFOEX
);
60 have_versionex
= GetVersionEx ((OSVERSIONINFO
*) &versionex
);
63 /* We know that OSVERSIONINFO is a subset of OSVERSIONINFOEX. */
64 memcpy (&version
, &versionex
, sizeof (OSVERSIONINFO
));
68 version
.dwOSVersionInfoSize
= sizeof (OSVERSIONINFO
);
69 if (!GetVersionEx (&version
))
73 /* Fill in nodename. */
74 if (gethostname (buf
->nodename
, sizeof (buf
->nodename
)) < 0)
75 strcpy (buf
->nodename
, "localhost");
77 /* Determine major-major Windows version. */
78 if (version
.dwPlatformId
== VER_PLATFORM_WIN32_NT
)
80 /* Windows NT or newer. */
83 else if (version
.dwPlatformId
== VER_PLATFORM_WIN32_CE
)
85 /* Windows CE or Embedded CE. */
88 else if (version
.dwPlatformId
== VER_PLATFORM_WIN32_WINDOWS
)
90 /* Windows 95/98/ME. */
91 switch (version
.dwMinorVersion
)
100 super_version
= "ME";
110 /* Fill in sysname. */
112 /* Returns a string compatible with the MSYS uname.exe program,
113 so that no further changes are needed to GNU config.guess.
115 $ ./uname.exe -s => MINGW32_NT-5.1
117 sprintf (buf
->sysname
, "MINGW32_%s-%u.%u", super_version
,
118 (unsigned int) version
.dwMajorVersion
,
119 (unsigned int) version
.dwMinorVersion
);
121 sprintf (buf
->sysname
, "Windows%s", super_version
);
124 /* Fill in release, version. */
125 /* The MSYS uname.exe programs uses strings from a modified Cygwin runtime:
126 $ ./uname.exe -r => 1.0.11(0.46/3/2)
127 $ ./uname.exe -v => 2008-08-25 23:40
128 There is no point in imitating this behaviour. */
129 if (version
.dwPlatformId
== VER_PLATFORM_WIN32_NT
)
131 /* Windows NT or newer. */
132 struct windows_version
136 unsigned int server_offset
;
140 /* Storing the workstation and server version names in a single
141 stream does not waste memory when they are the same. These
142 macros abstract the representation. VERSION1 is used if
143 version.wProductType does not matter, VERSION2 if it does. */
144 #define VERSION1(major, minor, name) \
145 { major, minor, 0, name }
146 #define VERSION2(major, minor, workstation, server) \
147 { major, minor, sizeof workstation, workstation "\0" server }
148 static const struct windows_version versions
[] =
150 VERSION2 (3, -1, "Windows NT Workstation", "Windows NT Server"),
151 VERSION2 (4, -1, "Windows NT Workstation", "Windows NT Server"),
152 VERSION1 (5, 0, "Windows 2000"),
153 VERSION1 (5, 1, "Windows XP"),
154 VERSION1 (5, 2, "Windows Server 2003"),
155 VERSION2 (6, 0, "Windows Vista", "Windows Server 2008"),
156 VERSION2 (6, 1, "Windows 7", "Windows Server 2008 R2"),
157 VERSION2 (-1, -1, "Windows", "Windows Server")
160 const struct windows_version
*v
= versions
;
162 /* Find a version that matches ours. The last element is a
163 wildcard that always ends the loop. */
164 while ((v
->major
!= version
.dwMajorVersion
&& v
->major
!= -1)
165 || (v
->minor
!= version
.dwMinorVersion
&& v
->minor
!= -1))
168 if (have_versionex
&& versionex
.wProductType
!= VER_NT_WORKSTATION
)
169 base
= v
->name
+ v
->server_offset
;
172 if (v
->major
== -1 || v
->minor
== -1)
173 sprintf (buf
->release
, "%s %u.%u",
175 (unsigned int) version
.dwMajorVersion
,
176 (unsigned int) version
.dwMinorVersion
);
178 strcpy (buf
->release
, base
);
180 else if (version
.dwPlatformId
== VER_PLATFORM_WIN32_CE
)
182 /* Windows CE or Embedded CE. */
183 sprintf (buf
->release
, "Windows CE %u.%u",
184 (unsigned int) version
.dwMajorVersion
,
185 (unsigned int) version
.dwMinorVersion
);
189 /* Windows 95/98/ME. */
190 sprintf (buf
->release
, "Windows %s", super_version
);
192 strcpy (buf
->version
, version
.szCSDVersion
);
194 /* Fill in machine. */
198 GetSystemInfo (&info
);
199 /* Check for Windows NT or CE, since the info.wProcessorLevel is
200 garbage on Windows 95. */
201 if (version
.dwPlatformId
== VER_PLATFORM_WIN32_NT
202 || version
.dwPlatformId
== VER_PLATFORM_WIN32_CE
)
204 /* Windows NT or newer, or Windows CE or Embedded CE. */
205 switch (info
.wProcessorArchitecture
)
207 case PROCESSOR_ARCHITECTURE_AMD64
:
208 strcpy (buf
->machine
, "x86_64");
210 case PROCESSOR_ARCHITECTURE_IA64
:
211 strcpy (buf
->machine
, "ia64");
213 case PROCESSOR_ARCHITECTURE_INTEL
:
214 strcpy (buf
->machine
, "i386");
215 if (info
.wProcessorLevel
>= 3)
217 '0' + (info
.wProcessorLevel
<= 6 ? info
.wProcessorLevel
: 6);
219 case PROCESSOR_ARCHITECTURE_IA32_ON_WIN64
:
220 strcpy (buf
->machine
, "i686");
222 case PROCESSOR_ARCHITECTURE_MIPS
:
223 strcpy (buf
->machine
, "mips");
225 case PROCESSOR_ARCHITECTURE_ALPHA
:
226 case PROCESSOR_ARCHITECTURE_ALPHA64
:
227 strcpy (buf
->machine
, "alpha");
229 case PROCESSOR_ARCHITECTURE_PPC
:
230 strcpy (buf
->machine
, "powerpc");
232 case PROCESSOR_ARCHITECTURE_SHX
:
233 strcpy (buf
->machine
, "sh");
235 case PROCESSOR_ARCHITECTURE_ARM
:
236 strcpy (buf
->machine
, "arm");
239 strcpy (buf
->machine
, "unknown");
245 /* Windows 95/98/ME. */
246 switch (info
.dwProcessorType
)
248 case PROCESSOR_AMD_X8664
:
249 strcpy (buf
->machine
, "x86_64");
251 case PROCESSOR_INTEL_IA64
:
252 strcpy (buf
->machine
, "ia64");
255 if (info
.dwProcessorType
% 100 == 86)
256 sprintf (buf
->machine
, "i%u",
257 (unsigned int) info
.dwProcessorType
);
259 strcpy (buf
->machine
, "unknown");