perl-trg/typemap at master · hirooih/perl-trg · GitHub

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
#	typemap for Term::ReadLine::Gnu
#

const char *		T_PV
CONST char *		T_PV
Keymap			T_PTROBJ
Function *		T_PTROBJ
rl_command_func_t *	T_PTROBJ
readline_state_t *	T_PTROBJ
HIST_ENTRY *		T_HIST_ENTRY
HISTORY_STATE *		T_PTROBJ
t_utf8			T_XSTR
t_utf8_free		T_XSTR_FREE

########################################################################
INPUT

########################################################################
OUTPUT
T_XSTR
	if ($var) {
	  sv_setpv($arg, $var);
	  if (utf8_mode)
	    sv_utf8_decode($arg);
	}
T_XSTR_FREE
	if ($var) {
	  sv_setpv($arg, $var);
	  if (utf8_mode)
	    sv_utf8_decode($arg);
	  xfree($var);
	}
T_HIST_ENTRY
	if ($var && $var->line) {
	  sv_setpv($arg, $var->line);
	  if (utf8_mode)
	    sv_utf8_decode($arg);
	}