/*

 * Copyright (c) 2005, 2016, Oracle and/or its affiliates. All rights reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Oracle designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Oracle in the LICENSE file that accompanied this code.

 *

 * This code 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 General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 */

#include <dlfcn.h>

#include <setjmp.h>

#include <X11/Xlib.h>

#include <limits.h>

#include <stdio.h>

#include <string.h>

#include "gtk2_interface.h"

#include "java_awt_Transparency.h"

#include "jvm_md.h"

#include "sizecalc.h"

#include <jni_util.h>

#include "awt.h"

#define GTK_TYPE_BORDER                 ((*fp_gtk_border_get_type)())

#define G_TYPE_FUNDAMENTAL_SHIFT        (2)

#define G_TYPE_MAKE_FUNDAMENTAL(x)      ((GType) ((x) << G_TYPE_FUNDAMENTAL_SHIFT))

#define CONV_BUFFER_SIZE 128

#define NO_SYMBOL_EXCEPTION 1

static void *gtk2_libhandle = NULL;

static void *gthread_libhandle = NULL;

static jmp_buf j;

/* Widgets */

static GtkWidget *gtk2_widget = NULL;

static GtkWidget *gtk2_window = NULL;

static GtkFixed  *gtk2_fixed  = NULL;

/* Paint system */

static GdkPixmap *gtk2_white_pixmap = NULL;

static GdkPixmap *gtk2_black_pixmap = NULL;

static GdkPixbuf *gtk2_white_pixbuf = NULL;

static GdkPixbuf *gtk2_black_pixbuf = NULL;

static int gtk2_pixbuf_width = 0;

static int gtk2_pixbuf_height = 0;

/* Static buffer for conversion from java.lang.String to UTF-8 */

static char convertionBuffer[CONV_BUFFER_SIZE];

static gboolean new_combo = TRUE;

const char ENV_PREFIX[] = "GTK_MODULES=";

static GtkWidget *gtk2_widgets[_GTK_WIDGET_TYPE_SIZE];

/*************************

 * Glib function pointers

 *************************/

static gboolean (*fp_g_main_context_iteration)(GMainContext *context,

                                             gboolean may_block);

static GValue*      (*fp_g_value_init)(GValue *value, GType g_type);

static gboolean     (*fp_g_type_is_a)(GType type, GType is_a_type);

static gboolean     (*fp_g_value_get_boolean)(const GValue *value);

static gchar        (*fp_g_value_get_char)(const GValue *value);

static guchar       (*fp_g_value_get_uchar)(const GValue *value);

static gint         (*fp_g_value_get_int)(const GValue *value);

static guint        (*fp_g_value_get_uint)(const GValue *value);

static glong        (*fp_g_value_get_long)(const GValue *value);

static gulong       (*fp_g_value_get_ulong)(const GValue *value);

static gint64       (*fp_g_value_get_int64)(const GValue *value);

static guint64      (*fp_g_value_get_uint64)(const GValue *value);

static gfloat       (*fp_g_value_get_float)(const GValue *value);

static gdouble      (*fp_g_value_get_double)(const GValue *value);

static const gchar* (*fp_g_value_get_string)(const GValue *value);

static gint         (*fp_g_value_get_enum)(const GValue *value);

static guint        (*fp_g_value_get_flags)(const GValue *value);

static GParamSpec*  (*fp_g_value_get_param)(const GValue *value);

static gpointer*    (*fp_g_value_get_boxed)(const GValue *value);

static gpointer*    (*fp_g_value_get_pointer)(const GValue *value);

static GObject*     (*fp_g_value_get_object)(const GValue *value);

static GParamSpec*  (*fp_g_param_spec_int)(const gchar *name,

        const gchar *nick, const gchar *blurb,

        gint minimum, gint maximum, gint default_value,

        GParamFlags flags);

static void         (*fp_g_object_get)(gpointer object,

                                       const gchar* fpn, ...);

static void         (*fp_g_object_set)(gpointer object,

                                       const gchar *first_property_name,

                                       ...);

/************************

 * GDK function pointers

 ************************/

static GdkPixmap *(*fp_gdk_pixmap_new)(GdkDrawable *drawable,

        gint width, gint height, gint depth);

static GdkGC *(*fp_gdk_gc_new)(GdkDrawable*);

static void (*fp_gdk_rgb_gc_set_foreground)(GdkGC*, guint32);

static void (*fp_gdk_draw_rectangle)(GdkDrawable*, GdkGC*, gboolean,

        gint, gint, gint, gint);

static GdkPixbuf *(*fp_gdk_pixbuf_new)(GdkColorspace colorspace,

        gboolean has_alpha, int bits_per_sample, int width, int height);

static void (*fp_gdk_drawable_get_size)(GdkDrawable *drawable,

        gint* width, gint* height);

/************************

 * Gtk function pointers

 ************************/

static gboolean (*fp_gtk_init_check)(int* argc, char** argv);

/* Painting */

static void (*fp_gtk_paint_hline)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GdkRectangle* area, GtkWidget* widget,

        const gchar* detail, gint x1, gint x2, gint y);

static void (*fp_gtk_paint_vline)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GdkRectangle* area, GtkWidget* widget,

        const gchar* detail, gint y1, gint y2, gint x);

static void (*fp_gtk_paint_shadow)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        gint x, gint y, gint width, gint height);

static void (*fp_gtk_paint_arrow)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        GtkArrowType arrow_type, gboolean fill, gint x, gint y,

        gint width, gint height);

static void (*fp_gtk_paint_diamond)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        gint x, gint y, gint width, gint height);

static void (*fp_gtk_paint_box)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        gint x, gint y, gint width, gint height);

static void (*fp_gtk_paint_flat_box)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        gint x, gint y, gint width, gint height);

static void (*fp_gtk_paint_check)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        gint x, gint y, gint width, gint height);

static void (*fp_gtk_paint_option)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        gint x, gint y, gint width, gint height);

static void (*fp_gtk_paint_box_gap)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        gint x, gint y, gint width, gint height,

        GtkPositionType gap_side, gint gap_x, gint gap_width);

static void (*fp_gtk_paint_extension)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        gint x, gint y, gint width, gint height, GtkPositionType gap_side);

static void (*fp_gtk_paint_focus)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GdkRectangle* area, GtkWidget* widget,

        const gchar* detail, gint x, gint y, gint width, gint height);

static void (*fp_gtk_paint_slider)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        gint x, gint y, gint width, gint height, GtkOrientation orientation);

static void (*fp_gtk_paint_handle)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GtkShadowType shadow_type,

        GdkRectangle* area, GtkWidget* widget, const gchar* detail,

        gint x, gint y, gint width, gint height, GtkOrientation orientation);

static void (*fp_gtk_paint_expander)(GtkStyle* style, GdkWindow* window,

        GtkStateType state_type, GdkRectangle* area, GtkWidget* widget,

        const gchar* detail, gint x, gint y, GtkExpanderStyle expander_style);

static void (*fp_gtk_style_apply_default_background)(GtkStyle* style,

        GdkWindow* window, gboolean set_bg, GtkStateType state_type,

        GdkRectangle* area, gint x, gint y, gint width, gint height);

/* Widget creation */

static GtkWidget* (*fp_gtk_arrow_new)(GtkArrowType arrow_type,

                                      GtkShadowType shadow_type);

static GtkWidget* (*fp_gtk_button_new)();

static GtkWidget* (*fp_gtk_check_button_new)();

static GtkWidget* (*fp_gtk_check_menu_item_new)();

static GtkWidget* (*fp_gtk_color_selection_dialog_new)(const gchar* title);

static GtkWidget* (*fp_gtk_combo_box_new)();

static GtkWidget* (*fp_gtk_combo_box_entry_new)();

static GtkWidget* (*fp_gtk_entry_new)();

static GtkWidget* (*fp_gtk_fixed_new)();

static GtkWidget* (*fp_gtk_handle_box_new)();

static GtkWidget* (*fp_gtk_hpaned_new)();

static GtkWidget* (*fp_gtk_vpaned_new)();

static GtkWidget* (*fp_gtk_hscale_new)(GtkAdjustment* adjustment);

static GtkWidget* (*fp_gtk_vscale_new)(GtkAdjustment* adjustment);

static GtkWidget* (*fp_gtk_hscrollbar_new)(GtkAdjustment* adjustment);

static GtkWidget* (*fp_gtk_vscrollbar_new)(GtkAdjustment* adjustment);

static GtkWidget* (*fp_gtk_hseparator_new)();

static GtkWidget* (*fp_gtk_vseparator_new)();

static GtkWidget* (*fp_gtk_image_new)();

static GtkWidget* (*fp_gtk_label_new)(const gchar* str);

static GtkWidget* (*fp_gtk_menu_new)();

static GtkWidget* (*fp_gtk_menu_bar_new)();

static GtkWidget* (*fp_gtk_menu_item_new)();

static GtkWidget* (*fp_gtk_notebook_new)();

static GtkWidget* (*fp_gtk_progress_bar_new)();

static GtkWidget* (*fp_gtk_progress_bar_set_orientation)(

        GtkProgressBar *pbar,

        GtkProgressBarOrientation orientation);

static GtkWidget* (*fp_gtk_radio_button_new)(GSList *group);

static GtkWidget* (*fp_gtk_radio_menu_item_new)(GSList *group);

static GtkWidget* (*fp_gtk_scrolled_window_new)(GtkAdjustment *hadjustment,

        GtkAdjustment *vadjustment);

static GtkWidget* (*fp_gtk_separator_menu_item_new)();

static GtkWidget* (*fp_gtk_separator_tool_item_new)();

static GtkWidget* (*fp_gtk_text_view_new)();

static GtkWidget* (*fp_gtk_toggle_button_new)();

static GtkWidget* (*fp_gtk_toolbar_new)();

static GtkWidget* (*fp_gtk_tree_view_new)();

static GtkWidget* (*fp_gtk_viewport_new)(GtkAdjustment *hadjustment,

        GtkAdjustment *vadjustment);

static GtkWidget* (*fp_gtk_window_new)(GtkWindowType type);

static GtkWidget* (*fp_gtk_dialog_new)();

static GtkWidget* (*fp_gtk_spin_button_new)(GtkAdjustment *adjustment,

        gdouble climb_rate, guint digits);

static GtkWidget* (*fp_gtk_frame_new)(const gchar *label);

/* Other widget operations */

static GtkObject* (*fp_gtk_adjustment_new)(gdouble value,

        gdouble lower, gdouble upper, gdouble step_increment,

        gdouble page_increment, gdouble page_size);

static void (*fp_gtk_container_add)(GtkContainer *window, GtkWidget *widget);

static void (*fp_gtk_menu_shell_append)(GtkMenuShell *menu_shell,

        GtkWidget *child);

static void (*fp_gtk_menu_item_set_submenu)(GtkMenuItem *menu_item,

        GtkWidget *submenu);

static void (*fp_gtk_widget_realize)(GtkWidget *widget);

static GdkPixbuf* (*fp_gtk_widget_render_icon)(GtkWidget *widget,

        const gchar *stock_id, GtkIconSize size, const gchar *detail);

static void (*fp_gtk_widget_set_name)(GtkWidget *widget, const gchar *name);

static void (*fp_gtk_widget_set_parent)(GtkWidget *widget, GtkWidget *parent);

static void (*fp_gtk_widget_set_direction)(GtkWidget *widget,

        GtkTextDirection direction);

static void (*fp_gtk_widget_style_get)(GtkWidget *widget,

        const gchar *first_property_name, ...);

static void (*fp_gtk_widget_class_install_style_property)(

        GtkWidgetClass* class, GParamSpec *pspec);

static GParamSpec* (*fp_gtk_widget_class_find_style_property)(

        GtkWidgetClass* class, const gchar* property_name);

static void (*fp_gtk_widget_style_get_property)(GtkWidget* widget,

        const gchar* property_name, GValue* value);

static char* (*fp_pango_font_description_to_string)(

        const PangoFontDescription* fd);

static GtkSettings* (*fp_gtk_settings_get_default)();

static GtkSettings* (*fp_gtk_widget_get_settings)(GtkWidget *widget);

static GType        (*fp_gtk_border_get_type)();

static void (*fp_gtk_arrow_set)(GtkWidget* arrow,

                                GtkArrowType arrow_type,

                                GtkShadowType shadow_type);

static void (*fp_gtk_widget_size_request)(GtkWidget *widget,

                                          GtkRequisition *requisition);

static GtkAdjustment* (*fp_gtk_range_get_adjustment)(GtkRange* range);

/* Method bodies */

static void throw_exception(JNIEnv *env, const char* name, const char* message)

{

    jclass class = (*env)->FindClass(env, name);

    if (class != NULL)

        (*env)->ThrowNew(env, class, message);

    (*env)->DeleteLocalRef(env, class);

}

/* This is a workaround for the bug:

 * http://sourceware.org/bugzilla/show_bug.cgi?id=1814

 * (dlsym/dlopen clears dlerror state)

 * This bug is specific to Linux, but there is no harm in

 * applying this workaround on Solaris as well.

 */

static void* dl_symbol(const char* name)

{

    void* result = dlsym(gtk2_libhandle, name);

    if (!result)

        longjmp(j, NO_SYMBOL_EXCEPTION);

    return result;

}

static void* dl_symbol_gthread(const char* name)

{

    void* result = dlsym(gthread_libhandle, name);

    if (!result)

        longjmp(j, NO_SYMBOL_EXCEPTION);

    return result;

}

gboolean gtk2_check(const char* lib_name, gboolean load)

{

    if (gtk2_libhandle != NULL) {

        /* We've already successfully opened the GTK libs, so return true. */

        return TRUE;

    } else {

        void *lib = NULL;

#ifdef RTLD_NOLOAD

        /* Just check if gtk libs are already in the process space */

        lib = dlopen(lib_name, RTLD_LAZY | RTLD_NOLOAD);

        if (!load || lib != NULL) {

            return lib != NULL;

        }

#else

#ifdef _AIX

        /* On AIX we could implement this with the help of loadquery(L_GETINFO, ..)  */

        /* (see reload_table() in hotspot/src/os/aix/vm/loadlib_aix.cpp) but it is   */

        /* probably not worth it because most AIX servers don't have GTK libs anyway */

#endif

#endif

        lib = dlopen(lib_name, RTLD_LAZY | RTLD_LOCAL);

        if (lib == NULL) {

            return FALSE;

        }

        fp_gtk_check_version = dlsym(lib, "gtk_check_version");

        /* Check for GTK 2.2+ */

        if (!fp_gtk_check_version(2, 2, 0)) {

            return TRUE;

        }

        // 8048289: workaround for https://bugzilla.gnome.org/show_bug.cgi?id=733065

        // dlclose(lib);

        return FALSE;

    }

}

#define ADD_SUPPORTED_ACTION(actionStr) \

do { \

    jfieldID fld_action = (*env)->GetStaticFieldID(env, cls_action, actionStr, "Ljava/awt/Desktop$Action;"); \

    if (!(*env)->ExceptionCheck(env)) { \

        jobject action = (*env)->GetStaticObjectField(env, cls_action, fld_action); \

        (*env)->CallBooleanMethod(env, supportedActions, mid_arrayListAdd, action); \

    } else { \

        (*env)->ExceptionClear(env); \

    } \

} while(0);

static void update_supported_actions(JNIEnv *env) {

    GVfs * (*fp_g_vfs_get_default) (void);

    const gchar * const * (*fp_g_vfs_get_supported_uri_schemes) (GVfs * vfs);

    const gchar * const * schemes = NULL;

    jclass cls_action = (*env)->FindClass(env, "java/awt/Desktop$Action");

    CHECK_NULL(cls_action);

    jclass cls_xDesktopPeer = (*env)->FindClass(env, "sun/awt/X11/XDesktopPeer");

    CHECK_NULL(cls_xDesktopPeer);

    jfieldID fld_supportedActions = (*env)->GetStaticFieldID(env, cls_xDesktopPeer, "supportedActions", "Ljava/util/List;");

    CHECK_NULL(fld_supportedActions);

    jobject supportedActions = (*env)->GetStaticObjectField(env, cls_xDesktopPeer, fld_supportedActions);

    jclass cls_arrayList = (*env)->FindClass(env, "java/util/ArrayList");

    CHECK_NULL(cls_arrayList);

    jmethodID mid_arrayListAdd = (*env)->GetMethodID(env, cls_arrayList, "add", "(Ljava/lang/Object;)Z");

    CHECK_NULL(mid_arrayListAdd);

    jmethodID mid_arrayListClear = (*env)->GetMethodID(env, cls_arrayList, "clear", "()V");

    CHECK_NULL(mid_arrayListClear);

    (*env)->CallVoidMethod(env, supportedActions, mid_arrayListClear);

    ADD_SUPPORTED_ACTION("OPEN");

    /**

     * gtk_show_uri() documentation says:

     *

     * > you need to install gvfs to get support for uri schemes such as http://

     * > or ftp://, as only local files are handled by GIO itself.

     *

     * So OPEN action was safely added here.

     * However, it looks like Solaris 11 have gvfs support only for 32-bit

     * applications only by default.

     */

    fp_g_vfs_get_default = dl_symbol("g_vfs_get_default");

    fp_g_vfs_get_supported_uri_schemes = dl_symbol("g_vfs_get_supported_uri_schemes");

    dlerror();

    if (fp_g_vfs_get_default && fp_g_vfs_get_supported_uri_schemes) {

        GVfs * vfs = fp_g_vfs_get_default();

        schemes = vfs ? fp_g_vfs_get_supported_uri_schemes(vfs) : NULL;

        if (schemes) {

            int i = 0;

            while (schemes[i]) {

                if (strcmp(schemes[i], "http") == 0) {

                    ADD_SUPPORTED_ACTION("BROWSE");

                    ADD_SUPPORTED_ACTION("MAIL");

                    break;

                }

                i++;

            }

        }

    } else {

#ifdef DEBUG

        fprintf(stderr, "Cannot load g_vfs_get_supported_uri_schemes\n");

#endif /* DEBUG */

    }

}

/**

 * Functions for awt_Desktop.c

 */

static gboolean gtk2_show_uri_load(JNIEnv *env) {

     gboolean success = FALSE;

     dlerror();

     const char *gtk_version = fp_gtk_check_version(2, 14, 0);

     if (gtk_version != NULL) {

         // The gtk_show_uri is available from GTK+ 2.14

#ifdef DEBUG

         fprintf (stderr, "The version of GTK is %s. "

             "The gtk_show_uri function is supported "

             "since GTK+ 2.14.\n", gtk_version);

#endif /* DEBUG */

     } else {

         // Loading symbols only if the GTK version is 2.14 and higher

         fp_gtk_show_uri = dl_symbol("gtk_show_uri");

         const char *dlsym_error = dlerror();

         if (dlsym_error) {

#ifdef DEBUG

             fprintf (stderr, "Cannot load symbol: %s \n", dlsym_error);

#endif /* DEBUG */

         } else if (fp_gtk_show_uri == NULL) {

#ifdef DEBUG

             fprintf(stderr, "dlsym(gtk_show_uri) returned NULL\n");

#endif /* DEBUG */

        } else {

            gtk->gtk_show_uri = fp_gtk_show_uri;

            update_supported_actions(env);

            success = TRUE;

        }

     }

     return success;

}

/**

 * Functions for sun_awt_X11_GtkFileDialogPeer.c

 */

static void gtk2_file_chooser_load()

{

    fp_gtk_file_chooser_get_filename = dl_symbol(

            "gtk_file_chooser_get_filename");

    fp_gtk_file_chooser_dialog_new = dl_symbol("gtk_file_chooser_dialog_new");

    fp_gtk_file_chooser_set_current_folder = dl_symbol(

            "gtk_file_chooser_set_current_folder");

    fp_gtk_file_chooser_set_filename = dl_symbol(

            "gtk_file_chooser_set_filename");

    fp_gtk_file_chooser_set_current_name = dl_symbol(

            "gtk_file_chooser_set_current_name");

    fp_gtk_file_filter_add_custom = dl_symbol("gtk_file_filter_add_custom");

    fp_gtk_file_chooser_set_filter = dl_symbol("gtk_file_chooser_set_filter");

    fp_gtk_file_chooser_get_type = dl_symbol("gtk_file_chooser_get_type");

    fp_gtk_file_filter_new = dl_symbol("gtk_file_filter_new");

    if (fp_gtk_check_version(2, 8, 0) == NULL) {

        fp_gtk_file_chooser_set_do_overwrite_confirmation = dl_symbol(

                "gtk_file_chooser_set_do_overwrite_confirmation");

    }

    fp_gtk_file_chooser_set_select_multiple = dl_symbol(

            "gtk_file_chooser_set_select_multiple");

    fp_gtk_file_chooser_get_current_folder = dl_symbol(

            "gtk_file_chooser_get_current_folder");

    fp_gtk_file_chooser_get_filenames = dl_symbol(

            "gtk_file_chooser_get_filenames");

    fp_gtk_g_slist_length = dl_symbol("g_slist_length");

    fp_gdk_x11_drawable_get_xid = dl_symbol("gdk_x11_drawable_get_xid");

}

GtkApi* gtk2_load(JNIEnv *env, const char* lib_name)

{

    gboolean result;

    int i;

    int (*handler)();

    int (*io_handler)();

    char *gtk_modules_env;

    gtk2_libhandle = dlopen(lib_name, RTLD_LAZY | RTLD_LOCAL);

    if (gtk2_libhandle == NULL) {

        return FALSE;

    }

    gthread_libhandle = dlopen(GTHREAD_LIB_VERSIONED, RTLD_LAZY | RTLD_LOCAL);

    if (gthread_libhandle == NULL) {

        gthread_libhandle = dlopen(GTHREAD_LIB, RTLD_LAZY | RTLD_LOCAL);

        if (gthread_libhandle == NULL)

            return FALSE;

    }