QScriptValueImpl Object::method_propertyIsEnumerable(QScriptContextPrivate *context, QScriptEnginePrivate *eng, QScriptClassInfo *)
{
bool result = false;
if (context->thisObject().isObject() && (context->argumentCount() > 0)) {
QScriptValueImpl arg = context->argument(0);
QScriptNameIdImpl *id = 0;
if (arg.isString())
id = arg.stringValue();
if (! id || ! id->unique) {
QString str = arg.toString();
id = eng->nameId(str);
}
QScript::Member member;
QScriptValueImpl base;
QScriptValueImpl self = context->thisObject();
if (self.resolve(id, &member, &base, QScriptValue::ResolveLocal, QScript::Read)) {
result = ! member.dontEnum();
if (result) {
QScriptValueImpl tmp;
base.get(member, &tmp);
result = tmp.isValid();
}
}
}
return (QScriptValueImpl(result));
}
void Math::addFunction(QScriptValueImpl &object, const QString &name,
QScriptInternalFunctionSignature fun, int length,
const QScriptValue::PropertyFlags flags)
{
QScriptEnginePrivate *eng_p = QScriptEnginePrivate::get(object.engine());
QScriptValueImpl val = eng_p->createFunction(fun, length, object.classInfo(), name);
object.setProperty(name, val, flags);
}
/*!
\since 4.4
Sets the internal \a data of this QScriptValue object. You can use
this function to set object-specific data that won't be directly
accessible to scripts, but may be retrieved in C++ using the data()
function.
*/
void QScriptValue::setData(const QScriptValue &data)
{
if (!isObject())
return;
QScriptValueImpl self = QScriptValuePrivate::valueOf(*this);
QScriptValueImpl data_p = QScriptValuePrivate::valueOf(data);
self.setInternalValue(data_p);
}
void FunctionClassData::mark(const QScriptValueImpl &object, int generation)
{
if (object.classInfo() != classInfo())
return;
QScriptFunction *fun = object.toFunction();
QScriptEnginePrivate *eng = QScriptEnginePrivate::get(object.engine());
fun->mark(eng, generation);
}
QScriptValueImpl Object::method_toString(QScriptContextPrivate *context, QScriptEnginePrivate *eng, QScriptClassInfo *)
{
QScriptValueImpl glo = eng->globalObject();
QString s = QLatin1String("[object ");
QScriptValueImpl self = context->thisObject();
s += self.classInfo()->name();
s += QLatin1String("]");
return (QScriptValueImpl(eng, s));
}
QScriptValueImpl Number::method_valueOf(QScriptContextPrivate *context, QScriptEnginePrivate *, QScriptClassInfo *classInfo)
{
QScriptValueImpl self = context->thisObject();
if (self.classInfo() != classInfo)
return context->throwError(QScriptContext::TypeError,
QLatin1String("Number.prototype.valueOf"));
return (self.internalValue());
}
/*!
\since 4.4
Returns the custom script class that this script object is an
instance of, or 0 if the object is not of a custom class.
\sa setScriptClass()
*/
QScriptClass *QScriptValue::scriptClass() const
{
if (!isObject())
return 0;
QScriptValueImpl self = QScriptValuePrivate::valueOf(*this);
QScriptClassInfo *info = self.classInfo();
if ((info->type() & QScriptClassInfo::TypeMask) < QScriptClassInfo::CustomType)
return 0;
return QScriptClassPrivate::classFromInfo(info);
}
QScriptValueImpl Number::method_toLocaleString(QScriptContextPrivate *context, QScriptEnginePrivate *eng, QScriptClassInfo *classInfo)
{
QScriptValueImpl self = context->thisObject();
if (self.classInfo() != classInfo)
return context->throwError(QScriptContext::TypeError,
QLatin1String("Number.prototype.toLocaleString"));
QString str = self.internalValue().toString();
return (QScriptValueImpl(eng, str));
}
QScriptValueImpl Function::method_toString(QScriptContextPrivate *context, QScriptEnginePrivate *eng, QScriptClassInfo *)
{
QScriptValueImpl self = context->thisObject();
if (QScriptFunction *foo = self.toFunction()) {
QString code = foo->toString(context);
return QScriptValueImpl(eng, code);
}
return context->throwError(QScriptContext::TypeError,
QLatin1String("Function.prototype.toString"));
}
/*!
\since 4.4
Sets the custom script class of this script object to \a scriptClass.
This can be used to "promote" a plain script object (e.g. created
by the "new" operator in a script, or by QScriptEngine::newObject() in C++)
to an object of a custom type.
\sa scriptClass(), setData()
*/
void QScriptValue::setScriptClass(QScriptClass *scriptClass)
{
if (!isObject() || !scriptClass)
return;
QScriptClassPrivate *cls_p = QScriptClassPrivate::get(scriptClass);
QScriptClassInfo *info = cls_p->classInfo();
if ((info->type() & QScriptClassInfo::TypeMask) < QScriptClassInfo::CustomType)
return;
QScriptValueImpl self = QScriptValuePrivate::valueOf(*this);
self.setClassInfo(info);
}
void EnumerationClassData::mark(const QScriptValueImpl &object, int generation)
{
Q_ASSERT(object.isValid());
QScriptEnginePrivate *eng = object.engine();
if (Enumeration::Instance *instance = Enumeration::Instance::get(object, classInfo())) {
eng->markObject(instance->object, generation);
if (instance->it)
eng->markObject(instance->it->object(), generation);
}
}
QScriptValueImpl Object::method_defineSetter(QScriptContextPrivate *context, QScriptEnginePrivate *eng,
QScriptClassInfo *)
{
QString propertyName = context->argument(0).toString();
if (context->thisObject().propertyFlags(propertyName) & QScriptValue::ReadOnly)
return context->throwError(QLatin1String("cannot redefine read-only property"));
QScriptValueImpl setter = context->argument(1);
if (!setter.isFunction())
return context->throwError(QLatin1String("setter must be a function"));
context->thisObject().setProperty(propertyName, setter, QScriptValue::PropertySetter);
return eng->undefinedValue();
}
bool QScriptValueIteratorImpl::hasPrevious()
{
if (m_foundMember.isValid() && !m_foundForward) {
// we have the information about the previous element already
return true;
}
QScriptValueImpl obj = m_object;
if (m_searchClassDataIterator) {
Q_ASSERT(m_classDataIterator != 0);
if (m_foundMember.isValid()) {
// undo effect of hasNext()
m_foundMember.invalidate();
QScript::Member dummy;
m_classDataIterator->previous(&dummy);
}
while (m_classDataIterator->hasPrevious()) {
QScript::Member m;
m_classDataIterator->previous(&m);
if (acceptsMember(obj, m)) {
m_foundObject = obj;
m_foundMember = m;
m_foundForward = false;
return true;
}
}
m_searchClassDataIterator = false;
m_searchIndex = obj.memberCount();
m_foundMember.invalidate();
}
// search object members
int i = m_searchIndex - 1;
if (m_foundMember.isValid()) {
// undo effect of hasPrevious()
m_foundMember.invalidate();
--i;
}
for ( ; i >= 0; --i) {
QScript::Member m;
obj.member(i, &m);
if (acceptsMember(obj, m)) {
m_foundObject = obj;
m_foundMember = m;
m_foundForward = false;
m_searchIndex = i;
return true;
}
}
return false;
}
QVariant QScriptValueImpl::toVariant() const
{
switch (m_type) {
case QScript::InvalidType:
return QVariant();
case QScript::UndefinedType:
case QScript::NullType:
case QScript::PointerType:
case QScript::ReferenceType:
break;
case QScript::BooleanType:
return QVariant(m_bool_value);
case QScript::IntegerType:
return QVariant(m_int_value);
case QScript::NumberType:
return QVariant(m_number_value);
case QScript::StringType:
return QVariant(m_string_value->s);
case QScript::LazyStringType:
return QVariant(*m_lazy_string_value);
case QScript::ObjectType:
if (isDate())
return QVariant(toDateTime());
#ifndef QT_NO_REGEXP
if (isRegExp())
return QVariant(toRegExp());
#endif
if (isVariant())
return variantValue();
#ifndef QT_NO_QOBJECT
if (isQObject())
return qVariantFromValue(toQObject());
#endif
QScriptValueImpl v = engine()->toPrimitive(*this);
if (!v.isObject())
return v.toVariant();
break;
} // switch
return QVariant();
}
QScriptValueImpl Boolean::method_toString(QScriptContextPrivate *context,
QScriptEnginePrivate *eng,
QScriptClassInfo *classInfo)
{
QScriptValueImpl self = context->thisObject();
if (self.classInfo() != classInfo)
return context->throwError(QScriptContext::TypeError,
QLatin1String("Boolean.prototype.toString"));
const QScript::IdTable *t = eng->idTable();
bool v = self.internalValue().toBoolean();
QScriptValueImpl result;
eng->newNameId(&result, v ? t->id_true : t->id_false);
return result;
}
QScriptValueImpl Number::method_toPrecision(QScriptContextPrivate *context, QScriptEnginePrivate *eng, QScriptClassInfo *classInfo)
{
QScriptValueImpl self = context->thisObject();
if (self.classInfo() != classInfo)
return context->throwError(QScriptContext::TypeError,
QLatin1String("Number.prototype.toPrecision"));
qsreal fdigits = 0;
if (context->argumentCount() > 0)
fdigits = context->argument(0).toInteger();
qsreal v = self.internalValue().toNumber();
return (QScriptValueImpl(eng, QString::number(v, 'g', int (fdigits))));
}
void Core::addFunction(QScriptValueImpl &object, const QString &name,
QScriptInternalFunctionSignature fun, int length,
const QScriptValue::PropertyFlags flags)
{
QScriptValueImpl val = engine()->createFunction(fun, length, m_classInfo, name);
object.setProperty(name, val, flags);
}
QScriptValueImpl Function::method_call(QScriptContextPrivate *context, QScriptEnginePrivate *eng, QScriptClassInfo *)
{
if (! context->thisObject().isFunction()) {
return context->throwError(QScriptContext::TypeError,
QLatin1String("Function.prototype.call"));
}
QScriptValueImpl thisObject = context->argument(0).toObject();
if (! (thisObject.isValid () && thisObject.isObject()))
thisObject = eng->globalObject();
QScriptValueImplList args;
for (int i = 1; i < context->argumentCount(); ++i)
args << context->argument(i);
return context->thisObject().call(thisObject, args);
}
QScriptValueImpl Number::method_toString(QScriptContextPrivate *context, QScriptEnginePrivate *eng, QScriptClassInfo *classInfo)
{
QScriptValueImpl self = context->thisObject();
if (self.classInfo() != classInfo)
return context->throwError(QScriptContext::TypeError,
QLatin1String("Number.prototype.toString"));
QScriptValueImpl arg = context->argument(0);
if (!arg.isUndefined()) {
int radix = arg.toInt32();
if (radix < 2 || radix > 36)
return context->throwError(QString::fromLatin1("Number.prototype.toString: %0 is not a valid radix")
.arg(radix));
if (radix != 10) {
QString str;
qsreal num = self.internalValue().toInteger();
do {
char c = (char)::fmod(num, radix);
if (c < 10)
c += '0';
else
c = c - 10 + 'a';
str.prepend(QLatin1Char(c));
num = ::floor(num / radix);
} while (num != 0);
return QScriptValueImpl(eng, str);
}
}
QString str = self.internalValue().toString();
return (QScriptValueImpl(eng, str));
}
/*!
If this QScriptValue is an object, sets the internal prototype
(\c{__proto__} property) of this object to be \a prototype;
otherwise does nothing.
The internal prototype should not be confused with the public
property with name "prototype"; the public prototype is usually
only set on functions that act as constructors.
\sa prototype(), isObject()
*/
void QScriptValue::setPrototype(const QScriptValue &prototype)
{
if (!isObject())
return;
if (prototype.isValid() && (prototype.engine() != engine())) {
qWarning("QScriptValue::setPrototype() failed: "
"cannot set a prototype created in "
"a different engine");
return;
}
QScriptValueImpl self = QScriptValuePrivate::valueOf(*this);
QScriptValueImpl was = self.prototype();
self.setPrototype(QScriptValuePrivate::valueOf(prototype));
if (self.detectedCycle()) {
qWarning("QScriptValue::setPrototype() failed: "
"cyclic prototype value");
self.setPrototype(was);
}
}
QScriptValueImpl Variant::method_toString(QScriptContextPrivate *context, QScriptEnginePrivate *eng, QScriptClassInfo *classInfo)
{
if (Instance *instance = Instance::get(context->thisObject(), classInfo)) {
QString result;
QScriptValueImpl value = method_valueOf(context, eng, classInfo);
if (value.isObject()) {
result = instance->value.toString();
if (result.isEmpty()) {
result = QString::fromLatin1("QVariant(%0)")
.arg(QLatin1String(instance->value.typeName()));
}
} else {
result = value.toString();
}
return QScriptValueImpl(eng, result);
}
return context->throwError(QScriptContext::TypeError,
QLatin1String("QVariant.prototype.toString"));
}
void QScriptValueIteratorImpl::setObject(const QScriptValueImpl &obj)
{
Q_ASSERT(obj.isObject());
m_object = obj;
if (m_classDataIterator) {
delete m_classDataIterator;
m_classDataIterator = 0;
}
toFront();
}
void Object::execute(QScriptContextPrivate *context)
{
#ifndef Q_SCRIPT_NO_EVENT_NOTIFY
engine()->notifyFunctionEntry(context);
#endif
QScriptValueImpl value;
if (context->argumentCount() > 0)
value = engine()->toObject(context->argument(0));
else
value.invalidate();
if (! value.isValid())
newObject(&value);
context->setReturnValue(value);
#ifndef Q_SCRIPT_NO_EVENT_NOTIFY
engine()->notifyFunctionExit(context);
#endif
}
bool FunctionClassData::get(const QScriptValueImpl &object, const Member &member,
QScriptValueImpl *result)
{
if (object.classInfo() != classInfo())
return false;
QScriptEnginePrivate *eng = QScriptEnginePrivate::get(object.engine());
if (! member.isNativeProperty())
return false;
if (member.nameId() == eng->idTable()->id_length) {
eng->newNumber(result, object.toFunction()->length);
return true;
} else if (member.nameId() == eng->idTable()->id_arguments) {
eng->newNull(result);
return true;
}
return false;
}
/*!
\internal
\since 4.5
Returns the scope chain of this QScriptContext.
*/
QScriptValueList QScriptContext::scopeChain() const
{
Q_D(const QScriptContext);
// make sure arguments properties are initialized
const QScriptContextPrivate *ctx = d;
while (ctx) {
(void)ctx->activationObject();
ctx = ctx->previous;
}
QScriptValueList result;
QScriptEnginePrivate *eng_p = QScriptEnginePrivate::get(engine());
QScriptValueImpl scope = d->m_scopeChain;
while (scope.isObject()) {
if (scope.classInfo() == eng_p->m_class_with)
result.append(eng_p->toPublic(scope.prototype()));
else
result.append(eng_p->toPublic(scope));
scope = scope.scope();
}
return result;
}
bool FunctionClassData::resolve(const QScriptValueImpl &object,
QScriptNameIdImpl *nameId,
QScript::Member *member, QScriptValueImpl *base)
{
if (object.classInfo() != classInfo())
return false;
QScriptEnginePrivate *eng = QScriptEnginePrivate::get(object.engine());
if ((nameId == eng->idTable()->id_length)
|| (nameId == eng->idTable()->id_arguments)) {
member->native(nameId, /*id=*/ 0,
QScriptValue::Undeletable
| QScriptValue::ReadOnly
| QScriptValue::SkipInEnumeration);
*base = object;
return true;
}
return false;
}
bool QScriptValueImpl::hasInstance(const QScriptValueImpl &value) const
{
Q_ASSERT(isObject());
if (QScriptClassData *odata = classInfo()->data()) {
if (odata->implementsHasInstance(*this))
return odata->hasInstance(*this, value);
}
if (!isFunction())
return false;
// [[HasInstance] for function objects
if (!value.isObject())
return false;
QScriptEnginePrivate *eng = engine();
QScriptValueImpl proto = property(eng->idTable()->id_prototype);
if (!proto.isObject()) {
QScriptContextPrivate *ctx = eng->currentContext();
ctx->throwTypeError(QLatin1String("instanceof: 'prototype' property is not an object"));
return false;
}
QScriptObject *target = proto.m_object_value;
QScriptValueImpl v = value;
while (true) {
v = v.prototype();
if (!v.isObject())
break;
if (target == v.m_object_value)
return true;
}
return false;
}
QScriptValueImpl Object::method_hasOwnProperty(QScriptContextPrivate *context, QScriptEnginePrivate *eng, QScriptClassInfo *)
{
bool result = false;
if (context->thisObject().isObject() && (context->argumentCount() > 0)) {
QScriptValueImpl arg = context->argument(0);
QScriptNameIdImpl *id = 0;
if (arg.isString())
id = arg.stringValue();
if (! id || ! id->unique) {
QString str = arg.toString();
id = eng->nameId(str);
}
QScript::Member member;
QScriptValueImpl base;
QScriptValueImpl self = context->thisObject();
if (self.resolve(id, &member, &base, QScriptValue::ResolveLocal, QScript::Read))
result = true;
}
return (QScriptValueImpl(result));
}
void Error::newErrorPrototype(QScriptValueImpl *result, const QScriptValueImpl &proto,
QScriptValueImpl &ztor, const QString &name)
{
newError(result, proto);
result->setProperty(QLatin1String("name"), QScriptValueImpl(engine(), name));
result->setProperty(QLatin1String("constructor"), ztor,
QScriptValue::Undeletable
| QScriptValue::SkipInEnumeration);
ztor.setProperty(QLatin1String("prototype"), *result,
QScriptValue::Undeletable
| QScriptValue::ReadOnly
| QScriptValue::SkipInEnumeration);
}
QScriptValueImpl Function::method_apply(QScriptContextPrivate *context, QScriptEnginePrivate *eng, QScriptClassInfo *)
{
if (! context->thisObject().isFunction()) {
return context->throwError(QScriptContext::TypeError,
QLatin1String("Function.prototype.apply"));
}
QScriptValueImpl thisObject = context->argument(0).toObject();
if (! (thisObject.isValid () && thisObject.isObject()))
thisObject = eng->globalObject();
QScriptValueImplList args;
QScriptValueImpl undefined = eng->undefinedValue();
QScriptValueImpl arg = context->argument(1);
if (Ecma::Array::Instance *arr = eng->arrayConstructor->get(arg)) {
QScript::Array actuals = arr->value;
for (quint32 i = 0; i < actuals.count(); ++i) {
QScriptValueImpl a = actuals.at(i);
if (! a.isValid())
args << undefined;
else
args << a;
}
} else if (arg.classInfo() == eng->m_class_arguments) {
QScript::ArgumentsObjectData *arguments;
arguments = static_cast<QScript::ArgumentsObjectData*> (arg.objectData());
QScriptObject *activation = arguments->activation.objectValue();
for (uint i = 0; i < arguments->length; ++i)
args << activation->m_objects[i];
} else if (!(arg.isUndefined() || arg.isNull())) {
return context->throwError(QScriptContext::TypeError,
QLatin1String("Function.prototype.apply: second argument is not an array"));
}
return context->thisObject().call(thisObject, args);
}
