libguile/win32-uname.c

   1 /* Copyright (C) 2001, 2006, 2008 Free Software Foundation, Inc.
   2  *
   3  * This library is free software; you can redistribute it and/or
   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.
   7  *
   8  * This library is distributed in the hope that it will be useful, but
   9  * WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11  * Lesser General Public License for more details.
  12  *
  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
  15  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  16  * 02110-1301 USA
  17  */
  18
  19 #ifdef HAVE_CONFIG_H
  20 # include <config.h>
  21 #endif
  22
  23 #include "libguile/__scm.h"
  24
  25 #include <windows.h>
  26 #include <stdio.h>
  27 #include <string.h>
  28
  29 #include "win32-uname.h"
  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 }