libguile/win32-uname.c

   1 /* Copyright (C) 2001, 2006 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
   5  * License as published by the Free Software Foundation; either
   6  * version 2.1 of the License, or (at your option) any later version.
   7  *
   8  * This library is distributed in the hope that it will be useful,
   9  * but 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 02110-1301 USA
  16  */
  17
  18 #include "libguile/__scm.h"
  19
  20 #include <windows.h>
  21 #include <stdio.h>
  22 #include <string.h>
  23
  24 #include "win32-uname.h"
  25
  26 /*
  27  * Get name and information about current kernel.
  28  */
  29 int
  30 uname (struct utsname *uts)
  31 {
  32   enum { WinNT, Win95, Win98, WinUnknown };
  33   OSVERSIONINFO osver;
  34   SYSTEM_INFO sysinfo;
  35   DWORD sLength;
  36   DWORD os = WinUnknown;
  37
  38   memset (uts, 0, sizeof (*uts));
  39
  40   osver.dwOSVersionInfoSize = sizeof (osver);
  41   GetVersionEx (&osver);
  42   GetSystemInfo (&sysinfo);
  43
  44   switch (osver.dwPlatformId)
  45     {
  46     case VER_PLATFORM_WIN32_NT: /* NT, Windows 2000 or Windows XP */
  47       if (osver.dwMajorVersion == 4)
  48         strcpy (uts->sysname, "Windows NT4x"); /* NT4x */
  49       else if (osver.dwMajorVersion <= 3)
  50         strcpy (uts->sysname, "Windows NT3x"); /* NT3x */
  51       else if (osver.dwMajorVersion == 5 && osver.dwMinorVersion < 1)
  52         strcpy (uts->sysname, "Windows 2000"); /* 2k */
  53       else if (osver.dwMajorVersion >= 5)
  54         strcpy (uts->sysname, "Windows XP");   /* XP */
  55       os = WinNT;
  56       break;
  57
  58     case VER_PLATFORM_WIN32_WINDOWS: /* Win95, Win98 or WinME */
  59       if ((osver.dwMajorVersion > 4) ||
  60           ((osver.dwMajorVersion == 4) && (osver.dwMinorVersion > 0)))
  61         {
  62           if (osver.dwMinorVersion >= 90)
  63             strcpy (uts->sysname, "Windows ME"); /* ME */
  64           else
  65             strcpy (uts->sysname, "Windows 98"); /* 98 */
  66           os = Win98;
  67         }
  68       else
  69         {
  70           strcpy (uts->sysname, "Windows 95"); /* 95 */
  71           os = Win95;
  72         }
  73       break;
  74
  75     case VER_PLATFORM_WIN32s: /* Windows 3.x */
  76       strcpy (uts->sysname, "Windows");
  77       break;
  78     }
  79
  80   sprintf (uts->version, "%ld.%02ld",
  81            osver.dwMajorVersion, osver.dwMinorVersion);
  82
  83   if (osver.szCSDVersion[0] != '\0' &&
  84       (strlen (osver.szCSDVersion) + strlen (uts->version) + 1) <
  85       sizeof (uts->version))
  86     {
  87       strcat (uts->version, " ");
  88       strcat (uts->version, osver.szCSDVersion);
  89     }
  90
  91   sprintf (uts->release, "build %ld", osver.dwBuildNumber & 0xFFFF);
  92
  93   switch (sysinfo.wProcessorArchitecture)
  94     {
  95     case PROCESSOR_ARCHITECTURE_PPC:
  96       strcpy (uts->machine, "ppc");
  97       break;
  98     case PROCESSOR_ARCHITECTURE_ALPHA:
  99       strcpy (uts->machine, "alpha");
 100       break;
 101     case PROCESSOR_ARCHITECTURE_MIPS:
 102       strcpy (uts->machine, "mips");
 103       break;
 104     case PROCESSOR_ARCHITECTURE_INTEL:
 105       /*
 106        * dwProcessorType is only valid in Win95 and Win98 and WinME
 107        * wProcessorLevel is only valid in WinNT
 108        */
 109       switch (os)
 110         {
 111         case Win95:
 112         case Win98:
 113           switch (sysinfo.dwProcessorType)
 114             {
 115             case PROCESSOR_INTEL_386:
 116             case PROCESSOR_INTEL_486:
 117             case PROCESSOR_INTEL_PENTIUM:
 118               sprintf (uts->machine, "i%ld", sysinfo.dwProcessorType);
 119               break;
 120             default:
 121               strcpy (uts->machine, "i386");
 122               break;
 123           }
 124           break;
 125         case WinNT:
 126           sprintf (uts->machine, "i%d86", sysinfo.wProcessorLevel);
 127           break;
 128         default:
 129           strcpy (uts->machine, "unknown");
 130           break;
 131       }
 132       break;
 133     default:
 134       strcpy (uts->machine, "unknown");
 135       break;
 136   }
 137
 138   sLength = sizeof (uts->nodename) - 1;
 139   GetComputerName (uts->nodename, &sLength);
 140   return 0;
 141 }