mirror of
https://github.com/amyinspace/MagicSetEditor2.git
synced 2026-06-10 04:57:00 -04:00
twanvl
0464f5f7fc
If this doesn't work in GCC, the COMMA definition could be made only for MSVC, then GCC sees DECLARE_TYPEOF(map<int COMMA string>). GCC doesn't need DECLARE_TYPEOF anyway. Keyword expansion now works, still todo: - marking parameters, e.g. "Cycling 2W" -> "Cycling <param-mana>2W</param-mana>" - user interface for toggling reminder text - user interface for keywords git-svn-id: svn://svn.code.sf.net/p/magicseteditor/code/trunk@210 0fc631ac-6414-0410-93d0-97cfa31319b6
295 lines
11 KiB
C++
295 lines
11 KiB
C++
//+----------------------------------------------------------------------------+
|
|
//| 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_TO_VALUE
|
|
#define HEADER_SCRIPT_TO_VALUE
|
|
|
|
// ----------------------------------------------------------------------------- : Includes
|
|
|
|
#include <script/value.hpp>
|
|
#include <util/reflect.hpp>
|
|
#include <util/error.hpp>
|
|
#include <util/io/get_member.hpp>
|
|
|
|
// ----------------------------------------------------------------------------- : Iterators
|
|
|
|
// Iterator over a collection
|
|
struct ScriptIterator : public ScriptValue {
|
|
virtual ScriptType type() const;// { return SCRIPT_ITERATOR; }
|
|
virtual String typeName() const;// { return "iterator"; }
|
|
|
|
/// Return the next item for this iterator, or ScriptValueP() if there is no such item
|
|
virtual ScriptValueP next() = 0;
|
|
};
|
|
|
|
// make an iterator over a range
|
|
ScriptValueP rangeIterator(int start, int end);
|
|
|
|
// ----------------------------------------------------------------------------- : Collections
|
|
|
|
// Iterator over a collection
|
|
template <typename Collection>
|
|
class ScriptCollectionIterator : public ScriptIterator {
|
|
public:
|
|
ScriptCollectionIterator(const Collection* col) : pos(0), col(col) {}
|
|
virtual ScriptValueP next() {
|
|
if (pos < col->size()) {
|
|
return toScript(col->at(pos++));
|
|
} else {
|
|
return ScriptValueP();
|
|
}
|
|
}
|
|
private:
|
|
size_t pos;
|
|
const Collection* col;
|
|
};
|
|
|
|
/// Script value containing a collection
|
|
template <typename Collection>
|
|
class ScriptCollection : public ScriptValue {
|
|
public:
|
|
inline ScriptCollection(const Collection* v) : value(v) {}
|
|
virtual ScriptType type() const { return SCRIPT_COLLECTION; }
|
|
virtual String typeName() const { return _TYPE_("collection"); }
|
|
virtual ScriptValueP getMember(const String& name) const {
|
|
long index;
|
|
if (name.ToLong(&index) && index >= 0 && (size_t)index < value->size()) {
|
|
return toScript(value->at(index));
|
|
} else {
|
|
return ScriptValue::getMember(name);
|
|
}
|
|
}
|
|
virtual ScriptValueP makeIterator() const {
|
|
return new_intrusive1<ScriptCollectionIterator<Collection> >(value);
|
|
}
|
|
virtual int itemCount() const { return (int)value->size(); }
|
|
private:
|
|
/// Store a pointer to a collection, collections are only ever used for structures owned outside the script
|
|
const Collection* value;
|
|
};
|
|
|
|
// ----------------------------------------------------------------------------- : Collections : maps
|
|
|
|
template <typename V>
|
|
ScriptValueP get_member(const map<String,V>& m, const String& name) {
|
|
typename map<String,V>::const_iterator it = m.find(name);
|
|
if (it != m.end()) {
|
|
return toScript(it->second);
|
|
} else {
|
|
throw ScriptError(_ERROR_2_("has no member", _TYPE_("collection"), name));
|
|
}
|
|
}
|
|
|
|
template <typename K, typename V>
|
|
ScriptValueP get_member(const IndexMap<K,V>& m, const String& name) {
|
|
typename IndexMap<K,V>::const_iterator it = m.find(name);
|
|
if (it != m.end()) {
|
|
return toScript(*it);
|
|
} else {
|
|
throw ScriptError(_ERROR_2_("has no member", _TYPE_("collection"), name));
|
|
}
|
|
}
|
|
|
|
/// Script value containing a map-like collection
|
|
template <typename Collection>
|
|
class ScriptMap : public ScriptValue {
|
|
public:
|
|
inline ScriptMap(const Collection* v) : value(v) {}
|
|
virtual ScriptType type() const { return SCRIPT_COLLECTION; }
|
|
virtual String typeName() const { return _TYPE_("collection"); }
|
|
virtual ScriptValueP getMember(const String& name) const {
|
|
return get_member(*value, name);
|
|
}
|
|
virtual int itemCount() const { return (int)value->size(); }
|
|
private:
|
|
/// Store a pointer to a collection, collections are only ever used for structures owned outside the script
|
|
const Collection* value;
|
|
};
|
|
|
|
// ----------------------------------------------------------------------------- : Objects
|
|
|
|
/// Number of items in some collection like object, can be overloaded
|
|
template <typename T>
|
|
int item_count(const T& v) {
|
|
return -1;
|
|
}
|
|
/// Return an iterator for some collection, can be overloaded
|
|
template <typename T>
|
|
ScriptValueP make_iterator(const T& v) {
|
|
return ScriptValueP();
|
|
}
|
|
|
|
/// Mark a dependency on a member of value, can be overloaded
|
|
template <typename T>
|
|
void mark_dependency_member(const T& value, const String& name, const Dependency& dep) {}
|
|
|
|
/// Script value containing an object (pointer)
|
|
template <typename T>
|
|
class ScriptObject : public ScriptValue {
|
|
public:
|
|
inline ScriptObject(const T& v) : value(v) {}
|
|
virtual ScriptType type() const { return SCRIPT_OBJECT; }
|
|
virtual String typeName() const { return _TYPE_("object"); }
|
|
virtual operator String() const { ScriptValueP d = getDefault(); return d ? *d : ScriptValue::operator String(); }
|
|
virtual operator double() const { ScriptValueP d = getDefault(); return d ? *d : ScriptValue::operator double(); }
|
|
virtual operator int() const { ScriptValueP d = getDefault(); return d ? *d : ScriptValue::operator int(); }
|
|
virtual operator Color() const { ScriptValueP d = getDefault(); return d ? *d : ScriptValue::operator Color(); }
|
|
virtual ScriptValueP getMember(const String& name) const {
|
|
GetMember gm(name);
|
|
gm.handle(*value);
|
|
if (gm.result()) return gm.result();
|
|
else {
|
|
// try nameless member
|
|
ScriptValueP d = getDefault();
|
|
if (d) {
|
|
return d->getMember(name);
|
|
} else {
|
|
throw ScriptValue::getMember(name);
|
|
}
|
|
}
|
|
}
|
|
virtual ScriptValueP dependencyMember(const String& name, const Dependency& dep) const {
|
|
mark_dependency_member(value, name, dep);
|
|
return getMember(name);
|
|
}
|
|
virtual ScriptValueP makeIterator() const {
|
|
ScriptValueP it = make_iterator(*value);
|
|
return it ? it : ScriptValue::makeIterator();
|
|
}
|
|
virtual int itemCount() const {
|
|
int i = item_count(*value);
|
|
return i >= 0 ? i : ScriptValue::itemCount();
|
|
}
|
|
/// Get access to the value
|
|
inline T getValue() const { return value; }
|
|
private:
|
|
T value; ///< The object
|
|
ScriptValueP getDefault() const {
|
|
GetDefaultMember gdm;
|
|
gdm.handle(*value);
|
|
return gdm.result();
|
|
}
|
|
};
|
|
|
|
// ----------------------------------------------------------------------------- : Creating
|
|
|
|
/// Convert a value to a script value
|
|
ScriptValueP toScript(int v);
|
|
inline ScriptValueP toScript(long v) { return toScript((int) v); }
|
|
ScriptValueP toScript(double v);
|
|
ScriptValueP toScript(const String& v);
|
|
ScriptValueP toScript(const Color& v);
|
|
inline ScriptValueP toScript(bool v) { return v ? script_true : script_false; }
|
|
template <typename T>
|
|
inline ScriptValueP toScript(const vector<T>* v) { return new_intrusive1<ScriptCollection<vector<T> > >(v); }
|
|
template <typename K, typename V>
|
|
inline ScriptValueP toScript(const map<K,V>* v) { return new_intrusive1<ScriptMap<map<K,V> > >(v); }
|
|
template <typename K, typename V>
|
|
inline ScriptValueP toScript(const IndexMap<K,V>* v) { return new_intrusive1<ScriptMap<IndexMap<K,V> > >(v); }
|
|
template <typename T>
|
|
inline ScriptValueP toScript(const shared_ptr<T>& v) { return new_intrusive1<ScriptObject<shared_ptr<T> > >(v); }
|
|
template <typename T>
|
|
inline ScriptValueP toScript(const Defaultable<T>& v) { return toScript(v()); }
|
|
|
|
// ----------------------------------------------------------------------------- : Buildin functions
|
|
|
|
/// Macro to declare a new script function
|
|
/** Usage:
|
|
* @code
|
|
* SCRIPT_FUNCTION(my_function) {
|
|
* // function code goes here
|
|
* }
|
|
* @endcode
|
|
* This declares a value 'script_my_function' which can be added as a variable to a context
|
|
* using:
|
|
* @code
|
|
* extern ScriptValueP script_my_function;
|
|
* context.setVariable("my_function", script_my_function);
|
|
* @endcode
|
|
*/
|
|
#define SCRIPT_FUNCTION(name) SCRIPT_FUNCTION_AUX(name,;)
|
|
|
|
/// Macro to declare a new script function with custom dependency handling
|
|
#define SCRIPT_FUNCTION_DEP(name) SCRIPT_FUNCTION_AUX(name, virtual ScriptValueP dependencies(Context&, const Dependency&) const;)
|
|
|
|
// helper for SCRIPT_FUNCTION and SCRIPT_FUNCTION_DEP
|
|
#define SCRIPT_FUNCTION_AUX(name,dep) \
|
|
class ScriptBuildin_##name : public ScriptValue { \
|
|
dep \
|
|
virtual ScriptType type() const \
|
|
{ return SCRIPT_FUNCTION; } \
|
|
virtual String typeName() const \
|
|
{ return _("build in function '") _(#name) _("'"); } \
|
|
virtual ScriptValueP eval(Context&) const; \
|
|
}; \
|
|
ScriptValueP script_##name(new ScriptBuildin_##name); \
|
|
ScriptValueP ScriptBuildin_##name::eval(Context& ctx) const
|
|
|
|
/// Retrieve a parameter to a SCRIPT_FUNCTION with the given name and type
|
|
/** Usage:
|
|
* @code
|
|
* SCRIPT_FUNCTION(my_function) {
|
|
* SCRIPT_PARAM(String, my_string_param);
|
|
* ... my_string_param ...
|
|
* }
|
|
* @endcode
|
|
* Throws an error if the parameter is not found.
|
|
*/
|
|
#define SCRIPT_PARAM(Type, name) \
|
|
SCRIPT_PARAM_N(Type, _(#name), name)
|
|
#define SCRIPT_PARAM_N(Type, str, name) \
|
|
Type name = getParam<Type>(ctx.getVariable(str))
|
|
|
|
template <typename T>
|
|
inline T getParam (const ScriptValueP& value) {
|
|
ScriptObject<T>* o = dynamic_cast<ScriptObject<T>*>(value.get());
|
|
if (!o) throw ScriptError(_("Can't convert from ")+value->typeName()+_(" to object"));
|
|
return o->getValue();
|
|
}
|
|
template <> inline ScriptValueP getParam<ScriptValueP>(const ScriptValueP& value) { return value; }
|
|
template <> inline String getParam<String> (const ScriptValueP& value) { return *value; }
|
|
template <> inline int getParam<int> (const ScriptValueP& value) { return *value; }
|
|
template <> inline double getParam<double> (const ScriptValueP& value) { return *value; }
|
|
template <> inline bool getParam<bool> (const ScriptValueP& value) { return (int)*value; }
|
|
|
|
/// Retrieve an optional parameter
|
|
/** Usage:
|
|
* @code
|
|
* SCRIPT_FUNCTION(my_function) {
|
|
* SCRIPT_OPTIONAL_PARAM(String, my_string_param) {
|
|
* ... my_string_param ...
|
|
* }
|
|
* ...
|
|
* }
|
|
* @endcode
|
|
*/
|
|
#define SCRIPT_OPTIONAL_PARAM(Type, name) SCRIPT_OPTIONAL_PARAM_N(Type, _(#name), name)
|
|
|
|
#define SCRIPT_OPTIONAL_PARAM_N(Type, str, name) \
|
|
ScriptValueP name##_ = ctx.getVariableOpt(str); \
|
|
Type name = name##_ ? getParam<Type>(name##_) : Type(); \
|
|
if (name##_)
|
|
|
|
/// Retrieve an optional parameter, can't be used as an if statement
|
|
#define SCRIPT_OPTIONAL_PARAM_(Type, name) SCRIPT_OPTIONAL_PARAM_N_(Type, _(#name), name)
|
|
|
|
#define SCRIPT_OPTIONAL_PARAM_N_(Type, str, name) \
|
|
ScriptValueP name##_ = ctx.getVariableOpt(str); \
|
|
Type name = name##_ ? getParam<Type>(name##_) : Type();
|
|
|
|
/// Retrieve an optional parameter with a default value
|
|
#define SCRIPT_PARAM_DEFAULT(Type, name, def) SCRIPT_PARAM_DEFAULT_N(Type, _(#name), name, def)
|
|
/// Retrieve an optional parameter with a default value
|
|
#define SCRIPT_PARAM_DEFAULT_N(Type, str, name, def) \
|
|
ScriptValueP name##_ = ctx.getVariableOpt(str); \
|
|
Type name = name##_ ? getParam<Type>(name##_) : def
|
|
|
|
/// Return a value from a SCRIPT_FUNCTION
|
|
#define SCRIPT_RETURN(value) return toScript(value)
|
|
|
|
// ----------------------------------------------------------------------------- : EOF
|
|
#endif
|