/*
 * AUTHOR
 * N. Nielsen
 *
 * LICENSE
 * This software is in the public domain.
 *
 * The software is provided "as is", without warranty of any kind,
 * express or implied, including but not limited to the warranties
 * of merchantability, fitness for a particular purpose, and
 * noninfringement. In no event shall the author(s) be liable for any
 * claim, damages, or other liability, whether in an action of
 * contract, tort, or otherwise, arising from, out of, or in connection
 * with the software or the use or other dealings in the software.
 *
 * SUPPORT
 * Send bug reports to: <nielsen@memberwebs.com>
 */

#include <stdlib.h>
#include <string.h>
#include "common/usuals.h"
#include "common/compat.h"
#include "common/binfile.h"
#include "common/repfile.h"

/* errmsg: -----------------------------------------------------------
 *  Display an rlib error on the console
 */
int errmsg(int ret, r_script* script)
{
	const char* msg;

	switch(ret)
	{
	case R_NOMEM:
		msg = "out of memory";
		break;
	case R_SYNTAX:
		msg = "syntax error:";
		break;
	case R_REGEXP:
		msg = "reg expression error:";
		break;
	case R_LOOP:
		msg = "an endless loop was encountered ";
		break;
	case R_USER:
		msg = "stop: ";
		break;
	case R_IOERR:
		msg = "read or write error";
		break;
	case R_INVARG:
		ASSERT(0 && "This error should be taken care of by programmer");
		msg = "internal programmer error";
		break;
	default:
		msg = "unknown error";
		break;
	}

	if(script && script->error)
	{
		if(script->errline > 0)
			warnx("%s %s (at line %d)", msg, script->error, script->errline);
		else
			warnx("%s %s", msg, script->error);
	}
	else
	{
		warnx(msg);
	}

	return ret;
}

/* repscriptheader: -------------------------------------------------
 *  The top of every compiled rep file has this signature
 */
typedef struct _repscriptheader
{
	uint sig;			/* 'rep0' */
	uint version;		/* Note this is the file version */
}
repscriptheader;

const uint kReplSig = '0per';
const uint kReplVer = 0x00023100;

/* repfWriteHeader: -------------------------------------------------
 *  Write out a valid header
 */
bool repfWriteHeader(BFILE h)
{
	repscriptheader head;
	head.sig = kReplSig;
	head.version = kReplVer;

	bfWriteRaw(h, &head, sizeof(head));
	return !bfError(h);
}

/* repfReadHeader: --------------------------------------------------
 *  Read and validate rep file header
 */
bool repfReadHeader(BFILE h)
{
	repscriptheader head;
	memset(&head, 0, sizeof(head));
	bfReadRaw(h, &head, sizeof(head));
	return head.sig == kReplSig && head.version == kReplVer;
}