/*--------------------------------------------------------------------*/
int mb_put_comment(int verbose, void *mbio_ptr, char *comment, int *error)
{
static char rcs_id[]="$Id $";
char *function_name = "mb_put_comment";
int status;
struct mb_io_struct *mb_io_ptr;
int time_i[7] = {0, 0, 0, 0, 0, 0, 0};
double time_d = 0.0;
double navlon = 0.0;
double navlat = 0.0;
double speed = 0.0;
double heading = 0.0;
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 verbose: %d\n",verbose);
fprintf(stderr,"dbg2 mb_ptr: %p\n",(void *)mbio_ptr);
fprintf(stderr,"dbg2 comment: %s\n",comment);
}
/* get mbio descriptor */
mb_io_ptr = (struct mb_io_struct *) mbio_ptr;
/* insert comment using mb_insert */
for (i=0;i<7;i++)
time_i[i] = 0;
time_d = 0.0;
navlon = 0.0;
status = mb_insert(verbose,mbio_ptr,mb_io_ptr->store_data,
MB_DATA_COMMENT,
time_i,time_d,navlon,navlat,speed,heading,
0,0,0,
NULL,NULL,NULL,
NULL,NULL,
NULL,NULL,NULL,
comment,error);
/* write the data */
status = mb_write_ping(verbose,mbio_ptr,mb_io_ptr->store_data,error);
/* 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 error: %d\n",*error);
fprintf(stderr,"dbg2 Return status:\n");
fprintf(stderr,"dbg2 status: %d\n",status);
}
/* return status */
return(status);
}
/*--------------------------------------------------------------------*/
int mb_put_all(int verbose, void *mbio_ptr, void *store_ptr,
int usevalues, int kind,
int time_i[7], double time_d,
double navlon, double navlat,
double speed, double heading,
int nbath, int namp, int nss,
char *beamflag, double *bath, double *amp,
double *bathacrosstrack, double *bathalongtrack,
double *ss, double *ssacrosstrack, double *ssalongtrack,
char *comment, int *error)
{
char *function_name = "mb_put_all";
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 Input arguments:\n");
fprintf(stderr,"dbg2 verbose: %d\n",verbose);
fprintf(stderr,"dbg2 mbio_ptr: %lu\n",(size_t)mbio_ptr);
fprintf(stderr,"dbg2 store_ptr: %lu\n",(size_t)store_ptr);
fprintf(stderr,"dbg2 usevalues: %d\n",usevalues);
fprintf(stderr,"dbg2 kind: %d\n",kind);
}
if (verbose >= 2 && usevalues == MB_YES && kind != MB_DATA_COMMENT)
{
fprintf(stderr,"dbg2 time_i[0]: %d\n",time_i[0]);
fprintf(stderr,"dbg2 time_i[1]: %d\n",time_i[1]);
fprintf(stderr,"dbg2 time_i[2]: %d\n",time_i[2]);
fprintf(stderr,"dbg2 time_i[3]: %d\n",time_i[3]);
fprintf(stderr,"dbg2 time_i[4]: %d\n",time_i[4]);
fprintf(stderr,"dbg2 time_i[5]: %d\n",time_i[5]);
fprintf(stderr,"dbg2 time_i[6]: %d\n",time_i[6]);
fprintf(stderr,"dbg2 time_d: %f\n",time_d);
fprintf(stderr,"dbg2 navlon: %f\n",navlon);
fprintf(stderr,"dbg2 navlat: %f\n",navlat);
fprintf(stderr,"dbg2 speed: %f\n",speed);
fprintf(stderr,"dbg2 heading: %f\n",heading);
}
if (verbose >= 2 && usevalues == MB_YES && kind == MB_DATA_DATA)
{
fprintf(stderr,"dbg2 nbath: %d\n",nbath);
if (verbose >= 3 && nbath > 0)
{
fprintf(stderr,"dbg3 beam flag bath crosstrack alongtrack\n");
for (i=0;i<nbath;i++)
fprintf(stderr,"dbg3 %4d %3d %f %f %f\n",
i,beamflag[i],bath[i],
bathacrosstrack[i],bathalongtrack[i]);
}
fprintf(stderr,"dbg2 namp: %d\n",namp);
if (verbose >= 3 && namp > 0)
{
fprintf(stderr,"dbg3 beam amp crosstrack alongtrack\n");
for (i=0;i<namp;i++)
fprintf(stderr,"dbg3 %4d %f %f %f\n",
i,amp[i],
bathacrosstrack[i],bathalongtrack[i]);
}
fprintf(stderr,"dbg2 nss: %d\n",nss);
if (verbose >= 3 && nss > 0)
{
fprintf(stderr,"dbg3 pixel sidescan crosstrack alongtrack\n");
for (i=0;i<nss;i++)
fprintf(stderr,"dbg3 %4d %f %f %f\n",
i,ss[i],
ssacrosstrack[i],ssalongtrack[i]);
}
}
if (verbose >= 2 && usevalues == MB_YES && kind == MB_DATA_COMMENT)
{
fprintf(stderr,"dbg2 comment: %s\n",comment);
}
/* get mbio descriptor */
mb_io_ptr = (struct mb_io_struct *) mbio_ptr;
/* insert values into structure if requested */
if (usevalues == MB_YES)
{
status = mb_insert(verbose,mbio_ptr,store_ptr,
kind,time_i,time_d,navlon,navlat,speed,heading,
nbath,namp,nss,
beamflag,bath,amp,
bathacrosstrack,bathalongtrack,
ss,ssacrosstrack,ssalongtrack,
comment,error);
}
/* write the data */
status = mb_write_ping(verbose,mbio_ptr,store_ptr,error);
/* increment counters */
if (status == MB_SUCCESS)
{
if (kind == MB_DATA_DATA)
mb_io_ptr->ping_count++;
else if (kind == MB_DATA_NAV)
mb_io_ptr->nav_count++;
else if (kind == MB_DATA_COMMENT)
mb_io_ptr->comment_count++;
}
/* print output debug statements */
if (verbose >= 2)
{
fprintf(stderr,"\ndbg2 MBIO function <%s> completed\n",function_name);
fprintf(stderr,"dbg2 Return value:\n");
fprintf(stderr,"dbg2 error: %d\n",*error);
fprintf(stderr,"dbg2 Return status:\n");
fprintf(stderr,"dbg2 status: %d\n",status);
}
/* return status */
return(status);
}
/*--------------------------------------------------------------------*/
int mb_buffer_insert(int verbose, void *buff_ptr, void *mbio_ptr,
int id, int time_i[7], double time_d,
double navlon, double navlat,
double speed, double heading,
int nbath, int namp, int nss,
char *beamflag, double *bath, double *amp,
double *bathacrosstrack, double *bathalongtrack,
double *ss, double *ssacrosstrack, double *ssalongtrack,
char *comment,
int *error)
{
char *function_name = "mb_buffer_insert";
int status = MB_SUCCESS;
struct mb_buffer_struct *buff;
struct mb_io_struct *mb_io_ptr;
char *store_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 verbose: %d\n",verbose);
fprintf(stderr,"dbg2 mbio_ptr: %p\n",(void *)mbio_ptr);
fprintf(stderr,"dbg2 id: %d\n",id);
fprintf(stderr,"dbg2 time_i[0]: %d\n",time_i[0]);
fprintf(stderr,"dbg2 time_i[1]: %d\n",time_i[1]);
fprintf(stderr,"dbg2 time_i[2]: %d\n",time_i[2]);
fprintf(stderr,"dbg2 time_i[3]: %d\n",time_i[3]);
fprintf(stderr,"dbg2 time_i[4]: %d\n",time_i[4]);
fprintf(stderr,"dbg2 time_i[5]: %d\n",time_i[5]);
fprintf(stderr,"dbg2 time_i[6]: %d\n",time_i[6]);
fprintf(stderr,"dbg2 time_d: %f\n",time_d);
fprintf(stderr,"dbg2 navlon: %f\n",navlon);
fprintf(stderr,"dbg2 navlat: %f\n",navlat);
fprintf(stderr,"dbg2 speed: %f\n",speed);
fprintf(stderr,"dbg2 heading: %f\n",heading);
fprintf(stderr,"dbg4 nbath: %d\n",nbath);
if (nbath > 0)
{
fprintf(stderr,"dbg4 beam flag bath crosstrack alongtrack\n");
for (i=0;i<nbath;i++)
fprintf(stderr,"dbg4 %4d %3d %f %f %f\n",
i,beamflag[i],bath[i],
bathacrosstrack[i],bathalongtrack[i]);
}
fprintf(stderr,"dbg4 namp: %d\n",namp);
if (namp > 0)
{
fprintf(stderr,"dbg4 beam amp crosstrack alongtrack\n");
for (i=0;i<nbath;i++)
fprintf(stderr,"dbg4 %4d %f %f %f\n",
i,amp[i],bathacrosstrack[i],bathalongtrack[i]);
}
fprintf(stderr,"dbg4 nss: %d\n",nss);
if (nss > 0)
{
fprintf(stderr,"dbg4 pixel sidescan crosstrack alongtrack\n");
for (i=0;i<nss;i++)
fprintf(stderr,"dbg4 %4d %f %f %f\n",
i,ss[i],ssacrosstrack[i],ssalongtrack[i]);
}
fprintf(stderr,"dbg2 comment: %s\n",comment);
}
/* get buffer structure */
buff = (struct mb_buffer_struct *) buff_ptr;
/* get mbio descriptor */
mb_io_ptr = (struct mb_io_struct *) mbio_ptr;
/* get store_ptr for specified record */
if (id < 0 || id >= buff->nbuffer)
{
status = MB_FAILURE;
*error = MB_ERROR_BAD_BUFFER_ID;
}
else
{
store_ptr = buff->buffer[id];
status = mb_insert(verbose,mbio_ptr,store_ptr,
buff->buffer_kind[id],
time_i,time_d,navlon,navlat,speed,heading,
nbath,namp,nss,
beamflag,bath,amp,
bathacrosstrack,bathalongtrack,
ss,ssacrosstrack,ssalongtrack,
comment,error);
}
/* print output debug statements */
if (verbose >= 2)
{
fprintf(stderr,"\ndbg2 MBIO function <%s> completed\n",
function_name);
fprintf(stderr,"dbg2 Return value:\n");
fprintf(stderr,"dbg2 error: %d\n",*error);
fprintf(stderr,"dbg2 Return status:\n");
fprintf(stderr,"dbg2 status: %d\n",status);
}
/* return status */
return(status);
}