Fixed a nasty order of destruction bug, where the memory pool for ScriptInts was destroyed before the PackageManager

git-svn-id: svn://svn.code.sf.net/p/magicseteditor/code/trunk@20 0fc631ac-6414-0410-93d0-97cfa31319b6

src/script/scriptable.hpp

@@ -0,0 +1,89 @@
+//+----------------------------------------------------------------------------+
+//| Description:  Magic Set Editor - Program to make Magic (tm) cards          |
+//| Copyright:    (C) 2001 - 2006 Twan van Laarhoven                           |
+//| License:      GNU General Public License 2 or later (see file COPYING)     |
+//+----------------------------------------------------------------------------+
+
+#ifndef HEADER_SCRIPT_SCRIPTABLE
+#define HEADER_SCRIPT_SCRIPTABLE
+
+// ----------------------------------------------------------------------------- : Includes
+
+#include <util/prec.hpp>
+#include <util/reflect.hpp>
+#include <util/defaultable.hpp>
+
+DECLARE_INTRUSIVE_POINTER_TYPE(Script);
+class Context;
+
+// ----------------------------------------------------------------------------- : Store
+
+/// Store a ScriptValue in a variable
+void store(const ScriptValueP& val, String& var);
+void store(const ScriptValueP& val, int&    var);
+void store(const ScriptValueP& val, double& var);
+void store(const ScriptValueP& val, bool&   var);
+void store(const ScriptValueP& val, Defaultable<String>& var);
+
+// ----------------------------------------------------------------------------- : OptionalScript
+
+/// An optional script, 
+class OptionalScript {
+  public:
+	~OptionalScript();
+	/// Is the script set?
+	inline operator bool() { return !!script; }
+	
+	/// Invoke the script, return the result, or script_nil if there is no script
+	ScriptValueP invoke(Context& ctx);
+	
+	/// Invoke the script on a value
+	/** Assigns the result to value if it has changed.
+	 *  Returns true if the value has changed.
+	 */
+	template <typename T>
+	bool invokeOn(Context& ctx, T& value) {
+		if (script) {
+			T new_value;
+			store(new_value, script->invoke(ctx));
+			if (value != new_value) {
+				value = new_value;
+				return true;
+			}
+		}
+		return false;
+	}
+	
+  private:
+	ScriptP script;		///< The script, may be null if there is no script
+	String unparsed;	///< Unparsed script, for writing back to a file
+	DECLARE_REFLECTION();
+};
+
+// ----------------------------------------------------------------------------- : Scriptable
+
+/// A script that defines a calculation to find a value
+/** NOTE: reading MUST happen inside a block */
+template <typename T>
+class Scriptable {
+  public:
+	Scriptable()               : value()      {}
+	Scriptable(const T& value) : value(value) {}
+	
+	inline operator const T& () const { return value; }
+	inline bool isScripted() const { return script; }
+	
+	// Updates the value by executing the script, returns true if the value has changed
+	inline bool update(Context& ctx) {
+		return script.invokeOn(ctx, value);
+	}
+	
+  private:
+	OptionalScript script;	///< The optional script
+	T value;				///< The scripted value
+	
+	DECLARE_REFLECTION();
+};
+
+// ----------------------------------------------------------------------------- : EOF
+#endif