File: error4.c

package info (click to toggle)
netcdf 1:4.7.4-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 104,952 kB
  • sloc: ansic: 228,683; sh: 10,980; yacc: 2,561; makefile: 1,319; lex: 1,173; xml: 173; awk: 2
file content (79 lines) | stat: -rw-r--r-- 1,986 bytes parent folder | download | duplicates (2)
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
/*! \file

  Copyright 2003-2018, University Corporation for Atmospheric
  Research. See netcdf-4/docs/COPYRIGHT file for copying and
  redistribution conditions. */
/**
 * @file @internal This file is part of netcdf-4, a netCDF-like
 * interface for HDF5, or a HDF5 backend for netCDF, depending on your
 * point of view.
 *
 * This file contains functions relating to logging errors. Also it
 * contains the functions nc_malloc, nc_calloc, and nc_free.
 *
 * @author Ed Hartnett
 */

#include "config.h"
#include <stdarg.h>
#include <stdlib.h>
#include <stdio.h>
#include "assert.h"
#ifdef USE_HDF5
#include <hdf5.h>
#endif /* USE_HDF5 */

/* This contents of this file get skipped if LOGGING is not defined
 * during compile. */
#ifdef LOGGING

extern int nc_log_level;

/* This function prints out a message, if the severity of the message
   is lower than the global nc_log_level. To use it, do something like
   this:

   nc_log(0, "this computer will explode in %d seconds", i);

   After the first arg (the severity), use the rest like a normal
   printf statement. Output will appear on stderr.

   This function is heavily based on the function in section 15.5 of
   the C FAQ. */
void
nc_log(int severity, const char *fmt, ...)
{
    va_list argp;
    int t;

    /* If the severity is greater than the log level, we don' care to
       print this message. */
    if (severity > nc_log_level)
        return;

    /* If the severity is zero, this is an error. Otherwise insert that
       many tabs before the message. */
    if (!severity)
        fprintf(stderr, "ERROR: ");
    for (t=0; t<severity; t++)
        fprintf(stderr, "\t");

    /* Print out the variable list of args with vprintf. */
    va_start(argp, fmt);
    vfprintf(stderr, fmt, argp);
    va_end(argp);

    /* Put on a final linefeed. */
    fprintf(stderr, "\n");
    fflush(stderr);
}

void
nc_log_hdf5(void)
{
#ifdef USE_HDF5
    H5Eprint(NULL);
#endif /* USE_HDF5 */
}

#endif /* ifdef LOGGING */