/*
 * Copyright (c) 2003-2005, 2014 by the gtk2-perl team (see the AUTHORS
 * file for a full list of authors)
 *
 * 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.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 LICENSE file in the top-level directory of this distribution for
 * the full license terms.
 *
 */

#include "pango-perl.h"

/* ------------------------------------------------------------------------- */

#if !PANGO_CHECK_VERSION (1, 20, 0)

static gpointer
gtk2perl_pango_layout_iter_copy (gpointer boxed)
{
	croak ("Can't copy a PangoLayoutIter");
	return boxed;
}

#endif

GType
gtk2perl_pango_layout_iter_get_type (void)
{
	static GType t = 0;
	if (!t)
		t = g_boxed_type_register_static ("PangoLayoutIter",
#if PANGO_CHECK_VERSION (1, 20, 0)
		      (GBoxedCopyFunc) pango_layout_iter_copy,
#else
		      (GBoxedCopyFunc) gtk2perl_pango_layout_iter_copy,
#endif
		      (GBoxedFreeFunc) pango_layout_iter_free);
	return t;
}

/* ------------------------------------------------------------------------- */

GType
gtk2perl_pango_layout_line_get_type (void)
{
	static GType t = 0;
	if (!t)
		t = g_boxed_type_register_static ("PangoLayoutLine",
		      (GBoxedCopyFunc) pango_layout_line_ref,
		      (GBoxedFreeFunc) pango_layout_line_unref);
	return t;
}

/* ------------------------------------------------------------------------- */

SV *
newSVPangoRectangle (PangoRectangle * rectangle)
{
	HV * hv;

	if (!rectangle)
		return &PL_sv_undef;

	hv = newHV ();

	hv_store (hv, "x", 1, newSViv (rectangle->x), 0);
	hv_store (hv, "y", 1, newSViv (rectangle->y), 0);
	hv_store (hv, "width", 5, newSViv (rectangle->width), 0);
	hv_store (hv, "height", 6, newSViv (rectangle->height), 0);

	return newRV_noinc ((SV *) hv);
}

PangoRectangle *
SvPangoRectangle (SV * sv)
{
	PangoRectangle *rectangle;
	SV ** v;

	if (!gperl_sv_is_defined (sv))
		return NULL;

	rectangle = gperl_alloc_temp (sizeof (PangoRectangle));

	if (gperl_sv_is_hash_ref (sv)) {
		HV * hv = (HV *) SvRV (sv);

		v = hv_fetch (hv, "x", 1, 0);
		if (v && gperl_sv_is_defined (*v))
			rectangle->x = SvIV (*v);

		v = hv_fetch (hv, "y", 1, 0);
		if (v && gperl_sv_is_defined (*v))
			rectangle->y = SvIV (*v);

		v = hv_fetch (hv, "width", 5, 0);
		if (v && gperl_sv_is_defined (*v))
			rectangle->width = SvIV (*v);

		v = hv_fetch (hv, "height", 6, 0);
		if (v && gperl_sv_is_defined (*v))
			rectangle->height = SvIV (*v);
	} else if (gperl_sv_is_array_ref (sv)) {
		AV * av = (AV *) SvRV (sv);

		v = av_fetch (av, 0, 0);
		if (v && gperl_sv_is_defined (*v))
			rectangle->x = SvIV (*v);

		v = av_fetch (av, 1, 0);
		if (v && gperl_sv_is_defined (*v))
			rectangle->y = SvIV (*v);

		v = av_fetch (av, 2, 0);
		if (v && gperl_sv_is_defined (*v))
			rectangle->width = SvIV (*v);

		v = av_fetch (av, 3, 0);
		if (v && gperl_sv_is_defined (*v))
			rectangle->height = SvIV (*v);
	} else {
		croak ("a PangoRectangle must be a reference to a hash "
		       "or a reference to an array");
	}

	return rectangle;
}

/* ------------------------------------------------------------------------- */

static SV *
newSVPangoLogAttr (PangoLogAttr * logattr)
{
	HV * hv = newHV ();

#define STORE_BIT(key) \
	hv_store (hv, #key, sizeof (#key) - 1, newSVuv (logattr->key), 0)

	STORE_BIT (is_line_break);
	STORE_BIT (is_mandatory_break);
	STORE_BIT (is_char_break);
	STORE_BIT (is_white);
	STORE_BIT (is_cursor_position);
	STORE_BIT (is_word_start);
	STORE_BIT (is_word_end);
	STORE_BIT (is_sentence_boundary);
	STORE_BIT (is_sentence_start);
	STORE_BIT (is_sentence_end);
#if PANGO_CHECK_VERSION (1, 4, 0)
	STORE_BIT (backspace_deletes_character);
#endif
#if PANGO_CHECK_VERSION (1, 18, 0)
	STORE_BIT (is_expandable_space);
#endif

#undef STORE_BIT

	return newRV_noinc ((SV*) hv);
}

MODULE = Pango::Layout	PACKAGE = Pango::Layout	PREFIX = pango_layout_

=for object Pango::Layout - an object representing a paragraph of text with attributes

=cut

##  PangoLayout *pango_layout_new (PangoContext *context) 
PangoLayout_noinc *
pango_layout_new (class, context)
	PangoContext * context
    C_ARGS:
	context

##  PangoLayout *pango_layout_copy (PangoLayout *src) 
PangoLayout_noinc *
pango_layout_copy (src)
	PangoLayout *src

##  PangoContext *pango_layout_get_context (PangoLayout *layout) 
PangoContext *
pango_layout_get_context (layout)
	PangoLayout *layout

##  void pango_layout_set_attributes (PangoLayout *layout, PangoAttrList *attrs) 
void
pango_layout_set_attributes (layout, attrs)
	PangoLayout *layout
	PangoAttrList_ornull *attrs

##  PangoAttrList *pango_layout_get_attributes (PangoLayout *layout) 
PangoAttrList_ornull *
pango_layout_get_attributes (layout)
	PangoLayout *layout

##  void pango_layout_set_text (PangoLayout *layout, const char *text, int length) 
void
pango_layout_set_text (PangoLayout *layout, const gchar_length *text, int length(text))

##  const char * pango_layout_get_text (PangoLayout *layout);
const gchar *
pango_layout_get_text (layout)
	PangoLayout * layout

##  void pango_layout_set_markup (PangoLayout *layout, const char *markup, int length) 
void
pango_layout_set_markup (PangoLayout * layout, const gchar_length * markup, int length(markup))

##  void pango_layout_set_markup_with_accel (PangoLayout *layout, const char *markup, int length, gunichar accel_marker, gunichar *accel_char) 
void
pango_layout_set_markup_with_accel (PangoLayout * layout, const char * markup, int length(markup), gunichar accel_marker, OUTLIST gunichar accel_char)

##  void pango_layout_set_font_description (PangoLayout *layout, const PangoFontDescription *desc) 
void
pango_layout_set_font_description (layout, desc)
	PangoLayout *layout
	PangoFontDescription_ornull *desc

#if PANGO_CHECK_VERSION (1, 8, 0)

const PangoFontDescription_ornull * pango_layout_get_font_description (PangoLayout *layout);

#endif

##  int pango_layout_get_width (PangoLayout *layout) 
##  int pango_layout_get_indent (PangoLayout *layout) 
##  int pango_layout_get_spacing (PangoLayout *layout) 
##  gboolean pango_layout_get_justify (PangoLayout *layout) 
##  gboolean pango_layout_get_single_paragraph_mode (PangoLayout *layout) 
int
pango_layout_get_width (layout)
	PangoLayout * layout
    ALIAS:
	Pango::Layout::get_indent = 1
	Pango::Layout::get_spacing = 2
	Pango::Layout::get_justify = 3
	Pango::Layout::get_single_paragraph_mode = 4
    CODE:
	switch (ix) {
		case 0: RETVAL = pango_layout_get_width (layout); break;
		case 1: RETVAL = pango_layout_get_indent (layout); break;
		case 2: RETVAL = pango_layout_get_spacing (layout); break;
		case 3: RETVAL = pango_layout_get_justify (layout); break;
		case 4: RETVAL = pango_layout_get_single_paragraph_mode (layout); break;
		default:
			RETVAL = 0;
			g_assert_not_reached ();
	}
   OUTPUT:
	RETVAL

##  void pango_layout_set_width (PangoLayout *layout, int width) 
##  void pango_layout_set_indent (PangoLayout *layout, int indent) 
##  void pango_layout_set_spacing (PangoLayout *layout, int spacing) 
##  void pango_layout_set_justify (PangoLayout *layout, gboolean justify) 
##  void pango_layout_set_single_paragraph_mode (PangoLayout *layout, gboolean setting) 
void
pango_layout_set_width (layout, newval)
	PangoLayout * layout
	int newval
    ALIAS:
	Pango::Layout::set_indent = 1
	Pango::Layout::set_spacing = 2
	Pango::Layout::set_justify = 3
	Pango::Layout::set_single_paragraph_mode = 4
    CODE:
	switch (ix) {
		case 0: pango_layout_set_width (layout, newval); break;
		case 1: pango_layout_set_indent (layout, newval); break;
		case 2: pango_layout_set_spacing (layout, newval); break;
		case 3: pango_layout_set_justify (layout, newval); break;
		case 4: pango_layout_set_single_paragraph_mode (layout, newval); break;
		default:
			g_assert_not_reached ();
	}


##  void pango_layout_set_wrap (PangoLayout *layout, PangoWrapMode wrap) 
void
pango_layout_set_wrap (layout, wrap)
	PangoLayout *layout
	PangoWrapMode wrap

##  PangoWrapMode pango_layout_get_wrap (PangoLayout *layout) 
PangoWrapMode
pango_layout_get_wrap (layout)
	PangoLayout *layout

#if PANGO_CHECK_VERSION (1, 6, 0)

##  void pango_layout_set_ellipsize (PangoLayout *layout, PangoEllipsizeMode ellipsize)
void
pango_layout_set_ellipsize (layout, ellipsize)
	PangoLayout *layout
	PangoEllipsizeMode ellipsize

##  PangoEllipsizeMode pango_layout_get_ellipsize (PangoLayout *layout)
PangoEllipsizeMode
pango_layout_get_ellipsize (layout)
	PangoLayout *layout

#endif

#if PANGO_CHECK_VERSION (1, 4, 0)

##  void pango_layout_set_auto_dir (PangoLayout *layout, gboolean auto_dir)
void
pango_layout_set_auto_dir (layout, auto_dir)
	PangoLayout *layout
	gboolean auto_dir

##  gboolean pango_layout_get_auto_dir (PangoLayout *layout)
gboolean
pango_layout_get_auto_dir (layout)
	PangoLayout *layout

#endif

##  void pango_layout_set_alignment (PangoLayout *layout, PangoAlignment alignment) 
void
pango_layout_set_alignment (layout, alignment)
	PangoLayout *layout
	PangoAlignment alignment

##  PangoAlignment pango_layout_get_alignment (PangoLayout *layout) 
PangoAlignment
pango_layout_get_alignment (layout)
	PangoLayout *layout

##  void pango_layout_set_tabs (PangoLayout *layout, PangoTabArray *tabs) 
void
pango_layout_set_tabs (layout, tabs)
	PangoLayout *layout
	PangoTabArray_ornull *tabs

##  PangoTabArray* pango_layout_get_tabs (PangoLayout *layout) 
PangoTabArray_own_ornull *
pango_layout_get_tabs (layout)
	PangoLayout *layout


##  void pango_layout_context_changed (PangoLayout *layout) 
void
pango_layout_context_changed (layout)
	PangoLayout *layout

##  void pango_layout_get_log_attrs (PangoLayout *layout, PangoLogAttr **attrs, gint *n_attrs) 
=for apidoc
Returns a list of Pango::LogAttr's
=cut
void
pango_layout_get_log_attrs (layout)
	PangoLayout * layout
    PREINIT:
	PangoLogAttr * attrs = NULL;
	gint n_attrs;
    PPCODE:
	pango_layout_get_log_attrs (layout, &attrs, &n_attrs);
	if (n_attrs) {
		int i;
		EXTEND (SP, n_attrs);
		for (i = 0 ; i < n_attrs; i++)
			PUSHs (sv_2mortal (newSVPangoLogAttr (attrs+i)));
		g_free (attrs);
	}

##  void pango_layout_index_to_pos (PangoLayout *layout, int index_, PangoRectangle *pos) 
PangoRectangle *
pango_layout_index_to_pos (layout, index_) 
	PangoLayout *layout
	int index_
    PREINIT:
	PangoRectangle pos;
    CODE:
	pango_layout_index_to_pos (layout, index_, &pos);
	RETVAL = &pos;
    OUTPUT:
	RETVAL

##  void pango_layout_get_cursor_pos (PangoLayout *layout, int index_, PangoRectangle *strong_pos, PangoRectangle *weak_pos) 
=for apidoc
=for signature (strong_pos, weak_pos) = $layout->get_cursor_pos ($index)
=cut
void
pango_layout_get_cursor_pos (layout, index_) 
	PangoLayout *layout
	int index_
    PREINIT:
	PangoRectangle strong_pos;
	PangoRectangle weak_pos;
    PPCODE:
	pango_layout_get_cursor_pos (layout, index_, &strong_pos, &weak_pos);
	EXTEND (sp, 2);
	PUSHs (sv_2mortal (newSVPangoRectangle (&strong_pos)));
	PUSHs (sv_2mortal (newSVPangoRectangle (&weak_pos)));

##  void pango_layout_move_cursor_visually (PangoLayout *layout, gboolean strong, int old_index, int old_trailing, int direction, int *new_index, int *new_trailing) 
void pango_layout_move_cursor_visually (PangoLayout *layout, gboolean strong, int old_index, int old_trailing, int direction, OUTLIST int new_index, OUTLIST int new_trailing) 

##  gboolean pango_layout_xy_to_index (PangoLayout *layout, int x, int y, int *index_, int *trailing) 
=for apidoc
=for signature (index, trailing) = $layout->xy_to_index ($x, $y)
=cut
void
pango_layout_xy_to_index (layout, x, y)
	PangoLayout *layout
	int x
	int y
    PREINIT:
	int index_;
	int trailing;
    PPCODE:
	if (pango_layout_xy_to_index (layout, x, y, &index_, &trailing)) {
		EXTEND (SP, 2);
		PUSHs (sv_2mortal (newSViv (index_)));
		PUSHs (sv_2mortal (newSViv (trailing)));
	}

##  void pango_layout_get_extents (PangoLayout *layout, PangoRectangle *ink_rect, PangoRectangle *logical_rect) 
=for apidoc
=for signature (ink_rect, logical_rect) = $layout->get_extents
=for signature (ink_rect, logical_rect) = $layout->get_pixel_extents
=cut
void
pango_layout_get_extents (layout) 
	PangoLayout *layout
    ALIAS:
	Pango::Layout::get_pixel_extents = 1
    PREINIT:
	PangoRectangle ink_rect;
	PangoRectangle logical_rect;
    PPCODE:
	switch (ix) {
		case 0:
			pango_layout_get_extents (layout, &ink_rect, &logical_rect);
			break;
		case 1:
			pango_layout_get_pixel_extents (layout, &ink_rect, &logical_rect);
			break;
		default:
			g_assert_not_reached ();
	}
	EXTEND (sp, 2);
	PUSHs (sv_2mortal (newSVPangoRectangle (&ink_rect)));
	PUSHs (sv_2mortal (newSVPangoRectangle (&logical_rect)));

##  void pango_layout_get_size (PangoLayout *layout, int *width, int *height) 
void pango_layout_get_size (PangoLayout *layout, OUTLIST int width, OUTLIST int height) 

##  void pango_layout_get_pixel_size (PangoLayout *layout, int *width, int *height) 
void pango_layout_get_pixel_size (PangoLayout *layout, OUTLIST int width, OUTLIST int height) 

##  int pango_layout_get_line_count (PangoLayout *layout) 
int
pango_layout_get_line_count (layout)
	PangoLayout *layout

##  PangoLayoutLine *pango_layout_get_line (PangoLayout *layout, int line) 
PangoLayoutLine_ornull *
pango_layout_get_line (layout, line)
	PangoLayout *layout
	int line

##  GSList * pango_layout_get_lines (PangoLayout *layout) 
void
pango_layout_get_lines (layout)
	PangoLayout *layout
    PREINIT:
	GSList * lines, * i;
    PPCODE:
	lines = pango_layout_get_lines (layout);
	for (i = lines ; i != NULL ; i = i->next)
		XPUSHs (sv_2mortal (newSVPangoLayoutLine (i->data)));
	/* the list is owned by the layout. */

#if PANGO_CHECK_VERSION (1, 16, 0)

##  PangoLayoutLine *pango_layout_get_line_readonly (PangoLayout *layout, int line) 
PangoLayoutLine_ornull *
pango_layout_get_line_readonly (layout, line)
	PangoLayout *layout
	int line

##  GSList * pango_layout_get_lines_readonly (PangoLayout *layout) 
void
pango_layout_get_lines_readonly (layout)
	PangoLayout *layout
    PREINIT:
	GSList * lines, * i;
    PPCODE:
	lines = pango_layout_get_lines_readonly (layout);
	for (i = lines ; i != NULL ; i = i->next)
		XPUSHs (sv_2mortal (newSVPangoLayoutLine (i->data)));
	/* the list is owned by the layout. */

#endif

##  PangoLayoutIter *pango_layout_get_iter (PangoLayout *layout)
PangoLayoutIter_own *
pango_layout_get_iter (layout)
	PangoLayout *layout

#if PANGO_CHECK_VERSION (1, 16, 0)

gboolean pango_layout_is_wrapped (PangoLayout *layout);

gboolean pango_layout_is_ellipsized (PangoLayout *layout);

int pango_layout_get_unknown_glyphs_count (PangoLayout *layout);

#endif

#if PANGO_CHECK_VERSION (1, 20, 0)

void pango_layout_set_height (PangoLayout *layout, int height);

int pango_layout_get_height (PangoLayout *layout);

#endif

#if PANGO_CHECK_VERSION (1, 22, 0)

int pango_layout_get_baseline (PangoLayout*layout)

#endif

# --------------------------------------------------------------------------- #

MODULE = Pango::Layout	PACKAGE = Pango::LayoutLine	PREFIX = pango_layout_line_

=for object Pango::LayoutLine - a line in a Pango::Layout

=cut

##  gboolean pango_layout_line_x_to_index (PangoLayoutLine *line, int x_pos, int *index_, int *trailing)
void
pango_layout_line_x_to_index (PangoLayoutLine *line, int x_pos)
    PREINIT:
	gboolean retval;
	int index_;
	int trailing;
    PPCODE:
	retval = pango_layout_line_x_to_index (line, x_pos, &index_, &trailing);
	EXTEND (SP, 3);
	PUSHs (sv_2mortal (boolSV (retval)));
	PUSHs (sv_2mortal (newSViv (index_)));
	PUSHs (sv_2mortal (newSViv (trailing)));

##  void pango_layout_line_index_to_x (PangoLayoutLine *line, int index_, gboolean trailing, int *x_pos)
void pango_layout_line_index_to_x (PangoLayoutLine *line, int index_, gboolean trailing, OUTLIST int x_pos);

##  void pango_layout_line_get_x_ranges (PangoLayoutLine *line, int start_index, int end_index, int **ranges, int *n_ranges)
void
pango_layout_line_get_x_ranges (line, start_index, end_index)
	PangoLayoutLine *line
	int start_index
	int end_index
    PREINIT:
	int *ranges;
	int n_ranges, i;
    PPCODE:
	pango_layout_line_get_x_ranges (line, start_index, end_index, &ranges, &n_ranges);
	EXTEND (SP, n_ranges);
	for (i = 0; i < 2*n_ranges; i += 2) {
		AV *av = newAV ();
		av_push (av, newSViv (ranges[i]));
		av_push (av, newSViv (ranges[i + 1]));
		PUSHs (sv_2mortal (newRV_noinc ((SV *) av)));
	}
	g_free (ranges);


####  void pango_layout_line_get_extents (PangoLayoutLine *line, PangoRectangle *ink_rect, PangoRectangle *logical_rect)
####  void pango_layout_line_get_pixel_extents (PangoLayoutLine *layout_line, PangoRectangle *ink_rect, PangoRectangle *logical_rect)
=for apidoc
=for signature (ink_rect, logical_rect) = $line->get_extents
=for signature (ink_rect, logical_rect) = $line->get_pixel_extents
=cut
void
pango_layout_line_get_extents (line)
	PangoLayoutLine *line
    ALIAS:
	Pango::LayoutLine::get_pixel_extents = 1
    PREINIT:
	PangoRectangle ink_rect;
	PangoRectangle logical_rect;
    PPCODE:
	switch (ix) {
		case 0:
			pango_layout_line_get_extents (line, &ink_rect, &logical_rect);
			break;
		case 1:
			pango_layout_line_get_pixel_extents (line, &ink_rect, &logical_rect);
			break;
		default:
			g_assert_not_reached ();
	}
	EXTEND (sp, 2);
	PUSHs (sv_2mortal (newSVPangoRectangle (&ink_rect)));
	PUSHs (sv_2mortal (newSVPangoRectangle (&logical_rect)));

# --------------------------------------------------------------------------- #

MODULE = Pango::Layout	PACKAGE = Pango::LayoutIter	PREFIX = pango_layout_iter_

=for object Pango::LayoutIter - an object used to iterate over the visual extents of a Pango::Layout

=cut

##  void pango_layout_iter_free (PangoLayoutIter *iter) 

##  int pango_layout_iter_get_index (PangoLayoutIter *iter) 
int
pango_layout_iter_get_index (iter)
	PangoLayoutIter *iter

# FIXME: no typemap for PangoLayoutRun / PangoGlyphItem.
# ##  PangoLayoutRun *pango_layout_iter_get_run (PangoLayoutIter *iter) 
# PangoLayoutRun *
# pango_layout_iter_get_run (iter)
# 	PangoLayoutIter *iter

##  PangoLayoutLine *pango_layout_iter_get_line (PangoLayoutIter *iter) 
PangoLayoutLine *
pango_layout_iter_get_line (iter)
	PangoLayoutIter *iter

#if PANGO_CHECK_VERSION (1, 16, 0)

# FIXME: no typemap for PangoLayoutRun / PangoGlyphItem.
# ##  PangoLayoutRun *pango_layout_iter_get_run_readonly (PangoLayoutIter *iter) 
# PangoLayoutRun *
# pango_layout_iter_get_run_readonly (iter)
# 	PangoLayoutIter *iter

##  PangoLayoutLine *pango_layout_iter_get_line_readonly (PangoLayoutIter *iter) 
PangoLayoutLine *
pango_layout_iter_get_line_readonly (iter)
	PangoLayoutIter *iter

#endif

##  gboolean pango_layout_iter_at_last_line (PangoLayoutIter *iter) 
gboolean
pango_layout_iter_at_last_line (iter)
	PangoLayoutIter *iter

##  gboolean pango_layout_iter_next_char (PangoLayoutIter *iter) 
gboolean
pango_layout_iter_next_char (iter)
	PangoLayoutIter *iter

##  gboolean pango_layout_iter_next_cluster (PangoLayoutIter *iter) 
gboolean
pango_layout_iter_next_cluster (iter)
	PangoLayoutIter *iter

##  gboolean pango_layout_iter_next_run (PangoLayoutIter *iter) 
gboolean
pango_layout_iter_next_run (iter)
	PangoLayoutIter *iter

##  gboolean pango_layout_iter_next_line (PangoLayoutIter *iter) 
gboolean
pango_layout_iter_next_line (iter)
	PangoLayoutIter *iter

##  void pango_layout_iter_get_char_extents (PangoLayoutIter *iter, PangoRectangle *logical_rect) 
PangoRectangle *
pango_layout_iter_get_char_extents (iter)
	PangoLayoutIter *iter
    PREINIT:
	PangoRectangle logical_rect;
    CODE:
	pango_layout_iter_get_char_extents (iter, &logical_rect);
	RETVAL = &logical_rect;
    OUTPUT:
	RETVAL

##  void pango_layout_iter_get_cluster_extents (PangoLayoutIter *iter, PangoRectangle *ink_rect, PangoRectangle *logical_rect) 
void
pango_layout_iter_get_cluster_extents (iter)
	PangoLayoutIter *iter
    ALIAS:
	Pango::LayoutIter::get_run_extents = 1
	Pango::LayoutIter::get_line_extents = 2
	Pango::LayoutIter::get_layout_extents = 3
    PREINIT:
	PangoRectangle ink_rect;
	PangoRectangle logical_rect;
    PPCODE:
	switch (ix) {
		case 0:
			pango_layout_iter_get_cluster_extents (iter, &ink_rect, &logical_rect);
			break;
		case 1:
			pango_layout_iter_get_run_extents (iter, &ink_rect, &logical_rect);
			break;
		case 2:
			pango_layout_iter_get_line_extents (iter, &ink_rect, &logical_rect);
			break;
		case 3:
			pango_layout_iter_get_layout_extents (iter, &ink_rect, &logical_rect);
			break;
		default:
			g_assert_not_reached ();
	}
	EXTEND (sp, 2);
	PUSHs (sv_2mortal (newSVPangoRectangle (&ink_rect)));
	PUSHs (sv_2mortal (newSVPangoRectangle (&logical_rect)));

##  void pango_layout_iter_get_line_yrange (PangoLayoutIter *iter, int *y0_, int *y1_) 
void pango_layout_iter_get_line_yrange (PangoLayoutIter *iter, OUTLIST int y0_, OUTLIST int y1_)

##  int pango_layout_iter_get_baseline (PangoLayoutIter *iter) 
int
pango_layout_iter_get_baseline (iter)
	PangoLayoutIter *iter

#if PANGO_CHECK_VERSION (1, 20, 0)

PangoLayout * pango_layout_iter_get_layout (PangoLayoutIter *iter);

#endif