ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/BDB/typemap
Revision: 1.2
Committed: Mon Feb 5 20:21:38 2007 UTC (17 years, 3 months ago) by root
Branch: MAIN
Changes since 1.1: +23 -0 lines
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 root 1.2 DB_ENV * DB_ENV
2     DB_TXN * DB_TXN
3     DB * DB
4 root 1.1 SV8 * T_SV8
5    
6     INPUT
7    
8     T_SV8
9     ($var) = $arg;
10     if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1))
11     croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\")
12 root 1.2
13     DB_ENV
14     SvPTR ($var, $arg, DB_ENV *, BDB::Env);
15    
16     DB_TXN
17     SvPTR ($var, $arg, DB_TXN *, BDB::Txn);
18    
19     DB
20     SvPTR ($var, $arg, DB *, BDB::Db);
21    
22     OUTPUT
23    
24     DB_ENV
25     sv_setref_pv ($arg, "BDB::Env", (void *)$var);
26    
27     DB_TXN
28     sv_setref_pv ($arg, "BDB::Txn", (void *)$var);
29    
30     DB
31     sv_setref_pv ($arg, "BDB::Db", (void *)$var);