This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
perl 5.000
[perl5.git]
/
ext
/
ODBM_File
/
typemap
1
#
2
#################################### DBM SECTION
3
#
4
5
datum T_DATUM
6
gdatum T_GDATUM
7
NDBM_File T_PTROBJ
8
GDBM_File T_PTROBJ
9
SDBM_File T_PTROBJ
10
ODBM_File T_PTROBJ
11
DB_File T_PTROBJ
12
DBZ_File T_PTROBJ
13
FATALFUNC T_OPAQUEPTR
14
15
INPUT
16
T_DATUM
17
$var.dptr = SvPV($arg, na);
18
$var.dsize = (int)na;
19
T_GDATUM
20
UNIMPLEMENTED
21
OUTPUT
22
T_DATUM
23
sv_setpvn($arg, $var.dptr, $var.dsize);
24
T_GDATUM
25
sv_usepvn($arg, $var.dptr, $var.dsize);