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