summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/ext/ODBM_File/typemap
diff options
context:
space:
mode:
authormarkm <markm@FreeBSD.org>2002-05-16 10:09:28 +0000
committermarkm <markm@FreeBSD.org>2002-05-16 10:09:28 +0000
commitf56e05005c751822074f0a22aa9a98d2eb189924 (patch)
treee28fc632241c9d248069d45dd9ab2a41fa64868f /contrib/perl5/ext/ODBM_File/typemap
parent344ddc14973a1519f100f54051dcb068069fe43c (diff)
downloadFreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.zip
FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.tar.gz
Perl is no longer in base. Long live the port!
Diffstat (limited to 'contrib/perl5/ext/ODBM_File/typemap')
-rw-r--r--contrib/perl5/ext/ODBM_File/typemap41
1 files changed, 0 insertions, 41 deletions
diff --git a/contrib/perl5/ext/ODBM_File/typemap b/contrib/perl5/ext/ODBM_File/typemap
deleted file mode 100644
index 096427e..0000000
--- a/contrib/perl5/ext/ODBM_File/typemap
+++ /dev/null
@@ -1,41 +0,0 @@
-#
-#################################### DBM SECTION
-#
-
-datum_key T_DATUM_K
-datum_value T_DATUM_V
-gdatum T_GDATUM
-NDBM_File T_PTROBJ
-GDBM_File T_PTROBJ
-SDBM_File T_PTROBJ
-ODBM_File T_PTROBJ
-DB_File T_PTROBJ
-DBZ_File T_PTROBJ
-FATALFUNC T_OPAQUEPTR
-
-INPUT
-T_DATUM_K
- ckFilter($arg, filter_store_key, \"filter_store_key\");
- $var.dptr = SvPV($arg, PL_na);
- $var.dsize = (int)PL_na;
-T_DATUM_V
- ckFilter($arg, filter_store_value, \"filter_store_value\");
- if (SvOK($arg)) {
- $var.dptr = SvPV($arg, PL_na);
- $var.dsize = (int)PL_na;
- }
- else {
- $var.dptr = \"\";
- $var.dsize = 0;
- }
-T_GDATUM
- UNIMPLEMENTED
-OUTPUT
-T_DATUM_K
- sv_setpvn($arg, $var.dptr, $var.dsize);
- ckFilter($arg, filter_fetch_key,\"filter_fetch_key\");
-T_DATUM_V
- sv_setpvn($arg, $var.dptr, $var.dsize);
- ckFilter($arg, filter_fetch_value,\"filter_fetch_value\");
-T_GDATUM
- sv_usepvn($arg, $var.dptr, $var.dsize);
OpenPOWER on IntegriCloud