File: typemap

package info (click to toggle)
libtext-bibtex-perl 0.88-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 1,528 kB
  • sloc: ansic: 10,706; perl: 1,987; makefile: 7
file content (31 lines) | stat: -rw-r--r-- 770 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
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