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);
}
|
