blob: 3298aca1c9bdd94303d3d9dea4f0fb4f205eaea7 (
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
26
27
28
29
30
31
|
bt_name * T_NAME
bt_name_format * T_NAME_FORMAT
bt_namepart T_IV
bt_joinmethod T_IV
boolean T_BOOL
# ----------------------------------------------------------------------
INPUT
# this is needed so we can pass 'undef' for the filename to
# Text::BibTeX::Entry::parse and have it wind up as NULL
# in bt_parse_entry()
T_PV
SvGETMAGIC($arg);
$var = SvOK ($arg) ? ($type) SvPV_nomg($arg, PL_na) : NULL;
T_NAME
$var = (bt_name *) SvIV ($arg)
T_NAME_FORMAT
$var = (bt_name_format *) SvIV ($arg)
T_BOOL
$var = (SvOK ($arg)) ? (int) SvIV ($arg) : 0
# ----------------------------------------------------------------------
OUTPUT
#T_NAME_FORMAT
# $arg = (IV) $var
|
