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.
278 lines
7.0 KiB
278 lines
7.0 KiB
/*
|
|
* Copyright (C) 2001-2003, Richard J. Moore <rich@kde.org>
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Library General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Library General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Library General Public License
|
|
* along with this library; see the file COPYING.LIB. If not, write to
|
|
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
* Boston, MA 02110-1301, USA.
|
|
*/
|
|
|
|
// #define HAVE_KSPY 1
|
|
#include <stdio.h>
|
|
|
|
#include <tqobject.h>
|
|
#include <tqfile.h>
|
|
#include <tqtextstream.h>
|
|
|
|
#ifndef QT_ONLY
|
|
|
|
#include "global.h"
|
|
#include <tdelocale.h>
|
|
#include <kinputdialog.h>
|
|
#include <tdemessagebox.h>
|
|
#include <kstddirs.h>
|
|
#include "ksimpleprocess.h"
|
|
|
|
#else
|
|
|
|
#include <tqinputdialog.h>
|
|
#include <tqmessagebox.h>
|
|
|
|
#endif // QT_ONLY
|
|
|
|
#include <kjs/object.h>
|
|
|
|
#ifdef HAVE_KSPY
|
|
#include <kspy.h>
|
|
#endif
|
|
|
|
#include "global.h"
|
|
#include "jsfactory.h"
|
|
#include "jsobjectproxy.h"
|
|
#include "kjsembedpart.h"
|
|
|
|
#include "builtins/saxhandler.h"
|
|
|
|
#include "jsbuiltin_imp.h"
|
|
|
|
//
|
|
// KJSEmbedPart Bindings
|
|
//
|
|
namespace KJSEmbed {
|
|
namespace Bindings {
|
|
|
|
JSBuiltInImp::JSBuiltInImp( JSBuiltIn *builtin, int mid, const TQString &p )
|
|
: JSProxyImp(builtin->part()->globalExec()), part(builtin->part()), id(mid), param(p)
|
|
{
|
|
setName( KJS::Identifier( KJS::UString(param) ) );
|
|
}
|
|
|
|
JSBuiltInImp::~JSBuiltInImp() {}
|
|
|
|
KJS::Value JSBuiltInImp::call( KJS::ExecState *exec, KJS::Object &self, const KJS::List &args )
|
|
{
|
|
TQString arg0 = (args.size() > 0) ? args[0].toString(exec).qstring() : TQString::null;
|
|
TQString arg1 = (args.size() > 1) ? args[1].toString(exec).qstring() : TQString::null;
|
|
|
|
if ( id == MethodLoadScript ) {
|
|
|
|
if ( args.size() == 1 ) {
|
|
bool ok = part->runFile( arg0 );
|
|
return KJS::Boolean( ok );
|
|
}
|
|
else if ( args.size() == 2 ) {
|
|
bool ok = part->runFile( arg0, args[1] );
|
|
return KJS::Boolean( ok );
|
|
}
|
|
else {
|
|
TQString msg = i18n( "Method requires 1 or 2 arguments, received %1." ).arg( args.size() );
|
|
return throwError(exec, msg);
|
|
}
|
|
}
|
|
else if ( id == MethodPrint ) {
|
|
|
|
(*conout()) << arg0;
|
|
|
|
return KJS::Boolean( true );
|
|
}
|
|
else if ( id == MethodPrintLn ) {
|
|
|
|
(*conout()) << arg0 << endl;
|
|
|
|
return KJS::Boolean( true );
|
|
}
|
|
else if ( id == MethodWarn ) {
|
|
|
|
(*conerr()) << arg0 << endl;
|
|
|
|
return KJS::Boolean( true );
|
|
}
|
|
else if ( id == MethodReadLine ) {
|
|
|
|
TQString line = conin()->readLine();
|
|
if ( !line.isNull() )
|
|
return KJS::String( line );
|
|
|
|
}
|
|
else if ( id == MethodOpenFile ) {
|
|
// #warning "This is leaked!!!!!"
|
|
// TQFile *f=new TQFile( arg0 );
|
|
// int mode = 0;
|
|
// if ( arg1 == TQString("ro") )
|
|
// mode = IO_ReadOnly;
|
|
// else if ( arg1 == TQString("wo") )
|
|
// mode = IO_WriteOnly;
|
|
|
|
// if ( !f->open( mode ) )
|
|
// return KJS::Boolean(false);
|
|
|
|
// Bindings::TextStream *ts = new Bindings::TextStream( part, "file", new TQTextStream(f) );
|
|
|
|
// return KJS::Object( ts );
|
|
return KJS::Null();
|
|
}
|
|
else if ( id == MethodReadFile ) {
|
|
|
|
TQFile f( arg0 );
|
|
if ( !f.open( IO_ReadOnly ) ) {
|
|
TQString msg = i18n( "Could not open file '%1'." ).arg(arg0);
|
|
return throwError(exec, msg);
|
|
}
|
|
|
|
TQString s = f.readAll();
|
|
return KJS::String( s );
|
|
}
|
|
else if ( id == MethodWriteFile ) {
|
|
TQFile f( arg0 );
|
|
if ( !f.open( IO_WriteOnly ) )
|
|
return KJS::Boolean( false );
|
|
|
|
TQTextStream ts( &f );
|
|
ts << arg1;
|
|
|
|
return KJS::Boolean( true );
|
|
}
|
|
else if ( id == MethodDumpObject ) {
|
|
if ( args.size() == 1 ) {
|
|
KJS::Object ob = args[0].toObject(exec);
|
|
return KJS::String( dumpObject( exec, ob ) );
|
|
}
|
|
return KJS::String( dumpObject( exec, self ) );
|
|
}
|
|
else if ( id == MethodRunKSpy ) {
|
|
#ifdef HAVE_KSPY
|
|
KSpy::invoke();
|
|
#endif
|
|
return KJS::Undefined();
|
|
}
|
|
else if ( id == MethodExit ) {
|
|
int status = args.size() ? args[0].toInteger( exec ) : 0;
|
|
::exit( status );
|
|
}
|
|
else if ( id == MethodSaxLoadFile ) {
|
|
if ( args.size() != 2 ) {
|
|
TQString msg = i18n( "Method requires 2 arguments, received %1." ).arg( args.size() );
|
|
return throwError(exec, msg);
|
|
}
|
|
|
|
BuiltIns::SaxHandler sax( exec );
|
|
sax.setHandler( args[0].toObject(exec) );
|
|
|
|
TQFile f( arg1 );
|
|
TQXmlInputSource src( &f );
|
|
TQXmlSimpleReader reader;
|
|
reader.setContentHandler( &sax );
|
|
|
|
bool ok = reader.parse( src );
|
|
if ( !ok ) {
|
|
return throwError(exec, sax.errorString().utf8());
|
|
}
|
|
|
|
return KJS::Boolean( true );
|
|
}
|
|
else if ( id == MethodDumpCompletion ) {
|
|
KJS::Object obj = obj.isValid() ? args[0].toObject(exec) : KJS::Object();
|
|
if ( !obj.isValid() ) {
|
|
TQString msg = i18n( "Method requires an object." );
|
|
return throwError(exec, msg,KJS::TypeError);
|
|
}
|
|
|
|
TQVariant v = dumpCompletion( exec, obj );
|
|
return convertToValue( exec, v ); // FIXME: This will crash if the type is wrong
|
|
}
|
|
else if ( id == MethodAlert ) {
|
|
|
|
#ifndef QT_ONLY
|
|
KMessageBox::information( 0L, arg0 );
|
|
#else // QT_ONLY
|
|
TQMessageBox::information( 0L, i18n("Information"), arg0 );
|
|
#endif // QT_ONLY
|
|
|
|
return KJS::Undefined();
|
|
}
|
|
else if ( id == MethodConfirm ) {
|
|
|
|
int answer;
|
|
#ifndef QT_ONLY
|
|
answer = KMessageBox::questionYesNo( 0L, arg0 );
|
|
#else // QT_ONLY
|
|
answer = TQMessageBox::question(0L, i18n("Question"), arg0 );
|
|
#endif // QT_ONLY
|
|
|
|
return KJS::Number( answer );
|
|
}
|
|
else if ( id == MethodPrompt ) {
|
|
|
|
TQString text;
|
|
#ifndef QT_ONLY
|
|
text = KInputDialog::getText( arg0, arg0, arg1 );
|
|
#else // QT_ONLY
|
|
text = TQInputDialog::getText( arg0, arg0, TQLineEdit::Normal, arg1 );
|
|
#endif // QT_ONLY
|
|
|
|
return KJS::String( text );
|
|
}
|
|
else if ( id == MethodI18n ) {
|
|
TQString retString(i18n(arg0.latin1()));
|
|
return KJS::String( retString );
|
|
}
|
|
else if ( id == MethodImport ) {
|
|
|
|
#ifndef QT_ONLY
|
|
// Scan $TDEDIRS/share/apps/$APPNAME/
|
|
// Scan $TDEDIRS/share/apps/kjsembed/
|
|
TDEGlobal::dirs()->addResourceType("kjsembed", TDEStandardDirs::kde_default("data") +"/kjsembed/");
|
|
TQString fname = TDEGlobal::dirs ()->findResource ("kjsembed", TQString(arg0));
|
|
|
|
kdDebug(80001) << "Loading: " << fname << endl;
|
|
|
|
//TQString code = part->loadFile(fname);
|
|
|
|
return KJS::Boolean( part->runFile(fname, part->globalObject()));
|
|
#else // QT_ONLY
|
|
return KJS::Boolean( false );
|
|
#endif // QT_ONLY
|
|
|
|
}
|
|
else if ( id == MethodShell ) {
|
|
|
|
#ifndef QT_ONLY
|
|
// return default data
|
|
kdDebug( 80001 ) << "Run: " << arg0 << endl;
|
|
return KJS::String(KSimpleProcess::exec( arg0 ));
|
|
#else // QT_ONLY
|
|
return KJS::String();
|
|
#endif // QT_ONLY
|
|
|
|
}
|
|
else {
|
|
kdWarning() << "JSBuiltInImp has no method " << id << endl;
|
|
}
|
|
|
|
TQString msg = i18n( "JSBuiltInImp has no method with id '%1'." ).arg( id );
|
|
return throwError(exec, msg,KJS::ReferenceError);
|
|
}
|
|
|
|
} // namespace KJSEmbed::Bindings
|
|
} // namespace KJSEmbed
|