1/* Copyright 2009, UCAR/Unidata and OPeNDAP, Inc.
2   See the COPYRIGHT file for more information. */
3
4#include "config.h"
5#ifdef HAVE_STDARG_H
6#include <stdarg.h>
7#endif
8#include "ocinternal.h"
9#include "ocdebug.h"
10
11int ocdebug;
12
13#ifdef OCCATCHERROR
14/* Place breakpoint here to catch errors close to where they occur*/
15OCerror
16ocbreakpoint(OCerror err) {return err;}
17
18OCerror
19occatch(OCerror err)
20{
21    if(err == 0) return err;
22    return ocbreakpoint(err);
23}
24#endif
25
26int
27xxdrerror(void)
28{
29    oclog(OCLOGERR,"xdr failure");
30    return OCCATCH(OC_EDATADDS);
31}
32
33
34void*
35occalloc(size_t size, size_t nelems)
36{
37    return ocmalloc(size*nelems);
38}
39
40void*
41ocmalloc(size_t size)
42{
43    void* memory = calloc(size,1); /* use calloc to zero memory*/
44    if(memory == NULLoclog(OCLOGERR,"ocmalloc: out of memory");
45    return memory;
46}
47
48void
49ocfree(void* mem)
50{
51    if(mem != NULL) free(mem);
52}
53
54int
55ocpanic(const char* fmt, ...)
56{
57    va_list args;
58    if(fmt != NULL) {
59      va_start(argsfmt);
60      vfprintf(stderrfmtargs);
61      fprintf(stderr, "\n" );
62      va_end( args );
63    } else {
64      fprintf(stderr, "panic" );
65    }
66    fprintf(stderr, "\n" );
67    fflush(stderr);
68    return 0;
69}
70
71CURLcode
72ocreportcurlerror(OCstatestateCURLcode cstat)
73{
74    if(cstat != CURLE_OK) {
75        fprintf(stderr,"CURL Error: %s",curl_easy_strerror(cstat));
76 if(state != NULL)
77            fprintf(stderr," ; %s",state->error.curlerrorbuf);
78        fprintf(stderr,"\n");
79    }
80    fflush(stderr);
81    return cstat;
82}


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