/*

 * Copyright (C) 2008 Christian Dywan <christian@imendio.com>

 * Copyright (C) 2008 Nuanti Ltd.

 * Copyright (C) 2008 Collabora Ltd.

 * Copyright (C) 2008 Holger Hans Peter Freyther

 * Copyright (C) 2009 Jan Michael Alonzo

 * Copyright (C) 2009 Movial Creative Technologies Inc.

 * Copyright (C) 2009 Igalia S.L.

 *

 * 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.

 */

#include "config.h"

#include "webkitwebsettings.h"

#include "webkitenumtypes.h"

#include "webkitprivate.h"

#include "webkitversion.h"

#include "FileSystem.h"

#include "PluginDatabase.h"

#include "Language.h"

#include "PlatformString.h"

#include <wtf/text/CString.h>

#include <glib/gi18n-lib.h>

#if OS(UNIX)

#include <sys/utsname.h>

#endif

/**

 * SECTION:webkitwebsettings

 * @short_description: Control the behaviour of a #WebKitWebView

 *

 * #WebKitWebSettings can be applied to a #WebKitWebView to control

 * the to be used text encoding, color, font sizes, printing mode,

 * script support, loading of images and various other things.

 *

 * <informalexample><programlisting>

 * /<!-- -->* Create a new websettings and disable java script *<!-- -->/

 * WebKitWebSettings *settings = webkit_web_settings_new ();

 * g_object_set (G_OBJECT(settings), "enable-scripts", FALSE, NULL);

 *

 * /<!-- -->* Apply the result *<!-- -->/

 * webkit_web_view_set_settings (WEBKIT_WEB_VIEW(my_webview), settings);

 * </programlisting></informalexample>

 */

using namespace WebCore;

G_DEFINE_TYPE(WebKitWebSettings, webkit_web_settings, G_TYPE_OBJECT)

struct _WebKitWebSettingsPrivate {

    gchar* default_encoding;

    gchar* cursive_font_family;

    gchar* default_font_family;

    gchar* fantasy_font_family;

    gchar* monospace_font_family;

    gchar* sans_serif_font_family;

    gchar* serif_font_family;

    guint default_font_size;

    guint default_monospace_font_size;

    guint minimum_font_size;

    guint minimum_logical_font_size;

    gboolean enforce_96_dpi;

    gboolean auto_load_images;

    gboolean auto_shrink_images;

    gboolean print_backgrounds;

    gboolean enable_scripts;

    gboolean enable_plugins;

    gboolean resizable_text_areas;

    gchar* user_stylesheet_uri;

    gfloat zoom_step;

    gboolean enable_developer_extras;

    gboolean enable_private_browsing;

    gboolean enable_spell_checking;

    gchar* spell_checking_languages;

    GSList* enchant_dicts;

    gboolean enable_caret_browsing;

    gboolean enable_html5_database;

    gboolean enable_html5_local_storage;

    gboolean enable_xss_auditor;

    gboolean enable_spatial_navigation;

    gchar* user_agent;

    gboolean javascript_can_open_windows_automatically;

    gboolean javascript_can_access_clipboard;

    gboolean enable_offline_web_application_cache;

    WebKitEditingBehavior editing_behavior;

    gboolean enable_universal_access_from_file_uris;

    gboolean enable_file_access_from_file_uris;

    gboolean enable_dom_paste;

    gboolean tab_key_cycles_through_elements;

    gboolean enable_default_context_menu;

    gboolean enable_site_specific_quirks;

    gboolean enable_page_cache;

    gboolean auto_resize_window;

    gboolean enable_java_applet;

};

#define WEBKIT_WEB_SETTINGS_GET_PRIVATE(obj) (G_TYPE_INSTANCE_GET_PRIVATE((obj), WEBKIT_TYPE_WEB_SETTINGS, WebKitWebSettingsPrivate))

enum {

    PROP_0,

    PROP_DEFAULT_ENCODING,

    PROP_CURSIVE_FONT_FAMILY,

    PROP_DEFAULT_FONT_FAMILY,

    PROP_FANTASY_FONT_FAMILY,

    PROP_MONOSPACE_FONT_FAMILY,

    PROP_SANS_SERIF_FONT_FAMILY,

    PROP_SERIF_FONT_FAMILY,

    PROP_DEFAULT_FONT_SIZE,

    PROP_DEFAULT_MONOSPACE_FONT_SIZE,

    PROP_MINIMUM_FONT_SIZE,

    PROP_MINIMUM_LOGICAL_FONT_SIZE,

    PROP_ENFORCE_96_DPI,

    PROP_AUTO_LOAD_IMAGES,

    PROP_AUTO_SHRINK_IMAGES,

    PROP_PRINT_BACKGROUNDS,

    PROP_ENABLE_SCRIPTS,

    PROP_ENABLE_PLUGINS,

    PROP_RESIZABLE_TEXT_AREAS,

    PROP_USER_STYLESHEET_URI,

    PROP_ZOOM_STEP,

    PROP_ENABLE_DEVELOPER_EXTRAS,

    PROP_ENABLE_PRIVATE_BROWSING,

    PROP_ENABLE_SPELL_CHECKING,

    PROP_SPELL_CHECKING_LANGUAGES,

    PROP_ENABLE_CARET_BROWSING,

    PROP_ENABLE_HTML5_DATABASE,

    PROP_ENABLE_HTML5_LOCAL_STORAGE,

    PROP_ENABLE_XSS_AUDITOR,

    PROP_ENABLE_SPATIAL_NAVIGATION,

    PROP_USER_AGENT,

    PROP_JAVASCRIPT_CAN_OPEN_WINDOWS_AUTOMATICALLY,

    PROP_JAVASCRIPT_CAN_ACCESS_CLIPBOARD,

    PROP_ENABLE_OFFLINE_WEB_APPLICATION_CACHE,

    PROP_EDITING_BEHAVIOR,

    PROP_ENABLE_UNIVERSAL_ACCESS_FROM_FILE_URIS,

    PROP_ENABLE_FILE_ACCESS_FROM_FILE_URIS,

    PROP_ENABLE_DOM_PASTE,

    PROP_TAB_KEY_CYCLES_THROUGH_ELEMENTS,

    PROP_ENABLE_DEFAULT_CONTEXT_MENU,

    PROP_ENABLE_SITE_SPECIFIC_QUIRKS,

    PROP_ENABLE_PAGE_CACHE,

    PROP_AUTO_RESIZE_WINDOW,

    PROP_ENABLE_JAVA_APPLET

};

// Create a default user agent string

// This is a liberal interpretation of http://www.mozilla.org/build/revised-user-agent-strings.html

// See also http://developer.apple.com/internet/safari/faq.html#anchor2

static String webkit_get_user_agent()

{

    gchar* platform;

    gchar* osVersion;

#if PLATFORM(X11)

    platform = g_strdup("X11");

#elif OS(WINDOWS)

    platform = g_strdup("Windows");

#elif PLATFORM(MAC)

    platform = g_strdup("Macintosh");

#elif defined(GDK_WINDOWING_DIRECTFB)

    platform = g_strdup("DirectFB");

#else

    platform = g_strdup("Unknown");

#endif

   // FIXME: platform/version detection can be shared.

#if OS(DARWIN)

#if CPU(X86)

    osVersion = g_strdup("Intel Mac OS X");

#else

    osVersion = g_strdup("PPC Mac OS X");

#endif

#elif OS(UNIX)

    struct utsname name;

    if (uname(&name) != -1)

        osVersion = g_strdup_printf("%s %s", name.sysname, name.machine);

    else

        osVersion = g_strdup("Unknown");

#elif OS(WINDOWS)

    // FIXME: Compute the Windows version

    osVersion = g_strdup("Windows");

#else

    osVersion = g_strdup("Unknown");

#endif

    // We mention Safari since many broken sites check for it (OmniWeb does this too)

    // We re-use the WebKit version, though it doesn't seem to matter much in practice

    DEFINE_STATIC_LOCAL(const String, uaVersion, (String::format("%d.%d+", WEBKIT_USER_AGENT_MAJOR_VERSION, WEBKIT_USER_AGENT_MINOR_VERSION)));

    DEFINE_STATIC_LOCAL(const String, staticUA, (String::format("Mozilla/5.0 (%s; U; %s; %s) AppleWebKit/%s (KHTML, like Gecko) Safari/%s",

                                                                platform, osVersion, defaultLanguage().utf8().data(), uaVersion.utf8().data(), uaVersion.utf8().data())));

    g_free(osVersion);

    g_free(platform);

    return staticUA;

}

static void webkit_web_settings_finalize(GObject* object);

static void webkit_web_settings_set_property(GObject* object, guint prop_id, const GValue* value, GParamSpec* pspec);

static void webkit_web_settings_get_property(GObject* object, guint prop_id, GValue* value, GParamSpec* pspec);

static void webkit_web_settings_class_init(WebKitWebSettingsClass* klass)

{

    GObjectClass* gobject_class = G_OBJECT_CLASS(klass);

    gobject_class->finalize = webkit_web_settings_finalize;

    gobject_class->set_property = webkit_web_settings_set_property;

    gobject_class->get_property = webkit_web_settings_get_property;

    webkit_init();

    GParamFlags flags = (GParamFlags)(WEBKIT_PARAM_READWRITE | G_PARAM_CONSTRUCT);

    g_object_class_install_property(gobject_class,

                                    PROP_DEFAULT_ENCODING,

                                    g_param_spec_string(

                                    "default-encoding",

                                    _("Default Encoding"),

                                    _("The default encoding used to display text."),

                                    "iso-8859-1",

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_CURSIVE_FONT_FAMILY,

                                    g_param_spec_string(

                                    "cursive-font-family",

                                    _("Cursive Font Family"),

                                    _("The default Cursive font family used to display text."),

                                    "serif",

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_DEFAULT_FONT_FAMILY,

                                    g_param_spec_string(

                                    "default-font-family",

                                    _("Default Font Family"),

                                    _("The default font family used to display text."),

                                    "sans-serif",

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_FANTASY_FONT_FAMILY,

                                    g_param_spec_string(

                                    "fantasy-font-family",

                                    _("Fantasy Font Family"),

                                    _("The default Fantasy font family used to display text."),

                                    "serif",

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_MONOSPACE_FONT_FAMILY,

                                    g_param_spec_string(

                                    "monospace-font-family",

                                    _("Monospace Font Family"),

                                    _("The default font family used to display monospace text."),

                                    "monospace",

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_SANS_SERIF_FONT_FAMILY,

                                    g_param_spec_string(

                                    "sans-serif-font-family",

                                    _("Sans Serif Font Family"),

                                    _("The default Sans Serif font family used to display text."),

                                    "sans-serif",

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_SERIF_FONT_FAMILY,

                                    g_param_spec_string(

                                    "serif-font-family",

                                    _("Serif Font Family"),

                                    _("The default Serif font family used to display text."),

                                    "serif",

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_DEFAULT_FONT_SIZE,

                                    g_param_spec_int(

                                    "default-font-size",

                                    _("Default Font Size"),

                                    _("The default font size used to display text."),

                                    5, G_MAXINT, 12,

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_DEFAULT_MONOSPACE_FONT_SIZE,

                                    g_param_spec_int(

                                    "default-monospace-font-size",

                                    _("Default Monospace Font Size"),

                                    _("The default font size used to display monospace text."),

                                    5, G_MAXINT, 10,

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_MINIMUM_FONT_SIZE,

                                    g_param_spec_int(

                                    "minimum-font-size",

                                    _("Minimum Font Size"),

                                    _("The minimum font size used to display text."),

                                    1, G_MAXINT, 5,

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_MINIMUM_LOGICAL_FONT_SIZE,

                                    g_param_spec_int(

                                    "minimum-logical-font-size",

                                    _("Minimum Logical Font Size"),

                                    _("The minimum logical font size used to display text."),

                                    1, G_MAXINT, 5,

                                    flags));

    /**

    * WebKitWebSettings:enforce-96-dpi:

    *

    * Enforce a resolution of 96 DPI. This is meant for compatibility

    * with web pages which cope badly with different screen resolutions

    * and for automated testing.

    * Web browsers and applications that typically display arbitrary

    * content from the web should provide a preference for this.

    *

    * Since: 1.0.3

    */

    g_object_class_install_property(gobject_class,

                                    PROP_ENFORCE_96_DPI,

                                    g_param_spec_boolean(

                                    "enforce-96-dpi",

                                    _("Enforce 96 DPI"),

                                    _("Enforce a resolution of 96 DPI"),

                                    FALSE,

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_AUTO_LOAD_IMAGES,

                                    g_param_spec_boolean(

                                    "auto-load-images",

                                    _("Auto Load Images"),

                                    _("Load images automatically."),

                                    TRUE,

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_AUTO_SHRINK_IMAGES,

                                    g_param_spec_boolean(

                                    "auto-shrink-images",

                                    _("Auto Shrink Images"),

                                    _("Automatically shrink standalone images to fit."),

                                    TRUE,

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_PRINT_BACKGROUNDS,

                                    g_param_spec_boolean(

                                    "print-backgrounds",

                                    _("Print Backgrounds"),

                                    _("Whether background images should be printed."),

                                    TRUE,

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_ENABLE_SCRIPTS,

                                    g_param_spec_boolean(

                                    "enable-scripts",

                                    _("Enable Scripts"),

                                    _("Enable embedded scripting languages."),

                                    TRUE,

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_ENABLE_PLUGINS,

                                    g_param_spec_boolean(

                                    "enable-plugins",

                                    _("Enable Plugins"),

                                    _("Enable embedded plugin objects."),

                                    TRUE,

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_RESIZABLE_TEXT_AREAS,

                                    g_param_spec_boolean(

                                    "resizable-text-areas",

                                    _("Resizable Text Areas"),

                                    _("Whether text areas are resizable."),

                                    TRUE,

                                    flags));

    g_object_class_install_property(gobject_class,

                                    PROP_USER_STYLESHEET_URI,

                                    g_param_spec_string("user-stylesheet-uri",

                                    _("User Stylesheet URI"),

                                    _("The URI of a stylesheet that is applied to every page."),

                                    0,

                                    flags));

    /**

    * WebKitWebSettings:zoom-step:

    *

    * The value by which the zoom level is changed when zooming in or out.

    *

    * Since: 1.0.1

    */

    g_object_class_install_property(gobject_class,

                                    PROP_ZOOM_STEP,

                                    g_param_spec_float(

                                    "zoom-step",

                                    _("Zoom Stepping Value"),

                                    _("The value by which the zoom level is changed when zooming in or out."),

                                    0.0f, G_MAXFLOAT, 0.1f,

                                    flags));

    /**

    * WebKitWebSettings:enable-developer-extras:

    *

    * Whether developer extensions should be enabled. This enables,

    * for now, the Web Inspector, which can be controlled using the

    * #WebKitWebInspector instance held by the #WebKitWebView this

    * setting is enabled for.

    *

    * Since: 1.0.3

    */

    g_object_class_install_property(gobject_class,

                                    PROP_ENABLE_DEVELOPER_EXTRAS,

                                    g_param_spec_boolean(

                                    "enable-developer-extras",

                                    _("Enable Developer Extras"),

                                    _("Enables special extensions that help developers"),

                                    FALSE,

                                    flags));

    /**

    * WebKitWebSettings:enable-private-browsing:

    *

    * Whether to enable private browsing mode. Private browsing mode prevents

    * WebKit from updating the global history and storing any session

    * information e.g., on-disk cache, as well as suppressing any messages

    * from being printed into the (javascript) console.

    *

    * This is currently experimental for WebKitGtk.

    *

    * Since: 1.1.2

    */

    g_object_class_install_property(gobject_class,

                                    PROP_ENABLE_PRIVATE_BROWSING,

                                    g_param_spec_boolean(

                                    "enable-private-browsing",

                                    _("Enable Private Browsing"),

                                    _("Enables private browsing mode"),

                                    FALSE,

                                    flags));

    /**

    * WebKitWebSettings:enable-spell-checking:

    *

    * Whether to enable spell checking while typing.

    *

    * Since: 1.1.6

    */

    g_object_class_install_property(gobject_class,

                                    PROP_ENABLE_SPELL_CHECKING,

                                    g_param_spec_boolean(

                                    "enable-spell-checking",

                                    _("Enable Spell Checking"),

                                    _("Enables spell checking while typing"),

                                    FALSE,

                                    flags));

    /**

    * WebKitWebSettings:spell-checking-languages:

    *

    * The languages to be used for spell checking, separated by commas.

    *

    * The locale string typically is in the form lang_COUNTRY, where lang

    * is an ISO-639 language code, and COUNTRY is an ISO-3166 country code.

    * For instance, sv_FI for Swedish as written in Finland or pt_BR

    * for Portuguese as written in Brazil.

    *

    * If no value is specified then the value returned by

    * gtk_get_default_language will be used.

    *

    * Since: 1.1.6

    */

    g_object_class_install_property(gobject_class,

                                    PROP_SPELL_CHECKING_LANGUAGES,

                                    g_param_spec_string(

                                    "spell-checking-languages",

                                    _("Languages to use for spell checking"),

                                    _("Comma separated list of languages to use for spell checking"),

                                    0,

                                    flags));

    /**

    * WebKitWebSettings:enable-caret-browsing:

    *

    * Whether to enable caret browsing mode.

    *

    * Since: 1.1.6

    */

    g_object_class_install_property(gobject_class,

                                    PROP_ENABLE_CARET_BROWSING,

                                    g_param_spec_boolean("enable-caret-browsing",

                                                         _("Enable Caret Browsing"),

                                                         _("Whether to enable accesibility enhanced keyboard navigation"),

                                                         FALSE,

                                                         flags));

    /**