79 строки
2.3 KiB
C
79 строки
2.3 KiB
C
/*
|
|
Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
University Research and Technology
|
|
Corporation. All rights reserved.
|
|
Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
of Tennessee Research Foundation. All rights
|
|
reserved.
|
|
Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
University of Stuttgart. All rights reserved.
|
|
Copyright (c) 2004-2005 The Regents of the University of California.
|
|
All rights reserved.
|
|
$COPYRIGHT$
|
|
|
|
Additional copyrights may follow
|
|
|
|
$HEADER$
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
#include "ompi_utsname.h"
|
|
|
|
#ifdef WIN32
|
|
# define WIN32_LEAN_AND_MEAN
|
|
# include <windows.h>
|
|
# undef WIN32_LEAN_AND_MEAN
|
|
#endif
|
|
|
|
/*
|
|
This has to fill in the following information
|
|
|
|
1. sysname: name of the operating system --
|
|
2. nodename: GetComputerName
|
|
3. release: GetVersionEx
|
|
4. version: GetVersionEx
|
|
5. machine: GetSystemInfo
|
|
*/
|
|
|
|
int uname (struct utsname *un) {
|
|
|
|
/* 1. get the OS name */
|
|
TCHAR env_variable[] = "OS=%OS%";
|
|
DWORD info_buf_count;
|
|
OSVERSIONINFO version_info;
|
|
SYSTEM_INFO sys_info;
|
|
TCHAR info_buf[OMPI_UTSNAME_LEN];
|
|
|
|
info_buf_count = ExpandEnvironmentStrings( env_variable, info_buf, OMPI_UTSNAME_LEN);
|
|
if (0 == info_buf_count) {
|
|
return 1;
|
|
}
|
|
|
|
/* unfortunately, we need to trim the first three characters from un->sysname */
|
|
sprintf (un->sysname,"%s", info_buf+3);
|
|
|
|
info_buf_count = OMPI_UTSNAME_LEN;
|
|
if (!GetComputerName( un->nodename, &info_buf_count)) {
|
|
return 1;
|
|
}
|
|
|
|
version_info.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
|
|
if (!GetVersionEx(&version_info)) {
|
|
return 1;
|
|
} else {
|
|
/* fill in both release and version information */
|
|
sprintf (un->release, "%d.%d.%d", version_info.dwMajorVersion,
|
|
version_info.dwMinorVersion,
|
|
version_info.dwBuildNumber);
|
|
}
|
|
|
|
/* get machine information */
|
|
GetSystemInfo(&sys_info);
|
|
sprintf(un->machine, "%u", sys_info.dwProcessorType);
|
|
|
|
/* version : need to ask Jeff */
|
|
sprintf(un->version, "undefined");
|
|
|
|
return 0;
|
|
}
|