1/*********************************************************************
2 *   Copyright 1993, UCAR/Unidata
3 *   See netcdf/COPYRIGHT file for copying and redistribution conditions.
4 *********************************************************************/
5#include "config.h"
6#include <stdarg.h>
7#include <stdio.h>
8
9#include "nclog.h"
10#include "ncdap.h"
11
12int ncdap3debug = 0;
13
14#ifdef CATCHERROR
15/* Place breakpoint here to catch errors close to where they occur*/
16int
17dapbreakpoint(int err) {return err;}
18
19int
20dapthrow(int err)
21{
22    if(err == 0) return err;
23    return dapbreakpoint(err);
24}
25#endif
26
27int
28dappanic(const char* fmt, ...)
29{
30    va_list args;
31    if(fmt != NULL) {
32      va_start(argsfmt);
33      vfprintf(stderrfmtargs);
34      fprintf(stderr, "\n" );
35      va_end( args );
36    } else {
37      fprintf(stderr, "panic" );
38    }
39    fprintf(stderr, "\n" );
40    fflush(stderr);
41    return 0;
42}
43
44/*
45Provide a way to print the oc full name for
46an ocnode
47*/
48
49char*
50ocfqn(OCddsnode node)
51{
52    OClink conn;
53    oc_get_connection(node,&conn);
54    return makeocpathstring(conn,node,".");
55}


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