Commit | Line | Data |
---|---|---|
dbb605f5 | 1 | /* Copyright (C) 2001, 2006, 2008 Free Software Foundation, Inc. |
8dd6dfdc | 2 | * |
73be1d9e | 3 | * This library is free software; you can redistribute it and/or |
53befeb7 NJ |
4 | * modify it under the terms of the GNU Lesser General Public License |
5 | * as published by the Free Software Foundation; either version 3 of | |
6 | * the License, or (at your option) any later version. | |
8dd6dfdc | 7 | * |
53befeb7 NJ |
8 | * This library is distributed in the hope that it will be useful, but |
9 | * WITHOUT ANY WARRANTY; without even the implied warranty of | |
73be1d9e MV |
10 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
11 | * Lesser General Public License for more details. | |
8dd6dfdc | 12 | * |
73be1d9e MV |
13 | * You should have received a copy of the GNU Lesser General Public |
14 | * License along with this library; if not, write to the Free Software | |
53befeb7 NJ |
15 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
16 | * 02110-1301 USA | |
73be1d9e | 17 | */ |
8dd6dfdc | 18 | |
dbb605f5 LC |
19 | #ifdef HAVE_CONFIG_H |
20 | # include <config.h> | |
21 | #endif | |
22 | ||
8dd6dfdc MV |
23 | #include "libguile/__scm.h" |
24 | ||
25 | #include <windows.h> | |
26 | #include <stdio.h> | |
27 | #include <string.h> | |
28 | ||
1dcb9876 | 29 | #include "win32-uname.h" |
8dd6dfdc MV |
30 | |
31 | /* | |
32 | * Get name and information about current kernel. | |
33 | */ | |
34 | int | |
35 | uname (struct utsname *uts) | |
36 | { | |
37 | enum { WinNT, Win95, Win98, WinUnknown }; | |
38 | OSVERSIONINFO osver; | |
39 | SYSTEM_INFO sysinfo; | |
40 | DWORD sLength; | |
41 | DWORD os = WinUnknown; | |
42 | ||
43 | memset (uts, 0, sizeof (*uts)); | |
44 | ||
45 | osver.dwOSVersionInfoSize = sizeof (osver); | |
46 | GetVersionEx (&osver); | |
47 | GetSystemInfo (&sysinfo); | |
48 | ||
49 | switch (osver.dwPlatformId) | |
50 | { | |
51 | case VER_PLATFORM_WIN32_NT: /* NT, Windows 2000 or Windows XP */ | |
52 | if (osver.dwMajorVersion == 4) | |
53 | strcpy (uts->sysname, "Windows NT4x"); /* NT4x */ | |
54 | else if (osver.dwMajorVersion <= 3) | |
55 | strcpy (uts->sysname, "Windows NT3x"); /* NT3x */ | |
56 | else if (osver.dwMajorVersion == 5 && osver.dwMinorVersion < 1) | |
57 | strcpy (uts->sysname, "Windows 2000"); /* 2k */ | |
58 | else if (osver.dwMajorVersion >= 5) | |
59 | strcpy (uts->sysname, "Windows XP"); /* XP */ | |
60 | os = WinNT; | |
61 | break; | |
62 | ||
63 | case VER_PLATFORM_WIN32_WINDOWS: /* Win95, Win98 or WinME */ | |
64 | if ((osver.dwMajorVersion > 4) || | |
65 | ((osver.dwMajorVersion == 4) && (osver.dwMinorVersion > 0))) | |
66 | { | |
67 | if (osver.dwMinorVersion >= 90) | |
68 | strcpy (uts->sysname, "Windows ME"); /* ME */ | |
69 | else | |
70 | strcpy (uts->sysname, "Windows 98"); /* 98 */ | |
71 | os = Win98; | |
72 | } | |
73 | else | |
74 | { | |
75 | strcpy (uts->sysname, "Windows 95"); /* 95 */ | |
76 | os = Win95; | |
77 | } | |
78 | break; | |
79 | ||
80 | case VER_PLATFORM_WIN32s: /* Windows 3.x */ | |
81 | strcpy (uts->sysname, "Windows"); | |
82 | break; | |
83 | } | |
84 | ||
85 | sprintf (uts->version, "%ld.%02ld", | |
86 | osver.dwMajorVersion, osver.dwMinorVersion); | |
87 | ||
88 | if (osver.szCSDVersion[0] != '\0' && | |
89 | (strlen (osver.szCSDVersion) + strlen (uts->version) + 1) < | |
90 | sizeof (uts->version)) | |
91 | { | |
92 | strcat (uts->version, " "); | |
93 | strcat (uts->version, osver.szCSDVersion); | |
94 | } | |
95 | ||
96 | sprintf (uts->release, "build %ld", osver.dwBuildNumber & 0xFFFF); | |
97 | ||
98 | switch (sysinfo.wProcessorArchitecture) | |
99 | { | |
100 | case PROCESSOR_ARCHITECTURE_PPC: | |
101 | strcpy (uts->machine, "ppc"); | |
102 | break; | |
103 | case PROCESSOR_ARCHITECTURE_ALPHA: | |
104 | strcpy (uts->machine, "alpha"); | |
105 | break; | |
106 | case PROCESSOR_ARCHITECTURE_MIPS: | |
107 | strcpy (uts->machine, "mips"); | |
108 | break; | |
109 | case PROCESSOR_ARCHITECTURE_INTEL: | |
110 | /* | |
111 | * dwProcessorType is only valid in Win95 and Win98 and WinME | |
112 | * wProcessorLevel is only valid in WinNT | |
113 | */ | |
114 | switch (os) | |
115 | { | |
116 | case Win95: | |
117 | case Win98: | |
118 | switch (sysinfo.dwProcessorType) | |
119 | { | |
120 | case PROCESSOR_INTEL_386: | |
121 | case PROCESSOR_INTEL_486: | |
122 | case PROCESSOR_INTEL_PENTIUM: | |
123 | sprintf (uts->machine, "i%ld", sysinfo.dwProcessorType); | |
124 | break; | |
125 | default: | |
126 | strcpy (uts->machine, "i386"); | |
127 | break; | |
128 | } | |
129 | break; | |
130 | case WinNT: | |
131 | sprintf (uts->machine, "i%d86", sysinfo.wProcessorLevel); | |
132 | break; | |
133 | default: | |
134 | strcpy (uts->machine, "unknown"); | |
135 | break; | |
136 | } | |
137 | break; | |
138 | default: | |
139 | strcpy (uts->machine, "unknown"); | |
140 | break; | |
141 | } | |
142 | ||
143 | sLength = sizeof (uts->nodename) - 1; | |
144 | GetComputerName (uts->nodename, &sLength); | |
145 | return 0; | |
146 | } |