|
|
1 | DB_ENV * DB_ENV |
|
|
2 | DB_ENV_ornull * DB_ENV_ornull |
|
|
3 | DB_TXN * DB_TXN |
|
|
4 | DB_TXN_ornull * DB_TXN_ornull |
|
|
5 | DB * DB |
|
|
6 | DB_ornull * DB_ornull |
|
|
7 | DBC * DBC |
|
|
8 | DBC_ornull * DBC_ornull |
1 | SV8 * T_SV8 |
9 | SV8 * T_SV8 |
|
|
10 | octetstring OCTETS |
2 | |
11 | |
3 | INPUT |
12 | INPUT |
4 | |
13 | |
5 | T_SV8 |
14 | T_SV8 |
6 | ($var) = $arg; |
15 | ($var) = $arg; |
7 | if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1)) |
16 | if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1)) |
8 | croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") |
17 | croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") |
|
|
18 | |
|
|
19 | OCTETS |
|
|
20 | $var = SvOK ($arg) ? SvPVbyte_nolen ($arg) : 0 |
|
|
21 | |
|
|
22 | DB_ENV |
|
|
23 | SvPTR ($var, $arg, DB_ENV *, BDB::Env, 0); |
|
|
24 | |
|
|
25 | DB_TXN |
|
|
26 | SvPTR ($var, $arg, DB_TXN *, BDB::Txn, 0); |
|
|
27 | |
|
|
28 | DBC |
|
|
29 | SvPTR ($var, $arg, DBC *, BDB::Cursor, 0); |
|
|
30 | |
|
|
31 | DB |
|
|
32 | SvPTR ($var, $arg, DB *, BDB::Db, 0); |
|
|
33 | |
|
|
34 | DB_ENV_ornull |
|
|
35 | SvPTR ($var, $arg, DB_ENV *, BDB::Env, 1); |
|
|
36 | |
|
|
37 | DB_TXN_ornull |
|
|
38 | SvPTR ($var, $arg, DB_TXN *, BDB::Txn, 1); |
|
|
39 | |
|
|
40 | DBC_ornull |
|
|
41 | SvPTR ($var, $arg, DBC *, BDB::Cursor, 1); |
|
|
42 | |
|
|
43 | DB_ornull |
|
|
44 | SvPTR ($var, $arg, DB *, BDB::Db, 1); |
|
|
45 | |
|
|
46 | OUTPUT |
|
|
47 | |
|
|
48 | DB_ENV |
|
|
49 | sv_setref_pv ($arg, "BDB::Env", (void *)$var); |
|
|
50 | |
|
|
51 | DB_TXN |
|
|
52 | sv_setref_pv ($arg, "BDB::Txn", (void *)$var); |
|
|
53 | |
|
|
54 | DBC |
|
|
55 | sv_setref_pv ($arg, "BDB::Cursor", (void *)$var); |
|
|
56 | |
|
|
57 | DB |
|
|
58 | sv_setref_pv ($arg, "BDB::Db", (void *)$var); |