00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047
00048
00049
00050
00051
00052
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080
00081
00082
00083
00084
00085
00086
00087
00088
00089
00090
00091 #ifndef UVES_ERROR_H
00092 #define UVES_ERROR_H
00093
00094
00098
00101
00102
00103
00104 #include <uves_utils.h>
00105 #include <uves_msg.h>
00106
00107 #if defined CPL_VERSION_CODE && CPL_VERSION_CODE < CPL_VERSION(4, 0, 0)
00108 #include <irplib_error.h>
00109 #endif
00110
00111 #include <cpl_error.h>
00112
00113
00114
00115
00116
00117
00118
00119
00120
00121 #if defined CPL_VERSION_CODE && CPL_VERSION_CODE >= CPL_VERSION(4, 0, 0)
00122
00125 #define assure(BOOL, CODE, ...) \
00126 do { \
00127 cpl_error_ensure(cpl_error_get_code() == CPL_ERROR_NONE, \
00128 cpl_error_get_code(), goto cleanup, \
00129 "An error occurred that was not caught: %s", \
00130 cpl_error_get_where() ); \
00131 cpl_error_ensure(BOOL, CODE, goto cleanup, __VA_ARGS__); \
00132 } while (0)
00133
00135 #define assure_nomsg(BOOL, CODE) \
00136 assure(BOOL, CODE, " ")
00137
00139 #define assure_mem(PTR) \
00140 assure((PTR) != NULL, CPL_ERROR_ILLEGAL_OUTPUT, "Memory allocation failure!")
00141
00142 #define ck0(IEXP, ...) \
00143 assure((IEXP) == 0, CPL_ERROR_UNSPECIFIED, __VA_ARGS__)
00144
00145 #define ck0_nomsg(IEXP) ck0(IEXP, " ")
00146
00147 #define cknull(NULLEXP, ...) \
00148 assure((NULLEXP) != NULL, CPL_ERROR_UNSPECIFIED, __VA_ARGS__)
00149
00150 #define cknull_nomsg(NULLEXP) cknull(NULLEXP, " ")
00151
00152
00154 #define check(CMD, ...) \
00155 assure((uves_msg_softer(), (CMD), uves_msg_louder(), \
00156 cpl_error_get_code() == CPL_ERROR_NONE), \
00157 cpl_error_get_code(), __VA_ARGS__)
00158
00160 #define check_nomsg(CMD) check(CMD, " ")
00161
00163 #define passure(BOOL, ...) \
00164 assure(BOOL, CPL_ERROR_UNSPECIFIED, \
00165 "Internal error. Please report to " PACKAGE_BUGREPORT " " __VA_ARGS__ )
00166
00167
00168
00170 #define uves_error_reset() cpl_error_reset()
00171
00172
00173 #else // if we still test CPL31
00174
00175
00176 #define assure(BOOL, CODE, ...) \
00177 irplib_error_assure(BOOL, CODE, (__VA_ARGS__), goto cleanup)
00178
00180 #define assure_nomsg(BOOL, CODE) \
00181 irplib_error_assure(BOOL, CODE, (" "), goto cleanup)
00182
00184 #define assure_mem(PTR) \
00185 irplib_error_assure((PTR) != NULL, CPL_ERROR_ILLEGAL_OUTPUT, \
00186 ("Memory allocation failure!"), goto cleanup)
00187 #define ck0(IEXP, ...) \
00188 irplib_error_assure(IEXP == 0, CPL_ERROR_UNSPECIFIED, \
00189 (__VA_ARGS__), goto cleanup)
00190
00191 #define ck0_nomsg(IEXP) ck0(IEXP," ")
00192
00193 #define cknull(NULLEXP, ...) \
00194 irplib_error_assure((NULLEXP) != NULL, \
00195 CPL_ERROR_UNSPECIFIED, (__VA_ARGS__), goto cleanup)
00196
00197 #define cknull_nomsg(NULLEXP) cknull(NULLEXP," ")
00198
00199
00201 #define check(CMD, ...) \
00202 irplib_error_assure((uves_msg_softer(), (CMD), uves_msg_louder(), \
00203 cpl_error_get_code() == CPL_ERROR_NONE), \
00204 cpl_error_get_code(), (__VA_ARGS__), goto cleanup)
00205
00207 #define check_nomsg(CMD) check(CMD, " ")
00208
00210 #define passure(BOOL, ...) \
00211 irplib_error_assure(BOOL, CPL_ERROR_UNSPECIFIED, \
00212 ("Internal error. Please report to " \
00213 PACKAGE_BUGREPORT " " __VA_ARGS__), goto cleanup)
00214
00215
00216
00218 #define uves_error_reset() \
00219 irplib_error_reset()
00220
00222 #define uves_error_dump() \
00223 irplib_error_dump(CPL_MSG_ERROR, CPL_MSG_ERROR)
00224
00225 #endif //end check on CPL version
00226
00235
00502
00503
00504 #endif
00505
00506
00507
00508
00509
00510
00511
00512
00513
00514
00515
00516
00517
00518
00519
00520
00521
00522
00523
00524
00525
00526
00527