/*--------------------------------------------------------------------*/
int mbr_alm_swplssxp(int verbose, void *mbio_ptr, int *error) {
char *function_name = "mbr_alm_swplssxp";
int status = MB_SUCCESS;
struct mb_io_struct *mb_io_ptr;
int *recordid;
int *recordidlast;
char **bufferptr;
char *buffer;
int *bufferalloc;
int *size;
int *nbadrec;
int *header_rec_written;
int *projection_rec_written;
/* 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", mbio_ptr);
}
/* get pointer to mbio descriptor */
mb_io_ptr = (struct mb_io_struct *)mbio_ptr;
/* set initial status */
status = MB_SUCCESS;
/* allocate memory for data structure */
mb_io_ptr->structure_size = 0;
mb_io_ptr->data_structure_size = 0;
status = mbsys_swathplus_alloc(verbose, mbio_ptr, &mb_io_ptr->store_data, error);
recordid = (int *)&mb_io_ptr->save3;
recordidlast = (int *)&mb_io_ptr->save4;
bufferptr = (char **)&mb_io_ptr->saveptr1;
buffer = (char *)*bufferptr;
bufferalloc = (int *)&mb_io_ptr->save6;
size = (int *)&mb_io_ptr->save8;
nbadrec = (int *)&mb_io_ptr->save9;
header_rec_written = (int *)&(mb_io_ptr->save1);
projection_rec_written = (int *)&(mb_io_ptr->save2);
*recordid = SWPLS_ID_NONE;
*recordidlast = SWPLS_ID_NONE;
*bufferptr = NULL;
*bufferalloc = 0;
*size = 0;
*nbadrec = 0;
*header_rec_written = MB_NO;
*projection_rec_written = MB_NO;
/* allocate memory if necessary */
if (status == MB_SUCCESS) {
status = mb_reallocd(verbose, __FILE__, __LINE__, SWPLS_BUFFER_STARTSIZE, (void **)bufferptr, error);
if (status == MB_SUCCESS) {
*bufferalloc = SWPLS_BUFFER_STARTSIZE;
}
}
/* print output debug statements */
if (verbose >= 2) {
fprintf(stderr, "\ndbg2 MBIO function <%s> completed\n", function_name);
fprintf(stderr, "dbg2 Return values:\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);
} /* mbr_alm_swplssxp */
/*--------------------------------------------------------------------*/
int mbr_alm_swplssxi(int verbose, void *mbio_ptr, int *error) {
char *function_name = "mbr_alm_swplssxi";
int status = MB_SUCCESS;
struct mb_io_struct *mb_io_ptr;
int *current_ping;
int *last_ping;
int *save_flag;
int *recordid;
int *recordidlast;
char **bufferptr;
char *buffer;
int *bufferalloc;
int *size;
int *nbadrec;
int *deviceid;
int *projection_file_created;
/* 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: %p\n", (void *)mbio_ptr);
}
/* get pointer to mbio descriptor */
mb_io_ptr = (struct mb_io_struct *)mbio_ptr;
/* set initial status */
status = MB_SUCCESS;
/* allocate memory for data structure */
mb_io_ptr->structure_size = 0;
mb_io_ptr->data_structure_size = 0;
status = mbsys_swathplus_alloc(verbose, mbio_ptr, &mb_io_ptr->store_data, error);
save_flag = (int *)&mb_io_ptr->save_flag;
current_ping = (int *)&mb_io_ptr->save14;
last_ping = (int *)&mb_io_ptr->save1;
recordid = (int *)&mb_io_ptr->save3;
recordidlast = (int *)&mb_io_ptr->save4;
bufferptr = (char **)&mb_io_ptr->saveptr1;
buffer = (char *)*bufferptr;
bufferalloc = (int *)&mb_io_ptr->save6;
size = (int *)&mb_io_ptr->save8;
nbadrec = (int *)&mb_io_ptr->save9;
deviceid = (int *)&mb_io_ptr->save10;
projection_file_created = (int *)&mb_io_ptr->save5;
*current_ping = -1;
*last_ping = -1;
*save_flag = MB_NO;
*recordid = SWPLS_ID_NONE;
*recordidlast = SWPLS_ID_NONE;
*bufferptr = NULL;
*bufferalloc = 0;
*size = 0;
*nbadrec = 0;
*deviceid = 0;
*projection_file_created = MB_NO;
/* allocate memory if necessary */
if (status == MB_SUCCESS) {
status = mb_reallocd(verbose, __FILE__, __LINE__, SWPLS_BUFFER_STARTSIZE, (void **)bufferptr, error);
if (status == MB_SUCCESS) {
*bufferalloc = SWPLS_BUFFER_STARTSIZE;
}
}
/* print output debug statements */
if (verbose >= 2) {
fprintf(stderr, "\ndbg2 MBIO function <%s> completed\n", function_name);
fprintf(stderr, "dbg2 Return values:\n");
fprintf(stderr, "dbg2 error: %d\n", *error);
fprintf(stderr, "dbg2 Return status:\n");
fprintf(stderr, "dbg2 status: %d\n", status);
}
return (status);
} /* mbr_alm_swplssxi */
