@agoric/xsnap 0.14.3-dev-b047af2.0 → 0.14.3-dev-2a16ddd.0

package/xsnap-native/xsnap/sources/xsnap.h

@@ -1,142 +0,0 @@
-#ifndef __XSNAP__
-#define __XSNAP__
-
-#include "xs.h"
-
-typedef struct xsSnapshotRecord xsSnapshot;
-
-struct xsSnapshotRecord {
-	char* signature;
-	int signatureLength;
-	xsCallback* callbacks;
-	int callbacksLength;
-	int (*read)(void* stream, void* address, size_t size);
-	int (*write)(void* stream, void* address, size_t size);
-	void* stream;
-	int error;
-	void* firstChunk;
-	void* firstProjection;
-	void* firstSlot;
-	int slotSize;
-	void* slots;
-};
-
-#define xsInitializeSharedCluster() \
-	fxInitializeSharedCluster()
-#define xsTerminateSharedCluster() \
-	fxTerminateSharedCluster()
-
-#ifdef mxMetering
-
-#define xsBeginMetering(_THE, _CALLBACK, _STEP) \
-	do { \
-		xsJump __HOST_JUMP__; \
-		__HOST_JUMP__.nextJump = (_THE)->firstJump; \
-		__HOST_JUMP__.stack = (_THE)->stack; \
-		__HOST_JUMP__.scope = (_THE)->scope; \
-		__HOST_JUMP__.frame = (_THE)->frame; \
-		__HOST_JUMP__.environment = NULL; \
-		__HOST_JUMP__.code = (_THE)->code; \
-		__HOST_JUMP__.flag = 0; \
-		(_THE)->firstJump = &__HOST_JUMP__; \
-		if (setjmp(__HOST_JUMP__.buffer) == 0) { \
-			fxBeginMetering(_THE, _CALLBACK, _STEP)
-
-#define xsEndMetering(_THE) \
-			fxEndMetering(_THE); \
-		} \
-		(_THE)->stack = __HOST_JUMP__.stack, \
-		(_THE)->scope = __HOST_JUMP__.scope, \
-		(_THE)->frame = __HOST_JUMP__.frame, \
-		(_THE)->code = __HOST_JUMP__.code, \
-		(_THE)->firstJump = __HOST_JUMP__.nextJump; \
-		break; \
-	} while(1)
-			
-#define xsGetCurrentMeter(_THE) \
-	fxGetCurrentMeter(_THE)
-#define xsSetCurrentMeter(_THE, _VALUE) \
-	fxSetCurrentMeter(_THE, _VALUE)
-
-#else
-	#define xsBeginMetering(_THE, _CALLBACK, _STEP)
-	#define xsEndMetering(_THE)
-	#define xsPatchHostFunction(_FUNCTION,_PATCH)
-	#define xsMeterHostFunction(_COUNT) (void)(_COUNT)
-	#define xsGetCurrentMeter(_THE) 0
-	#define xsSetCurrentMeter(_THE, _VALUE)
-#endif
-
-#define xsReadSnapshot(_SNAPSHOT, _NAME, _CONTEXT) \
-	fxReadSnapshot(_SNAPSHOT, _NAME, _CONTEXT)
-#define xsWriteSnapshot(_THE, _SNAPSHOT) \
-	fxWriteSnapshot(_THE, _SNAPSHOT)
-	
-#define xsRunDebugger(_THE) \
-	fxRunDebugger(_THE)
-#define xsRunModuleFile(_PATH) \
-	fxRunModuleFile(the, _PATH)
-#define xsRunProgramFile(_PATH) \
-	fxRunProgramFile(the, _PATH)
-#define xsRunLoop(_THE) \
-	fxRunLoop(_THE)
-
-#define xsClearTimer() \
-	fxClearTimer(the)
-#define xsSetTimer(_INTERVAL, _REPEAT) \
-	fxSetTimer(the, _INTERVAL, _REPEAT)
-	
-#define xsVersion(_BUFFER, _SIZE) \
-	fxVersion(_BUFFER, _SIZE)
-
-#ifdef mxInstrument	
-#define xsDescribeInstrumentation(_THE,_COUNT,_NAMES,_UNITS) \
-	fxDescribeInstrumentation(_THE,_COUNT,_NAMES,_UNITS)
-#define xsSampleInstrumentation(_THE,_COUNT,_VALUES) \
-	fxSampleInstrumentation(_THE,_COUNT,_VALUES)
-#endif
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-extern void fxInitializeSharedCluster();
-extern void fxTerminateSharedCluster();
-
-#ifdef mxMetering
-mxImport void fxBeginMetering(xsMachine* the, xsBooleanValue (*callback)(xsMachine*, xsUnsignedValue), xsUnsignedValue interval);
-mxImport void fxEndMetering(xsMachine* the);
-mxImport void fxMeterHostFunction(xsMachine* the, xsUnsignedValue count);
-mxImport void fxPatchHostFunction(xsMachine* the, xsCallback patch);
-mxImport xsUnsignedValue fxGetCurrentMeter(xsMachine* the);
-mxImport void fxSetCurrentMeter(xsMachine* the, xsUnsignedValue value);
-#endif
-
-mxImport xsMachine* fxReadSnapshot(xsSnapshot* snapshot, xsStringValue theName, void* theContext);
-mxImport int fxWriteSnapshot(xsMachine* the, xsSnapshot* snapshot);
-
-mxImport void fxRunDebugger(xsMachine* the);
-mxImport void fxRunModuleFile(xsMachine* the, xsStringValue path);
-mxImport void fxRunProgramFile(xsMachine* the, xsStringValue path);
-mxImport void fxRunLoop(xsMachine* the);
-
-mxImport void fxClearTimer(xsMachine* the);
-mxImport void fxSetTimer(xsMachine* the, xsNumberValue interval, xsBooleanValue repeat);
-
-#ifdef mxInstrument	
-mxImport void fxDescribeInstrumentation(xsMachine* the, xsIntegerValue count, xsStringValue* names, xsStringValue* units);
-mxImport void fxSampleInstrumentation(xsMachine* the, xsIntegerValue count, xsIntegerValue* values);
-#endif
-
-mxImport void fxVersion(xsStringValue theBuffer, xsUnsignedValue theSize);
-
-mxImport void fx_lockdown(xsMachine* the);
-mxImport void fx_harden(xsMachine* the);
-mxImport void fx_petrify(xsMachine* the);
-mxImport void fx_mutabilities(xsMachine* the);
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif /* __XSNAP__ */