/*-------------------------------------------------------------------- * The MB-system: mb_error.c 2/2/93 * $Id: mb_error.c 1829 2010-02-05 02:53:39Z caress $ * * Copyright (c) 1993-2009 by * David W. Caress (caress@mbari.org) * Monterey Bay Aquarium Research Institute * Moss Landing, CA 95039 * and Dale N. Chayes (dale@ldeo.columbia.edu) * Lamont-Doherty Earth Observatory * Palisades, NY 10964 * * See README file for copying and redistribution conditions. *--------------------------------------------------------------------*/ /* * mb_error.c returns a short error message associated with the * input error code. * * Author: D. W. Caress * Date: February 2, 1993 * * $Log: mb_error.c,v $ * Revision 5.6 2006/06/16 19:30:58 caress * Check in after the Santa Monica Basin Mapping AUV Expedition. * * Revision 5.5 2006/01/06 18:27:19 caress * Working towards 5.0.8 * * Revision 5.4 2003/04/17 21:05:23 caress * Release 5.0.beta30 * * Revision 5.3 2002/09/18 23:32:59 caress * Release 5.0.beta23 * * Revision 5.2 2002/05/29 23:36:53 caress * Release 5.0.beta18 * * Revision 5.1 2002/02/22 09:03:43 caress * Release 5.0.beta13 * * Revision 5.0 2000/12/01 22:48:41 caress * First cut at Version 5.0. * * Revision 4.7 2000/10/11 01:02:30 caress * Convert to ANSI C * * Revision 4.6 2000/09/30 06:26:58 caress * Snapshot for Dale. * * Revision 4.5 1998/10/05 18:32:27 caress * MB-System version 4.6beta * * Revision 4.4 1997/04/21 17:02:07 caress * MB-System 4.5 Beta Release. * * Revision 4.4 1997/04/21 17:02:07 caress * MB-System 4.5 Beta Release. * * Revision 4.3 1995/03/06 19:38:54 caress * Changed include strings.h to string.h for POSIX compliance. * * Revision 4.3 1995/03/06 19:38:54 caress * Changed include strings.h to string.h for POSIX compliance. * * Revision 4.2 1994/10/21 12:11:53 caress * Release V4.0 * * Revision 4.1 1994/07/29 18:46:51 caress * Changes associated with supporting Lynx OS (byte swapped) and * using unix second time base (for time_d values). * * Revision 4.0 1994/03/05 23:55:38 caress * First cut at version 4.0 * * Revision 4.1 1994/03/03 03:39:43 caress * Fixed copyright message. * * Revision 4.0 1994/02/21 04:03:10 caress * First cut at new version. No changes. * * Revision 3.1 1993/05/14 22:33:34 sohara * fixed rcs_id message * * Revision 3.1 1993/05/14 22:33:34 sohara * fixed rcs_id message * * Revision 3.0 1993/04/23 15:48:29 dale * Initial version * */ /* standard include files */ #include #include #include /* mbio include files */ #define DEFINE_MB_MESSAGES 1 #include "../../include/mb_status.h" #include "../../include/mb_define.h" #include "../../include/mb_io.h" static char rcs_id[]="$Id: mb_error.c 1829 2010-02-05 02:53:39Z caress $"; /*--------------------------------------------------------------------*/ int mb_error(int verbose, int error, char **message) { char *function_name = "mb_error"; int status; /* print input debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> called\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Input arguments:\n"); fprintf(stderr,"dbg2 rcs_id: %s\n",rcs_id); fprintf(stderr,"dbg2 verbose: %d\n",verbose); fprintf(stderr,"dbg2 error: %d\n",error); fprintf(stderr,"dbg2 message: %lu\n",(size_t)message); fprintf(stderr,"dbg2 MB_ERROR_MIN: %d\n",MB_ERROR_MIN); fprintf(stderr,"dbg2 MB_ERROR_MAX: %d\n",MB_ERROR_MAX); } /* set the message and status */ if (error < MB_ERROR_MIN || error > MB_ERROR_MAX) { *message = unknown_error_msg[0]; status = MB_FAILURE; } else if (error > MB_ERROR_NO_ERROR) { *message = fatal_error_msg[error]; status = MB_SUCCESS; } else { *message = nonfatal_error_msg[-error]; status = MB_SUCCESS; } /* print output debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> completed\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Return value:\n"); fprintf(stderr,"dbg2 message: %s\n",*message); fprintf(stderr,"dbg2 Return status:\n"); fprintf(stderr,"dbg2 status: %d\n",status); } /* return status */ return(status); } /*--------------------------------------------------------------------*/ int mb_notice_log_datatype(int verbose, void *mbio_ptr, int data_id) { char *function_name = "mb_notice_log_datatype"; int status = MB_SUCCESS; struct mb_io_struct *mb_io_ptr; /* print input debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> called\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Input arguments:\n"); fprintf(stderr,"dbg2 rcs_id: %s\n",rcs_id); fprintf(stderr,"dbg2 verbose: %d\n",verbose); fprintf(stderr,"dbg2 mbio_ptr: %lu\n",(size_t)mbio_ptr); fprintf(stderr,"dbg2 data_id: %d\n",data_id); } /* get pointer to mbio descriptor */ mb_io_ptr = (struct mb_io_struct *) mbio_ptr; /* log data record type in the notice list */ if (data_id > 0 && data_id <= MB_DATA_KINDS) { mb_io_ptr->notice_list[data_id]++; } else { status = MB_FAILURE; } /* print output debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> completed\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Return status:\n"); fprintf(stderr,"dbg2 status: %d\n",status); } /* return status */ return(status); } /*--------------------------------------------------------------------*/ int mb_notice_log_error(int verbose, void *mbio_ptr, int error_id) { char *function_name = "mb_notice_log_error"; int status = MB_SUCCESS; struct mb_io_struct *mb_io_ptr; /* print input debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> called\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Input arguments:\n"); fprintf(stderr,"dbg2 rcs_id: %s\n",rcs_id); fprintf(stderr,"dbg2 verbose: %d\n",verbose); fprintf(stderr,"dbg2 mbio_ptr: %lu\n",(size_t)mbio_ptr); fprintf(stderr,"dbg2 error_id: %d\n",error_id); } /* get pointer to mbio descriptor */ mb_io_ptr = (struct mb_io_struct *) mbio_ptr; /* log any nonfatal error in the notice list */ if (error_id < 0 && error_id >= MB_ERROR_MIN) { mb_io_ptr->notice_list[MB_DATA_KINDS-error_id]++; } else { status = MB_FAILURE; } /* print output debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> completed\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Return status:\n"); fprintf(stderr,"dbg2 status: %d\n",status); } /* return status */ return(status); } /*--------------------------------------------------------------------*/ int mb_notice_log_problem(int verbose, void *mbio_ptr, int problem_id) { char *function_name = "mb_notice_log_problem"; int status = MB_SUCCESS; struct mb_io_struct *mb_io_ptr; /* print input debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> called\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Input arguments:\n"); fprintf(stderr,"dbg2 rcs_id: %s\n",rcs_id); fprintf(stderr,"dbg2 verbose: %d\n",verbose); fprintf(stderr,"dbg2 mbio_ptr: %lu\n",(size_t)mbio_ptr); fprintf(stderr,"dbg2 problem_id: %d\n",problem_id); } /* get pointer to mbio descriptor */ mb_io_ptr = (struct mb_io_struct *) mbio_ptr; /* log data record type in the notice list */ if (problem_id > 0 && problem_id <= MB_PROBLEM_MAX) { mb_io_ptr->notice_list[MB_DATA_KINDS - MB_ERROR_MIN + problem_id]++; } else { status = MB_FAILURE; } /* print output debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> completed\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Return status:\n"); fprintf(stderr,"dbg2 status: %d\n",status); } /* return status */ return(status); } /*--------------------------------------------------------------------*/ int mb_notice_get_list(int verbose, void *mbio_ptr, int *notice_list) { char *function_name = "mb_notice_get_list"; int status = MB_SUCCESS; struct mb_io_struct *mb_io_ptr; int i; /* print input debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> called\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Input arguments:\n"); fprintf(stderr,"dbg2 rcs_id: %s\n",rcs_id); fprintf(stderr,"dbg2 verbose: %d\n",verbose); fprintf(stderr,"dbg2 mbio_ptr: %lu\n",(size_t)mbio_ptr); fprintf(stderr,"dbg2 notice_list: %lu\n",(size_t)notice_list); } /* get pointer to mbio descriptor */ mb_io_ptr = (struct mb_io_struct *) mbio_ptr; /* copy notice list */ for (i=0;inotice_list[i]; } /* print output debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> completed\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Return value:\n"); for (i=0;i= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> called\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Input arguments:\n"); fprintf(stderr,"dbg2 rcs_id: %s\n",rcs_id); fprintf(stderr,"dbg2 verbose: %d\n",verbose); fprintf(stderr,"dbg2 notice: %d\n",notice); } /* set the message and status */ if (notice < 0 || notice > MB_NOTICE_MAX) { *message = unknown_notice_msg[0]; status = MB_FAILURE; } else { *message = notice_msg[notice]; status = MB_SUCCESS; } /* print output debug statements */ if (verbose >= 2) { fprintf(stderr,"\ndbg2 MBIO function <%s> completed\n",function_name); fprintf(stderr,"dbg2 Revision id: %s\n",rcs_id); fprintf(stderr,"dbg2 Return value:\n"); fprintf(stderr,"dbg2 message: %s\n",*message); fprintf(stderr,"dbg2 Return status:\n"); fprintf(stderr,"dbg2 status: %d\n",status); } /* return status */ return(status); } /*--------------------------------------------------------------------*/