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.
tdelibs/khtml/ecma/kjs_navigator.cpp

671 lines
22 KiB

// -*- c-basic-offset: 2 -*-
/*
* This file is part of the KDE libraries
* Copyright (C) 2000 Harri Porten (porten@kde.org)
* Copyright (c) 2000 Daniel Molkentin (molkentin@kde.org)
* Copyright (c) 2000 Stefan Schimanski (schimmi@kde.org)
* Copyright (C) 2003 Apple Computer, Inc.
*
* 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; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
#include <klocale.h>
#include <kstandarddirs.h>
#include <kconfig.h>
#include <kdebug.h>
#include <kio/kprotocolmanager.h>
#include <kio/kmimetype.h>
#include <kio/kservice.h>
#include <kio/ktrader.h>
#include "kjs_navigator.h"
#include "kjs/lookup.h"
#include "kjs_binding.h"
#include "khtml_part.h"
#include <sys/utsname.h>
#include "kjs_navigator.lut.h"
using namespace KJS;
namespace KJS {
// All objects that need plugin info must inherit from PluginBase
// Its ctor and dtor take care of the refcounting on the static lists.
class PluginBase : public ObjectImp {
public:
PluginBase(ExecState *exec, bool loadPluginInfo);
virtual ~PluginBase();
struct MimeClassInfo;
struct PluginInfo;
struct MimeClassInfo {
TQString type;
TQString desc;
TQString suffixes;
PluginInfo *plugin;
};
struct PluginInfo {
TQString name;
TQString file;
TQString desc;
TQPtrList<MimeClassInfo> mimes;
};
static TQPtrList<PluginInfo> *plugins;
static TQPtrList<MimeClassInfo> *mimes;
private:
static int m_refCount;
};
class Plugins : public PluginBase {
public:
Plugins(ExecState *exec, bool pluginsEnabled)
: PluginBase(exec, pluginsEnabled),
m_pluginsEnabled(pluginsEnabled) {};
virtual Value get(ExecState *exec, const Identifier &propertyName) const;
Value getValueProperty(ExecState *exec, int token) const;
virtual const ClassInfo* classInfo() const { return &info; }
static const ClassInfo info;
Value pluginByName( ExecState* exec, const TQString& name ) const;
bool pluginsEnabled() const { return m_pluginsEnabled; };
private:
bool m_pluginsEnabled;
};
class MimeTypes : public PluginBase {
public:
MimeTypes(ExecState *exec, bool pluginsEnabled)
: PluginBase(exec, pluginsEnabled),
m_pluginsEnabled(pluginsEnabled) {};
virtual Value get(ExecState *exec, const Identifier &propertyName) const;
virtual const ClassInfo* classInfo() const { return &info; }
static const ClassInfo info;
Value getValueProperty(ExecState *exec, int token) const;
Value mimeTypeByName( ExecState* exec, const TQString& name ) const;
bool pluginsEnabled() const { return m_pluginsEnabled; };
private:
bool m_pluginsEnabled;
};
class Plugin : public PluginBase {
public:
Plugin( ExecState *exec, PluginBase::PluginInfo *info )
: PluginBase( exec, true )
{ m_info = info; };
virtual Value get(ExecState *exec, const Identifier &propertyName) const;
virtual const ClassInfo* classInfo() const { return &info; }
static const ClassInfo info;
Value mimeByName(ExecState* exec, const TQString& name ) const;
Value getValueProperty(ExecState *exec, int token) const;
PluginBase::PluginInfo *pluginInfo() const { return m_info; }
private:
PluginBase::PluginInfo *m_info;
};
class MimeType : public PluginBase {
public:
MimeType( ExecState *exec, PluginBase::MimeClassInfo *info )
: PluginBase( exec, true )
{ m_info = info; };
virtual Value get(ExecState *exec, const Identifier &propertyName) const;
virtual const ClassInfo* classInfo() const { return &info; }
static const ClassInfo info;
Value getValueProperty(ExecState *exec, int token) const;
private:
PluginBase::MimeClassInfo *m_info;
};
}
TQPtrList<PluginBase::PluginInfo> *KJS::PluginBase::plugins = 0;
TQPtrList<PluginBase::MimeClassInfo> *KJS::PluginBase::mimes = 0;
int KJS::PluginBase::m_refCount = 0;
const ClassInfo Navigator::info = { "Navigator", 0, &NavigatorTable, 0 };
/*
@begin NavigatorTable 12
appCodeName Navigator::AppCodeName DontDelete|ReadOnly
appName Navigator::AppName DontDelete|ReadOnly
appVersion Navigator::AppVersion DontDelete|ReadOnly
language Navigator::Language DontDelete|ReadOnly
userAgent Navigator::UserAgent DontDelete|ReadOnly
userLanguage Navigator::UserLanguage DontDelete|ReadOnly
browserLanguage Navigator::BrowserLanguage DontDelete|ReadOnly
platform Navigator::Platform DontDelete|ReadOnly
cpuClass Navigator::CpuClass DontDelete|ReadOnly
plugins Navigator::_Plugins DontDelete|ReadOnly
mimeTypes Navigator::_MimeTypes DontDelete|ReadOnly
product Navigator::Product DontDelete|ReadOnly
vendor Navigator::Vendor DontDelete|ReadOnly
productSub Navigator::ProductSub DontDelete|ReadOnly
cookieEnabled Navigator::CookieEnabled DontDelete|ReadOnly
javaEnabled Navigator::JavaEnabled DontDelete|Function 0
@end
*/
IMPLEMENT_PROTOFUNC_DOM(NavigatorFunc)
Navigator::Navigator(ExecState *exec, KHTMLPart *p)
: ObjectImp(exec->interpreter()->builtinObjectPrototype()), m_part(p) { }
Value Navigator::get(ExecState *exec, const Identifier &propertyName) const
{
#ifdef KJS_VERBOSE
kdDebug(6070) << "Navigator::get " << propertyName.ascii() << endl;
#endif
return lookupGet<NavigatorFunc,Navigator,ObjectImp>(exec,propertyName,&NavigatorTable,this);
}
Value Navigator::getValueProperty(ExecState *exec, int token) const
{
KURL url = m_part->url();
TQString userAgent = url.host();
if (userAgent.isEmpty())
userAgent = "localhost";
userAgent = KProtocolManager::userAgentForHost(userAgent);
switch (token) {
case AppCodeName:
return String("Mozilla");
case AppName:
// If we find "Mozilla" but not "(compatible, ...)" we are a real Netscape
if (userAgent.find(TQString::fromLatin1("Mozilla")) >= 0 &&
userAgent.find(TQString::fromLatin1("compatible")) == -1)
{
//kdDebug() << "appName -> Mozilla" << endl;
return String("Netscape");
}
if (userAgent.find(TQString::fromLatin1("Microsoft")) >= 0 ||
userAgent.find(TQString::fromLatin1("MSIE")) >= 0)
{
//kdDebug() << "appName -> IE" << endl;
return String("Microsoft Internet Explorer");
}
//kdDebug() << "appName -> Konqueror" << endl;
return String("Konqueror");
case AppVersion:
// We assume the string is something like Mozilla/version (properties)
return String(userAgent.mid(userAgent.find('/') + 1));
case Product:
// We are pretending to be Mozilla or Safari
if (userAgent.find(TQString::fromLatin1("Mozilla")) >= 0 &&
userAgent.find(TQString::fromLatin1("compatible")) == -1)
{
return String("Gecko");
}
// When spoofing as IE, we use Undefined().
if (userAgent.find(TQString::fromLatin1("Microsoft")) >= 0 ||
userAgent.find(TQString::fromLatin1("MSIE")) >= 0)
{
return Undefined();
}
// We are acting straight
return String("Konqueror/khtml");
case ProductSub:
{
int ix = userAgent.find("Gecko");
if (ix >= 0 && userAgent.length() >= (uint)ix+14 && userAgent.tqunicode()[ix+5] == TQChar('/') &&
userAgent.find(TQRegExp("\\d{8}"), ix+6) == ix+6)
{
// We have Gecko/<productSub> in the UA string
return String(userAgent.mid(ix+6, 8));
}
else if (ix >= 0)
{
return String("20040107");
}
}
return Undefined();
case Vendor:
return String("KDE");
case BrowserLanguage:
case Language:
case UserLanguage:
return String(KGlobal::locale()->language());
case UserAgent:
return String(userAgent);
case Platform:
// yet another evil hack, but necessary to spoof some sites...
if ( (userAgent.find(TQString::fromLatin1("Win"),0,false)>=0) )
return String(TQString::fromLatin1("Win32"));
else if ( (userAgent.find(TQString::fromLatin1("Macintosh"),0,false)>=0) ||
(userAgent.find(TQString::fromLatin1("Mac_PowerPC"),0,false)>=0) )
return String(TQString::fromLatin1("MacPPC"));
else
{
struct utsname name;
int ret = uname(&name);
if ( ret >= 0 )
return String(TQString(TQString::fromLatin1("%1 %1 X11").arg(name.sysname).arg(name.machine)));
else // can't happen
return String(TQString(TQString::fromLatin1("Unix X11")));
}
case CpuClass:
{
struct utsname name;
int ret = uname(&name);
if ( ret >= 0 )
return String(name.machine);
else // can't happen
return String("x86");
}
case _Plugins:
return Value(new Plugins(exec, m_part->pluginsEnabled()));
case _MimeTypes:
return Value(new MimeTypes(exec, m_part->pluginsEnabled()));
case CookieEnabled:
return Boolean(true); /// ##### FIXME
default:
kdDebug(6070) << "WARNING: Unhandled token in DOMEvent::getValueProperty : " << token << endl;
return Value();
}
}
/*******************************************************************/
PluginBase::PluginBase(ExecState *exec, bool loadPluginInfo)
: ObjectImp(exec->interpreter()->builtinObjectPrototype() )
{
if ( loadPluginInfo && !plugins ) {
plugins = new TQPtrList<PluginInfo>;
mimes = new TQPtrList<MimeClassInfo>;
plugins->setAutoDelete( true );
mimes->setAutoDelete( true );
// read in using KTrader
KTrader::OfferList offers = KTrader::self()->query("Browser/View");
KTrader::OfferList::iterator it;
for ( it = offers.begin(); it != offers.end(); ++it ) {
TQVariant pluginsinfo = (**it).property( "X-KDE-BrowserView-PluginsInfo" );
if ( !pluginsinfo.isValid() ) {
// <backwards compatible>
if ((**it).library() == TQString("libnsplugin"))
pluginsinfo = TQVariant("nsplugins/pluginsinfo");
else
// </backwards compatible>
continue;
}
// read configuration
KConfig kc( locate ("data", pluginsinfo.toString()) );
unsigned num = (unsigned int) kc.readNumEntry("number");
for ( unsigned n = 0; n < num; n++ ) {
kc.setGroup( TQString::number(n) );
PluginInfo *plugin = new PluginInfo;
plugin->name = kc.readEntry("name");
plugin->file = kc.readPathEntry("file");
plugin->desc = kc.readEntry("description");
plugins->append( plugin );
// get mime types from string
TQStringList types = TQStringList::split( ';', kc.readEntry("mime") );
TQStringList::Iterator type;
for ( type=types.begin(); type!=types.end(); ++type ) {
// get mime information
TQStringList tokens = TQStringList::split(':', *type, true);
if ( tokens.count() < 3 ) // we need 3 items
continue;
MimeClassInfo *mime = new MimeClassInfo;
TQStringList::Iterator token = tokens.begin();
mime->type = (*token).lower();
//kdDebug(6070) << "mime->type=" << mime->type << endl;
++token;
mime->suffixes = *token;
++token;
mime->desc = *token;
++token;
mime->plugin = plugin;
mimes->append( mime );
plugin->mimes.append( mime );
}
}
}
}
m_refCount++;
}
PluginBase::~PluginBase()
{
m_refCount--;
if ( m_refCount==0 ) {
delete plugins;
delete mimes;
plugins = 0;
mimes = 0;
}
}
/*******************************************************************/
const ClassInfo Plugins::info = { "PluginArray", 0, &PluginsTable, 0 };
/*
@begin PluginsTable 4
length Plugins_Length DontDelete|ReadOnly
refresh Plugins_Refresh DontDelete|Function 0
item Plugins_Item DontDelete|Function 1
namedItem Plugins_NamedItem DontDelete|Function 1
@end
*/
IMPLEMENT_PROTOFUNC_DOM(PluginsFunc)
Value Plugins::get(ExecState *exec, const Identifier &propertyName) const
{
#ifdef KJS_VERBOSE
kdDebug(6070) << "Plugins::get " << propertyName.qstring() << endl;
#endif
if (!pluginsEnabled()) {
if (propertyName == lengthPropertyName )
return Number(0);
} else {
if ( propertyName == lengthPropertyName )
return Number(plugins->count());
// plugins[#]
bool ok;
unsigned int i = propertyName.toULong(&ok);
if( ok && i<plugins->count() )
return Value( new Plugin( exec, plugins->at(i) ) );
// plugin[name]
Value val = pluginByName( exec, propertyName.qstring() );
if (!val.isA(UndefinedType))
return val;
}
return lookupGet<PluginsFunc,Plugins,ObjectImp>(exec,propertyName,&PluginsTable,this);
}
Value Plugins::pluginByName( ExecState* exec, const TQString& name ) const
{
Q_ASSERT(plugins);
for ( PluginInfo *pl = plugins->first(); pl!=0; pl = plugins->next() ) {
if ( pl->name == name )
return Value( new Plugin( exec, pl ) );
}
return Undefined();
}
Value Plugins::getValueProperty(ExecState* /*exec*/, int token) const
{
kdDebug(6070) << "WARNING: Unhandled token in Plugins::getValueProperty : " << token << endl;
return Undefined();
}
Value PluginsFunc::tryCall(ExecState *exec, Object &thisObj, const List &args)
{
KJS_CHECK_THIS( KJS::Plugins, thisObj );
KJS::Plugins* base = static_cast<KJS::Plugins *>(thisObj.imp());
if (!base->pluginsEnabled()) {
if (id == Plugins_Refresh || //## TODO
id == Plugins_Item ||
id == Plugins_NamedItem)
return Undefined();
} else {
switch( id ) {
case Plugins_Refresh:
return Undefined(); //## TODO
case Plugins_Item:
{
bool ok;
unsigned int i = args[0].toString(exec).toArrayIndex(&ok);
if( ok && i<base->plugins->count() )
return Value( new Plugin( exec, base->plugins->at(i) ) );
return Undefined();
}
case Plugins_NamedItem:
UString s = args[0].toString(exec);
return base->pluginByName( exec, s.qstring() );
}
}
kdDebug(6070) << "WARNING: Unhandled token in PluginsFunc::tryCall : " << id << endl;
return Undefined();
}
/*******************************************************************/
const ClassInfo MimeTypes::info = { "MimeTypeArray", 0, &MimeTypesTable, 0 };
/*
@begin MimeTypesTable 3
length MimeTypes_Length DontDelete|ReadOnly
item MimeTypes_Item DontDelete|Function 1
namedItem MimeTypes_NamedItem DontDelete|Function 1
@end
*/
IMPLEMENT_PROTOFUNC_DOM(MimeTypesFunc)
Value MimeTypes::get(ExecState *exec, const Identifier &propertyName) const
{
#ifdef KJS_VERBOSE
kdDebug(6070) << "MimeTypes::get " << propertyName.qstring() << endl;
#endif
if (!pluginsEnabled()) {
if (propertyName == lengthPropertyName )
return Number(0);
} else {
if( propertyName==lengthPropertyName )
return Number( mimes->count() );
// mimeTypes[#]
bool ok;
unsigned int i = propertyName.toULong(&ok);
if( ok && i<mimes->count() )
return Value( new MimeType( exec, mimes->at(i) ) );
// mimeTypes[name]
Value val = mimeTypeByName( exec, propertyName.qstring() );
if (!val.isA(UndefinedType))
return val;
}
return lookupGet<MimeTypesFunc,MimeTypes,ObjectImp>(exec,propertyName,&MimeTypesTable,this);
}
Value MimeTypes::mimeTypeByName( ExecState* exec, const TQString& name ) const
{
//kdDebug(6070) << "MimeTypes[" << name << "]" << endl;
Q_ASSERT(mimes);
for ( MimeClassInfo *m = mimes->first(); m!=0; m = mimes->next() ) {
if ( m->type == name )
return Value( new MimeType( exec, m ) );
}
return Undefined();
}
Value MimeTypes::getValueProperty(ExecState* /*exec*/, int token) const
{
kdDebug(6070) << "WARNING: Unhandled token in MimeTypes::getValueProperty : " << token << endl;
return Undefined();
}
Value MimeTypesFunc::tryCall(ExecState *exec, Object &thisObj, const List &args)
{
KJS_CHECK_THIS( KJS::MimeTypes, thisObj );
KJS::MimeTypes* base = static_cast<KJS::MimeTypes *>(thisObj.imp());
if (!base->pluginsEnabled()) {
if (id == MimeTypes_Item ||
id == MimeTypes_NamedItem)
return Undefined();
} else {
switch( id ) {
case MimeTypes_Item:
{
bool ok;
unsigned int i = args[0].toString(exec).toArrayIndex(&ok);
if( ok && i<base->mimes->count() )
return Value( new MimeType( exec, base->mimes->at(i) ) );
return Undefined();
}
case MimeTypes_NamedItem:
UString s = args[0].toString(exec);
return base->mimeTypeByName( exec, s.qstring() );
}
}
kdDebug(6070) << "WARNING: Unhandled token in MimeTypesFunc::tryCall : " << id << endl;
return Undefined();
}
/************************************************************************/
const ClassInfo Plugin::info = { "Plugin", 0, &PluginTable, 0 };
/*
@begin PluginTable 7
name Plugin_Name DontDelete|ReadOnly
filename Plugin_FileName DontDelete|ReadOnly
description Plugin_Description DontDelete|ReadOnly
length Plugin_Length DontDelete|ReadOnly
item Plugin_Item DontDelete|Function 1
namedItem Plugin_NamedItem DontDelete|Function 1
@end
*/
IMPLEMENT_PROTOFUNC_DOM(PluginFunc)
Value Plugin::get(ExecState *exec, const Identifier &propertyName) const
{
#ifdef KJS_VERBOSE
kdDebug(6070) << "Plugin::get " << propertyName.qstring() << endl;
#endif
if ( propertyName == lengthPropertyName )
return Number( m_info->mimes.count() );
// plugin[#]
bool ok;
unsigned int i = propertyName.toULong(&ok);
//kdDebug(6070) << "Plugin::get plugin[" << i << "]" << endl;
if( ok && i<m_info->mimes.count() )
{
//kdDebug(6070) << "returning mimetype " << m_info->mimes.at(i)->type << endl;
return Value(new MimeType(exec, m_info->mimes.at(i)));
}
// plugin["name"]
Value val = mimeByName( exec, propertyName.qstring() );
if (!val.isA(UndefinedType))
return val;
return lookupGet<PluginFunc,Plugin,ObjectImp>(exec, propertyName, &PluginTable, this );
}
Value Plugin::mimeByName(ExecState* exec, const TQString& name) const
{
for ( PluginBase::MimeClassInfo *m = m_info->mimes.first();
m != 0; m = m_info->mimes.next() ) {
if ( m->type == name )
return Value(new MimeType(exec, m));
}
return Undefined();
}
Value Plugin::getValueProperty(ExecState* /*exec*/, int token) const
{
switch( token ) {
case Plugin_Name:
return String( m_info->name );
case Plugin_FileName:
return String( m_info->file );
case Plugin_Description:
return String( m_info->desc );
default:
kdDebug(6070) << "WARNING: Unhandled token in Plugin::getValueProperty : " << token << endl;
return Undefined();
}
}
Value PluginFunc::tryCall(ExecState *exec, Object &thisObj, const List &args)
{
KJS_CHECK_THIS( KJS::Plugin, thisObj );
KJS::Plugin* plugin = static_cast<KJS::Plugin *>(thisObj.imp());
switch( id ) {
case Plugin_Item:
{
bool ok;
unsigned int i = args[0].toString(exec).toArrayIndex(&ok);
if( ok && i< plugin->pluginInfo()->mimes.count() )
return Value( new MimeType( exec, plugin->pluginInfo()->mimes.at(i) ) );
return Undefined();
}
case Plugin_NamedItem:
{
UString s = args[0].toString(exec);
return plugin->mimeByName( exec, s.qstring() );
}
default:
kdDebug(6070) << "WARNING: Unhandled token in PluginFunc::tryCall : " << id << endl;
return Undefined();
}
}
/*****************************************************************************/
const ClassInfo MimeType::info = { "MimeType", 0, &MimeTypeTable, 0 };
/*
@begin MimeTypeTable 4
description MimeType_Description DontDelete|ReadOnly
enabledPlugin MimeType_EnabledPlugin DontDelete|ReadOnly
suffixes MimeType_Suffixes DontDelete|ReadOnly
type MimeType_Type DontDelete|ReadOnly
@end
*/
Value MimeType::get(ExecState *exec, const Identifier &propertyName) const
{
#ifdef KJS_VERBOSE
kdDebug(6070) << "MimeType::get " << propertyName.qstring() << endl;
#endif
return lookupGetValue<MimeType,ObjectImp>(exec, propertyName, &MimeTypeTable, this );
}
Value MimeType::getValueProperty(ExecState* exec, int token) const
{
switch( token ) {
case MimeType_Type:
return String( m_info->type );
case MimeType_Suffixes:
return String( m_info->suffixes );
case MimeType_Description:
return String( m_info->desc );
case MimeType_EnabledPlugin:
return Value(new Plugin(exec, m_info->plugin));
default:
kdDebug(6070) << "WARNING: Unhandled token in MimeType::getValueProperty : " << token << endl;
return Undefined();
}
}
Value NavigatorFunc::tryCall(ExecState *exec, Object &thisObj, const List &)
{
KJS_CHECK_THIS( KJS::Navigator, thisObj );
Navigator *nav = static_cast<Navigator *>(thisObj.imp());
// javaEnabled()
return Boolean(nav->part()->javaEnabled());
}