50 #if defined(_WIN32) || defined(__WIN32__) || defined(WIN32) 52 #pragma comment(lib, "ws2_32.lib") 96 std::ostringstream strs;
105 std::string value_str = valtol_str.substr(0,valtol_str.find(
","));
106 value = atof(value_str.c_str());
107 std::string tol_str = valtol_str.substr(valtol_str.find(
",")+1);
108 if(tol_str.find(
",")<=tol_str.length()) {
110 std::string lower_str = tol_str.substr(0,tol_str.find(
","));
111 lower = atof(lower_str.c_str());
112 std::string upper_str = tol_str.substr(tol_str.find(
",")+1);
113 upper = atof(upper_str.c_str());
129 addAttribute<double>(name,val);
133 addAttribute<int>(name,val);
137 addAttribute<bool>(name,val);
141 addAttribute<std::string>(name,val.
as_string());
145 addAttribute<std::string>(name,val);
160 ptr_->appendContentLine(i,str);
201 std::string cpuname(
"Undefined");
202 unsigned int threads = 0;
203 unsigned int cores_per_socket = 0;
204 unsigned int highest_socketid = 0;
207 std::ifstream cpuinfo(
"/proc/cpuinfo");
209 if((cpuinfo.rdstate()&cpuinfo.failbit)) std::cout<<
"Failed to open filen\n";
210 while (!cpuinfo.eof() && !(cpuinfo.rdstate()&cpuinfo.failbit)) {
211 getline (cpuinfo,line);
212 if (line.find(
"model name") < line.size()) {
213 cpuname = line.substr(line.find(
":")+2);
216 if (line.find(
"physical id") < line.size()) {
217 unsigned int socketid = atoi(line.substr(line.find(
":")+2).c_str());
218 highest_socketid = highest_socketid>socketid?highest_socketid:socketid;
220 if (line.find(
"cpu cores") < line.size()) {
221 cores_per_socket = atoi(line.substr(line.find(
":")+2).c_str());
227 XMLTestNode machine_config(
"MachineConfiguration");
231 machine_config.
addString(
"CPU_Name", cpuname);
232 machine_config.
addInt(
"CPU_Sockets", highest_socketid+1);
233 machine_config.
addInt(
"CPU_Cores_Per_Socket", cores_per_socket);
234 machine_config.
addInt(
"CPU_Total_HyperThreads", threads);
235 return machine_config;
242 const std::string ext_hostname)
246 bool is_new_config =
true;
251 if (std::ifstream (
filename.c_str ())) {
257 memset (hostname, 0, 256);
258 if (ext_hostname.empty ()) {
259 gethostname (hostname, 255);
261 strncat (hostname, ext_hostname.c_str (), 255);
277 configuration.
getTag ().compare (
"Configuration") != 0,
278 std::runtime_error,
"Unexpected Tag \"" << configuration.
getTag ()
279 <<
"\"; only children with Tag = \"Configuration\" are allowed in a " 283 ! configuration.
hasChild (
"MachineConfiguration") ||
286 "A Configuration needs to have a child \"MachineConfiguration\" and a " 292 if (machine_configuration.hasSameElements (machine_config)) {
293 is_new_config =
false;
300 int new_test_config = -1;
301 for (
int k = 0; k < old_test.
numChildren (); ++k) {
305 ! old_test_entry.
hasChild (
"TestConfiguration") ||
306 ! new_test_entry.
hasChild (
"TestResults"),
307 std::runtime_error,
"A TestEntry needs to have a child " 308 "\"TestConfiguration\" and a child \"TestResults\".");
315 if (new_test_config < 0) {
319 bool deviation =
false;
325 for (
int old_r = 0; old_r < old_results.
numChildren (); ++old_r) {
335 if((result_entry.
getTag().find(
"Time")==0) || (result_entry.
getTag().find(
"Result")==0)) {
340 double diff = old_valtol.
value - new_valtol.value;
343 double normalization = old_valtol.
value;
344 normalization*=normalization;
346 if(normalization==0?diff>0:diff/normalization>old_valtol.
tolerance*old_valtol.
tolerance) {
348 std::cout << std::endl
349 <<
"DeviationA in Test: \"" << old_test.
getTag()
350 <<
"\" for entry \"" << result_entry.
getTag() <<
"\"" << std::endl;
351 std::cout <<
" Existing Value: \"" << oldv_str <<
"\"" << std::endl;
352 std::cout <<
" New Value: \"" << new_results.
getChild(result_entry.
getTag()).getContentLine(0) <<
"\"" << std::endl << std::endl;
355 if( (old_valtol.
lower>new_valtol.value) || (old_valtol.
upper<new_valtol.value)) {
357 std::cout << std::endl
358 <<
"DeviationB in Test: \"" << old_test.
getTag()
359 <<
"\" for entry \"" << result_entry.
getTag() <<
"\"" << std::endl;
360 std::cout <<
" Existing Value: \"" << oldv_str <<
"\"" << std::endl;
361 std::cout <<
" New Value: \"" << new_results.
getChild(result_entry.
getTag()).getContentLine(0) <<
"\"" << std::endl << std::endl;
366 if(oldv_str.compare(new_results.
getChild(result_entry.
getTag()).getContentLine(0))!=0) {
368 std::cout << std::endl
369 <<
"DeviationC in Test: \"" << old_test.
getTag()
370 <<
"\" for entry \"" << result_entry.
getTag() <<
"\"" << std::endl;
371 std::cout <<
" Existing Value: \"" << oldv_str <<
"\"" << std::endl;
372 std::cout <<
" New Value: \"" << new_results.
getChild(result_entry.
getTag()).getContentLine(0) <<
"\"" << std::endl << std::endl;
378 std::cout <<
"Error New test has same name as an existing one, but one of the old entries is missing." << std::endl;
387 for(
int new_r = 0; new_r < new_results.
numChildren() ; new_r++) {
435 std::ofstream fout(
filename.c_str());
436 fout << database << std::endl;
XMLTestNode getChild(const std::string &name) const
#define TEUCHOS_TEST_FOR_EXCEPTION(throw_exception_test, Exception, msg)
Macro for throwing an exception with breakpointing to ease debugging.
void addChild(const XMLObject &child)
Add a child node to the node.
const XMLObject & getChild(int i) const
Return the i-th child node.
bool hasSameElements(XMLTestNode const &lhs) const
void addDouble(const std::string &name, double val)
const std::string & getContentLine(int i) const
Return the i-th line of character content stored in this node.
ValueTolerance is a struct to keep a tuple of value and a tolerance. The tolerance can be either expr...
void addValueTolerance(const std::string &name, ValueTolerance val)
Tools for an XML-based performance test archive.
void addInt(const std::string &name, int val)
bool isEmpty() const
Find out if a node is empty.
RCP< XMLObjectImplem > ptr_
Representation of an XML data tree. XMLObject is a ref-counted handle to a XMLObjectImplem object...
void appendContentLine(const size_t &i, const std::string &str)
const XMLObject * xml_object() const
#define TEUCHOS_COMPILER_NAME
int numContentLines() const
Return the number of lines of character content stored in this node.
const std::string & getTag() const
Return the tag of the current node.
void from_string(const std::string &valtol_str)
PerfTestResult
ReturnValues for PerfTest_CheckOrAdd_Test.
bool hasChild(const std::string &name) const
void addBool(const std::string &name, bool val)
Subclass of XMLObject used by the performance archive.
void addString(const std::string &name, std::string val)
int numChildren() const
Return the number of child nodes owned by this node.
The XMLObjectImplem class takes care of the low-level implementation details of XMLObject.
bool operator==(ValueTolerance &rhs)
#define TEUCHOS_COMPILER_VERSION
PerfTestResult PerfTest_CheckOrAdd_Test(XMLTestNode machine_config, XMLTestNode new_test, const std::string filename, const std::string ext_hostname)
Check whether a test is present and match an existing test in an archive.
XMLTestNode PerfTest_MachineConfig()
PerfTest_MachineConfig generates a basic machine configuration XMLTestNode.
An object representation of a subset of XML data.