#include "xsnap.h"

// XS heap-snapshot contents depend upon the availability of
// __has_builtin (e.g. xsRun.c mxCase(XS_CODE_MULTIPLY) , around line
// 3419): it creates XS_INTEGER_KIND if available, XS_NUMBER_KIND if
// not. This is not visible from userspace, but breaks snapshot
// consensus between nodes compiled with e.g. gcc-9 (no __has_builtin,
// default compiler in Ubuntu-20.04-LTS) and gcc-11 (has it, default
// in Ubuntu-22.04-LTS). To prohibit variation which might break
// consensus, insist upon the newer feature, which will force an
// upgrade of either distro or compiler.

#ifndef __has_builtin
#error "xsnap requires __has_builtin (gcc>=10, e.g. Ubuntu-22.04), see https://github.com/Agoric/agoric-sdk/issues/7829"
#endif

#define SNAPSHOT_SIGNATURE "xsnap 1"
#ifndef XSNAP_VERSION
# error "You must define XSNAP_VERSION in the right Makefile"
#else
// Allows grepping the binary's strings for the version: strings xsnap-worker | grep xsnap_version
char *VERSION = "xsnap_version: " XSNAP_VERSION;
#endif

#ifndef XSNAP_TEST_RECORD
#define XSNAP_TEST_RECORD 1
#endif

#if XSNAP_TEST_RECORD
enum {
	mxTestRecordJS = 1,
	mxTestRecordJSON = 2,
	mxTestRecordParam = 4,
	mxTestRecordReply = 8,
};
int gxTestRecordParamIndex = 0;
int gxTestRecordReplyIndex = 0;
static void fxTestRecordArgs(int argc, char* argv[]);
static void fxTestRecord(int flags, void* buffer, size_t length);
#endif

static void xsBuildAgent(xsMachine* the);
static void xsPrintUsage();

// static void xs_clearTimer(xsMachine* the);
static void xs_currentMeterLimit(xsMachine* the);
static void xs_gc(xsMachine* the);
static void xs_issueCommand(xsMachine* the);
static void xs_performance_now(xsMachine* the);
static void xs_print(xsMachine* the);
static void xs_resetMeter(xsMachine* the);
static void xs_setImmediate(xsMachine* the);
// static void xs_setInterval(xsMachine* the);
// static void xs_setTimeout(xsMachine* the);

static int fxReadNetString(FILE *inStream, char** dest, size_t* len);
static char* fxReadNetStringError(int code);
static int fxWriteOkay(FILE* outStream, xsUnsignedValue meterIndex, xsMachine *the, char* buf, size_t len);
static int fxWriteNetString(FILE* outStream, char* prefix, char* buf, size_t len);
static char* fxWriteNetStringError(int code);
static void fxSigPipeHandler(int sigNum);

extern xsIntegerValue fxGetCurrentHeapCount(xsMachine* the);

extern void xs_textdecoder(xsMachine *the);
extern void xs_textdecoder_decode(xsMachine *the);
extern void xs_textdecoder_get_encoding(xsMachine *the);
extern void xs_textdecoder_get_ignoreBOM(xsMachine *the);
extern void xs_textdecoder_get_fatal(xsMachine *the);

extern void xs_textencoder(xsMachine *the);
extern void xs_textencoder_encode(xsMachine *the);
extern void xs_textencoder_encodeInto(xsMachine *the);

extern void modInstallTextDecoder(xsMachine *the);
extern void modInstallTextEncoder(xsMachine *the);

extern void xs_base64_encode(xsMachine *the);
extern void xs_base64_decode(xsMachine *the);
extern void modInstallBase64(xsMachine *the);

// The order of the callbacks materially affects how they are introduced to
// code that runs from a snapshot, so must be consistent in the face of
// upgrade.
#define mxSnapshotCallbackCount 18
xsCallback gxSnapshotCallbacks[mxSnapshotCallbackCount] = {
	xs_issueCommand, // 0
	xs_print, // 1
	xs_setImmediate, // 2
	xs_gc, // 3
	xs_performance_now, // 4
	xs_currentMeterLimit, // 5
	xs_resetMeter, // 6

	xs_textdecoder, // 7
	xs_textdecoder_decode, // 8
	xs_textdecoder_get_encoding, // 9
	xs_textdecoder_get_ignoreBOM, // 10
	xs_textdecoder_get_fatal, // 11

	xs_textencoder, // 12
	xs_textencoder_encode, // 13
	xs_textencoder_encodeInto, // 14

	xs_base64_encode, // 15
	xs_base64_decode, // 16

	fx_harden, // 17
	// fx_setInterval,
	// fx_setTimeout,
	// fx_clearTimer,
};

typedef struct {
	FILE *file;
	int size;
} SnapshotStream;

static int fxSnapshotRead(void* stream, void* address, size_t size)
{
	return (fread(address, size, 1, stream) == 1) ? 0 : errno;
}

static int fxSnapshotWrite(void* stream, void* address, size_t size)
{
	SnapshotStream* snapshotStream = stream;
	size_t written = fwrite(address, size, 1, snapshotStream->file);
	snapshotStream->size += size * written;
	return (written == 1) ? 0 : errno;
}

#if mxInstrument
#define xsnapInstrumentCount 1
static xsStringValue xsnapInstrumentNames[xsnapInstrumentCount] = {
	"Metering",
};
static xsStringValue xsnapInstrumentUnits[xsnapInstrumentCount] = {
	" times",
};
static xsIntegerValue xsnapInstrumentValues[xsnapInstrumentCount] = {
	0,
};
#endif

#if mxMetering
#define xsBeginCrank(_THE, _LIMIT) \
	(xsSetCurrentMeter(_THE, 0), \
	gxCurrentMeter = _LIMIT)
#define xsEndCrank(_THE) \
	(gxCurrentMeter = 0, \
	fxGetCurrentMeter(_THE))
#else
	#define xsBeginCrank(_THE, _LIMIT)
	#define xsEndCrank(_THE) 0
#endif

static xsUnsignedValue gxCrankMeteringLimit = 0;
static xsUnsignedValue gxCurrentMeter = 0;
xsBooleanValue fxMeteringCallback(xsMachine* the, xsUnsignedValue index)
{
	if (gxCurrentMeter > 0 && index > gxCurrentMeter) {
		// Just throw right out of the main loop and exit.
		return 0;
	}
	// fprintf(stderr, "metering up to %d\n", index);
	return 1;
}
static xsBooleanValue gxMeteringPrint = 0;

static FILE *fromParent;
static FILE *toParent;

typedef enum {
	E_UNKNOWN_ERROR = -1,
	E_SUCCESS = 0,
	E_BAD_USAGE,
	E_IO_ERROR,
	// 10 + XS_NOT_ENOUGH_MEMORY_EXIT
	E_NOT_ENOUGH_MEMORY = 11,
	E_STACK_OVERFLOW = 12,
	E_UNHANDLED_EXCEPTION = 15,
	E_NO_MORE_KEYS = 16,
	E_TOO_MUCH_COMPUTATION = 17,
} ExitCode;

// 250 syscalls
#define MAX_TIMESTAMPS 502
static struct timeval timestamps[MAX_TIMESTAMPS];
static int num_timestamps;
static unsigned int timestamps_overrun;
static void resetTimestamps() {
	timestamps_overrun = 0;
	num_timestamps = 0;
	// on 64-bit platforms, 'struct timeval' usually needs 8+8=16 bytes
	//printf("sizeof(time_t): %ld\n", sizeof(time_t));
	//printf("sizeof(time_suseconts_t): %ld\n", sizeof(suseconds_t));
}
static void recordTimestamp() {
	if (num_timestamps < MAX_TIMESTAMPS) {
		gettimeofday(&(timestamps[num_timestamps]), NULL);
		num_timestamps += 1;
	} else {
		timestamps_overrun = 1;
	}
}

// 2^64 is 18446744073709551616 , which is 20 characters long
#define DIGITS_FOR_64 20
// [AA.AA,BB.BB,CC.CC]\0
static char timestampBuffer[1 + MAX_TIMESTAMPS * (DIGITS_FOR_64 + 1 + 6 + 1) + 1];
// over provisioning by considering all "sec" values as the max printed length.
// While the last timestamps does not have a trailing comma, the payload ends
// with both a closing square bracket and a null byte.

static char *renderTimestamps() {
	// return pointer to static string buffer with '[NN.NN,NN.NN]', or NULL
	int size, i, wrote;
	char *p = timestampBuffer;
	size = sizeof(timestampBuffer); // holds all numbers, commas, and \0
	*(p++) = '['; size--;
	for (i = 0; i < num_timestamps; i++) {
		// snprintf() returns "the number of characters that would have
		// been printed if the size were unlimited, not including the
		// final \0". It writes at most size-1 characters, then writes
		// the trailing \0.
		// The type of tv_usec is 32 bits on Darwin and 64 bits on Linux at
		// time of writing.
		// We cast into the wider precision to ensure the format specifier gets
		// the expected number of bits behind the variadic args reference.
		// We do the same for tv_sec out of an outrageous abundance of caution.
		wrote = snprintf(p, size, "%lu.%06lu",
						 (unsigned long)timestamps[i].tv_sec,
						 (unsigned long)timestamps[i].tv_usec);
		if (wrote > size) {
			return NULL;
		}
		p += wrote;
		size -= wrote;
		if (size < 2) { // 2 is enough for "]\0", but 1 is not
			return NULL;
		}
		if (i+1 < num_timestamps) {
			// 2 is also enough for a comma
			*(p++) = ','; size--;
		}
		if (size < 2) { // but the comma might reduce size below 2
			return NULL;
		}
	}
	if (size < 2) { // paranoia, also in case loop never loops
		return NULL;
	}
	*(p++) = ']'; size--;
	*(p++) = '\0'; size--;
	return timestampBuffer;
}

static void fxSigPipeHandler(int sigNum)
{
	if (sigNum == SIGPIPE) {
		fprintf(stderr, "Caught SIGPIPE. Has parent died?\n");
		c_exit(E_IO_ERROR);
	}
}

int main(int argc, char* argv[])
{
	int argi;
	int argr = 0;
	int error = 0;
	int interval = 0;
	int parserBufferSize = 8192 * 1024;

	xsSnapshot snapshot = {
		SNAPSHOT_SIGNATURE,
		sizeof(SNAPSHOT_SIGNATURE) - 1,
		gxSnapshotCallbacks,
		mxSnapshotCallbackCount,
		fxSnapshotRead,
		fxSnapshotWrite,
		NULL,
		0,
		NULL,
		NULL,
		NULL,
		0,
		NULL
	};

	xsMachine* machine;
	char *path;

#if XSNAP_TEST_RECORD
	fxTestRecordArgs(argc, argv);
#endif

	for (argi = 1; argi < argc; argi++) {
		if (argv[argi][0] != '-')
			continue;
		if (!strcmp(argv[argi], "-h")) {
			xsPrintUsage();
			return 0;
		} else if (!strcmp(argv[argi], "-i")) {
			argi++;
			if (argi < argc)
				interval = atoi(argv[argi]);
			else {
				xsPrintUsage();
				return E_BAD_USAGE;
			}
		}
		else if (!strcmp(argv[argi], "-l")) {
#if mxMetering
			argi++;
			if (argi < argc)
				gxCrankMeteringLimit = atoi(argv[argi]);
			else {
				xsPrintUsage();
				return E_BAD_USAGE;
			}
#else
			fprintf(stderr, "%s flag not implemented; mxMetering is not enabled\n", argv[argi]);
			return E_BAD_USAGE;
#endif
		}
		else if (!strcmp(argv[argi], "-p"))
			gxMeteringPrint = 1;
		else if (!strcmp(argv[argi], "-r")) {
			argi++;
			if (argi < argc)
				argr = argi;
			else {
				xsPrintUsage();
				return E_BAD_USAGE;
			}
		}
		else if (!strcmp(argv[argi], "-s")) {
			argi++;
			if (argi < argc)
				parserBufferSize = 1024 * atoi(argv[argi]);
			else {
				xsPrintUsage();
				return E_BAD_USAGE;
			}
		}
		else if (!strcmp(argv[argi], "-v")) {
			char version[16];
			xsVersion(version, sizeof(version));
			printf("xsnap %s (XS %s)\n", XSNAP_VERSION, version);
			return E_SUCCESS;
		}
		else if (!strcmp(argv[argi], "-n")) {
			printf("deprecated\n");
			return E_SUCCESS;
		} else {
			xsPrintUsage();
			return E_BAD_USAGE;
		}
	}
	xsCreation _creation = {
		32 * 1024 * 1024,	/* initialChunkSize */
		4 * 1024 * 1024,	/* incrementalChunkSize */
		256 * 1024,			/* initialHeapCount */
		128 * 1024,			/* incrementalHeapCount */
		4096,				/* stackCount */
		32000, 				/* initialKeyCount */
		8000,				/* incrementalKeyCount */
		1993,				/* nameModulo */
		127,				/* symbolModulo */
		parserBufferSize,	/* parserBufferSize */
		1993,				/* parserTableModulo */
	};
	xsCreation* creation = &_creation;

	if (gxCrankMeteringLimit) {
		if (interval == 0)
			interval = 1;
	}
	xsInitializeSharedCluster();
	if (argr) {
		char *path = argv[argr];
		if (path[0] == '@') {
			int fd = atoi(path + 1);
			int tmpfd = dup(fd);
			if (tmpfd < 0) {
				snapshot.stream = NULL;
			} else {
				snapshot.stream = fdopen(tmpfd, "rb");
			}
		} else {
			snapshot.stream = fopen(path, "rb");
		}
		if (snapshot.stream) {
			machine = xsReadSnapshot(&snapshot, "xsnap", NULL);
			fclose(snapshot.stream);
		}
		else
			snapshot.error = errno;
		if (snapshot.error) {
			fprintf(stderr, "cannot read snapshot %s: %s\n", argv[argr], strerror(snapshot.error));
			return E_IO_ERROR;
		}
	}
	else {
		machine = xsCreateMachine(creation, "xsnap", NULL);
		xsBuildAgent(machine);
	}

	signal(SIGPIPE, fxSigPipeHandler);

	if (!(fromParent = fdopen(3, "rb"))) {
		fprintf(stderr, "fdopen(3) from parent failed\n");
		c_exit(E_IO_ERROR);
	}
	if (!(toParent = fdopen(4, "wb"))) {
		fprintf(stderr, "fdopen(4) to parent failed\n");
		c_exit(E_IO_ERROR);
	}
#if mxInstrument
	xsDescribeInstrumentation(machine, xsnapInstrumentCount, xsnapInstrumentNames, xsnapInstrumentUnits);
#endif
	xsBeginMetering(machine, fxMeteringCallback, interval);
	{
		fd_set rfds;
		char done = 0;
		while (!done) {
			#if mxInstrument
			FD_ZERO(&rfds);
			FD_SET(3, &rfds);
			FD_SET(5, &rfds);
			if (select(6, &rfds, NULL, NULL, NULL) >= 0) {
				if (FD_ISSET(5, &rfds))
					xsRunDebugger(machine);
				if (!FD_ISSET(3, &rfds))
					continue;
			}
			else {
				fprintf(stderr, "select failed: %s\n", strerror(errno));
				error = E_IO_ERROR;
				break;
			}
			#endif
			// By default, use the infinite meter.
			gxCurrentMeter = 0;

			xsUnsignedValue meterIndex = 0;
			char* nsbuf;
			size_t nslen;
			resetTimestamps();
			int readError = fxReadNetString(fromParent, &nsbuf, &nslen);
			recordTimestamp(); // after delivery received from parent
			int writeError = 0;

			if (readError != 0) {
				if (feof(fromParent)) {
					break;
				} else {
					fprintf(stderr, "%s\n", fxReadNetStringError(readError));
					c_exit(E_IO_ERROR);
				}
			}
			char command = *nsbuf;
			// fprintf(stderr, "command: len %d %c arg: %s\n", nslen, command, nsbuf + 1);
			switch(command) {
			case 'R': // isReady
				fxWriteNetString(toParent, ".", "", 0);
				break;
			case '?':
			case 'e':
				xsBeginCrank(machine, gxCrankMeteringLimit);
				char* response = NULL;
				xsIntegerValue responseLength = 0;
				error = 0;
				xsBeginHost(machine);
				{
					xsVars(3);
					xsTry {
						if (command == '?') {
							#if XSNAP_TEST_RECORD
								fxTestRecord(mxTestRecordJSON | mxTestRecordParam, nsbuf + 1, nslen - 1);
							#endif
							// TODO: can we avoid a copy?
							xsVar(0) = xsArrayBuffer(nsbuf + 1, nslen - 1);
							xsVar(1) = xsCall1(xsGlobal, xsID("handleCommand"), xsVar(0));
						} else {
							#if XSNAP_TEST_RECORD
								fxTestRecord(mxTestRecordJS | mxTestRecordParam, nsbuf + 1, nslen - 1);
							#endif
							xsVar(0) = xsStringBuffer(nsbuf + 1, nslen - 1);
							xsVar(1) = xsCall1(xsGlobal, xsID("eval"), xsVar(0));
						}
					}
					xsCatch {
						if (xsTypeOf(xsException) != xsUndefinedType) {
							// fprintf(stderr, "%c: %s\n", command, xsToString(xsException));
							error = E_UNHANDLED_EXCEPTION;
							xsVar(1) = xsException;
							xsException = xsUndefined;
						}
					}
				}
				fxRunLoop(machine);
				meterIndex = xsEndCrank(machine);
				{
					if (error) {
						response = xsToString(xsVar(1));
						responseLength = strlen(response);
					} else {
						// fprintf(stderr, "report: %d %s\n", xsTypeOf(report), xsToString(report));
						xsTry {
							if (xsTypeOf(xsVar(1)) == xsReferenceType && xsHas(xsVar(1), xsID("result"))) {
								xsVar(2) = xsGet(xsVar(1), xsID("result"));
							} else {
								xsVar(2) = xsVar(1);
							}
							// fprintf(stderr, "result: %d %s\n", xsTypeOf(result), xsToString(result));
							if (xsIsInstanceOf(xsVar(2), xsArrayBufferPrototype)) {
								responseLength = xsGetArrayBufferLength(xsVar(2));
								response = xsToArrayBuffer(xsVar(2));
							}
						}
						xsCatch {
							if (xsTypeOf(xsException) != xsUndefinedType) {
								fprintf(stderr, "%c computing response %d", command, xsTypeOf(xsVar(1)));
								fprintf(stderr, " %d:", xsTypeOf(xsVar(2)));
								fprintf(stderr, " %s:", xsToString(xsVar(2)));
								fprintf(stderr, " %s\n", xsToString(xsException));
								xsException = xsUndefined;
							}
						}
					}
				}
				xsEndHost(machine);
				if (error) {
						writeError = fxWriteNetString(toParent, "!", response, responseLength);
						// fprintf(stderr, "error: %d, writeError: %d %s\n", error, writeError, response);
				} else {
						// fprintf(stderr, "response of %d bytes\n", responseLength);
						writeError = fxWriteOkay(toParent, meterIndex, machine, response, responseLength);
				}
				if (writeError != 0) {
					fprintf(stderr, "%s\n", fxWriteNetStringError(writeError));
					c_exit(E_IO_ERROR);
				}
				break;
			case 's':
			case 'm':
				xsBeginCrank(machine, gxCrankMeteringLimit);
				path = nsbuf + 1;
				xsBeginHost(machine);
				{
					xsVars(1);
					xsTry {
						// ISSUE: realpath necessary? realpath(x, x) doesn't seem to work.
						if (command == 'm')
							xsRunModuleFile(path);
						else
							xsRunProgramFile(path);
					}
					xsCatch {
						if (xsTypeOf(xsException) != xsUndefinedType) {
							fprintf(stderr, "%s\n", xsToString(xsException));
							error = E_UNHANDLED_EXCEPTION;
							xsException = xsUndefined;
						}
					}
				}
				xsEndHost(machine);
				fxRunLoop(machine);
				meterIndex = xsEndCrank(machine);
				if (error == 0) {
					int writeError = fxWriteOkay(toParent, meterIndex, machine, "", 0);
					if (writeError != 0) {
						fprintf(stderr, "%s\n", fxWriteNetStringError(writeError));
						c_exit(E_IO_ERROR);
					}
				} else {
					// TODO: dynamically build error message including Exception message.
					int writeError = fxWriteNetString(toParent, "!", "", 0);
					if (writeError != 0) {
						fprintf(stderr, "%s\n", fxWriteNetStringError(writeError));
						c_exit(E_IO_ERROR);
					}
				}
				break;

			case 'w':
			#if XSNAP_TEST_RECORD
				fxTestRecord(mxTestRecordParam, nsbuf + 1, nslen - 1);
			#endif
				path = nsbuf + 1;
				SnapshotStream stream;
				if (path[0] == '@') {
					int fd = atoi(path + 1);
					int tmpfd = dup(fd);
					if (tmpfd < 0) {
						stream.file = NULL;
					} else {
						stream.file = fdopen(tmpfd, "ab");
					}
				} else {
					stream.file = fopen(path, "wb");
				}
				stream.size = 0;
				if (stream.file) {
					snapshot.stream = &stream;
					fxWriteSnapshot(machine, &snapshot);
					snapshot.stream = NULL;
					fclose(stream.file);
				}
				else
					snapshot.error = errno;
				if (snapshot.error) {
					fprintf(stderr, "cannot write snapshot %s: %s\n",
							path, strerror(snapshot.error));
					c_exit(E_IO_ERROR);
				}
				if (snapshot.error == 0) {
					// Allows us to format up to 999,999,999,999 bytes (1TiB - 1)
					char fsize[13];
					int fsizeLength = snprintf(fsize, sizeof(fsize), "%d", stream.size);
					int writeError = fxWriteOkay(toParent, meterIndex, machine, fsize, fsizeLength);
					if (writeError != 0) {
						fprintf(stderr, "%s\n", fxWriteNetStringError(writeError));
						c_exit(E_IO_ERROR);
					}
				} else {
					// TODO: dynamically build error message including Exception message.
					int writeError = fxWriteNetString(toParent, "!", "", 0);
					if (writeError != 0) {
						fprintf(stderr, "%s\n", fxWriteNetStringError(writeError));
						c_exit(E_IO_ERROR);
					}
				}
				break;
			case 'q':
				done = 1;
				break;

			// We reserve some prefix characters to avoid/detect/debug confusion,
			// all of which are explicitly rejected, just like unknown commands. Do not
			// reuse these for new commands.
			case '/': // downstream response to upstream issueCommand()
			case '.': // upstream good response to downstream execute/eval
			case '!': // upstream error response to downstream execute/eval
			default:
				// note: the nsbuf we receive from fxReadNetString is null-terminated
				fprintf(stderr, "Unexpected prefix '%c' in command '%s'\n", command, nsbuf);
				c_exit(E_IO_ERROR);
				break;
			}
			free(nsbuf);
#if mxInstrument
			xsnapInstrumentValues[0] = (xsIntegerValue)meterIndex;
			xsSampleInstrumentation(machine, xsnapInstrumentCount, xsnapInstrumentValues);
#endif
		}
		xsBeginHost(machine);
		{
			if (xsTypeOf(xsException) != xsUndefinedType) {
				fprintf(stderr, "%s\n", xsToString(xsException));
				error = E_UNHANDLED_EXCEPTION;
			}
		}
		xsEndHost(machine);
	}
	xsEndMetering(machine);
	if (machine->abortStatus) {
		switch (machine->abortStatus) {
		case xsNotEnoughMemoryExit:
			error = E_NOT_ENOUGH_MEMORY;
			break;
		case xsStackOverflowExit:
			error = E_STACK_OVERFLOW;
			break;
		case xsNoMoreKeysExit:
			error = E_NO_MORE_KEYS;
			break;
		case xsTooMuchComputationExit:
			error = E_TOO_MUCH_COMPUTATION;
			break;
		default:
			error = E_UNKNOWN_ERROR;
			break;
		}
	}
	if (error != E_SUCCESS) {
		c_exit(error);
	}
	xsDeleteMachine(machine);
	fxTerminateSharedCluster();
	return E_SUCCESS;
}

void xsBuildAgent(xsMachine* machine)
{
	xsBeginHost(machine);
	xsVars(1);
	
// 	xsResult = xsNewHostFunction(xs_clearTimer, 1);
// 	xsDefine(xsGlobal, xsID("clearImmediate"), xsResult, xsDontEnum);
	xsResult = xsNewHostFunction(xs_setImmediate, 1);
	xsDefine(xsGlobal, xsID("setImmediate"), xsResult, xsDontEnum);
	
// 	xsResult = xsNewHostFunction(xs_clearTimer, 1);
// 	xsDefine(xsGlobal, xsID("clearInterval"), xsResult, xsDontEnum);
// 	xsResult = xsNewHostFunction(xs_setInterval, 1);
// 	xsDefine(xsGlobal, xsID("setInterval"), xsResult, xsDontEnum);
	
// 	xsResult = xsNewHostFunction(xs_clearTimer, 1);
// 	xsDefine(xsGlobal, xsID("clearTimeout"), xsResult, xsDontEnum);
// 	xsResult = xsNewHostFunction(xs_setTimeout, 1);
// 	xsDefine(xsGlobal, xsID("setTimeout"), xsResult, xsDontEnum);
	
	xsResult = xsNewHostFunction(xs_gc, 1);
	xsDefine(xsGlobal, xsID("gc"), xsResult, xsDontEnum);
	xsResult = xsNewHostFunction(xs_print, 1);
	xsDefine(xsGlobal, xsID("print"), xsResult, xsDontEnum);
	
	xsResult = xsNewHostFunction(xs_issueCommand, 1);
	xsDefine(xsGlobal, xsID("issueCommand"), xsResult, xsDontEnum);

	xsResult = xsNewObject();
	xsVar(0) = xsNewHostFunction(xs_performance_now, 0);
	xsDefine(xsResult, xsID("now"), xsVar(0), xsDontEnum);
	xsDefine(xsGlobal, xsID("performance"), xsResult, xsDontEnum);
	
	xsResult = xsNewHostFunction(xs_currentMeterLimit, 1);
	xsDefine(xsGlobal, xsID("currentMeterLimit"), xsResult, xsDontEnum);
	xsResult = xsNewHostFunction(xs_resetMeter, 1);
	xsDefine(xsGlobal, xsID("resetMeter"), xsResult, xsDontEnum);

	modInstallTextDecoder(the);
	modInstallTextEncoder(the);
	modInstallBase64(the);

 	xsResult = xsNewHostFunction(fx_harden, 1);
 	xsDefine(xsGlobal, xsID("harden"), xsResult, xsDontEnum);

// 	xsResult = xsNewObject();
// 	xsVar(0) = xsNewHostFunction(fx_print, 0);
// 	xsDefine(xsResult, xsID("log"), xsVar(0), xsDontEnum);
// 	xsDefine(xsGlobal, xsID("console"), xsResult, xsDontEnum);

	xsEndHost(machine);
}

void xsPrintUsage()
{
	printf("xsnap [-h] [-i <interval>] [-l <limit>] [-s <size>] [-m] [-r <snapshot>] [-s] [-v]\n");
	printf("\t-h: print this help message\n");
	printf("\t-i <interval>: metering interval (default to 1)\n");
	printf("\t-l <limit>: metering limit (default to none)\n");
	printf("\t-s <size>: parser buffer size, in kB (default to 8192)\n");
	printf("\t-r <snapshot>: read snapshot to create the XS machine\n");
	printf("\t-v: print XS version\n");
}

void xs_clearTimer(xsMachine* the)
{
	xsClearTimer();
}

void xs_currentMeterLimit(xsMachine* the)
{
#if mxMetering
	xsResult = xsInteger(gxCurrentMeter);
#endif
}

void xs_gc(xsMachine* the)
{
	xsCollectGarbage();
}

void xs_performance_now(xsMachine *the)
{
	c_timeval tv;
	c_gettimeofday(&tv, NULL);
	xsResult = xsNumber((double)(tv.tv_sec * 1000.0) + ((double)(tv.tv_usec) / 1000.0));
}

void xs_print(xsMachine* the)
{
	xsIntegerValue c = xsToInteger(xsArgc), i;
#if mxMetering
	if (gxMeteringPrint)
		fprintf(stdout, "[%u] ", xsGetCurrentMeter(the));
#endif
	for (i = 0; i < c; i++) {
		if (i)
			fprintf(stdout, " ");
		fprintf(stdout, "%s", xsToString(xsArg(i)));
	}
	fprintf(stdout, "\n");
		fflush(stdout);
}

void xs_resetMeter(xsMachine* the)
{
#if mxMetering
	xsIntegerValue argc = xsToInteger(xsArgc);
	if (argc < 2) {
		xsTypeError("expected newMeterLimit, newMeterIndex");
	}
	xsResult = xsInteger(xsGetCurrentMeter(the));
	gxCurrentMeter = xsToInteger(xsArg(0));
	xsSetCurrentMeter(the, xsToInteger(xsArg(1)));
#endif
}

void xs_setImmediate(xsMachine* the)
{
	xsSetTimer(0, 0);
}

void xs_setInterval(xsMachine* the)
{
	xsSetTimer(xsToNumber(xsArg(1)), 1);
}

void xs_setTimeout(xsMachine* the)
{
	xsSetTimer(xsToNumber(xsArg(1)), 0);
}


static int fxReadNetString(FILE *inStream, char** dest, size_t* len)
{
	int code = 0;
	char* buf = NULL;

	if (fscanf(inStream, "%9lu", len) < 1) {
		/* >999999999 bytes is bad */
		code = 1;
	} else if (fgetc(inStream) != ':') {
		code = 2;
	} else {
		buf = malloc(*len + 1); /* malloc(0) is not portable */
		if (!buf) {
			code = 3;
		} else if (fread(buf, 1, *len, inStream) < *len) {
			code = 4;
		} else if (fgetc(inStream) != ',') {
			code = 5;
		} else {
			*(buf + *len) = 0;
		}
		if (code == 0) {
			*dest = buf;
		} else {
			*dest = 0;
			free(buf);
		}
	}
	return code;
}

static char* fxReadNetStringError(int code)
{
	switch (code) {
	case 0: return "OK";
	case 1: return "Cannot read netstring, reading length prefix, fscanf";
	case 2: return "Cannot read netstring, invalid delimiter or end of file, fgetc";
	case 3: return "Cannot read netstring, cannot allocate message buffer, malloc";
	case 4: return "Cannot read netstring, cannot read message body, fread";
	case 5: return "Cannot read netstring, cannot read trailer, fgetc";
	default: return "Cannot read netstring";
	}
}

static int fxWriteOkay(FILE* outStream, xsUnsignedValue meterIndex, xsMachine *the, char* buf, size_t length)
{
	recordTimestamp(); // before sending delivery-result to parent
	char *tsbuf = renderTimestamps();
	if (!tsbuf) {
		// rendering overrun error, send empty list
		tsbuf = "[]";
	}
	char fmt[] = ("." // OK
				  "{"
				  "\"currentHeapCount\":%u,"
				  "\"compute\":%u,"
				  "\"allocate\":%u,"
				  "\"timestamps\":%s}"
				  "\1" // separate meter info from result
				  );
	char numeral64[] = "12345678901234567890"; // big enough for 64bit numeral
	char prefix[8 + sizeof fmt + 8 * sizeof numeral64 + sizeof timestampBuffer];
	// Prepend the meter usage to the reply.
	snprintf(prefix, sizeof(prefix), fmt,
			 fxGetCurrentHeapCount(the),
			 meterIndex, the->allocatedSpace, tsbuf);
	return fxWriteNetString(outStream, prefix, buf, length);
}

static int fxWriteNetString(FILE* outStream, char* prefix, char* buf, size_t length)
{
	if (fprintf(outStream, "%lu:%s", length + strlen(prefix), prefix) < 1) {
		return 1;
	} else if (fwrite(buf, 1, length, outStream) < length) {
		return 2;
	} else if (fputc(',', outStream) == EOF) {
		return 3;
	} else if (fflush(outStream) < 0) {
		return 4;
	}

	return 0;
}

static char* fxWriteNetStringError(int code)
{
	switch (code) {
	case 0: return "OK";
	case 1: return "Cannot write netstring, error writing length prefix";
	case 2: return "Cannot write netstring, error writing message body";
	case 3: return "Cannot write netstring, error writing terminator";
	case 4: return "Cannot write netstring, error flushing stream, fflush";
	default: return "Cannot write netstring";
	}
}

static void xs_issueCommand(xsMachine *the)
{
	int argc = xsToInteger(xsArgc);
	if (argc < 1) {
		xsTypeError("expected ArrayBuffer");
	}

	size_t length = xsGetArrayBufferLength(xsArg(0));
	char* buf = xsToArrayBuffer(xsArg(0));
  
	recordTimestamp(); // before sending command to parent

	int writeError = fxWriteNetString(toParent, "?", buf, length);

	if (writeError != 0) {
		xsUnknownError(fxWriteNetStringError(writeError));
	}

	// read netstring
	size_t len;
	int readError = fxReadNetString(fromParent, &buf, &len);
	if (readError != 0) {
		if (feof(fromParent)) {
			fprintf(stderr, "Got EOF on netstring read. Has parent died?\n");
			c_exit(E_IO_ERROR);
		}
		xsUnknownError(fxReadNetStringError(readError));
	}
	recordTimestamp(); // after command-result received from parent

#if XSNAP_TEST_RECORD
	fxTestRecord(mxTestRecordJSON | mxTestRecordReply, buf, len);
#endif
	char command = *buf;
	if (len == 0 || command != '/') {
		xsUnknownError("Received unexpected command reply.");
	}

	xsResult = xsArrayBuffer(buf + 1, len - 1);
	free(buf);
}

#if XSNAP_TEST_RECORD

static char directory[PATH_MAX];
void fxTestRecordArgs(int argc, char* argv[])
{
	struct timeval tv;
	struct tm* tm_info;
	gettimeofday(&tv, NULL);
	char path[PATH_MAX];
	FILE* file;
	mkdir("xsnap-tests", 0755);
	tm_info = localtime(&tv.tv_sec);
	strftime(path, sizeof(path), "%Y-%m-%d-%H-%M-%S", tm_info);
	sprintf(directory, "xsnap-tests/%s-%3.3d", path, tv.tv_usec / 1000);
	mkdir(directory, 0755);
	sprintf(path, "%s/args.sh", directory);
	file = fopen(path, "w");
	if (file) {
		int argi;
		for (argi = 0; argi < argc; argi++)
			fprintf(file, " %s", argv[argi]);
		fprintf(file, "\n");
		fclose(file);
	}
}

void fxTestRecord(int flags, void* buffer, size_t length)
{
	char path[PATH_MAX];
	FILE* file;
	if (flags & mxTestRecordParam) {
		sprintf(path, "%s/param-%d", directory, gxTestRecordReplyIndex);
		gxTestRecordReplyIndex++;
	}
	else {
		sprintf(path, "%s/reply-%d", directory, gxTestRecordParamIndex);
		gxTestRecordParamIndex++;
	}
	if (flags & mxTestRecordJS)
		strcat(path, ".js");
	else if (flags & mxTestRecordJSON)
		strcat(path, ".json");
	else
		strcat(path, ".txt");
	file = fopen(path, "wb");
	if (file) {
		fwrite(buffer, 1, length, file);
		fclose(file);
	}
}

#endif

// Local Variables:
// tab-width: 4
// c-basic-offset: 4
// indent-tabs-mode: t
// End:
// vim: noet ts=4 sw=4