Quote string argument in example -- necessary if using strict subs
[p5sagit/p5-mst-13.2.git] / ext / ODBM_File / typemap
CommitLineData
8990e307 1#
2#################################### DBM SECTION
3#
4
5datum T_DATUM
6gdatum T_GDATUM
7NDBM_File T_PTROBJ
8GDBM_File T_PTROBJ
9SDBM_File T_PTROBJ
10ODBM_File T_PTROBJ
11DB_File T_PTROBJ
12DBZ_File T_PTROBJ
13FATALFUNC T_OPAQUEPTR
14
15INPUT
16T_DATUM
2304df62 17 $var.dptr = SvPV($arg, na);
18 $var.dsize = (int)na;
8990e307 19T_GDATUM
20 UNIMPLEMENTED
21OUTPUT
22T_DATUM
23 sv_setpvn($arg, $var.dptr, $var.dsize);
24T_GDATUM
25 sv_usepvn($arg, $var.dptr, $var.dsize);