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