r18925: Add current snapshot of the ejs-2.0 code. Tridge, will you be incorporating this?

(This used to be commit 917af234a8d517f82bd42256a940608a16b988f4)

1 files changed, 326 insertions, 0 deletions

diff --git a/source4/lib/appweb/ejs-2.0/ejs/system/ejsGC.c b/source4/lib/appweb/ejs-2.0/ejs/system/ejsGC.c
new file mode 100644
index 0000000000..411975f80e
--- /dev/null
+++ b/source4/lib/appweb/ejs-2.0/ejs/system/ejsGC.c
@@ -0,0 +1,326 @@
+/*
+ *	@file 	ejsGC.c
+ *	@brief 	Garbage collector class for the EJS Object Model
+ */
+/********************************** Copyright *********************************/
+/*
+ *	Copyright (c) Mbedthis Software LLC, 2005-2006. All Rights Reserved.
+ */
+/********************************** Includes **********************************/
+
+#include	"ejs.h"
+
+/******************************************************************************/
+/************************************ Methods *********************************/
+/******************************************************************************/
+#if (WIN || BREW_SIMULATOR) && BLD_DEBUG
+
+static int checkProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	_CrtCheckMemory();
+	return 0;
+}
+
+#endif
+/******************************************************************************/
+
+static int debugProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	if (argc != 1) {
+		ejsError(ep, EJS_ARG_ERROR, "Bad args: debug(debugLevel)");
+		return -1;
+	}
+
+	ejsSetGCDebugLevel(ep, ejsVarToInteger(argv[0]));
+	return 0;
+}
+
+/******************************************************************************/
+/*
+ *	Print stats and dump objects
+ */
+
+static int printStatsProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	bool	leakStats;
+
+	if (argc > 1) {
+		leakStats = ejsVarToInteger(argv[0]);
+	} else {
+		leakStats = 0;
+	}
+
+#if BLD_FEATURE_ALLOC_STATS
+	ejsPrintAllocReport(ep, 0);
+
+	mprPrintAllocReport(mprGetApp(ep), leakStats, 0);
+#endif
+
+#if BLD_DEBUG
+	ejsDumpObjects(ep);
+#endif
+
+	return 0;
+}
+
+/******************************************************************************/
+
+static int runProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	if (argc > 1) {
+		ejsError(ep, EJS_ARG_ERROR, "Bad args: run([quick])");
+		return -1;
+	}
+
+	if (argc == 1) {
+		ejsIncrementalCollectGarbage(ep);
+	} else {
+		ejsCollectGarbage(ep, -1);
+	}
+	return 0;
+}
+
+/******************************************************************************/
+
+static int usedMemoryProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	ejsSetReturnValueToInteger(ep, ejsGetUsedMemory(ep));
+	return 0;
+}
+
+/******************************************************************************/
+
+static int allocatedMemoryProc(Ejs *ep, EjsVar *thisObj, int argc, 
+	EjsVar **argv)
+{
+#if BLD_FEATURE_ALLOC_STATS
+	ejsSetReturnValueToInteger(ep, ejsGetAllocatedMemory(ep));
+#endif
+	return 0;
+}
+
+/******************************************************************************/
+
+static int mprMemoryProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+#if BLD_FEATURE_ALLOC_STATS
+	ejsSetReturnValueToInteger(ep, mprGetAllocatedMemory(ep));
+#endif
+	return 0;
+}
+
+/******************************************************************************/
+
+static int peakMprMemoryProc(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+#if BLD_FEATURE_ALLOC_STATS
+	ejsSetReturnValueToInteger(ep, mprGetPeakAllocatedMemory(ep));
+#endif
+	return 0;
+}
+
+/******************************************************************************/
+
+static int getDebugLevel(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	ejsSetReturnValueToInteger(ep, ep->gc.debugLevel);
+	return 0;
+}
+
+/******************************************************************************/
+
+static int setDebugLevel(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	if (argc != 1) {
+		ejsArgError(ep, "Bad arguments");
+		return -1;
+	}
+	ep->gc.debugLevel= ejsVarToInteger(argv[0]);
+	return 0;
+}
+
+/******************************************************************************/
+
+static int getEnable(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	ejsSetReturnValueToBoolean(ep, ep->gc.enable);
+	return 0;
+}
+
+/******************************************************************************/
+
+static int setEnable(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	if (argc != 1) {
+		ejsArgError(ep, "Bad arguments");
+		return -1;
+	}
+	ep->gc.enable= ejsVarToBoolean(argv[0]);
+	return 0;
+}
+
+/******************************************************************************/
+
+static int getDemandCollect(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	ejsSetReturnValueToBoolean(ep, ep->gc.enableDemandCollect);
+	return 0;
+}
+
+/******************************************************************************/
+
+static int setDemandCollect(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	if (argc != 1) {
+		ejsArgError(ep, "Bad arguments");
+		return -1;
+	}
+	ep->gc.enableDemandCollect = ejsVarToBoolean(argv[0]);
+	return 0;
+}
+
+/******************************************************************************/
+
+static int getIdleCollect(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	ejsSetReturnValueToBoolean(ep, ep->gc.enableIdleCollect);
+	return 0;
+}
+
+/******************************************************************************/
+
+static int setIdleCollect(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	if (argc != 1) {
+		ejsArgError(ep, "Bad arguments");
+		return -1;
+	}
+	ep->gc.enableIdleCollect = ejsVarToBoolean(argv[0]);
+	return 0;
+}
+
+/******************************************************************************/
+
+static int getWorkQuota(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	ejsSetReturnValueToInteger(ep, ep->gc.workQuota);
+	return 0;
+}
+
+/******************************************************************************/
+
+static int setWorkQuota(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	int		quota;
+
+	if (argc != 1) {
+		ejsArgError(ep, "Bad arguments");
+		return -1;
+	}
+	quota = ejsVarToInteger(argv[0]);
+	if (quota < EJS_GC_MIN_WORK_QUOTA && quota != 0) {
+		ejsArgError(ep, "Bad work quota");
+		return -1;
+	}
+
+	ep->gc.workQuota = quota;
+	return 0;
+}
+
+/******************************************************************************/
+
+static int getMaxMemory(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	ejsSetReturnValueToInteger(ep, ep->gc.maxMemory);
+	return 0;
+}
+
+/******************************************************************************/
+
+static int setMaxMemory(Ejs *ep, EjsVar *thisObj, int argc, EjsVar **argv)
+{
+	int		maxMemory;
+
+	if (argc != 1) {
+		ejsArgError(ep, "Bad arguments");
+		return -1;
+	}
+	maxMemory = ejsVarToInteger(argv[0]);
+	if (maxMemory < 0) {
+		ejsArgError(ep, "Bad maxMemory");
+		return -1;
+	}
+
+	ep->gc.maxMemory = maxMemory;
+	return 0;
+}
+
+/******************************************************************************/
+/******************************** Initialization ******************************/
+/******************************************************************************/
+
+int ejsDefineGCClass(Ejs *ep)
+{
+	EjsVar	*gcClass;
+	int		flags;
+
+	flags = EJS_NO_LOCAL;
+
+	/*
+ 	 *	NOTE: We create the GC class and define static methods on it. There 
+	 *	is no object instance
+	 */
+	gcClass =  ejsDefineClass(ep, "System.GC", "Object", 0);
+	if (gcClass == 0) {
+		return MPR_ERR_CANT_INITIALIZE;
+	}
+
+	/*
+	 *	MOB -- convert these to properties with accessors when available
+	 */
+	ejsDefineCMethod(ep, gcClass, "printStats", printStatsProc, flags);
+	ejsDefineCMethod(ep, gcClass, "run", runProc, flags);
+
+	ejsDefineCMethod(ep, gcClass, "getUsedMemory", usedMemoryProc, flags);
+	ejsDefineCMethod(ep, gcClass, "getAllocatedMemory", allocatedMemoryProc,
+		flags);
+	ejsDefineCMethod(ep, gcClass, "getMprMemory", mprMemoryProc, flags);
+	ejsDefineCMethod(ep, gcClass, "getPeakMprMemory", peakMprMemoryProc, flags);
+	ejsDefineCMethod(ep, gcClass, "debug", debugProc, flags);
+
+#if (WIN || BREW_SIMULATOR) && BLD_DEBUG
+	ejsDefineCMethod(ep, gcClass, "check", checkProc, flags);
+#endif
+
+	ejsDefineCAccessors(ep, gcClass, "debugLevel", 
+		getDebugLevel, setDebugLevel, flags);
+
+	ejsDefineCAccessors(ep, gcClass, "enable", 
+		getEnable, setEnable, flags);
+
+	ejsDefineCAccessors(ep, gcClass, "demandCollect", 
+		getDemandCollect, setDemandCollect, flags);
+
+	ejsDefineCAccessors(ep, gcClass, "idleCollect", 
+		getIdleCollect, setIdleCollect, flags);
+
+	ejsDefineCAccessors(ep, gcClass, "workQuota", 
+		getWorkQuota, setWorkQuota, flags);
+
+	ejsDefineCAccessors(ep, gcClass, "maxMemory", 
+		getMaxMemory, setMaxMemory, flags);
+
+	return ejsObjHasErrors(gcClass) ? MPR_ERR_CANT_INITIALIZE : 0;
+}
+
+/******************************************************************************/
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * End:
+ * vim:tw=78
+ * vim600: sw=4 ts=4 fdm=marker
+ * vim<600: sw=4 ts=4
+ */