1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
#ifndef _SOURCEVIEW2_PERL_H_
#define _SOURCEVIEW2_PERL_H_
#include <gtk2perl.h>
#include <gtksourceview/gtksourcebuffer.h>
#include <gtksourceview/gtksourceiter.h>
#include <gtksourceview/gtksourcelanguage.h>
#include <gtksourceview/gtksourcelanguagemanager.h>
#include <gtksourceview/gtksourcemark.h>
#include <gtksourceview/gtksourceprintcompositor.h>
#include <gtksourceview/gtksourcestyle.h>
#include <gtksourceview/gtksourcestylescheme.h>
#include <gtksourceview/gtksourcestyleschememanager.h>
#include <gtksourceview/gtksourceview.h>
#include <gtksourceview/gtksourceview-typebuiltins.h>
#include "gtk2-sourceview2-autogen.h"
/**
* Returns a gchar** in the stack.
*/
#define sourceview2perl_return_strv(func, free) \
do {\
gchar **list = (gchar **) func; \
if (list == NULL) { \
XSRETURN_EMPTY; \
} \
else { \
size_t i = 0; \
for (; list[i] != NULL ; ++i) { \
SV *sv = newSVGChar(list[i]); \
XPUSHs(sv_2mortal(sv)); \
} \
} \
if (free) g_strfreev(list); \
} while (FALSE)
/**
* Generic function that acts as a setter for a property that's a string list.
* This is the case for functions that accept a list of paths (strings).
*/
#define sourceview2perl_generic_set_dirs(func, arg) \
do {\
gchar **dirs = NULL; \
size_t count = items - 1; \
size_t i = 0; \
\
if (count > 0) { \
if (count == 1 && !SvOK(ST(1))) { \
/* Reset the values to the original list */ \
dirs = NULL; \
} \
else { \
dirs = g_new0(gchar *, items); \
for (i = 0; i < count; ++i) { \
dirs[i] = SvGChar(ST(i + 1)); \
} \
} \
} \
else { \
/* Clear the current list */ \
dirs = g_new0(gchar *, 1); \
dirs[1] = NULL; \
} \
\
func(arg, dirs); \
g_free(dirs); \
} while (FALSE)
#endif /* _SOURCEVIEW2_PERL_H_ */
|
