/*--------------------------------------------------------------------
 *    The MB-system:	mbbs_wrhdrfields.c	3/3/2014
 *	$Id: mbbs_wrhdrfields.c 2227 2015-02-05 21:12:31Z caress $
 *
 *    Copyright (c) 2014-2015 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.
 *--------------------------------------------------------------------*/
/* This source code is part of the mbbsio library used to read and write
 * swath sonar data in the bsio format devised and used by the
 * Hawaii Mapping Research Group of the University of Hawaii.
 * This source code was made available by Roger Davis of the
 * University of Hawaii under the GPL. Minor modifications have
 * been made to the version distributed here as part of MB-System.
 *
 * Author:	Roger Davis (primary author)
 * Author:	D. W. Caress (MB-System revisions)
 * Date:	March 3, 2014 (MB-System revisions)
 *
 *--------------------------------------------------------------------*/
/*
 *	Copyright (c) 2006 by University of Hawaii.
 */

/*
   wrhdrfields.c --
   Routines to rewrite individual file and/or ping header
   fields of Hawaii Mapping Research Group BS files.
*/

#include <stdio.h>

#include "mbbs_defines.h"

extern unsigned long bs_iobytecnt;

int
mbbs_wrfflagssetbits(FILE *fp, unsigned int bitmask)
/*
   Set the bits from bitmask in the file header flags field.
*/
{
	XDR xdr;
	int version, count;
	unsigned int flags;

	if (fseek(fp, (long) 0, SEEK_SET) != 0)
		return BS_FSEEK;
	xdrstdio_create(&xdr, fp, XDR_DECODE);

	bs_iobytecnt= 0;
	if (!xdr_int(&xdr, &version))
		return BS_READ;
	switch (version) {
	case MR1_VERSION_1_0:
	case MR1_VERSION_2_0:
	case BS_VERSION_1_0:
	case BS_VERSION_1_1:
	case BS_VERSION_1_2:
		return BS_BADDATA;
	default:
		break;
	}
	bs_iobytecnt+= 4;
	if (!xdr_int(&xdr, &count))
		return BS_READ;
	bs_iobytecnt+= 4;
	if (!xdr_u_int(&xdr, &flags))
		return BS_READ;
	bs_iobytecnt+= 4;

	xdr_destroy(&xdr);

	flags|= bitmask;

	if (fseek(fp, (long) -4, SEEK_CUR) != 0)
		return BS_FSEEK;
	bs_iobytecnt-= 4;
	xdrstdio_create(&xdr, fp, XDR_ENCODE);
	if (!xdr_u_int(&xdr, &flags))
		return BS_WRITE;
	bs_iobytecnt+= 4;
	xdr_destroy(&xdr);
	(void) fflush(fp);

	return BS_SUCCESS;
}

int
mbbs_wrfflagsclrbits(FILE *fp, unsigned int bitmask)
/*
   Clear the bits of bitmask from the file header flags field.
*/
{
	XDR xdr;
	int version, count;
	unsigned int flags;

	if (fseek(fp, (long) 0, SEEK_SET) != 0)
		return BS_FSEEK;
	xdrstdio_create(&xdr, fp, XDR_DECODE);

	bs_iobytecnt= 0;
	if (!xdr_int(&xdr, &version))
		return BS_READ;
	switch (version) {
	case MR1_VERSION_1_0:
	case MR1_VERSION_2_0:
	case BS_VERSION_1_0:
	case BS_VERSION_1_1:
	case BS_VERSION_1_2:
		return BS_BADDATA;
	default:
		break;
	}
	bs_iobytecnt+= 4;
	if (!xdr_int(&xdr, &count))
		return BS_READ;
	bs_iobytecnt+= 4;
	if (!xdr_u_int(&xdr, &flags))
		return BS_READ;
	bs_iobytecnt+= 4;

	xdr_destroy(&xdr);

	flags&= ~bitmask;

	if (fseek(fp, (long) -4, SEEK_CUR) != 0)
		return BS_FSEEK;
	bs_iobytecnt-= 4;
	xdrstdio_create(&xdr, fp, XDR_ENCODE);
	if (!xdr_u_int(&xdr, &flags))
		return BS_WRITE;
	bs_iobytecnt+= 4;
	xdr_destroy(&xdr);
	(void) fflush(fp);

	return BS_SUCCESS;
}

int
mbbs_wrpflags(int version, FILE *fp, long phoffset, unsigned int flags)
/*
   Writes the ping flags field of a ping header
   located at an arbitrary file byte offset.
*/
{
	XDR xdr;

	bs_iobytecnt= 0;

	switch (version) {
	case MR1_VERSION_1_0:
	case MR1_VERSION_2_0:
		return BS_BADDATA;
	case BS_VERSION_1_0:
	case BS_VERSION_1_1:
	case BS_VERSION_1_2:
	case BS_VERSION_1_3:
	case BS_VERSION_1_4:
		break;
	default:
		return BS_BADDATA;
	}

	if (fseek(fp, phoffset, SEEK_SET) != 0)
		return BS_FSEEK;
	xdrstdio_create(&xdr, fp, XDR_ENCODE);
	if (!xdr_u_int(&xdr, &flags))
		return BS_WRITE;
	bs_iobytecnt+= 4;
	xdr_destroy(&xdr);
	(void) fflush(fp);

	return BS_SUCCESS;
}

int
mbbs_wrpflagssetbits(int version, FILE *fp, long phoffset, unsigned int bitmask)
/*
   Set the bits from bitmask in the ping flags field of
   a ping header located at an arbitrary file byte offset.
*/
{
	XDR xdr;
	unsigned int flags;

	bs_iobytecnt= 0;

	switch (version) {
	case MR1_VERSION_1_0:
	case MR1_VERSION_2_0:
		return BS_BADDATA;
	case BS_VERSION_1_0:
	case BS_VERSION_1_1:
	case BS_VERSION_1_2:
	case BS_VERSION_1_3:
	case BS_VERSION_1_4:
		break;
	default:
		return BS_BADDATA;
	}

	if (fseek(fp, phoffset, SEEK_SET) != 0)
		return BS_FSEEK;
	xdrstdio_create(&xdr, fp, XDR_DECODE);
	if (!xdr_u_int(&xdr, &flags))
		return BS_READ;
	bs_iobytecnt+= 4;
	xdr_destroy(&xdr);

	flags|= bitmask;

	if (fseek(fp, phoffset, SEEK_SET) != 0)
		return BS_FSEEK;
	bs_iobytecnt-= 4;
	xdrstdio_create(&xdr, fp, XDR_ENCODE);
	if (!xdr_u_int(&xdr, &flags))
		return BS_WRITE;
	bs_iobytecnt+= 4;
	xdr_destroy(&xdr);
	(void) fflush(fp);

	return BS_SUCCESS;
}

int
mbbs_wrpflagsclrbits(int version, FILE *fp, long phoffset, unsigned int bitmask)
/*
   Clear the bits in bitmask from the ping flags field of
   a ping header located at an arbitrary file byte offset.
*/
{
	XDR xdr;
	unsigned int flags;

	bs_iobytecnt= 0;

	switch (version) {
	case MR1_VERSION_1_0:
	case MR1_VERSION_2_0:
		return BS_BADDATA;
	case BS_VERSION_1_0:
	case BS_VERSION_1_1:
	case BS_VERSION_1_2:
	case BS_VERSION_1_3:
	case BS_VERSION_1_4:
		break;
	default:
		return BS_BADDATA;
	}

	if (fseek(fp, phoffset, SEEK_SET) != 0)
		return BS_FSEEK;
	xdrstdio_create(&xdr, fp, XDR_DECODE);
	if (!xdr_u_int(&xdr, &flags))
		return BS_READ;
	bs_iobytecnt+= 4;
	xdr_destroy(&xdr);

	flags&= ~bitmask;

	if (fseek(fp, phoffset, SEEK_SET) != 0)
		return BS_FSEEK;
	bs_iobytecnt-= 4;
	xdrstdio_create(&xdr, fp, XDR_ENCODE);
	if (!xdr_u_int(&xdr, &flags))
		return BS_WRITE;
	bs_iobytecnt+= 4;
	xdr_destroy(&xdr);
	(void) fflush(fp);

	return BS_SUCCESS;
}

int
mbbs_wrsllc(int version, FILE *fp, long phoffset, double slon, double slat, float scourse)
/*
   Writes ship longitude, latitude and course fields
   of a ping header located at an arbitrary file byte offset.
*/
{
	XDR xdr;

	bs_iobytecnt= 0;

	switch (version) {
	case MR1_VERSION_1_0:
		return BS_BADDATA;
	case MR1_VERSION_2_0:
		phoffset+= 12;
		break;
	case BS_VERSION_1_0:
	case BS_VERSION_1_1:
	case BS_VERSION_1_2:
	case BS_VERSION_1_3:
	case BS_VERSION_1_4:
		phoffset+= 16;
		break;
	default:
		return BS_BADDATA;
	}

	if (fseek(fp, phoffset, SEEK_SET) != 0)
		return BS_FSEEK;
	xdrstdio_create(&xdr, fp, XDR_ENCODE);

	if (!xdr_double(&xdr, &slon))
		return BS_WRITE;
	bs_iobytecnt+= 8;
	if (!xdr_double(&xdr, &slat))
		return BS_WRITE;
	bs_iobytecnt+= 8;
	if (!xdr_float(&xdr, &scourse))
		return BS_WRITE;
	bs_iobytecnt+= 4;

	xdr_destroy(&xdr);
	(void) fflush(fp);

	return BS_SUCCESS;
}

int
mbbs_wrtllc(int version, FILE *fp, long phoffset, double tlon, double tlat, float tcourse)
/*
   Writes towfish longitude, latitude and course fields
   of a ping header located at an arbitrary file byte offset.
*/
{
	XDR xdr;

	bs_iobytecnt= 0;

	switch (version) {
	case MR1_VERSION_1_0:
		return BS_BADDATA;
	case MR1_VERSION_2_0:
		phoffset+= 40;
		break;
	case BS_VERSION_1_0:
	case BS_VERSION_1_1:
	case BS_VERSION_1_2:
	case BS_VERSION_1_3:
	case BS_VERSION_1_4:
		phoffset+= 44;
		break;
	default:
		return BS_BADDATA;
	}

	if (fseek(fp, phoffset, SEEK_SET) != 0)
		return BS_FSEEK;
	xdrstdio_create(&xdr, fp, XDR_ENCODE);

	if (!xdr_double(&xdr, &tlon))
		return BS_WRITE;
	bs_iobytecnt+= 8;
	if (!xdr_double(&xdr, &tlat))
		return BS_WRITE;
	bs_iobytecnt+= 8;
	if (!xdr_float(&xdr, &tcourse))
		return BS_WRITE;
	bs_iobytecnt+= 4;

	xdr_destroy(&xdr);
	(void) fflush(fp);

	return BS_SUCCESS;
}

int
mbbs_wrtll(int version, FILE *fp, long phoffset, double tlon, double tlat)
/*
   Writes towfish longitude and latitude fields of a
   ping header located at an arbitrary file byte offset.
*/
{
	XDR xdr;

	bs_iobytecnt= 0;

	switch (version) {
	case MR1_VERSION_1_0:
		return BS_BADDATA;
	case MR1_VERSION_2_0:
		phoffset+= 40;
		break;
	case BS_VERSION_1_0:
	case BS_VERSION_1_1:
	case BS_VERSION_1_2:
	case BS_VERSION_1_3:
	case BS_VERSION_1_4:
		phoffset+= 44;
		break;
	default:
		return BS_BADDATA;
	}

	if (fseek(fp, phoffset, SEEK_SET) != 0)
		return BS_FSEEK;
	xdrstdio_create(&xdr, fp, XDR_ENCODE);

	if (!xdr_double(&xdr, &tlon))
		return BS_WRITE;
	bs_iobytecnt+= 8;
	if (!xdr_double(&xdr, &tlat))
		return BS_WRITE;
	bs_iobytecnt+= 8;

	xdr_destroy(&xdr);
	(void) fflush(fp);

	return BS_SUCCESS;
}