new module 'uname'

[Bruno Haible]

Here is the proposed 'uname' module. On mingw it produces values like
the following:

uname -n = nodename       = pusillus
uname -s = sysname        = MINGW32_NT-5.1
uname -r = release        = Windows XP
uname -v = version        = Service Pack 3
uname -m = machine or cpu = i686

The nodename result is the same as gethostname().

The sysname result is chosen in a way compatible with the msys uname.exe,
so that config.guess will work fine when used with coreutils uname.exe.

The release and version fields are human-readable.

Bruno


2009-08-02  Bruno Haible  <address@hidden>

        New module 'uname'.
        * lib/uname.c: New file.
        * m4/uname.m4: New file.
        * modules/uname: New file.
        * doc/posix-functions/uname.texi: Mention the new module.

================================= lib/uname.c =================================
/* uname replacement.
   Copyright (C) 2009 Free Software Foundation, Inc.

   This program is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

#include <config.h>

/* Specification.  */
#include <sys/utsname.h>

/* This file provides an implementation only for the native Windows API.  */
#if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__

#include <stdio.h>
#include <unistd.h>
#include <windows.h>

/* Mingw headers don't have latest processor codes.  */
#ifndef PROCESSOR_AMD_X8664
# define PROCESSOR_AMD_X8664 8664
#endif

int
uname (struct utsname *buf)
{
  OSVERSIONINFO version;
  BOOL have_version;
  const char *super_version;

  /* Fill in nodename.  */
  if (gethostname (buf->nodename, sizeof (buf->nodename)) < 0)
    strcpy (buf->nodename, "localhost");

  /* Determine major-major Windows version.  */
  version.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
  have_version = GetVersionEx (&version);
  if (have_version)
    {
      if (version.dwPlatformId == VER_PLATFORM_WIN32_NT)
        {
          /* Windows NT or newer.  */
          super_version = "NT";
        }
      else if (version.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS)
        {
          /* Windows 95/98/ME.  */
          switch (version.dwMinorVersion)
            {
            case 0:
              super_version = "95";
              break;
            case 10:
              super_version = "98";
              break;
            case 90:
              super_version = "ME";
              break;
            default:
              super_version = "";
              break;
            }
        }
      else
        super_version = "";
    }
  else
    super_version = "";

  /* Fill in sysname.  */
#ifdef __MINGW32__
  /* Returns a string compatible with the MSYS uname.exe program,
     so that no further changes are needed to GNU config.guess.
     For example,
       $ ./uname.exe -s      => MINGW32_NT-5.1
   */
  if (have_version)
    sprintf (buf->sysname, "MINGW32_%s-%u.%u", super_version,
             (unsigned int) version.dwMajorVersion,
             (unsigned int) version.dwMinorVersion);
  else
    strcpy (buf->sysname, "MINGW32");
#else
  if (have_version)
    sprintf (buf->sysname, "Windows%s", super_version);
  else
    strcpy (buf->sysname, "Windows");
#endif

  /* Fill in release, version.  */
  /* The MSYS uname.exe programs uses strings from a modified Cygwin runtime:
       $ ./uname.exe -r      => 1.0.11(0.46/3/2)
       $ ./uname.exe -v      => 2008-08-25 23:40
     There is no point in imitating this behaviour.  */
  if (have_version)
    {
      if (version.dwPlatformId == VER_PLATFORM_WIN32_NT)
        {
          /* Windows NT or newer.  */
          if (version.dwMajorVersion <= 4)
            sprintf (buf->release, "Windows NT %u.%u",
                     (unsigned int) version.dwMajorVersion,
                     (unsigned int) version.dwMinorVersion);
          else if (version.dwMajorVersion == 5)
            switch (version.dwMinorVersion)
              {
              case 0:
                strcpy (buf->release, "Windows 2000");
                break;
              case 1:
                strcpy (buf->release, "Windows XP");
                break;
              case 2:
                strcpy (buf->release, "Windows Server 2003");
                break;
              default:
                strcpy (buf->release, "Windows");
                break;
              }
          else if (version.dwMajorVersion == 6)
            {
              OSVERSIONINFOEX versionex;

              versionex.dwOSVersionInfoSize = sizeof (OSVERSIONINFOEX);
              if (GetVersionEx ((OSVERSIONINFO *) &versionex)
                  && versionex.wProductType != VER_NT_WORKSTATION)
                strcpy (buf->release, "Windows Server 2008");
              else
                switch (version.dwMinorVersion)
                  {
                  case 0:
                    strcpy (buf->release, "Windows Vista");
                    break;
                  case 1:
                  default: /* versions not yet known */
                    strcpy (buf->release, "Windows 7");
                    break;
                  }
            }
          else
            strcpy (buf->release, "Windows");
        }
      else
        {
          /* Windows 95/98/ME.  */
          sprintf (buf->release, "Windows %s", super_version);
        }
      strcpy (buf->version, version.szCSDVersion);
    }
  else
    {
      strcpy (buf->release, "Windows");
      strcpy (buf->version, "");
    }

  /* Fill in machine.  */
  {
    SYSTEM_INFO info;

    GetSystemInfo (&info);
    /* Check for Windows NT, since the info.wProcessorLevel is
       garbage on Windows 95. */
    if (have_version && version.dwPlatformId == VER_PLATFORM_WIN32_NT)
      {
        /* Windows NT or newer.  */
        switch (info.wProcessorArchitecture)
          {
          case PROCESSOR_ARCHITECTURE_AMD64:
            strcpy (buf->machine, "x86_64");
            break;
          case PROCESSOR_ARCHITECTURE_IA64:
            strcpy (buf->machine, "ia64");
            break;
          case PROCESSOR_ARCHITECTURE_INTEL:
            strcpy (buf->machine, "i386");
            if (info.wProcessorLevel >= 3)
              buf->machine[1] =
                '0' + (info.wProcessorLevel <= 6 ? info.wProcessorLevel : 6);
            break;
          default:
            strcpy (buf->machine, "unknown");
            break;
          }
      }
    else
      {
        /* Windows 95/98/ME.  */
        switch (info.dwProcessorType)
          {
          case PROCESSOR_AMD_X8664:
            strcpy (buf->machine, "x86_64");
            break;
          case PROCESSOR_INTEL_IA64:
            strcpy (buf->machine, "ia64");
            break;
          default:
            if (info.dwProcessorType % 100 == 86)
              sprintf (buf->machine, "i%u",
                       (unsigned int) info.dwProcessorType);
            else
              strcpy (buf->machine, "unknown");
            break;
          }
      }
  }

  return 0;
}

#endif
================================= m4/uname.m4 =================================
# uname.m4 serial 10
dnl Copyright (C) 2009 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
dnl with or without modifications, as long as this notice is preserved.

AC_DEFUN([gl_FUNC_UNAME],
[
  AC_REQUIRE([gl_SYS_UTSNAME_H_DEFAULTS])
  AC_REPLACE_FUNCS([uname])
  if test $ac_cv_func_uname = no; then
    HAVE_UNAME=0
    gl_PREREQ_UNAME
  fi
])

# Prerequisites of lib/uname.c.
AC_DEFUN([gl_PREREQ_UNAME], [
  :
])
================================ modules/uname ================================
Description:
uname() function: enquire system information.

Files:
lib/uname.c
m4/uname.m4

Depends-on:
sys_utsname
gethostname

configure.ac:
gl_FUNC_UNAME
gl_SYS_UTSNAME_MODULE_INDICATOR([uname])

Makefile.am:

Include:
<sys/utsname.h>

Link:
$(GETHOSTNAME_LIB)

License:
LGPLv2+

Maintainer:
Bruno Haible