1 /*M///////////////////////////////////////////////////////////////////////////////////////
2 //
3 //  IMPORTANT: READ BEFORE DOWNLOADING, COPYING, INSTALLING OR USING.
4 //
5 //  By downloading, copying, installing or using the software you agree to this license.
6 //  If you do not agree to this license, do not download, install,
7 //  copy or use the software.
8 //
9 //
10 //            Intel License Agreement
11 //        For Open Source Computer Vision Library
12 //
13 // Copyright (C) 2000, Intel Corporation, all rights reserved.
14 // Third party copyrights are property of their respective owners.
15 //
16 // Redistribution and use in source and binary forms, with or without modification,
17 // are permitted provided that the following conditions are met:
18 //
19 //   * Redistribution's of source code must retain the above copyright notice,
20 //     this list of conditions and the following disclaimer.
21 //
22 //   * Redistribution's in binary form must reproduce the above copyright notice,
23 //     this list of conditions and the following disclaimer in the documentation
24 //     and/or other materials provided with the distribution.
25 //
26 //   * The name of Intel Corporation may not be used to endorse or promote products
27 //     derived from this software without specific prior written permission.
28 //
29 // This software is provided by the copyright holders and contributors "as is" and
30 // any express or implied warranties, including, but not limited to, the implied
31 // warranties of merchantability and fitness for a particular purpose are disclaimed.
32 // In no event shall the Intel Corporation or contributors be liable for any direct,
33 // indirect, incidental, special, exemplary, or consequential damages
34 // (including, but not limited to, procurement of substitute goods or services;
35 // loss of use, data, or profits; or business interruption) however caused
36 // and on any theory of liability, whether in contract, strict liability,
37 // or tort (including negligence or otherwise) arising in any way out of
38 // the use of this software, even if advised of the possibility of such damage.
39 //
40 //M*/
41 
42 #include "_cxcore.h"
43 
44 #if defined WIN32 || defined WIN64
45 #include <windows.h>
46 #else
47 #include <pthread.h>
48 #endif
49 
50 typedef struct
51 {
52     const char* file;
53     int         line;
54 }
55 CvStackRecord;
56 
57 typedef struct CvContext
58 {
59     int  err_code;
60     int  err_mode;
61     CvErrorCallback error_callback;
62     void*  userdata;
63     char  err_msg[4096];
64     CvStackRecord  err_ctx;
65 } CvContext;
66 
67 #if defined WIN32 || defined WIN64
68 #define CV_DEFAULT_ERROR_CALLBACK  cvGuiBoxReport
69 #else
70 #define CV_DEFAULT_ERROR_CALLBACK  cvStdErrReport
71 #endif
72 
73 static CvContext*
icvCreateContext(void)74 icvCreateContext(void)
75 {
76     CvContext* context = (CvContext*)malloc( sizeof(*context) );
77 
78     context->err_mode = CV_ErrModeLeaf;
79     context->err_code = CV_StsOk;
80 
81     context->error_callback = CV_DEFAULT_ERROR_CALLBACK;
82     context->userdata = 0;
83 
84     return context;
85 }
86 
87 static void
icvDestroyContext(CvContext * context)88 icvDestroyContext(CvContext* context)
89 {
90     free(context);
91 }
92 
93 #if defined WIN32 || defined WIN64
94     static DWORD g_TlsIndex = TLS_OUT_OF_INDEXES;
95 #else
96     static pthread_key_t g_TlsIndex;
97 #endif
98 
99 static CvContext*
icvGetContext(void)100 icvGetContext(void)
101 {
102 #ifdef CV_DLL
103 #if defined WIN32 || defined WIN64
104     CvContext* context;
105 
106     //assert(g_TlsIndex != TLS_OUT_OF_INDEXES);
107     if( g_TlsIndex == TLS_OUT_OF_INDEXES )
108     {
109         g_TlsIndex = TlsAlloc();
110         if( g_TlsIndex == TLS_OUT_OF_INDEXES )
111             FatalAppExit( 0, "Only set CV_DLL for DLL usage" );
112     }
113 
114     context = (CvContext*)TlsGetValue( g_TlsIndex );
115     if( !context )
116     {
117         context = icvCreateContext();
118         if( !context )
119             FatalAppExit( 0, "OpenCV. Problem to allocate memory for TLS OpenCV context." );
120 
121         TlsSetValue( g_TlsIndex, context );
122     }
123     return context;
124 #else
125     CvContext* context = (CvContext*)pthread_getspecific( g_TlsIndex );
126     if( !context )
127     {
128     context = icvCreateContext();
129     if( !context )
130     {
131             fprintf(stderr,"OpenCV. Problem to allocate memory for OpenCV context.");
132         exit(1);
133     }
134     pthread_setspecific( g_TlsIndex, context );
135     }
136     return context;
137 #endif
138 #else /* static single-thread library case */
139     static CvContext* context = 0;
140 
141     if( !context )
142         context = icvCreateContext();
143 
144     return context;
145 #endif
146 }
147 
148 
149 CV_IMPL int
cvStdErrReport(int code,const char * func_name,const char * err_msg,const char * file,int line,void *)150 cvStdErrReport( int code, const char *func_name, const char *err_msg,
151                 const char *file, int line, void* )
152 {
153     if( code == CV_StsBackTrace || code == CV_StsAutoTrace )
154         fprintf( stderr, "\tcalled from " );
155     else
156         fprintf( stderr, "OpenCV ERROR: %s (%s)\n\tin function ",
157                  cvErrorStr(code), err_msg ? err_msg : "no description" );
158 
159     fprintf( stderr, "%s, %s(%d)\n", func_name ? func_name : "<unknown>",
160              file != NULL ? file : "", line );
161 
162     if( cvGetErrMode() == CV_ErrModeLeaf )
163     {
164         fprintf( stderr, "Terminating the application...\n" );
165         return 1;
166     }
167     else
168         return 0;
169 }
170 
171 
172 CV_IMPL int
cvGuiBoxReport(int code,const char * func_name,const char * err_msg,const char * file,int line,void *)173 cvGuiBoxReport( int code, const char *func_name, const char *err_msg,
174                 const char *file, int line, void* )
175 {
176 #if !defined WIN32 && !defined WIN64
177     return cvStdErrReport( code, func_name, err_msg, file, line, 0 );
178 #else
179     if( code != CV_StsBackTrace && code != CV_StsAutoTrace )
180     {
181         size_t msg_len = strlen(err_msg ? err_msg : "") + 1024;
182         char* message = (char*)alloca(msg_len);
183         char title[100];
184 
185         wsprintf( message, "%s (%s)\nin function %s, %s(%d)\n\n"
186                   "Press \"Abort\" to terminate application.\n"
187                   "Press \"Retry\" to debug (if the app is running under debugger).\n"
188                   "Press \"Ignore\" to continue (this is not safe).\n",
189                   cvErrorStr(code), err_msg ? err_msg : "no description",
190                   func_name, file, line );
191 
192         wsprintf( title, "OpenCV GUI Error Handler" );
193 
194         int answer = MessageBox( NULL, message, title, MB_ICONERROR|MB_ABORTRETRYIGNORE|MB_SYSTEMMODAL );
195 
196         if( answer == IDRETRY )
197         {
198             CV_DBG_BREAK();
199         }
200         return answer != IDIGNORE;
201     }
202     return 0;
203 #endif
204 }
205 
206 
cvNulDevReport(int,const char *,const char *,const char *,int,void *)207 CV_IMPL int cvNulDevReport( int /*code*/, const char* /*func_name*/,
208     const char* /*err_msg*/, const char* /*file*/, int /*line*/, void* )
209 {
210     return cvGetErrMode() == CV_ErrModeLeaf;
211 }
212 
213 
214 CV_IMPL CvErrorCallback
cvRedirectError(CvErrorCallback func,void * userdata,void ** prev_userdata)215 cvRedirectError( CvErrorCallback func, void* userdata, void** prev_userdata )
216 {
217     CvContext* context = icvGetContext();
218 
219     CvErrorCallback old = context->error_callback;
220     if( prev_userdata )
221         *prev_userdata = context->userdata;
222     if( func )
223     {
224         context->error_callback = func;
225         context->userdata = userdata;
226     }
227     else
228     {
229         context->error_callback = CV_DEFAULT_ERROR_CALLBACK;
230         context->userdata = 0;
231     }
232 
233     return old;
234 }
235 
236 
cvGetErrInfo(const char ** errorcode_desc,const char ** description,const char ** filename,int * line)237 CV_IMPL int cvGetErrInfo( const char** errorcode_desc, const char** description,
238                           const char** filename, int* line )
239 {
240     int code = cvGetErrStatus();
241 
242     if( errorcode_desc )
243         *errorcode_desc = cvErrorStr( code );
244 
245     if( code >= 0 )
246     {
247         if( description )
248             *description = 0;
249         if( filename )
250             *filename = 0;
251         if( line )
252             *line = 0;
253     }
254     else
255     {
256         CvContext* ctx = icvGetContext();
257 
258         if( description )
259             *description = ctx->err_msg;
260         if( filename )
261             *filename = ctx->err_ctx.file;
262         if( line )
263             *line = ctx->err_ctx.line;
264     }
265 
266     return code;
267 }
268 
269 
cvErrorStr(int status)270 CV_IMPL const char* cvErrorStr( int status )
271 {
272     static char buf[256];
273 
274     switch (status)
275     {
276     case CV_StsOk :        return "No Error";
277     case CV_StsBackTrace : return "Backtrace";
278     case CV_StsError :     return "Unspecified error";
279     case CV_StsInternal :  return "Internal error";
280     case CV_StsNoMem :     return "Insufficient memory";
281     case CV_StsBadArg :    return "Bad argument";
282     case CV_StsNoConv :    return "Iterations do not converge";
283     case CV_StsAutoTrace : return "Autotrace call";
284     case CV_StsBadSize :   return "Incorrect size of input array";
285     case CV_StsNullPtr :   return "Null pointer";
286     case CV_StsDivByZero : return "Divizion by zero occured";
287     case CV_BadStep :      return "Image step is wrong";
288     case CV_StsInplaceNotSupported : return "Inplace operation is not supported";
289     case CV_StsObjectNotFound :      return "Requested object was not found";
290     case CV_BadDepth :     return "Input image depth is not supported by function";
291     case CV_StsUnmatchedFormats : return "Formats of input arguments do not match";
292     case CV_StsUnmatchedSizes :  return "Sizes of input arguments do not match";
293     case CV_StsOutOfRange : return "One of arguments\' values is out of range";
294     case CV_StsUnsupportedFormat : return "Unsupported format or combination of formats";
295     case CV_BadCOI :      return "Input COI is not supported";
296     case CV_BadNumChannels : return "Bad number of channels";
297     case CV_StsBadFlag :   return "Bad flag (parameter or structure field)";
298     case CV_StsBadPoint :  return "Bad parameter of type CvPoint";
299     case CV_StsBadMask : return "Bad type of mask argument";
300     case CV_StsParseError : return "Parsing error";
301     case CV_StsNotImplemented : return "The function/feature is not implemented";
302     case CV_StsBadMemBlock :  return "Memory block has been corrupted";
303     };
304 
305     sprintf(buf, "Unknown %s code %d", status >= 0 ? "status":"error", status);
306     return buf;
307 }
308 
cvGetErrMode(void)309 CV_IMPL int cvGetErrMode(void)
310 {
311     return icvGetContext()->err_mode;
312 }
313 
cvSetErrMode(int mode)314 CV_IMPL int cvSetErrMode( int mode )
315 {
316     CvContext* context = icvGetContext();
317     int prev_mode = context->err_mode;
318     context->err_mode = mode;
319     return prev_mode;
320 }
321 
cvGetErrStatus()322 CV_IMPL int cvGetErrStatus()
323 {
324     return icvGetContext()->err_code;
325 }
326 
cvSetErrStatus(int code)327 CV_IMPL void cvSetErrStatus( int code )
328 {
329     icvGetContext()->err_code = code;
330 }
331 
332 
cvError(int code,const char * func_name,const char * err_msg,const char * file_name,int line)333 CV_IMPL void cvError( int code, const char* func_name,
334                       const char* err_msg,
335                       const char* file_name, int line )
336 {
337     if( code == CV_StsOk )
338         cvSetErrStatus( code );
339     else
340     {
341         CvContext* context = icvGetContext();
342 
343         if( code != CV_StsBackTrace && code != CV_StsAutoTrace )
344         {
345             char* message = context->err_msg;
346             context->err_code = code;
347 
348             strcpy( message, err_msg );
349             context->err_ctx.file = file_name;
350             context->err_ctx.line = line;
351         }
352 
353         if( context->err_mode != CV_ErrModeSilent )
354         {
355             int terminate = context->error_callback( code, func_name, err_msg,
356                                                     file_name, line, context->userdata );
357             if( terminate )
358             {
359                 CV_DBG_BREAK();
360                 //exit(-abs(terminate));
361             }
362         }
363     }
364 }
365 
366 
367 /******************** End of implementation of profiling stuff *********************/
368 
369 
370 /**********************DllMain********************************/
371 
372 #if defined WIN32 || defined WIN64
DllMain(HINSTANCE,DWORD fdwReason,LPVOID)373 BOOL WINAPI DllMain( HINSTANCE, DWORD  fdwReason, LPVOID )
374 {
375     CvContext *pContext;
376 
377     switch (fdwReason)
378     {
379     case DLL_PROCESS_ATTACH:
380         g_TlsIndex = TlsAlloc();
381         if( g_TlsIndex == TLS_OUT_OF_INDEXES ) return FALSE;
382         //break;
383 
384     case DLL_THREAD_ATTACH:
385         pContext = icvCreateContext();
386         if( pContext == NULL)
387             return FALSE;
388         TlsSetValue( g_TlsIndex, (LPVOID)pContext );
389         break;
390 
391     case DLL_THREAD_DETACH:
392         if( g_TlsIndex != TLS_OUT_OF_INDEXES )
393         {
394             pContext = (CvContext*)TlsGetValue( g_TlsIndex );
395             if( pContext != NULL )
396                 icvDestroyContext( pContext );
397         }
398         break;
399 
400     case DLL_PROCESS_DETACH:
401         if( g_TlsIndex != TLS_OUT_OF_INDEXES )
402         {
403             pContext = (CvContext*)TlsGetValue( g_TlsIndex );
404             if( pContext != NULL )
405                 icvDestroyContext( pContext );
406         }
407         TlsFree( g_TlsIndex );
408         break;
409     default:
410         ;
411     }
412     return TRUE;
413 }
414 #else
415 /* POSIX pthread */
416 
417 /* function - destructor of thread */
icvPthreadDestructor(void * key_val)418 void icvPthreadDestructor(void* key_val)
419 {
420     CvContext* context = (CvContext*) key_val;
421     icvDestroyContext( context );
422 }
423 
424 int pthrerr = pthread_key_create( &g_TlsIndex, icvPthreadDestructor );
425 
426 #endif
427 
428 /* function, which converts int to int */
429 CV_IMPL int
cvErrorFromIppStatus(int status)430 cvErrorFromIppStatus( int status )
431 {
432     switch (status)
433     {
434     case CV_BADSIZE_ERR: return CV_StsBadSize;
435     case CV_BADMEMBLOCK_ERR: return CV_StsBadMemBlock;
436     case CV_NULLPTR_ERR: return CV_StsNullPtr;
437     case CV_DIV_BY_ZERO_ERR: return CV_StsDivByZero;
438     case CV_BADSTEP_ERR: return CV_BadStep ;
439     case CV_OUTOFMEM_ERR: return CV_StsNoMem;
440     case CV_BADARG_ERR: return CV_StsBadArg;
441     case CV_NOTDEFINED_ERR: return CV_StsError;
442     case CV_INPLACE_NOT_SUPPORTED_ERR: return CV_StsInplaceNotSupported;
443     case CV_NOTFOUND_ERR: return CV_StsObjectNotFound;
444     case CV_BADCONVERGENCE_ERR: return CV_StsNoConv;
445     case CV_BADDEPTH_ERR: return CV_BadDepth;
446     case CV_UNMATCHED_FORMATS_ERR: return CV_StsUnmatchedFormats;
447     case CV_UNSUPPORTED_COI_ERR: return CV_BadCOI;
448     case CV_UNSUPPORTED_CHANNELS_ERR: return CV_BadNumChannels;
449     case CV_BADFLAG_ERR: return CV_StsBadFlag;
450     case CV_BADRANGE_ERR: return CV_StsBadArg;
451     case CV_BADCOEF_ERR: return CV_StsBadArg;
452     case CV_BADFACTOR_ERR: return CV_StsBadArg;
453     case CV_BADPOINT_ERR: return CV_StsBadPoint;
454 
455     default: return CV_StsError;
456     }
457 }
458 /* End of file */
459 
460 
461