2012-05-02 16:46:10 +04:00
|
|
|
/*============================================================================
|
|
|
|
KWSys - Kitware System Library
|
|
|
|
Copyright 2000-2009 Kitware, Inc., Insight Software Consortium
|
|
|
|
|
|
|
|
Distributed under the OSI-approved BSD License (the "License");
|
|
|
|
see accompanying file Copyright.txt for details.
|
|
|
|
|
|
|
|
This software is distributed WITHOUT ANY WARRANTY; without even the
|
|
|
|
implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
See the License for more information.
|
|
|
|
============================================================================*/
|
|
|
|
#include "kwsysPrivate.h"
|
|
|
|
#include KWSYS_HEADER(SystemInformation.hxx)
|
|
|
|
#include KWSYS_HEADER(ios/iostream)
|
|
|
|
|
|
|
|
// Work-around CMake dependency scanning limitation. This must
|
|
|
|
// duplicate the above list of headers.
|
|
|
|
#if 0
|
|
|
|
# include "SystemInformation.hxx.in"
|
|
|
|
# include "kwsys_ios_iostream.h.in"
|
|
|
|
#endif
|
|
|
|
|
2012-10-17 01:12:23 +04:00
|
|
|
#if defined(KWSYS_USE_LONG_LONG)
|
|
|
|
# if defined(KWSYS_IOS_HAS_OSTREAM_LONG_LONG)
|
|
|
|
# define iostreamLongLong(x) (x)
|
|
|
|
# else
|
|
|
|
# define iostreamLongLong(x) ((long)x)
|
|
|
|
# endif
|
|
|
|
#elif defined(KWSYS_USE___INT64)
|
|
|
|
# if defined(KWSYS_IOS_HAS_OSTREAM___INT64)
|
|
|
|
# define iostreamLongLong(x) (x)
|
|
|
|
# else
|
|
|
|
# define iostreamLongLong(x) ((long)x)
|
|
|
|
# endif
|
|
|
|
#else
|
|
|
|
# error "No Long Long"
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#define printMethod(info, m) kwsys_ios::cout << #m << ": " \
|
2012-05-02 16:46:10 +04:00
|
|
|
<< info.m() << "\n"
|
|
|
|
|
2012-10-17 01:12:23 +04:00
|
|
|
#define printMethod2(info, m, unit) kwsys_ios::cout << #m << ": " \
|
2012-05-02 16:46:10 +04:00
|
|
|
<< info.m() << " " << unit << "\n"
|
|
|
|
|
2012-10-17 01:12:23 +04:00
|
|
|
#define printMethod3(info, m, unit) kwsys_ios::cout << #m << ": " \
|
|
|
|
<< iostreamLongLong(info.m) << " " << unit << "\n"
|
|
|
|
|
2012-05-02 16:46:10 +04:00
|
|
|
int testSystemInformation(int, char*[])
|
|
|
|
{
|
2013-01-07 19:20:26 +04:00
|
|
|
kwsys_ios::cout << "CTEST_FULL_OUTPUT\n"; // avoid truncation
|
|
|
|
|
2012-05-02 16:46:10 +04:00
|
|
|
kwsys::SystemInformation info;
|
|
|
|
info.RunCPUCheck();
|
|
|
|
info.RunOSCheck();
|
|
|
|
info.RunMemoryCheck();
|
|
|
|
printMethod(info, GetOSName);
|
2012-10-17 01:12:23 +04:00
|
|
|
printMethod(info, GetOSIsLinux);
|
|
|
|
printMethod(info, GetOSIsApple);
|
|
|
|
printMethod(info, GetOSIsWindows);
|
2012-05-02 16:46:10 +04:00
|
|
|
printMethod(info, GetHostname);
|
2012-10-17 01:12:23 +04:00
|
|
|
printMethod(info, GetFullyQualifiedDomainName);
|
2012-05-02 16:46:10 +04:00
|
|
|
printMethod(info, GetOSRelease);
|
|
|
|
printMethod(info, GetOSVersion);
|
|
|
|
printMethod(info, GetOSPlatform);
|
|
|
|
printMethod(info, GetVendorString);
|
|
|
|
printMethod(info, GetVendorID);
|
|
|
|
printMethod(info, GetTypeID);
|
|
|
|
printMethod(info, GetFamilyID);
|
|
|
|
printMethod(info, GetModelID);
|
|
|
|
printMethod(info, GetExtendedProcessorName);
|
2012-12-19 17:02:08 +04:00
|
|
|
printMethod(info, GetSteppingCode);
|
2012-05-02 16:46:10 +04:00
|
|
|
printMethod(info, GetProcessorSerialNumber);
|
|
|
|
printMethod2(info, GetProcessorCacheSize, "KB");
|
|
|
|
printMethod(info, GetLogicalProcessorsPerPhysical);
|
|
|
|
printMethod2(info, GetProcessorClockFrequency, "MHz");
|
|
|
|
printMethod(info, Is64Bits);
|
|
|
|
printMethod(info, GetNumberOfLogicalCPU);
|
|
|
|
printMethod(info, GetNumberOfPhysicalCPU);
|
|
|
|
printMethod(info, DoesCPUSupportCPUID);
|
|
|
|
printMethod(info, GetProcessorAPICID);
|
|
|
|
printMethod2(info, GetTotalVirtualMemory, "MB");
|
|
|
|
printMethod2(info, GetAvailableVirtualMemory, "MB");
|
|
|
|
printMethod2(info, GetTotalPhysicalMemory, "MB");
|
|
|
|
printMethod2(info, GetAvailablePhysicalMemory, "MB");
|
2012-10-17 01:12:23 +04:00
|
|
|
printMethod3(info, GetHostMemoryTotal(), "KiB");
|
|
|
|
printMethod3(info, GetHostMemoryAvailable("KWSHL"), "KiB");
|
|
|
|
printMethod3(info, GetProcMemoryAvailable("KWSHL","KWSPL"), "KiB");
|
|
|
|
printMethod3(info, GetHostMemoryUsed(), "KiB");
|
|
|
|
printMethod3(info, GetProcMemoryUsed(), "KiB");
|
2015-06-03 21:25:01 +03:00
|
|
|
printMethod(info, GetLoadAverage);
|
2012-05-02 16:46:10 +04:00
|
|
|
|
2013-05-29 16:55:14 +04:00
|
|
|
for (long int i = 0; i <= 31; i++)
|
2013-01-07 19:20:26 +04:00
|
|
|
{
|
2013-05-29 16:55:14 +04:00
|
|
|
if (info.DoesCPUSupportFeature(static_cast<long int>(1) << i))
|
2013-01-07 19:20:26 +04:00
|
|
|
{
|
|
|
|
kwsys_ios::cout << "CPU feature " << i << "\n";
|
|
|
|
}
|
|
|
|
}
|
2013-08-06 17:10:11 +04:00
|
|
|
|
|
|
|
/* test stack trace
|
|
|
|
*/
|
|
|
|
kwsys_ios::cout
|
|
|
|
<< "Program Stack:" << kwsys_ios::endl
|
|
|
|
<< kwsys::SystemInformation::GetProgramStack(0,0) << kwsys_ios::endl
|
|
|
|
<< kwsys_ios::endl;
|
|
|
|
|
|
|
|
/* test segv handler
|
|
|
|
info.SetStackTraceOnError(1);
|
|
|
|
double *d = (double*)100;
|
|
|
|
*d=0;
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* test abort handler
|
|
|
|
info.SetStackTraceOnError(1);
|
|
|
|
abort();
|
|
|
|
*/
|
|
|
|
|
2012-05-02 16:46:10 +04:00
|
|
|
return 0;
|
|
|
|
}
|