|
|
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 |
|
|
9 | DB_SEQUENCE * DB_SEQUENCE |
|
|
10 | DB_SEQUENCE_ornull * DB_SEQUENCE_ornull |
|
|
11 | |
1 | SV8 * T_SV8 |
12 | SV8 * T_SV8 |
|
|
13 | octetstring OCTETS |
|
|
14 | db_seq_t DB_SEQ |
|
|
15 | |
2 | |
16 | |
3 | INPUT |
17 | INPUT |
4 | |
18 | |
5 | T_SV8 |
19 | T_SV8 |
6 | ($var) = $arg; |
20 | ($var) = $arg; |
7 | if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1)) |
21 | if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1)) |
8 | croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") |
22 | croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") |
|
|
23 | |
|
|
24 | OCTETS |
|
|
25 | $var = SvOK ($arg) ? SvPVbyte_nolen ($arg) : 0; |
|
|
26 | |
|
|
27 | DB_SEQ |
|
|
28 | $var = sizeof (IV) > 4 ? SvIV ($arg) : SvNV ($arg); |
|
|
29 | |
|
|
30 | DB_ENV |
|
|
31 | SvPTR ($var, $arg, DB_ENV *, BDB::Env, 0); |
|
|
32 | |
|
|
33 | DB_TXN |
|
|
34 | SvPTR ($var, $arg, DB_TXN *, BDB::Txn, 0); |
|
|
35 | |
|
|
36 | DBC |
|
|
37 | SvPTR ($var, $arg, DBC *, BDB::Cursor, 0); |
|
|
38 | |
|
|
39 | DB |
|
|
40 | SvPTR ($var, $arg, DB *, BDB::Db, 0); |
|
|
41 | |
|
|
42 | DB_SEQUENCE |
|
|
43 | SvPTR ($var, $arg, DB_SEQUENCE *, BDB::Sequence, 0); |
|
|
44 | |
|
|
45 | DB_ENV_ornull |
|
|
46 | SvPTR ($var, $arg, DB_ENV *, BDB::Env, 1); |
|
|
47 | |
|
|
48 | DB_TXN_ornull |
|
|
49 | SvPTR ($var, $arg, DB_TXN *, BDB::Txn, 1); |
|
|
50 | |
|
|
51 | DBC_ornull |
|
|
52 | SvPTR ($var, $arg, DBC *, BDB::Cursor, 1); |
|
|
53 | |
|
|
54 | DB_ornull |
|
|
55 | SvPTR ($var, $arg, DB *, BDB::Db, 1); |
|
|
56 | |
|
|
57 | DB_SEQUENCE_ornull |
|
|
58 | SvPTR ($var, $arg, DB_SEQUENCE *, BDB::Sequence, 1); |
|
|
59 | |
|
|
60 | |
|
|
61 | OUTPUT |
|
|
62 | |
|
|
63 | DB_ENV |
|
|
64 | sv_setref_pv ($arg, "BDB::Env", (void *)$var); |
|
|
65 | |
|
|
66 | DB_TXN |
|
|
67 | sv_setref_pv ($arg, "BDB::Txn", (void *)$var); |
|
|
68 | |
|
|
69 | DBC |
|
|
70 | sv_setref_pv ($arg, "BDB::Cursor", (void *)$var); |
|
|
71 | |
|
|
72 | DB |
|
|
73 | sv_setref_pv ($arg, "BDB::Db", (void *)$var); |
|
|
74 | |
|
|
75 | DB_SEQUENCE |
|
|
76 | sv_setref_pv ($arg, "BDB::Sequence", (void *)$var); |