ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/BDB/typemap
(Generate patch)

Comparing BDB/typemap (file contents):
Revision 1.7 by root, Sun Mar 30 04:57:56 2008 UTC vs.
Revision 1.12 by root, Thu Nov 12 00:39:58 2009 UTC

… …
12DBC_ornuked * DBC_ornuked 12DBC_ornuked * DBC_ornuked
13DB_SEQUENCE * DB_SEQUENCE 13DB_SEQUENCE * DB_SEQUENCE
14DB_SEQUENCE_ornull * DB_SEQUENCE_ornull 14DB_SEQUENCE_ornull * DB_SEQUENCE_ornull
15DB_SEQUENCE_ornuked * DB_SEQUENCE_ornuked 15DB_SEQUENCE_ornuked * DB_SEQUENCE_ornuked
16 16
17SV8 * T_SV8
18bdb_filename BDB_FILENAME 17bdb_filename BDB_FILENAME
19db_seq_t DB_SEQ 18db_seq_t DB_SEQ
20 19
20const char * T_PV
21
22SV_mutable * T_SV_MUTABLE
21 23
22INPUT 24INPUT
23 25
24T_SV8 26T_SV_MUTABLE
25 ($var) = $arg; 27 ($var) = $arg;
28 if (SvREADONLY ($var))
29 croak (\"argument \\\"%s\\\" is read-only/constant, but %s needs to write results into it\",
30 \"$var\",
31 \"${Package}::$func_name\");
26 if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1)) 32 if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1))
27 croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\") 33 croak (\"argument \\\"%s\\\" must be byte/octet-encoded in %s\",
34 \"$var\",
35 \"${Package}::$func_name\")
28 36
29BDB_FILENAME 37BDB_FILENAME
30 ($var) = !SvOK ($arg) 38 ($var) = get_bdb_filename ($arg);
31 ? 0
32 :
33 #if WIN32
34 SvPVutf8_nolen ($arg)
35 #else
36 SvPVbyte_nolen ($arg)
37 #endif
38 ;
39 39
40DB_SEQ 40DB_SEQ
41 $var = sizeof (IV) > 4 ? SvIV ($arg) : SvNV ($arg); 41 $var = sizeof (IV) > 4 ? SvIV ($arg) : SvNV ($arg);
42 42
43DB_ENV 43DB_ENV
44 SvPTR ($var, $arg, DB_ENV *, BDB::Env, 0); 44 SvPTR ($var, $arg, DB_ENV *, bdb_env_stash, BDB::Env, 0);
45 45
46DB_TXN 46DB_TXN
47 SvPTR ($var, $arg, DB_TXN *, BDB::Txn, 0); 47 SvPTR ($var, $arg, DB_TXN *, bdb_txn_stash, BDB::Txn, 0);
48 48
49DBC 49DBC
50 SvPTR ($var, $arg, DBC *, BDB::Cursor, 0); 50 SvPTR ($var, $arg, DBC *, bdb_cursor_stash, BDB::Cursor, 0);
51 51
52DB 52DB
53 SvPTR ($var, $arg, DB *, BDB::Db, 0); 53 SvPTR ($var, $arg, DB *, bdb_db_stash, BDB::Db, 0);
54 54
55DB_SEQUENCE 55DB_SEQUENCE
56 SvPTR ($var, $arg, DB_SEQUENCE *, BDB::Sequence, 0); 56 SvPTR ($var, $arg, DB_SEQUENCE *, bdb_sequence_stash, BDB::Sequence, 0);
57 57
58 58
59DB_ENV_ornull 59DB_ENV_ornull
60 SvPTR ($var, $arg, DB_ENV *, BDB::Env, 1); 60 SvPTR ($var, $arg, DB_ENV *, bdb_env_stash, BDB::Env, 1);
61 61
62DB_TXN_ornull 62DB_TXN_ornull
63 SvPTR ($var, $arg, DB_TXN *, BDB::Txn, 1); 63 SvPTR ($var, $arg, DB_TXN *, bdb_txn_stash, BDB::Txn, 1);
64 64
65DBC_ornull 65DBC_ornull
66 SvPTR ($var, $arg, DBC *, BDB::Cursor, 1); 66 SvPTR ($var, $arg, DBC *, bdb_cursor_stash, BDB::Cursor, 1);
67 67
68DB_ornull 68DB_ornull
69 SvPTR ($var, $arg, DB *, BDB::Db, 1); 69 SvPTR ($var, $arg, DB *, bdb_db_stash, BDB::Db, 1);
70 70
71DB_SEQUENCE_ornull 71DB_SEQUENCE_ornull
72 SvPTR ($var, $arg, DB_SEQUENCE *, BDB::Sequence, 1); 72 SvPTR ($var, $arg, DB_SEQUENCE *, bdb_sequence_stash, BDB::Sequence, 1);
73 73
74 74
75DB_ENV_ornuked 75DB_ENV_ornuked
76 SvPTR ($var, $arg, DB_ENV *, BDB::Env, 2); 76 SvPTR ($var, $arg, DB_ENV *, bdb_env_stash, BDB::Env, 2);
77 77
78DB_TXN_ornuked 78DB_TXN_ornuked
79 SvPTR ($var, $arg, DB_TXN *, BDB::Txn, 2); 79 SvPTR ($var, $arg, DB_TXN *, bdb_txn_stash, BDB::Txn, 2);
80 80
81DBC_ornuked 81DBC_ornuked
82 SvPTR ($var, $arg, DBC *, BDB::Cursor, 2); 82 SvPTR ($var, $arg, DBC *, bdb_cursor_stash, BDB::Cursor, 2);
83 83
84DB_ornuked 84DB_ornuked
85 SvPTR ($var, $arg, DB *, BDB::Db, 2); 85 SvPTR ($var, $arg, DB *, bdb_db_stash, BDB::Db, 2);
86 86
87DB_SEQUENCE_ornuked 87DB_SEQUENCE_ornuked
88 SvPTR ($var, $arg, DB_SEQUENCE *, BDB::Sequence, 2); 88 SvPTR ($var, $arg, DB_SEQUENCE *, bdb_sequence_stash, BDB::Sequence, 2);
89 89
90 90
91OUTPUT 91OUTPUT
92 92
93DB_ENV 93DB_ENV
94 sv_setref_pv ($arg, "BDB::Env", (void *)$var); 94 $arg = newSVptr ($var, bdb_env_stash);
95 95
96DB_TXN 96DB_TXN
97 sv_setref_pv ($arg, "BDB::Txn", (void *)$var); 97 $arg = newSVptr ($var, bdb_txn_stash);
98 98
99DBC 99DBC
100 sv_setref_pv ($arg, "BDB::Cursor", (void *)$var); 100 $arg = newSVptr ($var, bdb_cursor_stash);
101 101
102DB 102DB
103 sv_setref_pv ($arg, "BDB::Db", (void *)$var); 103 $arg = newSVptr ($var, bdb_db_stash);
104 104
105DB_SEQUENCE 105DB_SEQUENCE
106 sv_setref_pv ($arg, "BDB::Sequence", (void *)$var); 106 $arg = newSVptr ($var, bdb_sequence_stash);
107

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines