Print done when done.

1 files changed, 364 insertions, 0 deletions

diff --git a/indra/lscript/lscript_execute.h b/indra/lscript/lscript_execute.h
new file mode 100644
index 0000000000..84cd6e3b0a
--- /dev/null
+++ b/indra/lscript/lscript_execute.h
@@ -0,0 +1,364 @@
+/** 
+ * @file lscript_execute.h
+ * @brief Classes to execute bytecode
+ *
+ * Copyright (c) 2002-$CurrentYear$, Linden Research, Inc.
+ * $License$
+ */
+
+#ifndef LL_LSCRIPT_EXECUTE_H
+#define LL_LSCRIPT_EXECUTE_H
+
+#include <stdio.h>
+#include "lscript_byteconvert.h"
+#include "linked_lists.h"
+#include "lscript_library.h"
+
+// Return values for run() methods
+const U32 NO_DELETE_FLAG	= 0x0000;
+const U32 DELETE_FLAG		= 0x0001;
+const U32 CREDIT_MONEY_FLAG	= 0x0002;
+
+// list of op code execute functions
+BOOL run_noop(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pop(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pops(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_popl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_popv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_popq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_poparg(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_popip(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_popbp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_popsp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_popslr(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_dup(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_dups(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_dupl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_dupv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_dupq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_store(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_stores(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_storel(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_storev(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_storeq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_storeg(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_storegs(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_storegl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_storegv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_storegq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_loadp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_loadsp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_loadlp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_loadvp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_loadqp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_loadgp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_loadgsp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_loadglp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_loadgvp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_loadgqp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_push(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushs(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushg(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushgs(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushgl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushgv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushgq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_puship(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushbp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushsp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushargb(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushargi(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushargf(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushargs(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushargv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushargq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushe(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pushev(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pusheq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_pusharge(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_add(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_sub(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_mul(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_div(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_mod(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_eq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_neq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_leq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_geq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_less(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_greater(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_bitand(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_bitor(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_bitxor(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_booland(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_boolor(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_shl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_shr(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_neg(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_bitnot(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_boolnot(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_jump(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_jumpif(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_jumpnif(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_state(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_call(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_return(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_cast(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_stacktos(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_stacktol(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_print(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+BOOL run_calllib(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+BOOL run_calllib_two_byte(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+void unknown_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void integer_integer_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void integer_float_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void integer_vector_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void float_integer_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void float_float_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void float_vector_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void string_string_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void string_key_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void key_string_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void key_key_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void vector_integer_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void vector_float_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void vector_vector_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void vector_quaternion_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void quaternion_quaternion_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+
+
+void integer_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void float_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void string_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void key_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void vector_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void quaternion_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void list_integer_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void list_float_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void list_string_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void list_key_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void list_vector_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void list_quaternion_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void list_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+
+void integer_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void float_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void vector_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+void quaternion_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode);
+
+class LLScriptDataCollection
+{
+public:
+	LLScriptDataCollection(LSCRIPTStateEventType type, LLScriptLibData *data)
+		: mType(type), mData(data)
+	{
+	}
+	LLScriptDataCollection(U8 *src, S32 &offset)
+	{
+		S32 i, number;
+		mType = (LSCRIPTStateEventType)bytestream2integer(src, offset);
+		number = bytestream2integer(src,  offset);
+
+		mData = new LLScriptLibData[number];
+
+		for (i = 0; i < number; i++)
+		{
+			mData[i].set(src, offset);
+		}
+
+	}
+
+	~LLScriptDataCollection()
+	{
+		delete [] mData;
+		mData = NULL;
+	}
+
+	S32  getSavedSize()
+	{
+		S32 size = 0;
+		// mTyoe
+		size += 4;
+		// number of entries
+		size += 4;
+
+		S32 i = 0;
+		do
+		{
+			size += mData[i].getSavedSize();;
+		}
+		while (mData[i++].mType != LST_NULL);
+		return size;
+	}
+
+	S32	 write2bytestream(U8 *dest)
+	{
+		S32 offset = 0;
+		// mTyoe
+		integer2bytestream(dest, offset, mType);
+		// count number of entries
+		S32 number = 0;
+		while (mData[number++].mType != LST_NULL)
+			;
+		integer2bytestream(dest, offset, number);
+
+		// now the entries themselves
+		number = 0;
+		do
+		{
+			offset += mData[number].write2bytestream(dest + offset);
+		}
+		while (mData[number++].mType != LST_NULL);
+		return offset;
+	}
+
+
+	LSCRIPTStateEventType	mType;
+	LLScriptLibData			*mData;
+};
+const S32 MAX_EVENTS_IN_QUEUE = 64;
+
+class LLScriptEventData
+{
+public:
+	LLScriptEventData()		{}
+	LLScriptEventData(U8 *src, S32 &offset)
+	{
+		S32 i, number = bytestream2integer(src, offset);
+		for (i = 0; i < number; i++)
+		{
+			mEventDataList.addData(new LLScriptDataCollection(src, offset));
+		}
+	}
+
+	void set(U8 *src, S32 &offset)
+	{
+		S32 i, number = bytestream2integer(src, offset);
+		for (i = 0; i < number; i++)
+		{
+			mEventDataList.addData(new LLScriptDataCollection(src, offset));
+		}
+	}
+
+	~LLScriptEventData()	
+	{
+		mEventDataList.deleteAllData();
+	}
+
+	void addEventData(LLScriptDataCollection *data)
+	{
+		if (mEventDataList.getLength() < MAX_EVENTS_IN_QUEUE)
+			mEventDataList.addDataAtEnd(data);
+		else
+			delete data;
+	}
+	LLScriptDataCollection *getNextEvent(LSCRIPTStateEventType type)
+	{
+		LLScriptDataCollection *temp;
+		for (temp = mEventDataList.getFirstData();
+			 temp;
+			 temp = mEventDataList.getNextData())
+		{
+			if (temp->mType == type)
+			{
+				mEventDataList.removeCurrentData();
+				return temp;
+			}
+		}
+		return NULL;
+	}
+	LLScriptDataCollection *getNextEvent()
+	{
+		LLScriptDataCollection *temp;
+		temp = mEventDataList.getFirstData();
+		if (temp)
+		{
+			mEventDataList.removeCurrentData();
+			return temp;
+		}
+		return NULL;
+	}
+	void removeEventType(LSCRIPTStateEventType type)
+	{
+		LLScriptDataCollection *temp;
+		for (temp = mEventDataList.getFirstData();
+			 temp;
+			 temp = mEventDataList.getNextData())
+		{
+			if (temp->mType == type)
+			{
+				mEventDataList.deleteCurrentData();
+			}
+		}
+	}
+
+	S32  getSavedSize()
+	{
+		S32 size = 0;
+		// number in linked list
+		size += 4;
+		LLScriptDataCollection *temp;
+		for (temp = mEventDataList.getFirstData();
+			 temp;
+			 temp = mEventDataList.getNextData())
+		{
+			size += temp->getSavedSize();
+		}
+		return size;
+	}
+
+	S32	 write2bytestream(U8 *dest)
+	{
+		S32 offset = 0;
+		// number in linked list
+		S32 number = mEventDataList.getLength();
+		integer2bytestream(dest, offset, number);
+		LLScriptDataCollection *temp;
+		for (temp = mEventDataList.getFirstData();
+			 temp;
+			 temp = mEventDataList.getNextData())
+		{
+			offset += temp->write2bytestream(dest + offset);
+		}
+		return offset;
+	}
+
+	LLLinkedList<LLScriptDataCollection>	mEventDataList;
+};
+
+class LLScriptExecute
+{
+public:
+	LLScriptExecute(FILE *fp);
+	LLScriptExecute(U8 *buffer);
+	~LLScriptExecute();
+
+	void init();
+	U32 run(BOOL b_print, const LLUUID &id, char **errorstr, BOOL &state_transition);
+
+	BOOL (*mExecuteFuncs[0x100])(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id);
+
+	U32						mInstructionCount;
+	U8						*mBuffer;
+	LLScriptEventData		mEventData;
+
+	static S64 sGlobalInstructionCount;
+};
+
+#endif