1/*********************************************************************
2 *   Copyright 1993, UCAR/Unidata
3 *   See netcdf/COPYRIGHT file for copying and redistribution conditions.
4 *********************************************************************/
5
6#include "ncdap.h"
7
8NCerror
9ocerrtoncerr(OCerror ocerr)
10{
11    if(ocerr > 0) return ocerr; /* really a system error*/
12    switch (ocerr) {
13    case OC_NOERR:   return NC_NOERR;
14    case OC_EBADID:   return NC_EBADID;
15    case OC_ECHAR:   return NC_ECHAR;
16    case OC_EDIMSIZE:   return NC_EDIMSIZE;
17    case OC_EEDGE:   return NC_EEDGE;
18    case OC_EINVAL:   return NC_EINVAL;
19    case OC_EINVALCOORDS: return NC_EINVALCOORDS;
20    case OC_ENOMEM:   return NC_ENOMEM;
21    case OC_ENOTVAR:   return NC_ENOTVAR;
22    case OC_EPERM:   return NC_EPERM;
23    case OC_ESTRIDE:   return NC_ESTRIDE;
24    case OC_EDAP:   return NC_EDAP;
25    case OC_EXDR:   return NC_EDAP;
26    case OC_ECURL:   return NC_EIO;
27    case OC_EBADURL:   return NC_EDAPURL;
28    case OC_EBADVAR:   return NC_EDAP;
29    case OC_EOPEN:   return NC_EIO;
30    case OC_EIO:   return NC_EIO;
31    case OC_ENODATA:   return NC_ENODATA;
32    case OC_EDAPSVC:   return NC_EDAPSVC;
33    case OC_ENAMEINUSE:   return NC_ENAMEINUSE;
34    case OC_EDAS:   return NC_EDAS;
35    case OC_EDDS:   return NC_EDDS;
36    case OC_EDATADDS:   return NC_EDATADDS;
37    case OC_ERCFILE:   return NC_EDAP;
38    case OC_ENOFILE:   return NC_ECANTREAD;
39    default: break;
40    }
41    return NC_EDAP; /* default;*/
42}


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