1
1
openmpi/ompi/win32/ompi_utsname.c

77 строки
2.2 KiB
C
Исходник Обычный вид История

/*
Copyright (c) 2004-2005 The Trustees of Indiana University.
All rights reserved.
Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
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;
}