summaryrefslogtreecommitdiffstats
path: root/perl-install/Newt/typemap
blob: 5aaa2f66842307d14380bbf5b81f5e03119f44f6 (plain)
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
TYPEMAP

const char *		T_PV
const void *		T_PV
int *			T_PV
void **			T_PACKED

enum newtFlagsSense	T_IV
enum newtGridElement	T_IV
SV **			T_SV

Newt::Component		NewtComponent
Newt::Grid		NewtGrid

INPUT
NewtComponent
	$var = ($type) SvIV((SV*)SvRV($arg))
NewtGrid
	$var = ($type) SvIV((SV*)SvRV($arg))

OUTPUT
NewtComponent
	sv_setref_pv($arg, "Newt::Component", (void*) $var);
NewtGrid
	sv_setref_pv($arg, "Newt::Grid", (void*) $var);