X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDB_File%2Ftypemap;h=55439ee76d91cbddd51d7a6023f01ef0463607a1;hb=103b575a610fa266138f0ab0655f26f83244bca8;hp=242fa041d2fc79ef5235ba7da3e3c5b93a83a8b8;hpb=a0d0e21ea6ea90a22318550944fe6cb09ae10cda;p=p5sagit%2Fp5-mst-13.2.git diff --git a/ext/DB_File/typemap b/ext/DB_File/typemap index 242fa04..55439ee 100644 --- a/ext/DB_File/typemap +++ b/ext/DB_File/typemap @@ -1,8 +1,8 @@ -# typemap for Perl 5 interface to Berkeley DB +# typemap for Perl 5 interface to Berkeley # -# written by Paul Marquess (pmarquess@bfsec.bt.co.uk) -# last modified 23rd June 1994 -# version 0.1 +# written by Paul Marquess +# last modified 10th December 2000 +# version 1.74 # #################################### DB SECTION # @@ -15,21 +15,24 @@ DBTKEY T_dbtkeydatum INPUT T_dbtkeydatum - if (db->close != DB_recno_close) - { - $var.data = SvPV($arg, na); - $var.size = (int)na; + ckFilter($arg, filter_store_key, \"filter_store_key\"); + DBT_clear($var) ; + if (db->type != DB_RECNO) { + $var.data = SvPV($arg, PL_na); + $var.size = (int)PL_na; } - else - { - Value = SvIV($arg) ; - ++ Value ; + else { + Value = GetRecnoKey(aTHX_ db, SvIV($arg)) ; $var.data = & Value; $var.size = (int)sizeof(recno_t); } T_dbtdatum - $var.data = SvPV($arg, na); - $var.size = (int)na; + ckFilter($arg, filter_store_value, \"filter_store_value\"); + DBT_clear($var) ; + if (SvOK($arg)) { + $var.data = SvPV($arg, PL_na); + $var.size = (int)PL_na; + } OUTPUT @@ -37,3 +40,5 @@ T_dbtkeydatum OutputKey($arg, $var) T_dbtdatum OutputValue($arg, $var) +T_PTROBJ + sv_setref_pv($arg, dbtype, (void*)$var);