Gnome2-Vte

 view release on metacpan or  search on metacpan

xs/Vte.xs  view on Meta::CPAN

=for object Gnome2::Vte::main

=cut

BOOT:
#include "register.xsh"
#include "boot.xsh"

void
GET_VERSION_INFO (class)
    PPCODE:
	EXTEND (SP, 3);
	PUSHs (sv_2mortal (newSViv (VTE_MAJOR_VERSION)));
	PUSHs (sv_2mortal (newSViv (VTE_MINOR_VERSION)));
	PUSHs (sv_2mortal (newSViv (VTE_MICRO_VERSION)));
	PERL_UNUSED_VAR (ax);

bool
CHECK_VERSION (class, major, minor, micro)
	int major
	int minor

xs/VteTerminal.xs  view on Meta::CPAN

#  char *vte_terminal_get_text(VteTerminal *terminal, gboolean(*is_selected)(VteTerminal *terminal, glong column, glong row, gpointer data), gpointer data, GArray *attributes)
void
vte_terminal_get_text (terminal, func=NULL, data=NULL)
	VteTerminal *terminal
	SV *func
	SV *data
    PREINIT:
	GPerlCallback *callback;
	GArray *attributes;
	char *text = "";
    PPCODE:
	callback = func && SvOK (func)
		? vte2perl_is_selected_create (func, data)
		: NULL;
	attributes = g_array_new (FALSE, TRUE, sizeof (VteCharAttributes));

	g_object_set_data_full (G_OBJECT (terminal),
	                        "_is_selected_callback",
	                        callback,
	                        (GDestroyNotify) gperl_callback_destroy);

xs/VteTerminal.xs  view on Meta::CPAN

#  char *vte_terminal_get_text_include_trailing_spaces(VteTerminal *terminal, gboolean(*is_selected)(VteTerminal *terminal, glong column, glong row, gpointer data), gpointer data, GArray *attributes)
void
vte_terminal_get_text_include_trailing_spaces (terminal, func, data=NULL)
	VteTerminal *terminal
	SV *func
	SV *data
    PREINIT:
	GPerlCallback *callback;
	GArray *attributes;
	char *text = "";
    PPCODE:
	callback = vte2perl_is_selected_create (func, data);
	attributes = g_array_new (FALSE, TRUE, sizeof (VteCharAttributes));

	g_object_set_data_full (G_OBJECT (terminal),
	                        "_is_selected_callback",
	                        callback,
	                        (GDestroyNotify) gperl_callback_destroy);

	text = vte_terminal_get_text_include_trailing_spaces (terminal, vte2perl_is_selected, callback, attributes);

xs/VteTerminal.xs  view on Meta::CPAN

	glong start_row
	glong start_col
	glong end_row
	glong end_col
	SV *func
	SV *data
    PREINIT:
	GPerlCallback *callback;
	GArray *attributes;
	char *text;
    PPCODE:
	callback = vte2perl_is_selected_create (func, data);
	attributes = g_array_new (FALSE, TRUE, sizeof (VteCharAttributes));

	g_object_set_data_full (G_OBJECT (terminal),
	                        "_is_selected_callback",
	                        callback,
	                        (GDestroyNotify) gperl_callback_destroy);

	text = vte_terminal_get_text_range (terminal, start_row, start_col, end_row, end_col, vte2perl_is_selected, callback, attributes);

xs/VteTerminal.xs  view on Meta::CPAN

vte_terminal_match_remove (terminal, tag)
	VteTerminal *terminal
	int tag

##  char *vte_terminal_match_check(VteTerminal *terminal, glong column, glong row, int *tag)
void
vte_terminal_match_check (VteTerminal *terminal, glong column, glong row)
    PREINIT:
	gchar *match;
	int tag;
    PPCODE:
	match = vte_terminal_match_check (terminal, column, row, &tag);
	EXTEND (SP, 2);
	PUSHs (sv_2mortal (newSVGChar (match)));
	PUSHs (sv_2mortal (newSViv (tag)));
	g_free (match);

#if VTE_CHECK_VERSION (0, 12, 0)

##  void vte_terminal_match_set_cursor(VteTerminal *terminal, int tag, GdkCursor *cursor)
void