diff options
Diffstat (limited to 'khtml/ecma/kjs_navigator.cpp')
| -rw-r--r-- | khtml/ecma/kjs_navigator.cpp | 670 |
1 files changed, 0 insertions, 670 deletions
diff --git a/khtml/ecma/kjs_navigator.cpp b/khtml/ecma/kjs_navigator.cpp deleted file mode 100644 index 9bd99ada7..000000000 --- a/khtml/ecma/kjs_navigator.cpp +++ /dev/null @@ -1,670 +0,0 @@ -// -*- 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.unicode()[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(TDEGlobal::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-TDE-BrowserView-PluginsInfo" ); - if ( !pluginsinfo.isValid() ) { - // <backwards compatible> - if ((**it).library() == TQString("libnsplugin")) - pluginsinfo = TQVariant("nsplugins/pluginsinfo"); - else - // </backwards compatible> - continue; - } - // read configuration - TDEConfig 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()); -} |