ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/BDB/BDB.xs
(Generate patch)

Comparing BDB/BDB.xs (file contents):
Revision 1.29 by root, Tue Dec 25 14:23:21 2007 UTC vs.
Revision 1.30 by root, Sun Jan 13 09:43:21 2008 UTC

… …
39typedef DB_ENV DB_ENV_ornull; 39typedef DB_ENV DB_ENV_ornull;
40typedef DB_TXN DB_TXN_ornull; 40typedef DB_TXN DB_TXN_ornull;
41typedef DBC DBC_ornull; 41typedef DBC DBC_ornull;
42typedef DB DB_ornull; 42typedef DB DB_ornull;
43typedef DB_SEQUENCE DB_SEQUENCE_ornull; 43typedef DB_SEQUENCE DB_SEQUENCE_ornull;
44
45typedef DB_ENV DB_ENV_ornuked;
46typedef DB_TXN DB_TXN_ornuked;
47typedef DBC DBC_ornuked;
48typedef DB DB_ornuked;
49typedef DB_SEQUENCE DB_SEQUENCE_ornuked;
44 50
45typedef SV SV8; /* byte-sv, used for argument-checking */ 51typedef SV SV8; /* byte-sv, used for argument-checking */
46typedef char *octetstring; 52typedef char *octetstring;
47 53
48static SV *prepare_cb; 54static SV *prepare_cb;
… …
922 req->pri = req_pri 928 req->pri = req_pri
923 929
924#define REQ_SEND \ 930#define REQ_SEND \
925 req_send (req) 931 req_send (req)
926 932
927#define SvPTR(var, arg, type, class, nullok) \ 933#define SvPTR(var, arg, type, class, nullok) \
928 if (!SvOK (arg)) \ 934 if (!SvOK (arg)) \
929 { \ 935 { \
930 if (!nullok) \ 936 if (nullok != 1) \
931 croak (# var " must be a " # class " object, not undef"); \ 937 croak (# var " must be a " # class " object, not undef"); \
932 \ 938 \
933 (var) = 0; \ 939 (var) = 0; \
934 } \ 940 } \
935 else if (sv_derived_from ((arg), # class)) \ 941 else if (sv_derived_from ((arg), # class)) \
936 { \ 942 { \
937 IV tmp = SvIV ((SV*) SvRV (arg)); \ 943 IV tmp = SvIV ((SV*) SvRV (arg)); \
938 (var) = INT2PTR (type, tmp); \ 944 (var) = INT2PTR (type, tmp); \
939 if (!var) \ 945 if (!var && nullok != 2) \
940 croak (# var " is not a valid " # class " object anymore"); \ 946 croak (# var " is not a valid " # class " object anymore"); \
941 } \ 947 } \
942 else \ 948 else \
943 croak (# var " is not of type " # class); \ 949 croak (# var " is not of type " # class); \
944 \ 950 \
… …
1711 1717
1712 1718
1713MODULE = BDB PACKAGE = BDB::Env 1719MODULE = BDB PACKAGE = BDB::Env
1714 1720
1715void 1721void
1716DESTROY (DB_ENV_ornull *env) 1722DESTROY (DB_ENV_ornuked *env)
1717 CODE: 1723 CODE:
1718 if (env) 1724 if (env)
1719 env->close (env, 0); 1725 env->close (env, 0);
1720 1726
1721int set_data_dir (DB_ENV *env, const char *dir) 1727int set_data_dir (DB_ENV *env, const char *dir)
… …
1868 RETVAL 1874 RETVAL
1869 1875
1870MODULE = BDB PACKAGE = BDB::Db 1876MODULE = BDB PACKAGE = BDB::Db
1871 1877
1872void 1878void
1873DESTROY (DB_ornull *db) 1879DESTROY (DB_ornuked *db)
1874 CODE: 1880 CODE:
1875 if (db) 1881 if (db)
1876 { 1882 {
1877 SV *env = (SV *)db->app_private; 1883 SV *env = (SV *)db->app_private;
1878 db->close (db, 0); 1884 db->close (db, 0);
… …
1973 1979
1974 1980
1975MODULE = BDB PACKAGE = BDB::Txn 1981MODULE = BDB PACKAGE = BDB::Txn
1976 1982
1977void 1983void
1978DESTROY (DB_TXN_ornull *txn) 1984DESTROY (DB_TXN_ornuked *txn)
1979 CODE: 1985 CODE:
1980 if (txn) 1986 if (txn)
1981 txn->abort (txn); 1987 txn->abort (txn);
1982 1988
1983int set_timeout (DB_TXN *txn, NV timeout, U32 flags = DB_SET_TXN_TIMEOUT) 1989int set_timeout (DB_TXN *txn, NV timeout, U32 flags = DB_SET_TXN_TIMEOUT)
… …
1994 2000
1995 2001
1996MODULE = BDB PACKAGE = BDB::Cursor 2002MODULE = BDB PACKAGE = BDB::Cursor
1997 2003
1998void 2004void
1999DESTROY (DBC_ornull *dbc) 2005DESTROY (DBC_ornuked *dbc)
2000 CODE: 2006 CODE:
2001 if (dbc) 2007 if (dbc)
2002 dbc->c_close (dbc); 2008 dbc->c_close (dbc);
2003 2009
2004#if DB_VERSION_MINOR >= 6 2010#if DB_VERSION_MINOR >= 6
… …
2010#endif 2016#endif
2011 2017
2012MODULE = BDB PACKAGE = BDB::Sequence 2018MODULE = BDB PACKAGE = BDB::Sequence
2013 2019
2014void 2020void
2015DESTROY (DB_SEQUENCE_ornull *seq) 2021DESTROY (DB_SEQUENCE_ornuked *seq)
2016 CODE: 2022 CODE:
2017 if (seq) 2023 if (seq)
2018 seq->close (seq, 0); 2024 seq->close (seq, 0);
2019 2025
2020int initial_value (DB_SEQUENCE *seq, db_seq_t value) 2026int initial_value (DB_SEQUENCE *seq, db_seq_t value)

Diff Legend

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