1/*********************************************************************
2 *   Copyright 1993, UCAR/Unidata
3 *   See netcdf/COPYRIGHT file for copying and redistribution conditions.
4 *   $Header: /upc/share/CVS/netcdf-3/nctest/error.c,v 1.8 2004/11/16 21:33:07 russ Exp $
5 *********************************************************************/
6
7#include <stdio.h>
8
9#ifndef NO_STDARG
10#include <stdarg.h>
11#else
12#include <varargs.h>
13#endif
14
15#include <netcdf.h>
16#include "error.h"
17static int error_count = 0;
18
19/*
20 * Use for logging error conditions.
21 */
22#ifndef NO_STDARG
23void
24error(const char *fmt, ...)
25#else
26/*VARARGS1*/
27void
28error(fmtva_alist)
29     const char *fmt ;
30     va_dcl
31#endif
32{
33    va_list args ;
34
35    (void) fprintf(stderr,"*** ");
36
37#ifndef NO_STDARG
38    va_start(argsfmt) ;
39#else
40    va_start(args) ;
41#endif
42    (void) vfprintf(stderr,fmt,args) ;
43    va_end(args) ;
44
45    (void) fprintf(stderr, "\n") ;
46    error_count++;
47}
48
49
50/*
51 * Turn off netCDF library handling of errors.  Caller must check all error
52 * returns after calling this, until on_errs() is called.
53 */
54void
55off_errs()
56{
57    extern int ncopts; /* error options */
58    ncopts &= ~NC_FATAL; /* make errors nonfatal */
59    ncopts &= ~NC_VERBOSE; /* turn off error messages */
60}
61
62
63/*
64 * Let netCDF library handle subsequent errors.  Callers don't need to check
65 * error returns after this.  (This is the initial default.)
66 */
67void
68on_errs()
69{
70    extern int ncopts; /* error options */
71    ncopts |= NC_FATAL; /* make errors fatal */
72    ncopts |= NC_VERBOSE; /* library prints error messages */
73}


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed