/*
 * This file was generated automatically by ExtUtils::ParseXS version 3.22 from the
 * contents of GtkTreeModelFilter.xs. Do not edit this file, edit GtkTreeModelFilter.xs instead.
 *
 *    ANY CHANGES MADE HERE WILL BE LOST!
 *
 */

#line 1 "xs/GtkTreeModelFilter.xs"
/*
 * Copyright (C) 2003-2009 by the gtk2-perl team (see the file AUTHORS for a
 * full list)
 *
 * 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., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

#include "gtk2perl.h"

/*
typedef gboolean (* GtkTreeModelFilterVisibleFunc) (GtkTreeModel *model,
                                                    GtkTreeIter  *iter,
                                                    gpointer      data);
*/
static gboolean
gtk2perl_tree_model_filter_visible_func (GtkTreeModel *model,
                                         GtkTreeIter  *iter,
                                         gpointer      data)
{
	GPerlCallback * callback = (GPerlCallback*) data;
	GValue retval = {0, };
	gboolean ret;
	g_value_init (&retval, G_TYPE_BOOLEAN);
	gperl_callback_invoke (callback, &retval, model, iter);
	ret = g_value_get_boolean (&retval);
	g_value_unset (&retval);
	return ret;
}

/*
typedef void (* GtkTreeModelFilterModifyFunc) (GtkTreeModel *model,
                                               GtkTreeIter  *iter,
                                               GValue       *value,
                                               gint          column,
                                               gpointer      data);
*/
static void
gtk2perl_tree_model_filter_modify_func (GtkTreeModel *model,
                                        GtkTreeIter  *iter,
                                        GValue       *value,
                                        gint          column,
                                        gpointer      data)
{
	GPerlCallback * callback = (GPerlCallback*) data;
	gperl_callback_invoke (callback, value, model, iter, column);
}

#line 71 "xs/GtkTreeModelFilter.c"
#ifndef PERL_UNUSED_VAR
#  define PERL_UNUSED_VAR(var) if (0) var = var
#endif

#ifndef dVAR
#  define dVAR		dNOOP
#endif


/* This stuff is not part of the API! You have been warned. */
#ifndef PERL_VERSION_DECIMAL
#  define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)
#endif
#ifndef PERL_DECIMAL_VERSION
#  define PERL_DECIMAL_VERSION \
	  PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
#endif
#ifndef PERL_VERSION_GE
#  define PERL_VERSION_GE(r,v,s) \
	  (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
#endif
#ifndef PERL_VERSION_LE
#  define PERL_VERSION_LE(r,v,s) \
	  (PERL_DECIMAL_VERSION <= PERL_VERSION_DECIMAL(r,v,s))
#endif

/* XS_INTERNAL is the explicit static-linkage variant of the default
 * XS macro.
 *
 * XS_EXTERNAL is the same as XS_INTERNAL except it does not include
 * "STATIC", ie. it exports XSUB symbols. You probably don't want that
 * for anything but the BOOT XSUB.
 *
 * See XSUB.h in core!
 */


/* TODO: This might be compatible further back than 5.10.0. */
#if PERL_VERSION_GE(5, 10, 0) && PERL_VERSION_LE(5, 15, 1)
#  undef XS_EXTERNAL
#  undef XS_INTERNAL
#  if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)
#    define XS_EXTERNAL(name) __declspec(dllexport) XSPROTO(name)
#    define XS_INTERNAL(name) STATIC XSPROTO(name)
#  endif
#  if defined(__SYMBIAN32__)
#    define XS_EXTERNAL(name) EXPORT_C XSPROTO(name)
#    define XS_INTERNAL(name) EXPORT_C STATIC XSPROTO(name)
#  endif
#  ifndef XS_EXTERNAL
#    if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
#      define XS_EXTERNAL(name) void name(pTHX_ CV* cv __attribute__unused__)
#      define XS_INTERNAL(name) STATIC void name(pTHX_ CV* cv __attribute__unused__)
#    else
#      ifdef __cplusplus
#        define XS_EXTERNAL(name) extern "C" XSPROTO(name)
#        define XS_INTERNAL(name) static XSPROTO(name)
#      else
#        define XS_EXTERNAL(name) XSPROTO(name)
#        define XS_INTERNAL(name) STATIC XSPROTO(name)
#      endif
#    endif
#  endif
#endif

/* perl >= 5.10.0 && perl <= 5.15.1 */


/* The XS_EXTERNAL macro is used for functions that must not be static
 * like the boot XSUB of a module. If perl didn't have an XS_EXTERNAL
 * macro defined, the best we can do is assume XS is the same.
 * Dito for XS_INTERNAL.
 */
#ifndef XS_EXTERNAL
#  define XS_EXTERNAL(name) XS(name)
#endif
#ifndef XS_INTERNAL
#  define XS_INTERNAL(name) XS(name)
#endif

/* Now, finally, after all this mess, we want an ExtUtils::ParseXS
 * internal macro that we're free to redefine for varying linkage due
 * to the EXPORT_XSUB_SYMBOLS XS keyword. This is internal, use
 * XS_EXTERNAL(name) or XS_INTERNAL(name) in your code if you need to!
 */

#undef XS_EUPXS
#if defined(PERL_EUPXS_ALWAYS_EXPORT)
#  define XS_EUPXS(name) XS_EXTERNAL(name)
#else
   /* default to internal */
#  define XS_EUPXS(name) XS_INTERNAL(name)
#endif

#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)

/* prototype to pass -Wmissing-prototypes */
STATIC void
S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params);

STATIC void
S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
{
    const GV *const gv = CvGV(cv);

    PERL_ARGS_ASSERT_CROAK_XS_USAGE;

    if (gv) {
        const char *const gvname = GvNAME(gv);
        const HV *const stash = GvSTASH(gv);
        const char *const hvname = stash ? HvNAME(stash) : NULL;

        if (hvname)
            Perl_croak(aTHX_ "Usage: %s::%s(%s)", hvname, gvname, params);
        else
            Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params);
    } else {
        /* Pants. I don't think that it should be possible to get here. */
        Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
    }
}
#undef  PERL_ARGS_ASSERT_CROAK_XS_USAGE

#ifdef PERL_IMPLICIT_CONTEXT
#define croak_xs_usage(a,b)    S_croak_xs_usage(aTHX_ a,b)
#else
#define croak_xs_usage        S_croak_xs_usage
#endif

#endif

/* NOTE: the prototype of newXSproto() is different in versions of perls,
 * so we define a portable version of newXSproto()
 */
#ifdef newXS_flags
#define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0)
#else
#define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv)
#endif /* !defined(newXS_flags) */

#line 213 "xs/GtkTreeModelFilter.c"

XS_EUPXS(XS_Gtk2__TreeModelFilter_new); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_new)
{
    dVAR; dXSARGS;
    if (items < 2 || items > 3)
       croak_xs_usage(cv,  "class, child_model, root=NULL");
    {
	GtkTreeModelFilter_noinc *	RETVAL;
	GtkTreeModel *	child_model = SvGtkTreeModel (ST(1))
;
	GtkTreePath_ornull *	root;

	if (items < 3)
	    root = NULL;
	else {
	    root = SvGtkTreePath_ornull (ST(2))
;
	}
#line 78 "xs/GtkTreeModelFilter.xs"
	RETVAL = (GtkTreeModelFilter *)
	  gtk_tree_model_filter_new(child_model, root);
#line 236 "xs/GtkTreeModelFilter.c"
	ST(0) = newSVGtkTreeModelFilter_noinc (RETVAL);
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}


XS_EUPXS(XS_Gtk2__TreeModelFilter_set_visible_func); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_set_visible_func)
{
    dVAR; dXSARGS;
    if (items < 2 || items > 3)
       croak_xs_usage(cv,  "filter, func, data=NULL");
    {
#line 87 "xs/GtkTreeModelFilter.xs"
	GType param_types[2];
	GPerlCallback * callback;
#line 254 "xs/GtkTreeModelFilter.c"
	GtkTreeModelFilter *	filter = SvGtkTreeModelFilter (ST(0))
;
	SV *	func = ST(1)
;
	SV *	data;

	if (items < 3)
	    data = NULL;
	else {
	    data = ST(2)
;
	}
#line 90 "xs/GtkTreeModelFilter.xs"
	param_types[0] = GTK_TYPE_TREE_MODEL;
	param_types[1] = GTK_TYPE_TREE_ITER;
	callback = gperl_callback_new (func, data, 2, param_types,
	                               G_TYPE_BOOLEAN);
	gtk_tree_model_filter_set_visible_func
			(filter, gtk2perl_tree_model_filter_visible_func,
			 callback, (GtkDestroyNotify)gperl_callback_destroy);
#line 275 "xs/GtkTreeModelFilter.c"
    }
    XSRETURN_EMPTY;
}


XS_EUPXS(XS_Gtk2__TreeModelFilter_set_modify_func); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_set_modify_func)
{
    dVAR; dXSARGS;
    if (items < 2 || items > 4)
       croak_xs_usage(cv,  "filter, types, func=NULL, data=NULL");
    {
#line 112 "xs/GtkTreeModelFilter.xs"
	GType * real_types = NULL;
	gint n_columns;
#line 291 "xs/GtkTreeModelFilter.c"
	GtkTreeModelFilter *	filter = SvGtkTreeModelFilter (ST(0))
;
	SV *	types = ST(1)
;
	SV *	func;
	SV *	data;

	if (items < 3)
	    func = NULL;
	else {
	    func = ST(2)
;
	}

	if (items < 4)
	    data = NULL;
	else {
	    data = ST(3)
;
	}
#line 115 "xs/GtkTreeModelFilter.xs"
	if (gperl_sv_is_array_ref (types)) {
		gint i;
		AV * av = (AV*) SvRV (types);
		n_columns = av_len (av) + 1;
		real_types = gperl_alloc_temp (sizeof (GType) * n_columns);
		for (i = 0 ; i < n_columns ; i++) {
			SV ** svp = av_fetch (av, i, FALSE);
			real_types[i] =
				 gperl_type_from_package (SvGChar (*svp));
			if (0 == real_types[i])
				croak ("package %s is not registered with GPerl",
				       SvGChar (*svp));
		}

	} else {
		GType it = gperl_type_from_package (SvPV_nolen (types));
		if (it == 0)
			croak ("package %s is registered with GPerl",
			       SvGChar (types));
		n_columns = 1;
		real_types = &it;
	}
	if (gperl_sv_is_defined (func)) {
		GPerlCallback * callback;
		GType param_types[4];
		param_types[0] = GTK_TYPE_TREE_MODEL;
		param_types[1] = GTK_TYPE_TREE_ITER;
		param_types[2] = G_TYPE_INT;
		callback = gperl_callback_new (func, data, 3, param_types,
		                               G_TYPE_VALUE);
		gtk_tree_model_filter_set_modify_func
				(filter, n_columns, real_types,
				 gtk2perl_tree_model_filter_modify_func,
				 callback,
				 (GtkDestroyNotify) gperl_callback_destroy);
	} else {
		gtk_tree_model_filter_set_modify_func
					(filter, n_columns, real_types,
					 NULL, NULL, NULL);
	}
#line 353 "xs/GtkTreeModelFilter.c"
    }
    XSRETURN_EMPTY;
}


XS_EUPXS(XS_Gtk2__TreeModelFilter_set_visible_column); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_set_visible_column)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "filter, column");
    {
	GtkTreeModelFilter *	filter = SvGtkTreeModelFilter (ST(0))
;
	gint	column = (gint)SvIV(ST(1))
;

	gtk_tree_model_filter_set_visible_column(filter, column);
    }
    XSRETURN_EMPTY;
}


XS_EUPXS(XS_Gtk2__TreeModelFilter_get_model); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_get_model)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "filter");
    {
	GtkTreeModel *	RETVAL;
	GtkTreeModelFilter *	filter = SvGtkTreeModelFilter (ST(0))
;

	RETVAL = gtk_tree_model_filter_get_model(filter);
	ST(0) = newSVGtkTreeModel (RETVAL);
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}


XS_EUPXS(XS_Gtk2__TreeModelFilter_convert_child_iter_to_iter); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_convert_child_iter_to_iter)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "filter, child_iter");
    {
	GtkTreeModelFilter *	filter = SvGtkTreeModelFilter (ST(0))
;
	GtkTreeIter *	child_iter = SvGtkTreeIter (ST(1))
;
#line 173 "xs/GtkTreeModelFilter.xs"
	GtkTreeIter filter_iter;
#line 409 "xs/GtkTreeModelFilter.c"
	GtkTreeIter_copy *	RETVAL;
#line 175 "xs/GtkTreeModelFilter.xs"
#if GTK_CHECK_VERSION (2, 10, 0)
	if (gtk_tree_model_filter_convert_child_iter_to_iter (filter, &filter_iter, child_iter))
		RETVAL = &filter_iter;
	else
		XSRETURN_UNDEF;
#else
	gtk_tree_model_filter_convert_child_iter_to_iter (filter, &filter_iter, child_iter);
	RETVAL = &filter_iter;
#endif
#line 421 "xs/GtkTreeModelFilter.c"
	ST(0) = newSVGtkTreeIter_copy (RETVAL);
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}


XS_EUPXS(XS_Gtk2__TreeModelFilter_convert_iter_to_child_iter); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_convert_iter_to_child_iter)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "filter, filter_iter");
    {
	GtkTreeModelFilter *	filter = SvGtkTreeModelFilter (ST(0))
;
	GtkTreeIter *	filter_iter = SvGtkTreeIter (ST(1))
;
#line 193 "xs/GtkTreeModelFilter.xs"
	GtkTreeIter child_iter;
#line 442 "xs/GtkTreeModelFilter.c"
	GtkTreeIter_copy *	RETVAL;
#line 195 "xs/GtkTreeModelFilter.xs"
	gtk_tree_model_filter_convert_iter_to_child_iter (filter, &child_iter, filter_iter);
	RETVAL = &child_iter;
#line 447 "xs/GtkTreeModelFilter.c"
	ST(0) = newSVGtkTreeIter_copy (RETVAL);
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}


XS_EUPXS(XS_Gtk2__TreeModelFilter_convert_child_path_to_path); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_convert_child_path_to_path)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "filter, child_path");
    {
	GtkTreePath_ornull *	RETVAL;
	GtkTreeModelFilter *	filter = SvGtkTreeModelFilter (ST(0))
;
	GtkTreePath *	child_path = SvGtkTreePath (ST(1))
;

	RETVAL = gtk_tree_model_filter_convert_child_path_to_path(filter, child_path);
	ST(0) = newSVGtkTreePath_ornull (RETVAL);
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}


XS_EUPXS(XS_Gtk2__TreeModelFilter_convert_path_to_child_path); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_convert_path_to_child_path)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "path, filter_path");
    {
	GtkTreePath_ornull *	RETVAL;
	GtkTreeModelFilter *	path = SvGtkTreeModelFilter (ST(0))
;
	GtkTreePath *	filter_path = SvGtkTreePath (ST(1))
;

	RETVAL = gtk_tree_model_filter_convert_path_to_child_path(path, filter_path);
	ST(0) = newSVGtkTreePath_ornull (RETVAL);
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}


XS_EUPXS(XS_Gtk2__TreeModelFilter_refilter); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_refilter)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "filter");
    {
	GtkTreeModelFilter *	filter = SvGtkTreeModelFilter (ST(0))
;

	gtk_tree_model_filter_refilter(filter);
    }
    XSRETURN_EMPTY;
}


XS_EUPXS(XS_Gtk2__TreeModelFilter_clear_cache); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Gtk2__TreeModelFilter_clear_cache)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "filter");
    {
	GtkTreeModelFilter *	filter = SvGtkTreeModelFilter (ST(0))
;

	gtk_tree_model_filter_clear_cache(filter);
    }
    XSRETURN_EMPTY;
}

#ifdef __cplusplus
extern "C"
#endif
XS_EXTERNAL(boot_Gtk2__TreeModelFilter); /* prototype to pass -Wmissing-prototypes */
XS_EXTERNAL(boot_Gtk2__TreeModelFilter)
{
    dVAR; dXSARGS;
#if (PERL_REVISION == 5 && PERL_VERSION < 9)
    char* file = __FILE__;
#else
    const char* file = __FILE__;
#endif

    PERL_UNUSED_VAR(cv); /* -W */
    PERL_UNUSED_VAR(items); /* -W */
#ifdef XS_APIVERSION_BOOTCHECK
    XS_APIVERSION_BOOTCHECK;
#endif
    XS_VERSION_BOOTCHECK;

        newXS("Gtk2::TreeModelFilter::new", XS_Gtk2__TreeModelFilter_new, file);
        newXS("Gtk2::TreeModelFilter::set_visible_func", XS_Gtk2__TreeModelFilter_set_visible_func, file);
        newXS("Gtk2::TreeModelFilter::set_modify_func", XS_Gtk2__TreeModelFilter_set_modify_func, file);
        newXS("Gtk2::TreeModelFilter::set_visible_column", XS_Gtk2__TreeModelFilter_set_visible_column, file);
        newXS("Gtk2::TreeModelFilter::get_model", XS_Gtk2__TreeModelFilter_get_model, file);
        newXS("Gtk2::TreeModelFilter::convert_child_iter_to_iter", XS_Gtk2__TreeModelFilter_convert_child_iter_to_iter, file);
        newXS("Gtk2::TreeModelFilter::convert_iter_to_child_iter", XS_Gtk2__TreeModelFilter_convert_iter_to_child_iter, file);
        newXS("Gtk2::TreeModelFilter::convert_child_path_to_path", XS_Gtk2__TreeModelFilter_convert_child_path_to_path, file);
        newXS("Gtk2::TreeModelFilter::convert_path_to_child_path", XS_Gtk2__TreeModelFilter_convert_path_to_child_path, file);
        newXS("Gtk2::TreeModelFilter::refilter", XS_Gtk2__TreeModelFilter_refilter, file);
        newXS("Gtk2::TreeModelFilter::clear_cache", XS_Gtk2__TreeModelFilter_clear_cache, file);

    /* Initialisation Section */

#line 64 "xs/GtkTreeModelFilter.xs"
	/* TreeModel needs to be first in @ISA so that Gtk2::TreeModel::get
	 * is found before Glib::Object::get(). */
	gperl_prepend_isa ("Gtk2::TreeModelFilter", "Gtk2::TreeModel");

#line 567 "xs/GtkTreeModelFilter.c"

    /* End of Initialisation Section */

#if (PERL_REVISION == 5 && PERL_VERSION >= 9)
  if (PL_unitcheckav)
       call_list(PL_scopestack_ix, PL_unitcheckav);
#endif
    XSRETURN_YES;
}

