1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
/*
* Copyright (C) 2003, Northwestern University and Argonne National Laboratory
* See COPYRIGHT notice in top-level directory.
*
* $Id$
*/
#include <stddef.h> /* because gcc 2.7.2.2 doesn't define size_t */
/* in <stdio.h> and it cannot hurt */
#include <stdio.h>
#include <stdarg.h>
#include <mpi.h>
extern int nfails; /* number of failures in specific test */
extern int max_nmpt; /* max. number of messages per test */
/* Prototypes */
void error(const char *fmt, ...);
void print(const char *fmt, ...);
int ifFail(const int expr, const int line, const char *file, const char *func);
void print_n_size_t(int nelems, const MPI_Offset *array);
/*
* Use for logging error conditions
*/
void
error(const char *fmt, ...)
{
va_list args ;
va_start(args, fmt) ;
if (nfails <= max_nmpt)
(void) vfprintf(stderr,fmt,args) ;
va_end(args) ;
}
/*
* Use for general printing (other than error conditions)
* This also currently goes to stderr, but this could change
*/
void
print(const char *fmt, ...)
{
va_list args ;
va_start(args, fmt) ;
(void) vfprintf(stderr,fmt,args) ;
va_end(args) ;
}
/*
* Called by macro IF
*/
int
ifFail(const int expr, const int line, const char *file, const char *func)
{
if (expr) {
++nfails;
error("\n\tFAILURE at line %d of %s in %s: ", line, func, file);
}
return expr;
}
/* TODO:
* This diagnostic doesn't fit very well with the diagnostic message
* "architecture" of this program.
*/
void
print_n_size_t(int nelems, const MPI_Offset *array)
{
fprintf(stderr, "[");
while(nelems-- > 0)
{
fprintf(stderr, "%ld", (long)*array++);
if(nelems > 0)
fprintf(stderr, " ");
}
fprintf(stderr, "]");
}
|
