/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
/* $Id: rbgtkglext.c,v 1.6 2005/10/09 14:04:37 mutoh Exp $ */
/* Ruby/GtkGLExt initialization
 * Copyright (C) 2003 Vincent Isambart <isambart@netcourrier.com>
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include "rbgtkglext.h"

VALUE mGdkGL;
VALUE mGtkGL;

EXTERN VALUE rb_progname, rb_argv;

static VALUE
init_chosen(argc, argv, self, init_gtk)
    int argc;
    VALUE *argv;
    VALUE self;
    gboolean init_gtk;
{
    gint i, gargc;
    VALUE argary;
    gchar** gargv;

    rb_scan_args(argc, argv, "01", &argary);

    if (NIL_P(argary)) {
        gargc = RARRAY(rb_argv)->len;
        argary = rb_argv;
    } else {
        Check_Type(argary, T_ARRAY);
        gargc = RARRAY(argary)->len;
    }

    gargv = ALLOCA_N(char*, gargc + 1);
    gargv[0] = RVAL2CSTR(rb_progname);

    for (i = 0; i < gargc; ++i) {
        if (TYPE(RARRAY(argary)->ptr[i]) == T_STRING)
            gargv[i+1] = RVAL2CSTR(RARRAY(argary)->ptr[i]);
        else
            gargv[i+1] = "";
    }
    ++gargc;

    {
        gboolean is_initialized;

        if (init_gtk)
            is_initialized = gtk_gl_init_check(&gargc, &gargv);
        else
            is_initialized = gdk_gl_init_check(&gargc, &gargv);
        
        if (!is_initialized)
            rb_raise(rb_eRuntimeError, "failed to initialize gtkglext");
    }

    return self;
}

static VALUE
gtk_gl_m_init(argc, argv, self)
    int argc;
    VALUE *argv;
    VALUE self;
{
    return init_chosen(argc, argv, self, TRUE);
}

static VALUE
gdk_gl_m_init(argc, argv, self)
    int argc;
    VALUE *argv;
    VALUE self;
{
    return init_chosen(argc, argv, self, FALSE);
}

void
Init_gtkglext(void)
{
    VALUE mGdk, mGtk;

    mGtk   = rb_define_module("Gtk"); /* Gtk */
    mGtkGL = rb_define_module_under(mGtk, "GL"); /* Gtk::GL */
    mGdk   = rb_define_module("Gdk"); /* Gdk */
    mGdkGL = rb_define_module_under(mGdk, "GL"); /* Gdk::GL */

    G_DEF_CLASS(GDK_TYPE_GL_RENDER_TYPE, "RenderType", mGdkGL);
    G_DEF_CONSTANTS(mGdkGL, GDK_TYPE_GL_RENDER_TYPE, "GDK_GL_");

    rb_define_const(mGtkGL, "MAJOR_VERSION", INT2NUM(gtkglext_major_version));
    rb_define_const(mGtkGL, "MINOR_VERSION", INT2NUM(gtkglext_minor_version));
    rb_define_const(mGtkGL, "MICRO_VERSION", INT2NUM(gtkglext_micro_version));
    rb_define_const(mGtkGL, "INTERFACE_AGE", INT2NUM(gtkglext_interface_age));
    rb_define_const(mGtkGL, "BINARY_AGE",    INT2NUM(gtkglext_binary_age));

    rb_define_const(mGdkGL, "MAJOR_VERSION", INT2NUM(gdkglext_major_version));
    rb_define_const(mGdkGL, "MINOR_VERSION", INT2NUM(gdkglext_minor_version));
    rb_define_const(mGdkGL, "MICRO_VERSION", INT2NUM(gdkglext_micro_version));
    rb_define_const(mGdkGL, "INTERFACE_AGE", INT2NUM(gdkglext_interface_age));
    rb_define_const(mGdkGL, "BINARY_AGE",    INT2NUM(gdkglext_binary_age));

    rb_define_const(mGtkGL, "BUILD_VERSION",
                    rb_ary_new3(3,
                                INT2FIX(GTKGLEXT_MAJOR_VERSION),
                                INT2FIX(GTKGLEXT_MINOR_VERSION),
                                INT2FIX(GTKGLEXT_MICRO_VERSION)));


#ifdef GDK_MULTIHEAD_SAFE
    rb_define_const(mGdkGL, "MULTIHEAD_SAFE", Qtrue);
#else /* !defined GDK_MULTIHEAD_SAFE */
    rb_define_const(mGdkGL, "MULTIHEAD_SAFE", Qfalse);
#endif /* !defined GDK_MULTIHEAD_SAFE */
#ifdef GDKGLEXT_MULTIHEAD_SUPPORT
    rb_define_const(mGdkGL, "MULTIHEAD_SUPPORT", Qtrue);
#else /* !defined GDKGLEXT_MULTIHEAD_SUPPORT */
    rb_define_const(mGdkGL, "MULTIHEAD_SUPPORT", Qfalse);
#endif /* !defined GDKGLEXT_MULTIHEAD_SUPPORT */

    rb_define_module_function(mGtkGL, "init", gtk_gl_m_init, -1); /* Gtk::GL.init */
    rb_define_module_function(mGdkGL, "init", gdk_gl_m_init, -1); /* Gdk::GL.init */

    Init_gtkglext_gdk_gl_query();   /* Gdk::GL - query  */
    Init_gtkglext_gdk_gl_font();    /* Gdk::GL - fonts  */
    Init_gtkglext_gdk_gl_shapes();  /* Gdk::GL - shapes */

    Init_gtkglext_gdk_glconfig();   /* Gdk::GLConfig   */
    Init_gtkglext_gdk_gldrawable(); /* Gdk::GLDrawable */
    Init_gtkglext_gdk_glcontext();  /* Gdk::GLContext  */
    Init_gtkglext_gdk_glpixmap();   /* Gdk::GLPixmap   */
    Init_gtkglext_gdk_glwindow();   /* Gdk::GLWindow   */
    Init_gtkglext_gtk_widget();     /* Gtk::Widget     */
    Init_gtkglext_gdk_pixmap();     /* Gdk::Pixmap     */
    Init_gtkglext_gdk_window();     /* Gdk::Window     */
}