#ifndef lint
static const char RCSid[] = "$Id: normcodec.c,v 2.1 2019/07/19 02:18:44 greg Exp $";
#endif
/*
 * Routines to encode/decoded 16-bit depths
 */

#include "copyright.h"

#include "rtio.h"
#include "rtmath.h"
#include "normcodec.h"


/* Set codec defaults */
void
set_nc_defaults(NORMCODEC *ncp)
{
	memset(ncp, 0, sizeof(NORMCODEC));
	ncp->finp = stdin;
	ncp->inpname = "<stdin>";
	ncp->format = 'a';
	ncp->res.rt = PIXSTANDARD;
	if (!progname) progname = "norm_codec";
}


/* process header line */
static int
headline(char *s, void *p)
{
	NORMCODEC	*ncp = (NORMCODEC *)p;

	if (formatval(ncp->inpfmt, s))	/* don't pass format */
		return 0;

	if (ncp->hdrflags & HF_HEADOUT)
		fputs(s, stdout);	/* copy to standard output */
	return 1;
}


/* Load/copy header */
int
process_nc_header(NORMCODEC *ncp, int ac, char *av[])
{
	if (ncp->hdrflags & HF_HEADIN &&
			getheader(ncp->finp, headline, ncp) < 0) {
		fputs(ncp->inpname, stderr);
		fputs(": bad header\n", stderr);
		return 1;
	}
	if (ncp->hdrflags & HF_HEADOUT) {	/* finish header */
		if (!(ncp->hdrflags & HF_HEADIN))
			newheader("RADIANCE", stdout);
		if (ac > 0)
			printargs(ac, av, stdout);
		if (ncp->hdrflags & HF_ENCODE) {
			fputformat(NORMAL32FMT, stdout);
		} else
			switch (ncp->format) {
			case 'a':
				fputformat("ascii", stdout);
				break;
			case 'f':
				fputformat("float", stdout);
				break;
			case 'd':
				fputformat("double", stdout);
				break;
			}
		fputc('\n', stdout);
	}
					/* get/put resolution string */
	if (ncp->hdrflags & HF_RESIN && !fgetsresolu(&ncp->res, ncp->finp)) {
		fputs(ncp->inpname, stderr);
		fputs(": bad resolution string\n", stderr);
		return 1;
	}
	if (ncp->hdrflags & HF_RESOUT)
		fputsresolu(&ncp->res, stdout);

	ncp->dstart = ncp->curpos = ftell(ncp->finp);
	return 1;
}


/* Check that we have what we need to decode depths */
int
check_decode_normals(NORMCODEC *ncp)
{
	if (ncp->hdrflags & HF_ENCODE) {
		fputs(progname, stderr);
		fputs(": wrong header mode for decode\n", stderr);
		return 0;
	}
	if (ncp->inpfmt[0] && strcmp(ncp->inpfmt, NORMAL32FMT)) {
		fputs(ncp->inpname, stderr);
		fputs(": unexpected input format: ", stderr);
		fputs(ncp->inpfmt, stderr);
		fputc('\n', stderr);
		return 0;
	}
	return 1;
}


/* Decode next normal from input */
int
decode_normal_next(FVECT nrm, NORMCODEC *ncp)
{
	int32	c = getint(4, ncp->finp);

	if (c == EOF && feof(ncp->finp))
		return -1;

	ncp->curpos += 4;

	decodedir(nrm, c);

	return (c != 0);
}


/* Seek to the indicated pixel position */
int
seek_nc_pix(NORMCODEC *ncp, int x, int y)
{
	long	seekpos;

	if ((ncp->res.xr <= 0) | (ncp->res.yr <= 0)) {
		fputs(progname, stderr);
		fputs(": need map resolution to seek\n", stderr);
		return -1;
	}
	if ((x < 0) | (y < 0) ||
			(x >= scanlen(&ncp->res)) | (y >= numscans(&ncp->res))) {
		fputs(ncp->inpname, stderr);
		fputs(": warning - pixel index off map\n", stderr);
		return 0;
	}
	seekpos = ncp->dstart + 4*((long)y*scanlen(&ncp->res) + x);

	if (seekpos != ncp->curpos &&
			fseek(ncp->finp, seekpos, SEEK_SET) == EOF) {
		fputs(ncp->inpname, stderr);
		fputs(": seek error\n", stderr);
		return -1;
	}
	ncp->curpos = seekpos;
	return 1;
}


/* Read and decode depth for the given pixel */
int
decode_normal_pix(FVECT nrm, NORMCODEC *ncp, int x, int y)
{
	int	rval = seek_nc_pix(ncp, x, y);

	if (rval < 0)
		return -1;

	if (!rval) {
		nrm[0] = nrm[1] = nrm[2] = .0;
		return 0;
	}
	return decode_normal_next(nrm, ncp);
}