You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdebindings/kjsembed/jsbinding.cpp

790 lines
31 KiB

#include <tqmetaobject.h>
#include <private/qucom_p.h>
#include <tqpen.h>
#include <tqpixmap.h>
#include <tqimage.h>
#include <tqvariant.h>
#include <tqdatetime.h>
#include <tqsize.h>
#include <kjs/interpreter.h>
#include <kjs/ustring.h>
#include <kjs/types.h>
#include <kjs/value.h>
#include "global.h"
#include "jsbinding.h"
#include "jsobjectproxy.h"
#include "jsfactory.h"
#include "jsvalueproxy.h"
#include "jsopaqueproxy.h"
#include "jsbuiltinproxy.h"
#include "kjsembedpart.h"
#include "bindings/pen_imp.h"
#include "bindings/image_imp.h"
#include "bindings/pixmap_imp.h"
#include "bindings/painter_imp.h"
#include "bindings/brush_imp.h"
#include "bindings/size_imp.h"
#include "bindings/point_imp.h"
#include "bindings/rect_imp.h"
#include <stdlib.h>
namespace KJSEmbed {
//
//
// Supported
// =========
//
// Bool, Double, CString, String, StringList, Int, UInt, Date, Time, DateTime,
// Rect, Size, Point, Pixmap, Image, Brush, Pen, Size, Rect, Point, TTQValueList<TTQVariant>
//
// Opqaue
// ======
//
// Invalid, Map, List, Palette, ColorGroup,
// IconSet, PointArray, Region, Bitmap, Cursor, SizePolicy,
// ByteArray, BitArray
//
KJS::Value convertToValue( KJS::ExecState *exec, const TTQVariant &val ) {
if ( !val.isValid() )
return KJS::Undefined();
kdDebug( 80001 ) << "Convert a " << val.typeName() << " to a value" << endl;
KJS::List items;
uint type = val.type();
switch( type )
{
case TTQVariant::String:
case TTQVariant::CString:
return KJS::String( val.toString() );
break;
case TTQVariant::Int:
return KJS::Number( val.toInt() );
break;
case TTQVariant::UInt:
return KJS::Number( val.toUInt() );
break;
case TTQVariant::Double:
return KJS::Number( val.toDouble() );
break;
case TTQVariant::Bool:
return KJS::Boolean( val.toBool() );
break;
case TTQVariant::Rect:
{
JSValueProxy * prx = new JSValueProxy( );
prx->setValue( val );
KJS::Object proxyObj( prx );
Bindings::Rect::addBindings( exec, proxyObj );
return proxyObj;
break;
}
case TTQVariant::Date:
case TTQVariant::DateTime:
case TTQVariant::Time:
{
TTQDateTime dt = TTQDateTime::currentDateTime();
if ( type == TTQVariant::Date )
dt.setDate( val.toDate() );
else if ( type == TTQVariant::Time )
dt.setTime( val.toTime() );
else
dt = val.toDateTime();
items.append( KJS::Number( dt.date().year() ) );
items.append( KJS::Number( dt.date().month() - 1 ) );
items.append( KJS::Number( dt.date().day() ) );
items.append( KJS::Number( dt.time().hour() ) );
items.append( KJS::Number( dt.time().minute() ) );
items.append( KJS::Number( dt.time().second() ) );
items.append( KJS::Number( dt.time().msec() ) );
return KJS::Object( exec->interpreter() ->builtinDate().construct( exec, items ) );
break;
}
case TTQVariant::Point:
{
JSValueProxy * prx = new JSValueProxy( );
prx->setValue( val );
KJS::Object proxyObj( prx );
Bindings::Point::addBindings( exec, proxyObj );
return proxyObj;
break;
}
case TTQVariant::StringList:
{
TTQStringList lst = val.toStringList();
TTQStringList::Iterator idx = lst.begin();
for ( ; idx != lst.end(); ++idx )
items.append( KJS::String( ( *idx ) ) );
return KJS::Object( exec->interpreter() ->builtinArray().construct( exec, items ) );
break;
}
case TTQVariant::List:
// case TTQVariant::StringList:
// This will cause an extra conversion step for a TQStrinList so use the above case.
{
TTQValueList<TTQVariant> lst = val.toList();
TTQValueList<TTQVariant>::Iterator idx = lst.begin();
for ( ; idx != lst.end(); ++idx )
items.append( convertToValue( exec, ( *idx ) ) );
return KJS::Object( exec->interpreter() ->builtinArray().construct( exec, items ) );
break;
}
case TTQVariant::Map:
{
TTQMap<TTQString,TTQVariant> map = val.toMap();
TTQMap<TTQString,TTQVariant>::Iterator idx = map.begin();
KJS::Object array( exec->interpreter() ->builtinArray().construct( exec, 0 ) );
for ( ; idx != map.end(); ++idx )
array.put(exec, KJS::Identifier(idx.key().latin1()), convertToValue( exec, idx.data() ) );
return array;
break;
}
case TTQVariant::Pixmap:
{
JSValueProxy * prx = new JSValueProxy( );
prx->setValue( val );
KJS::Object proxyObj( prx );
Bindings::Pixmap::addBindings( exec, proxyObj );
return proxyObj;
break;
}
case TTQVariant::Brush:
{
JSValueProxy * prx = new JSValueProxy( );
prx->setValue( val );
KJS::Object proxyObj( prx );
Bindings::BrushImp::addBindings( exec, proxyObj );
return proxyObj;
}
case TTQVariant::Image:
{
JSValueProxy * prx = new JSValueProxy( );
prx->setValue( val );
KJS::Object proxyObj( prx );
Bindings::ImageImp::addBindings( exec, proxyObj );
return proxyObj;
break;
}
case TTQVariant::Pen:
{
JSValueProxy * prx = new JSValueProxy( );
prx->setValue( val );
KJS::Object proxyObj( prx );
Bindings::Pen::addBindings( exec, proxyObj );
return proxyObj;
break;
}
case TTQVariant::Size:
{
JSValueProxy * prx = new JSValueProxy( );
prx->setValue( val );
KJS::Object proxyObj( prx );
Bindings::Size::addBindings( exec, proxyObj );
return proxyObj;
break;
}
default:
{
if ( val.canCast( TTQVariant::String ) )
return KJS::String( val.toString() );
else
{
kdDebug( 80001 ) << "convertToValue() Creating value, type wrapper for " << val.typeName() << endl;
JSValueProxy *valproxy = new JSValueProxy();
KJS::Object obj = KJS::Object( valproxy );
valproxy->addBindings( exec, obj );
valproxy->setValue( val );
return obj;
}
}
}
}
TTQVariant convertToVariant( KJS::ExecState *exec, const KJS::Value &v ) {
TTQVariant val;
KJS::Type type = v.type();
kdDebug( 80001 ) << "Convert a value of type " << type << " to a variant" << endl;
switch( type )
{
case KJS::StringType:
val = v.toString( exec ).qstring();
break;
case KJS::NumberType:
val = v.toNumber( exec );
break;
case KJS::BooleanType:
val = v.toBoolean( exec );
break;
case KJS::ObjectType:
{
KJS::Object obj = v.toObject( exec );
kdDebug( 80001 ) << "convertToVariant() got an " << obj.className().qstring() << endl;
if ( obj.className().qstring() == "Array" ) {
if ( checkArray( exec, v ) == List )
val = convertArrayToList( exec, v );
else
val = convertArrayToMap(exec, v);
} else if ( obj.className().qstring() == "Date" ) {
val = convertDateToDateTime( exec, v );
} else if ( obj.className().qstring() == "Function" ) {
/* val = obj.className().qstring();*/
} else {
//JSObjectProxy *prx = JSProxy::toObjectProxy( obj.imp() );
JSValueProxy *vprx = JSProxy::toValueProxy(obj.imp() );
//JSOpaqueProxy *oprx = JSProxy::toOpaqueProxy( obj.imp() );
JSProxy *prxy = dynamic_cast<JSProxy*>(obj.imp());
/*
kdDebug(80001) << "Type " << obj.imp()->dispatchType() << endl;
kdDebug(80001) << "Object proxy: " << prx << " Value Proxy: " << vprx << " Opaque Proxy " << oprx << " Proxy " << prxy << endl;
kdDebug(80001) << "Object prototype valid " << obj.prototype().isValid() << endl;
kdDebug(80001) << "Prototype name: " << obj.prototype().toString(exec).ascii() << endl;
kdDebug(80001) << "Proxy imp " << dynamic_cast<JSProxyImp*>(obj.imp()) << endl;
kdDebug(80001) << "Builtin " << dynamic_cast<JSBuiltinProxy*>(obj.imp()) << endl;
*/
/*if ( prx ) {
TTQObject * o = prx->object();
TTQCString cs( o ? o->className() : "" );
if ( obj.implementsConstruct() )
val = TTQString( "new %1();" ).arg( obj.className().qstring() );
else if ( obj.implementsCall() )
val = TTQString( "%1(...);" ).arg( obj.className().qstring() );
kdDebug( 80001 ) << "convertToVariant() got a JSObjectProxy" << endl;
} else */if ( vprx ) {
kdDebug( 80001 ) << "convertToVariant() got a variant JSValueProxy" << endl;
val = vprx->toVariant();
} else if ( prxy ) {
/* kdDebug( 80001 ) << "convertToVariant() got a JSProxy" << endl;
val = prxy->typeName();
*/
} else { // Last resort map the object to a TTQMap<TTQString,TTQVariant>
kdDebug( 80001 ) << "convertToVariant() map to struct." << endl;
val = convertArrayToMap(exec, v);
}
}
break;
}
default:
{
TTQString msg = i18n( "Unsupported KJS::Value, type %1" ).arg( ( int ) v.type() );
throwError(exec, msg);
val = msg;
break;
}
}
kdDebug(80001) << "Returning a " << val.typeName() << endl;
return val;
}
TTQStringList dumpCompletion( KJS::ExecState *exec, KJS::Object &obj ) {
TTQStringList returnList;
if ( !obj.isValid() ) {
return returnList;
}
KJS::ReferenceList l = obj.propList( exec );
KJS::ReferenceListIterator propIt = l.begin();
while ( propIt != l.end() ) {
KJS::Identifier name = propIt->getPropertyName( exec );
if ( obj.hasProperty( exec, name ) ) {
KJS::Value v = obj.get( exec, name );
KJS::Object vobj = v.toObject( exec );
TTQString nm( name.ustring().qstring() );
TTQString vl;
if ( vobj.implementsConstruct() ) {
if ( vobj.prototype().toString( exec ).qstring() == "[function]" )
returnList << TTQString( "%1(...)" ).arg( nm );
} else if ( vobj.implementsCall() ) {
returnList << TTQString( "%1(...)" ).arg( nm );
} else {
TTQVariant val = convertToVariant( exec, v );
vl = val.toString();
returnList << nm;
}
}
propIt++;
}
JSObjectProxy *proxy = JSProxy::toObjectProxy( obj.imp() );
TTQObject *qo = proxy ? proxy->object() : 0;
TTQMetaObject *mo = qo ? qo->metaObject() : 0;
// TQObject
if ( proxy ) {
// TQProperties
TTQStrList propList( mo->propertyNames( true ) );
for ( TTQStrListIterator iter1( propList ); iter1.current(); ++iter1 ) {
TTQCString name = iter1.current();
int propid = mo->findProperty( name.data(), true );
if ( propid == -1 )
continue;
returnList << name;
}
// Slots
KJS::List items;
TTQStrList slotList( mo->slotNames( true ) );
for ( TTQStrListIterator iter2( slotList ); iter2.current(); ++iter2 ) {
TTQCString name = iter2.current();
TTQString nm( name );
int slotid = mo->findSlot( name.data(), true );
if ( slotid != -1 ) {
returnList << nm;
}
}
}
return returnList;
}
TTQString dumpObject( KJS::ExecState *exec, KJS::Object &obj ) {
if ( !obj.isValid() )
return TTQString( "Invalid object\n" );
TTQStringList properties;
TTQStringList methods;
KJS::ReferenceList l = obj.propList( exec, true );
KJS::ReferenceListIterator propIt = l.begin();
while ( propIt != l.end() ) {
KJS::Identifier name = propIt->getPropertyName( exec );
if ( obj.hasProperty( exec, name ) ) {
KJS::Value v = obj.get( exec, name );
KJS::Object vobj = v.toObject( exec );
TTQString nm( name.ustring().qstring() );
kdDebug( 80001 ) << "Getting: " << name.ustring().qstring() << " "
<< vobj.prototype().toString( exec ).qstring() << endl;
if ( vobj.implementsConstruct() ) {
// Do nothing
kdDebug( 80001 ) << "implementsConstruct: " << nm << endl;
if ( vobj.prototype().toString( exec ).qstring() == "[function]" )
methods += nm;
} else if ( vobj.implementsCall() ) {
kdDebug( 80001 ) << "implementsCall: " << nm << endl;
methods += nm;
} else {
properties += nm;
}
}
propIt++;
}
TTQString s;
// JS properties
s += TTQString( "<h2>Properties</h2>\n" );
if ( !properties.isEmpty() ) {
s += "<table width=\"90%\">\n";
s += "<tr><th>Type</th><th>Name</th><th>Value</th></tr>\n";
properties.sort();
for ( TTQStringList::Iterator iter = properties.begin(); iter != properties.end(); ++iter ) {
KJS::Value v = obj.get( exec, KJS::Identifier( KJS::UString( *iter ) ) );
TTQVariant val = convertToVariant( exec, v );
s += TTQString( "<tr><td align=\"center\">%1</td><td><b>%2</b></td><td align=\"center\">%3</td></tr>\n" )
.arg( val.typeName() ).arg( *iter ).arg( val.toString() );
}
s += "</table>\n";
} else
s += "<i>None</i>\n";
// Methods
s += TTQString( "<h2>Methods</h2>\n" );
if ( !methods.isEmpty() ) {
s += "<table width=\"90%\">";
methods.sort();
for ( TTQStringList::Iterator iter = methods.begin(); iter != methods.end(); ++iter ) {
s += "<tr><td><b>";
s += *iter;
s += "(...)</b></td></tr>";
}
s += "</table>";
} else
s += "<i>None</i>\n";
s += dumpTQObject( exec, obj );
return s;
}
TTQString dumpTQObject( KJS::ExecState * /*exec*/, KJS::Object &obj ) {
if ( !obj.isValid() )
return TTQString( "Invalid object\n" );
TTQString s( "" );
JSObjectProxy *proxy = JSProxy::toObjectProxy( obj.imp() );
TTQObject *qo = proxy ? proxy->object() : 0;
TTQMetaObject *mo = qo ? qo->metaObject() : 0;
// TQObject
if ( proxy ) {
// TQProperties
s += TTQString( "<h2>Qt Properties</h2>\n" );
TTQStrList propList( mo->propertyNames( true ) );
if ( !propList.isEmpty() ) {
s += "<table width=\"90%\">\n";
s += "<tr><th>Type</th><th>Name</th><th>Value</th></tr>\n";
propList.sort();
for ( TTQStrListIterator iter( propList ); iter.current(); ++iter ) {
TTQCString name = iter.current();
int propid = mo->findProperty( name.data(), true );
if ( propid == -1 )
continue;
TTQVariant vl = qo->property( name.data() );
s += TTQString( "<tr><td align=\"center\">%1</td><td><b>%2</b></td><td align=\"center\">%3</td></tr>\n" )
.arg( mo->property( propid, true ) ->type() ).arg( name ).arg( vl.toString() );
}
s += "</table>\n";
} else {
s += "<i>None</i>";
}
// Signals
s += TTQString( "<h2>Qt Signals</h2>\n" );
s += "<table width=\"90%\">";
TTQStrList signalList( mo->signalNames( true ) );
signalList.sort();
for ( TTQStrListIterator iter1( signalList ); iter1.current(); ++iter1 ) {
TTQCString name = iter1.current();
TTQString nm( name );
int signalid = mo->findSignal( name.data(), true );
if ( signalid != -1 )
s += TTQString( "<tr><td><b>%1</b></td></tr>\n" ).arg( nm );
}
s += "</table>";
if ( signalList.isEmpty() )
s += "<i>None</i>";
// Slots
s += TTQString( "<h2>Qt Slots</h2>\n" );
s += "<table width=\"90%\">";
KJS::List items;
TTQStrList slotList( mo->slotNames( true ) );
slotList.sort();
for ( TTQStrListIterator iter2( slotList ); iter2.current(); ++iter2 ) {
TTQCString name = iter2.current();
TTQString nm( name );
int slotid = mo->findSlot( name.data(), true );
if ( slotid != -1 ) {
const TQMetaData * md = mo->slot( slotid, true );
const TQUMethod *method = md->method;
if ( method->count && ( method->parameters->inOut == TQUParameter::Out ) ) {
TTQCString typenm( method->parameters->type->desc() );
if ( typenm == "ptr" ) {
s += TTQString( "<tr><td>%1</td><td><b>%2</b></td></tr>\n" )
.arg( ( const char * ) method->parameters->typeExtra ).arg( nm );
} else {
s += TTQString( "<tr><td>%1</td><td><b>%2</b></td></tr>\n" )
.arg( typenm.data() ).arg( nm );
}
} else
s += TTQString( "<tr><td>void</td><td><b>%1</b></td></tr>\n" ).arg( nm );
}
}
s += "</table>";
if ( slotList.isEmpty() )
s += "<i>None</i>";
}
return s;
}
TTQPen extractTQPen( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? convertToVariant( exec, args[ idx ] ).toPen() : TTQPen();
}
TTQBrush extractTQBrush( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? convertToVariant( exec, args[ idx ] ).toBrush() : TTQBrush();
}
TTQFont extractTQFont( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? convertToVariant( exec, args[ idx ] ).toFont() : TTQFont();
}
TTQPixmap extractTQPixmap( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? convertToVariant( exec, args[ idx ] ).toPixmap() : TTQPixmap();
}
TTQImage extractTQImage( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? convertToVariant( exec, args[ idx ] ).toImage() : TTQImage();
}
TTQPalette extractTQPalette( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? convertToVariant( exec, args[ idx ] ).toPalette() : TTQPalette();
}
TTQString extractTQString( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? args[ idx ].toString( exec ).qstring() : TTQString::null;
}
int extractInt( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? args[ idx ].toInteger( exec ) : 0;
}
TTQColor extractTQColor( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? convertToVariant( exec, args[ idx ] ).toColor() : TTQColor();
}
TTQSize extractTQSize( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? convertToVariant( exec, args[ idx ] ).toSize() : TTQSize();
}
bool extractBool( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? args[ idx ].toBoolean( exec ) : false;
}
double extractDouble( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? args[ idx ].toNumber( exec ) : 0.0;
}
uint extractUInt( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? args[ idx ].toUInt32( exec ) : 0;
}
TTQStringList extractTQStringList( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? convertArrayToStringList( exec, args[ idx ] ) : TTQStringList();
}
/**
* This will return if the value is a list, associative array or neither
* @return
*/
JavaScriptArrayType checkArray( KJS::ExecState *exec, const KJS::Value &val ) {
KJS::Object obj = val.toObject( exec );
kdDebug( 80001 ) << "Object type: " << obj.className().qstring() << endl;
if ( obj.className().qstring() == "Array" ) {
//KJS::ReferenceList lst = obj.propList( exec, true );
KJS::Value len = obj.get(exec, KJS::Identifier("length"));
kdDebug(80001) << "Array length: " << len.toNumber(exec) << endl;
kdDebug(80001) << "Object type: " << len.type() << endl;
char buff[4];
if( !obj.hasProperty(exec, KJS::Identifier("length")) )
return Map;
else if( !obj.hasProperty(exec, KJS::Identifier( itoa((len.toNumber(exec) - 1), buff, 10 ) ) ) )
return Map;
/*
if( obj.get(exec, KJS::Identifier("length")).toInteger(exec) == 0 )
return List;
int offset = 0;
KJS::ReferenceListIterator idx = lst.begin();
for ( ; idx != lst.end(); idx++ ) {
if ( idx->getPropertyName( exec ).qstring().toInt() != offset )
return Map;
offset++;
kdDebug( 80001 ) << "Property Name: " << idx->getPropertyName( exec ).qstring() << endl;
kdDebug( 80001 ) << "Property Value: " << idx->getValue( exec ).toString( exec ).qstring() << endl;
}
*/
else
return List;
} else
return None;
}
TTQMap<TTQString, TTQVariant> convertArrayToMap( KJS::ExecState *exec, const KJS::Value &value ) {
TTQMap<TTQString, TTQVariant> returnMap;
KJS::Object obj = value.toObject(exec);
// if( obj.className().qstring() == "Array" ) {
KJS::ReferenceList lst = obj.propList(exec,false);
KJS::ReferenceListIterator idx = lst.begin();
for( ; idx != lst.end(); idx++ )
{
KJS::Identifier id = idx->getPropertyName(exec);
KJS::Value val = idx->getValue(exec);
returnMap.insert(id.qstring(),convertToVariant(exec,val));
}
// }
return returnMap;
}
TTQValueList<TTQVariant> convertArrayToList( KJS::ExecState *exec, const KJS::Value &value ) {
TTQValueList<TTQVariant> returnList;
KJS::Object obj = value.toObject( exec );
if ( obj.className().qstring() == "Array" ) {
int length = obj.get( exec, KJS::Identifier( "length" ) ).toInteger( exec );
for ( int index = 0; index < length; ++index ) {
char buff[4];
KJS::Value val = obj.get(exec, KJS::Identifier( itoa( index, buff, 10 ) ) );
if( val.isValid() )
returnList += convertToVariant(exec, val );
else
returnList += "";
}
}
return returnList;
}
TTQStringList convertArrayToStringList( KJS::ExecState *exec, const KJS::Value &value ) {
TTQStringList returnList;
KJS::Object obj = value.toObject( exec );
if ( obj.className().qstring() == "Array" ) {
int length = obj.get( exec, KJS::Identifier( "length" ) ).toInteger( exec );
for ( int index = 0; index < length; ++index ) {
char buff[4];
KJS::Value val = obj.get(exec, KJS::Identifier( itoa( index, buff, 10 ) ) );
if( val.isValid() )
returnList += val.toString(exec).qstring();
else
returnList += "";
}
}
return returnList;
}
/*
TTQStringList convertArrayToStringList( KJS::ExecState *exec, const KJS::Value &value ) {
TTQStringList returnList;
KJS::Object obj = value.toObject( exec );
if ( obj.className().qstring() == "Array" ) {
int length = obj.get( exec, KJS::Identifier( "length" ) ).toInteger( exec );
for ( int index = 0; index < length; ++index ) {
returnList << obj.get( exec, KJS::Identifier( KJS::UString::from( index ) ) ).toString( exec ).qstring();
}
}
return returnList;
}
*/
TTQDateTime convertDateToDateTime( KJS::ExecState *exec, const KJS::Value &value ) {
KJS::List args;
TTQDateTime returnDateTime;
KJS::Object obj = value.toObject( exec );
if ( obj.className().qstring() == "Date" ) {
int seconds = obj.get( exec, KJS::Identifier( "getSeconds" ) ).toObject( exec ).call( exec, obj, args ).toInteger( exec );
int minutes = obj.get( exec, KJS::Identifier( "getMinutes" ) ).toObject( exec ).call( exec, obj, args ).toInteger( exec );
int hours = obj.get( exec, KJS::Identifier( "getHours" ) ).toObject( exec ).call( exec, obj, args ).toInteger( exec );
int month = obj.get( exec, KJS::Identifier( "getMonth" ) ).toObject( exec ).call( exec, obj, args ).toInteger( exec );
int day = obj.get( exec, KJS::Identifier( "getDate" ) ).toObject( exec ).call( exec, obj, args ).toInteger( exec );
int year = obj.get( exec, KJS::Identifier( "getFullYear" ) ).toObject( exec ).call( exec, obj, args ).toInteger( exec );
returnDateTime.setDate( TTQDate( year, month + 1, day ) );
returnDateTime.setTime( TTQTime( hours, minutes, seconds ) );
} else {
kdWarning() << "convertDateToDateTime() received a " << obj.className().qstring() << " instead of a Date" << endl;
}
return returnDateTime;
}
TTQDateTime extractTQDateTime( KJS::ExecState * exec, const KJS::List & args, int idx ) {
return ( args.size() > idx ) ? convertDateToDateTime( exec, args[ idx ] ) : TTQDateTime();
}
TTQDate extractTQDate( KJS::ExecState * exec, const KJS::List & args, int idx ) {
return ( args.size() > idx ) ? convertDateToDateTime( exec, args[ idx ] ).date() : TTQDate();
}
TTQTime extractTQTime( KJS::ExecState * exec, const KJS::List & args, int idx ) {
return ( args.size() > idx ) ? convertDateToDateTime( exec, args[ idx ] ).time() : TTQTime();
}
TTQRect extractTQRect( KJS::ExecState * exec, const KJS::List & args, int idx ) {
return ( args.size() > idx ) ? convertToVariant( exec, args[ idx ] ).toRect() : TTQRect();
}
TTQPoint extractTQPoint( KJS::ExecState * exec, const KJS::List & args, int idx ) {
return ( args.size() > idx ) ? convertToVariant( exec, args[ idx ] ).toPoint() : TTQPoint();
}
TTQStrList extractTQStrList( KJS::ExecState *exec, const KJS::List &args, int idx ) {
return ( args.size() > idx ) ? convertArrayToStrList( exec, args[ idx ] ) : TTQStrList();
}
TTQStrList convertArrayToStrList( KJS::ExecState *exec, const KJS::Value &value ) {
TTQStrList returnList;
KJS::Object obj = value.toObject( exec );
if ( obj.className().qstring() == "Array" ) {
int length = obj.get( exec, KJS::Identifier( "length" ) ).toInteger( exec );
for ( int index = 0; index < length; ++index ) {
returnList.append( obj.get( exec, KJS::Identifier( KJS::UString::from( index ) ) ).toString( exec ).qstring().latin1() );
}
}
return returnList;
}
TTQObject *extractTQObject( KJS::ExecState *exec, const KJS::List &args, int idx ) {
KJS::Object obj = args[ idx ].toObject( exec );
JSObjectProxy *proxy = JSProxy::toObjectProxy( obj.imp() );
if ( !proxy )
return 0L;
return proxy->object();
}
TTQWidget *extractTQWidget( KJS::ExecState *exec, const KJS::List &args, int idx ) {
KJS::Object obj = args[ idx ].toObject( exec );
JSObjectProxy *proxy = JSProxy::toObjectProxy( obj.imp() );
if ( !proxy )
return 0L;
return proxy->widget();
}
JSOpaqueProxy *extractOpaqueProxy( KJS::ExecState *exec, const KJS::List &args, int idx ) {
KJS::Object obj = args[ idx ].toObject( exec );
return JSProxy::toOpaqueProxy( obj.imp() );
}
KJS::Object throwError( KJS::ExecState *exec, const TTQString &error, KJS::ErrorType type )
{
int sourceId = exec->context().sourceId();
int startLine = exec->context().curStmtFirstLine();
KJS::Object retValue = KJS::Error::create( exec, type, error.utf8(), startLine, sourceId );
kdWarning(80001) << error << endl;
exec->setException( retValue );
return retValue;
}
} // namespace KJSEmbed