[ViewVC] Diff of: cvs/BDB/BDB.xs

Comparing BDB/BDB.xs (file contents):
Revision 1.54 by root, Fri Sep 26 02:03:48 2008 UTC vs.
Revision 1.63 by root, Tue Oct 21 02:21:25 2008 UTC

…		…
1	#include <sys/user.h>
2	#include <sys/ptrace.h>
3
4	#define X_STACKSIZE 1024 * 128 + sizeof (long) * 64 * 1024 / 4	1	#define X_STACKSIZE 1024 * 128 + sizeof (long) * 64 * 1024 / 4
5		2
6	#include "xthread.h"	3	#include "xthread.h"
7		4
8	#include <errno.h>	5	#include <errno.h>
56	#if DB_VERSION_MINOR >= 3	53	#if DB_VERSION_MINOR >= 3
57	typedef DB_SEQUENCE DB_SEQUENCE_ornull;	54	typedef DB_SEQUENCE DB_SEQUENCE_ornull;
58	typedef DB_SEQUENCE DB_SEQUENCE_ornuked;	55	typedef DB_SEQUENCE DB_SEQUENCE_ornuked;
59	#endif	56	#endif
60		57
61	typedef SV SV8; /* byte-sv, used for argument-checking */
62	typedef char *bdb_filename;	58	typedef char *bdb_filename;
63		59
64	static SV *prepare_cb;	60	static SV *prepare_cb;
65		61
66	#if DB_VERSION_MINOR >= 6	62	#if DB_VERSION_MINOR >= 6
…		…
137	dbt_to_sv (SV sv, DBT dbt)	133	dbt_to_sv (SV sv, DBT dbt)
138	{	134	{
139	if (sv)	135	if (sv)
140	{	136	{
141	SvREADONLY_off (sv);	137	SvREADONLY_off (sv);
142	sv_setsv_mg (sv, dbt->data ? newSVpvn (dbt->data, dbt->size) : &PL_sv_undef);	138
		139	if (dbt->data)
		140	sv_setpvn_mg (sv, dbt->data, dbt->size);
		141	else
		142	sv_setsv_mg (sv, &PL_sv_undef);
		143
143	SvREFCNT_dec (sv);	144	SvREFCNT_dec (sv);
144	}	145	}
145		146
146	if (dbt->flags & DB_DBT_MALLOC)
147	free (dbt->data);	147	free (dbt->data);
148	}	148	}
149		149
150	enum {	150	enum {
151	REQ_QUIT,	151	REQ_QUIT,
152	REQ_ENV_OPEN, REQ_ENV_CLOSE, REQ_ENV_TXN_CHECKPOINT, REQ_ENV_LOCK_DETECT,	152	REQ_ENV_OPEN, REQ_ENV_CLOSE, REQ_ENV_TXN_CHECKPOINT, REQ_ENV_LOCK_DETECT,
153	REQ_ENV_MEMP_SYNC, REQ_ENV_MEMP_TRICKLE, REQ_ENV_DBREMOVE, REQ_ENV_DBRENAME,	153	REQ_ENV_MEMP_SYNC, REQ_ENV_MEMP_TRICKLE, REQ_ENV_DBREMOVE, REQ_ENV_DBRENAME,
		154	REQ_ENV_LOG_ARCHIVE,
154	REQ_DB_OPEN, REQ_DB_CLOSE, REQ_DB_COMPACT, REQ_DB_SYNC, REQ_DB_UPGRADE,	155	REQ_DB_OPEN, REQ_DB_CLOSE, REQ_DB_COMPACT, REQ_DB_SYNC, REQ_DB_UPGRADE,
155	REQ_DB_PUT, REQ_DB_EXISTS, REQ_DB_GET, REQ_DB_PGET, REQ_DB_DEL, REQ_DB_KEY_RANGE,	156	REQ_DB_PUT, REQ_DB_EXISTS, REQ_DB_GET, REQ_DB_PGET, REQ_DB_DEL, REQ_DB_KEY_RANGE,
156	REQ_TXN_COMMIT, REQ_TXN_ABORT, REQ_TXN_FINISH,	157	REQ_TXN_COMMIT, REQ_TXN_ABORT, REQ_TXN_FINISH,
157	REQ_C_CLOSE, REQ_C_COUNT, REQ_C_PUT, REQ_C_GET, REQ_C_PGET, REQ_C_DEL,	158	REQ_C_CLOSE, REQ_C_COUNT, REQ_C_PUT, REQ_C_GET, REQ_C_PGET, REQ_C_DEL,
158	REQ_SEQ_OPEN, REQ_SEQ_CLOSE, REQ_SEQ_GET, REQ_SEQ_REMOVE,	159	REQ_SEQ_OPEN, REQ_SEQ_CLOSE, REQ_SEQ_GET, REQ_SEQ_REMOVE,
…		…
349	abort ();	350	abort ();
350	}	351	}
351		352
352	static int poll_cb (void);	353	static int poll_cb (void);
353	static void req_free (bdb_req req);	354	static void req_free (bdb_req req);
354	static void req_cancel (bdb_req req);
355		355
356	static int req_invoke (bdb_req req)	356	static int req_invoke (bdb_req req)
357	{	357	{
358	switch (req->type)	358	switch (req->type)
359	{	359	{
…		…
378		378
379	av_push (av, newSVnv (req->key_range.less));	379	av_push (av, newSVnv (req->key_range.less));
380	av_push (av, newSVnv (req->key_range.equal));	380	av_push (av, newSVnv (req->key_range.equal));
381	av_push (av, newSVnv (req->key_range.greater));	381	av_push (av, newSVnv (req->key_range.greater));
382		382
		383	av = (AV )newRV_noinc ((SV )av);
		384
383	SvREADONLY_off (req->sv1);	385	SvREADONLY_off (req->sv1);
384	sv_setsv_mg (req->sv1, newRV_noinc ((SV *)av));	386	sv_setsv_mg (req->sv1, newRV_noinc ((SV *)av));
		387	SvREFCNT_dec (av);
385	SvREFCNT_dec (req->sv1);	388	SvREFCNT_dec (req->sv1);
386	}	389	}
387	break;	390	break;
388		391
389	#if DB_VERSION_MINOR >= 3	392	#if DB_VERSION_MINOR >= 3
…		…
396	sv_setnv_mg (req->sv1, (NV)req->seq_t);	399	sv_setnv_mg (req->sv1, (NV)req->seq_t);
397		400
398	SvREFCNT_dec (req->sv1);	401	SvREFCNT_dec (req->sv1);
399	break;	402	break;
400	#endif	403	#endif
		404
		405	case REQ_ENV_LOG_ARCHIVE:
		406	{
		407	AV *av = newAV ();
		408	char listp = (char )req->buf1;
		409
		410	if (listp)
		411	while (*listp)
		412	av_push (av, newSVpv (*listp, 0)), ++listp;
		413
		414	av = (AV )newRV_noinc ((SV )av);
		415
		416	SvREADONLY_off (req->sv1);
		417	sv_setsv_mg (req->sv1, (SV *)av);
		418	SvREFCNT_dec (av);
		419	SvREFCNT_dec (req->sv1);
		420	}
		421	break;
401	}	422	}
402		423
403	errno = req->result;	424	errno = req->result;
404		425
405	if (req->callback)	426	if (req->callback)
…		…
769	req->result = req->db->close (req->db, req->uint1);	790	req->result = req->db->close (req->db, req->uint1);
770	break;	791	break;
771		792
772	#if DB_VERSION_MINOR >= 4	793	#if DB_VERSION_MINOR >= 4
773	case REQ_DB_COMPACT:	794	case REQ_DB_COMPACT:
774	req->result = req->db->compact (req->db, req->txn, &req->dbt1, &req->dbt2, 0, req->uint1, 0);	795	req->result = req->db->compact (req->db, req->txn, req->dbt1.data ? &req->dbt1 : 0, req->dbt2.data ? &req->dbt2 : 0, 0, req->uint1, 0);
775	break;	796	break;
776	#endif	797	#endif
777		798
778	case REQ_DB_SYNC:	799	case REQ_DB_SYNC:
779	req->result = req->db->sync (req->db, req->uint1);	800	req->result = req->db->sync (req->db, req->uint1);
…		…
870		891
871	case REQ_SEQ_REMOVE:	892	case REQ_SEQ_REMOVE:
872	req->result = req->seq->remove (req->seq, req->txn, req->uint1);	893	req->result = req->seq->remove (req->seq, req->txn, req->uint1);
873	break;	894	break;
874	#endif	895	#endif
		896
		897	case REQ_ENV_LOG_ARCHIVE:
		898	{
		899	char *listp = 0; / DB_ARCH_REMOVE does not touch listp, contrary to docs */
		900	req->result = req->env->log_archive (req->env, &listp, req->uint1);
		901	req->buf1 = (char *)listp;
		902	}
		903	break;
875		904
876	default:	905	default:
877	req->result = ENOSYS;	906	req->result = ENOSYS;
878	break;	907	break;
879	}	908	}
…		…
1134	}	1163	}
1135		1164
1136	return 0;	1165	return 0;
1137	}	1166	}
1138		1167
1139	/* stupid windoes defined CALLBACK as well */	1168	/* stupid windows defines CALLBACK as well */
1140	#undef CALLBACK	1169	#undef CALLBACK
1141	#define CALLBACK SV *cb = pop_callback (&items, ST (items - 1));	1170	#define CALLBACK SV *cb = pop_callback (&items, ST (items - 1));
1142		1171
1143	MODULE = BDB PACKAGE = BDB	1172	MODULE = BDB PACKAGE = BDB
1144		1173
…		…
1197	const_iv (NOSYNC)	1226	const_iv (NOSYNC)
1198	const_iv (CHKSUM)	1227	const_iv (CHKSUM)
1199	const_iv (ENCRYPT)	1228	const_iv (ENCRYPT)
1200	const_iv (DUP)	1229	const_iv (DUP)
1201	const_iv (DUPSORT)	1230	const_iv (DUPSORT)
1202	const_iv (RECNUM)	1231	//const_iv (RECNUM)
1203	const_iv (RENUMBER)	1232	const_iv (RENUMBER)
1204	const_iv (REVSPLITOFF)	1233	const_iv (REVSPLITOFF)
1205	const_iv (CONSUME)	1234	const_iv (CONSUME)
1206	const_iv (CONSUME_WAIT)	1235	const_iv (CONSUME_WAIT)
1207	const_iv (GET_BOTH)	1236	const_iv (GET_BOTH)
…		…
1279	const_iv (REP_UNAVAIL)	1308	const_iv (REP_UNAVAIL)
1280	const_iv (RUNRECOVERY)	1309	const_iv (RUNRECOVERY)
1281	const_iv (SECONDARY_BAD)	1310	const_iv (SECONDARY_BAD)
1282	const_iv (VERIFY_BAD)	1311	const_iv (VERIFY_BAD)
1283		1312
		1313	const_iv (ARCH_ABS)
		1314	const_iv (ARCH_DATA)
		1315	const_iv (ARCH_LOG)
		1316	const_iv (ARCH_REMOVE)
		1317
1284	const_iv (VERB_DEADLOCK)	1318	const_iv (VERB_DEADLOCK)
1285	const_iv (VERB_RECOVERY)	1319	const_iv (VERB_RECOVERY)
1286	const_iv (VERB_REPLICATION)	1320	const_iv (VERB_REPLICATION)
1287	const_iv (VERB_WAITSFOR)	1321	const_iv (VERB_WAITSFOR)
1288		1322
…		…
1321	const_iv (PRIORITY_VERY_LOW)	1355	const_iv (PRIORITY_VERY_LOW)
1322	const_iv (PRIORITY_LOW)	1356	const_iv (PRIORITY_LOW)
1323	const_iv (PRIORITY_DEFAULT)	1357	const_iv (PRIORITY_DEFAULT)
1324	const_iv (PRIORITY_HIGH)	1358	const_iv (PRIORITY_HIGH)
1325	const_iv (PRIORITY_VERY_HIGH)	1359	const_iv (PRIORITY_VERY_HIGH)
		1360	const_iv (IGNORE_LEASE)
1326	#endif	1361	#endif
1327	#if DB_VERSION_MINOR >= 7	1362	#if DB_VERSION_MINOR >= 7
		1363	//const_iv (MULTIPLE_KEY)
1328	const_iv (LOG_DIRECT)	1364	const_iv (LOG_DIRECT)
1329	const_iv (LOG_DSYNC)	1365	const_iv (LOG_DSYNC)
1330	const_iv (LOG_AUTO_REMOVE)	1366	const_iv (LOG_AUTO_REMOVE)
1331	const_iv (LOG_IN_MEMORY)	1367	const_iv (LOG_IN_MEMORY)
1332	const_iv (LOG_ZERO)	1368	const_iv (LOG_ZERO)
…		…
1549	db_env_close (DB_ENV env, U32 flags = 0, SV callback = 0)	1585	db_env_close (DB_ENV env, U32 flags = 0, SV callback = 0)
1550	PREINIT:	1586	PREINIT:
1551	CALLBACK	1587	CALLBACK
1552	CODE:	1588	CODE:
1553	{	1589	{
		1590	dREQ (REQ_ENV_CLOSE, 0);
1554	ptr_nuke (ST (0));	1591	ptr_nuke (ST (0));
1555	dREQ (REQ_ENV_CLOSE, 0);
1556	req->env = env;	1592	req->env = env;
1557	req->uint1 = flags;	1593	req->uint1 = flags;
1558	REQ_SEND;	1594	REQ_SEND;
1559	}	1595	}
1560		1596
…		…
1632	dREQ (REQ_ENV_DBRENAME, 2);	1668	dREQ (REQ_ENV_DBRENAME, 2);
1633	req->env = env;	1669	req->env = env;
1634	req->buf1 = strdup_ornull (file);	1670	req->buf1 = strdup_ornull (file);
1635	req->buf2 = strdup_ornull (database);	1671	req->buf2 = strdup_ornull (database);
1636	req->buf3 = strdup_ornull (newname);	1672	req->buf3 = strdup_ornull (newname);
		1673	req->uint1 = flags;
		1674	REQ_SEND;
		1675	}
		1676
		1677	void
		1678	db_env_log_archive (DB_ENV env, SV_mutable listp, U32 flags = 0, SV *callback = 0)
		1679	PREINIT:
		1680	CALLBACK
		1681	CODE:
		1682	{
		1683	dREQ (REQ_ENV_LOG_ARCHIVE, 1);
		1684	req->sv1 = SvREFCNT_inc (listp);
		1685	req->env = env;
1637	req->uint1 = flags;	1686	req->uint1 = flags;
1638	REQ_SEND;	1687	REQ_SEND;
1639	}	1688	}
1640		1689
1641	DB *	1690	DB *
…		…
1673	db_close (DB db, U32 flags = 0, SV callback = 0)	1722	db_close (DB db, U32 flags = 0, SV callback = 0)
1674	PREINIT:	1723	PREINIT:
1675	CALLBACK	1724	CALLBACK
1676	CODE:	1725	CODE:
1677	{	1726	{
		1727	dREQ (REQ_DB_CLOSE, 0);
1678	ptr_nuke (ST (0));	1728	ptr_nuke (ST (0));
1679	dREQ (REQ_DB_CLOSE, 0);
1680	req->db = db;	1729	req->db = db;
1681	req->uint1 = flags;	1730	req->uint1 = flags;
1682	req->sv1 = (SV *)db->app_private;	1731	req->sv1 = (SV *)db->app_private;
1683	REQ_SEND;	1732	REQ_SEND;
1684	}	1733	}
…		…
1692	CODE:	1741	CODE:
1693	{	1742	{
1694	dREQ (REQ_DB_COMPACT, 2);	1743	dREQ (REQ_DB_COMPACT, 2);
1695	req->db = db;	1744	req->db = db;
1696	req->txn = txn;	1745	req->txn = txn;
1697	sv_to_dbt (&req->dbt1, start);	1746	if (start) sv_to_dbt (&req->dbt1, start);
1698	sv_to_dbt (&req->dbt2, stop);	1747	if (stop ) sv_to_dbt (&req->dbt2, stop );
1699	req->uint1 = flags;	1748	req->uint1 = flags;
1700	REQ_SEND;	1749	REQ_SEND;
1701	}	1750	}
1702		1751
1703	#endif	1752	#endif
…		…
1832	db_txn_commit (DB_TXN txn, U32 flags = 0, SV callback = 0)	1881	db_txn_commit (DB_TXN txn, U32 flags = 0, SV callback = 0)
1833	PREINIT:	1882	PREINIT:
1834	CALLBACK	1883	CALLBACK
1835	CODE:	1884	CODE:
1836	{	1885	{
		1886	dREQ (REQ_TXN_COMMIT, 0);
1837	ptr_nuke (ST (0));	1887	ptr_nuke (ST (0));
1838	dREQ (REQ_TXN_COMMIT, 0);
1839	req->txn = txn;	1888	req->txn = txn;
1840	req->uint1 = flags;	1889	req->uint1 = flags;
1841	REQ_SEND;	1890	REQ_SEND;
1842	}	1891	}
1843		1892
…		…
1845	db_txn_abort (DB_TXN txn, SV callback = 0)	1894	db_txn_abort (DB_TXN txn, SV callback = 0)
1846	PREINIT:	1895	PREINIT:
1847	CALLBACK	1896	CALLBACK
1848	CODE:	1897	CODE:
1849	{	1898	{
		1899	dREQ (REQ_TXN_ABORT, 0);
1850	ptr_nuke (ST (0));	1900	ptr_nuke (ST (0));
1851	dREQ (REQ_TXN_ABORT, 0);
1852	req->txn = txn;	1901	req->txn = txn;
1853	REQ_SEND;	1902	REQ_SEND;
1854	}	1903	}
1855		1904
1856	void	1905	void
1857	db_txn_finish (DB_TXN txn, U32 flags = 0, SV callback = 0)	1906	db_txn_finish (DB_TXN txn, U32 flags = 0, SV callback = 0)
1858	PREINIT:	1907	PREINIT:
1859	CALLBACK	1908	CALLBACK
1860	CODE:	1909	CODE:
1861	{	1910	{
		1911	dREQ (REQ_TXN_FINISH, 0);
1862	ptr_nuke (ST (0));	1912	ptr_nuke (ST (0));
1863	dREQ (REQ_TXN_FINISH, 0);
1864	req->txn = txn;	1913	req->txn = txn;
1865	req->uint1 = flags;	1914	req->uint1 = flags;
1866	REQ_SEND;	1915	REQ_SEND;
1867	}	1916	}
1868		1917
…		…
1870	db_c_close (DBC dbc, SV callback = 0)	1919	db_c_close (DBC dbc, SV callback = 0)
1871	PREINIT:	1920	PREINIT:
1872	CALLBACK	1921	CALLBACK
1873	CODE:	1922	CODE:
1874	{	1923	{
		1924	dREQ (REQ_C_CLOSE, 0);
1875	ptr_nuke (ST (0));	1925	ptr_nuke (ST (0));
1876	dREQ (REQ_C_CLOSE, 0);
1877	req->dbc = dbc;	1926	req->dbc = dbc;
1878	REQ_SEND;	1927	REQ_SEND;
1879	}	1928	}
1880		1929
1881	void	1930	void
…		…
1908	db_c_get (DBC dbc, SV key, SV_mutable data, U32 flags = 0, SV callback = 0)	1957	db_c_get (DBC dbc, SV key, SV_mutable data, U32 flags = 0, SV callback = 0)
1909	PREINIT:	1958	PREINIT:
1910	CALLBACK	1959	CALLBACK
1911	CODE:	1960	CODE:
1912	{	1961	{
1913	if (flags & DB_OPFLAGS_MASK != DB_SET && SvREADONLY (key))	1962	if ((flags & DB_OPFLAGS_MASK) != DB_SET && SvREADONLY (key))
1914	croak ("db_c_get was passed a read-only/constant 'key' argument but operation is not DB_SET");	1963	croak ("db_c_get was passed a read-only/constant 'key' argument but operation is not DB_SET");
		1964	if (SvPOKp (key) && !sv_utf8_downgrade (key, 1))
		1965	croak ("argument \"%s\" must be byte/octet-encoded in %s",
		1966	"key",
		1967	"BDB::db_c_get");
1915		1968
		1969	{
1916	dREQ (REQ_C_GET, 1);	1970	dREQ (REQ_C_GET, 1);
1917	req->dbc = dbc;	1971	req->dbc = dbc;
1918	req->uint1 = flags;	1972	req->uint1 = flags;
1919	if (flags & DB_OPFLAGS_MASK == DB_SET)	1973	if ((flags & DB_OPFLAGS_MASK) == DB_SET)
1920	sv_to_dbt (&req->dbt1, key);	1974	sv_to_dbt (&req->dbt1, key);
1921	else	1975	else
1922	{	1976	{
1923	if (flags & DB_OPFLAGS_MASK == DB_SET_RANGE)	1977	if ((flags & DB_OPFLAGS_MASK) == DB_SET_RANGE)
1924	sv_to_dbt (&req->dbt1, key);	1978	sv_to_dbt (&req->dbt1, key);
1925	else	1979	else
1926	req->dbt1.flags = DB_DBT_MALLOC;	1980	req->dbt1.flags = DB_DBT_MALLOC;
1927		1981
1928	req->sv1 = SvREFCNT_inc (key); SvREADONLY_on (key);	1982	req->sv1 = SvREFCNT_inc (key); SvREADONLY_on (key);
1929	}	1983	}
1930		1984
1931	if (flags & DB_OPFLAGS_MASK == DB_GET_BOTH	1985	if ((flags & DB_OPFLAGS_MASK) == DB_GET_BOTH
1932	\|\| flags & DB_OPFLAGS_MASK == DB_GET_BOTH_RANGE)	1986	\|\| (flags & DB_OPFLAGS_MASK) == DB_GET_BOTH_RANGE)
1933	sv_to_dbt (&req->dbt3, data);	1987	sv_to_dbt (&req->dbt3, data);
1934	else	1988	else
1935	req->dbt3.flags = DB_DBT_MALLOC;	1989	req->dbt3.flags = DB_DBT_MALLOC;
1936		1990
1937	req->sv3 = SvREFCNT_inc (data); SvREADONLY_on (data);	1991	req->sv3 = SvREFCNT_inc (data); SvREADONLY_on (data);
1938	REQ_SEND;	1992	REQ_SEND;
		1993	}
1939	}	1994	}
1940		1995
1941	void	1996	void
1942	db_c_pget (DBC dbc, SV key, SV_mutable pkey, SV_mutable data, U32 flags = 0, SV *callback = 0)	1997	db_c_pget (DBC dbc, SV key, SV_mutable pkey, SV_mutable data, U32 flags = 0, SV *callback = 0)
1943	PREINIT:	1998	PREINIT:
1944	CALLBACK	1999	CALLBACK
1945	CODE:	2000	CODE:
1946	{	2001	{
1947	if (flags & DB_OPFLAGS_MASK != DB_SET && SvREADONLY (key))	2002	if ((flags & DB_OPFLAGS_MASK) != DB_SET && SvREADONLY (key))
1948	croak ("db_c_pget was passed a read-only/constant 'key' argument but operation is not DB_SET");	2003	croak ("db_c_pget was passed a read-only/constant 'key' argument but operation is not DB_SET");
		2004	if (SvPOKp (key) && !sv_utf8_downgrade (key, 1))
		2005	croak ("argument \"%s\" must be byte/octet-encoded in %s",
		2006	"key",
		2007	"BDB::db_c_pget");
1949		2008
		2009	{
1950	dREQ (REQ_C_PGET, 1);	2010	dREQ (REQ_C_PGET, 1);
1951	req->dbc = dbc;	2011	req->dbc = dbc;
1952	req->uint1 = flags;	2012	req->uint1 = flags;
1953	if (flags & DB_OPFLAGS_MASK == DB_SET)	2013	if ((flags & DB_OPFLAGS_MASK) == DB_SET)
1954	sv_to_dbt (&req->dbt1, key);	2014	sv_to_dbt (&req->dbt1, key);
1955	else	2015	else
1956	{	2016	{
1957	if (flags & DB_OPFLAGS_MASK == DB_SET_RANGE)	2017	if ((flags & DB_OPFLAGS_MASK) == DB_SET_RANGE)
1958	sv_to_dbt (&req->dbt1, key);	2018	sv_to_dbt (&req->dbt1, key);
1959	else	2019	else
1960	req->dbt1.flags = DB_DBT_MALLOC;	2020	req->dbt1.flags = DB_DBT_MALLOC;
1961		2021
1962	req->sv1 = SvREFCNT_inc (key); SvREADONLY_on (key);	2022	req->sv1 = SvREFCNT_inc (key); SvREADONLY_on (key);
1963	}	2023	}
1964		2024
1965	req->dbt2.flags = DB_DBT_MALLOC;	2025	req->dbt2.flags = DB_DBT_MALLOC;
1966	req->sv2 = SvREFCNT_inc (pkey); SvREADONLY_on (pkey);	2026	req->sv2 = SvREFCNT_inc (pkey); SvREADONLY_on (pkey);
1967		2027
1968	if (flags & DB_OPFLAGS_MASK == DB_GET_BOTH	2028	if ((flags & DB_OPFLAGS_MASK) == DB_GET_BOTH
1969	\|\| flags & DB_OPFLAGS_MASK == DB_GET_BOTH_RANGE)	2029	\|\| (flags & DB_OPFLAGS_MASK) == DB_GET_BOTH_RANGE)
1970	sv_to_dbt (&req->dbt3, data);	2030	sv_to_dbt (&req->dbt3, data);
1971	else	2031	else
1972	req->dbt3.flags = DB_DBT_MALLOC;	2032	req->dbt3.flags = DB_DBT_MALLOC;
1973		2033
1974	req->sv3 = SvREFCNT_inc (data); SvREADONLY_on (data);	2034	req->sv3 = SvREFCNT_inc (data); SvREADONLY_on (data);
1975	REQ_SEND;	2035	REQ_SEND;
		2036	}
1976	}	2037	}
1977		2038
1978	void	2039	void
1979	db_c_del (DBC dbc, U32 flags = 0, SV callback = 0)	2040	db_c_del (DBC dbc, U32 flags = 0, SV callback = 0)
1980	PREINIT:	2041	PREINIT:
…		…
2008	db_sequence_close (DB_SEQUENCE seq, U32 flags = 0, SV callback = 0)	2069	db_sequence_close (DB_SEQUENCE seq, U32 flags = 0, SV callback = 0)
2009	PREINIT:	2070	PREINIT:
2010	CALLBACK	2071	CALLBACK
2011	CODE:	2072	CODE:
2012	{	2073	{
		2074	dREQ (REQ_SEQ_CLOSE, 0);
2013	ptr_nuke (ST (0));	2075	ptr_nuke (ST (0));
2014	dREQ (REQ_SEQ_CLOSE, 0);
2015	req->seq = seq;	2076	req->seq = seq;
2016	req->uint1 = flags;	2077	req->uint1 = flags;
2017	REQ_SEND;	2078	REQ_SEND;
2018	}	2079	}
2019		2080
…		…
2255	CODE:	2316	CODE:
2256	RETVAL = db->set_cachesize (db, gbytes, bytes, ncache);	2317	RETVAL = db->set_cachesize (db, gbytes, bytes, ncache);
2257	OUTPUT:	2318	OUTPUT:
2258	RETVAL	2319	RETVAL
2259		2320
		2321	int set_pagesize (DB *db, U32 pagesize)
		2322	CODE:
		2323	RETVAL = db->set_pagesize (db, pagesize);
		2324	OUTPUT:
		2325	RETVAL
		2326
2260	int set_flags (DB *db, U32 flags)	2327	int set_flags (DB *db, U32 flags)
2261	CODE:	2328	CODE:
2262	RETVAL = db->set_flags (db, flags);	2329	RETVAL = db->set_flags (db, flags);
2263	OUTPUT:	2330	OUTPUT:
2264	RETVAL	2331	RETVAL

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing BDB/BDB.xs (file contents): Revision 1.54 by root, Fri Sep 26 02:03:48 2008 UTC vs. Revision 1.63 by root, Tue Oct 21 02:21:25 2008 UTC

Diff Legend

Comparing BDB/BDB.xs (file contents):
Revision 1.54 by root, Fri Sep 26 02:03:48 2008 UTC vs.
Revision 1.63 by root, Tue Oct 21 02:21:25 2008 UTC