File: typemap

package info (click to toggle)
libgimp-perl 2.0.dfsg-5
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,112 kB
  • ctags: 462
  • sloc: perl: 10,026; sh: 207; ansic: 207; makefile: 70
file content (68 lines) | stat: -rw-r--r-- 1,052 bytes parent folder | download | duplicates (3)
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
gchar						T_IV
gint						T_IV
gint32						T_IV
guchar						T_U_CHAR
guint						T_IV
gulong						T_U_LONG
guint32						T_IV
gdouble						T_DOUBLE
gchar *						T_PV
gint *						T_PTROBJ
guchar *					T_PV

utf8_str					T_UTF8

GimpDrawable *					T_GDRAWABLE
GimpTile *					T_TILE
GimpPixelRgn *					T_PIXELRGN
GimpPixelRgn_PDL *				T_PIXELRGN_PDL

GtkWidget *					T_IV

GimpPixelRgnIterator				T_PTROBJ

IMAGE						T_PREF
LAYER						T_PREF
COLOR						T_PREF
CHANNEL						T_PREF
DRAWABLE					T_PREF_ANY
DISPLAY						T_PREF
REGION						T_PREF

INPUT

T_UTF8
	$var = SvPVutf8_nolen ($arg);

T_PREF
	$var = unbless_croak ($arg, PKG_$ntype)

T_PREF_ANY
	$var = unbless_croak ($arg, PKG_ANY)

T_GDRAWABLE
	$var = old_gdrawable ($arg)

T_TILE
	$var = old_tile ($arg)

T_PIXELRGN
	$var = old_pixelrgn ($arg)

T_PIXELRGN_PDL
	$var = old_pixelrgn_pdl ($arg)

OUTPUT

T_UTF8
	sv_setpv ($arg, $var);
        SvUTF8_on ($arg);

T_PREF
	$arg = autobless (newSViv ($var), GIMP_PDB_$ntype);

T_PREF_ANY
	$arg = autobless (newSViv ($var), GIMP_PDB_$ntype);

T_GDRAWABLE