← Back to branch summary

~ubuntu-branches/ubuntu/edgy/rpm/edgy

« back to all changes in this revision

Viewing changes to db/perl.BerkeleyDB/mkconsts

  • Committer: Bazaar Package Importer
  • Author(s): Joey Hess
  • Date: 2002-01-22 20:56:57 UTC
  • Revision ID: james.westby@ubuntu.com-20020122205657-l74j50mr9z8ofcl5
Tags: upstream-4.0.3
Import upstream version 4.0.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
db/perl.BerkeleyDB/mkconsts
 
1
#!/usr/bin/perl
 
2
 
 
3
%constants = (
 
4
        # Symbol                   0 = define, 1 = enum
 
5
        DB_AFTER                => 0,
 
6
        DB_APPEND               => 0,
 
7
        DB_ARCH_ABS             => 0,
 
8
        DB_ARCH_DATA            => 0,
 
9
        DB_ARCH_LOG             => 0,
 
10
        DB_BEFORE               => 0,
 
11
        DB_BTREE                => 1,
 
12
        DB_BTREEMAGIC           => 0,
 
13
        DB_BTREEOLDVER          => 0,
 
14
        DB_BTREEVERSION         => 0,
 
15
        DB_CHECKPOINT           => 0,
 
16
        DB_CONSUME              => 0,
 
17
        DB_CREATE               => 0,
 
18
        DB_CURLSN               => 0,
 
19
        DB_CURRENT              => 0,
 
20
        DB_DBT_MALLOC           => 0,
 
21
        DB_DBT_PARTIAL          => 0,
 
22
        DB_DBT_USERMEM          => 0,
 
23
        DB_DELETED              => 0,
 
24
        DB_DELIMITER            => 0,
 
25
        DB_DUP                  => 0,
 
26
        DB_DUPSORT              => 0,
 
27
        DB_ENV_APPINIT          => 0,
 
28
        DB_ENV_STANDALONE       => 0,
 
29
        DB_ENV_THREAD           => 0,
 
30
        DB_EXCL                 => 0,
 
31
        DB_FILE_ID_LEN          => 0,
 
32
        DB_FIRST                => 0,
 
33
        DB_FIXEDLEN             => 0,
 
34
        DB_FLUSH                => 0,
 
35
        DB_FORCE                => 0,
 
36
        DB_GET_BOTH             => 0,
 
37
        DB_GET_RECNO            => 0,
 
38
        DB_HASH                 => 1,
 
39
        DB_HASHMAGIC            => 0,
 
40
        DB_HASHOLDVER           => 0,
 
41
        DB_HASHVERSION          => 0,
 
42
        DB_INCOMPLETE           => 0,
 
43
        DB_INIT_CDB             => 0,
 
44
        DB_INIT_LOCK            => 0,
 
45
        DB_INIT_LOG             => 0,
 
46
        DB_INIT_MPOOL           => 0,
 
47
        DB_INIT_TXN             => 0,
 
48
        DB_JOIN_ITEM            => 0,
 
49
        DB_KEYEMPTY             => 0,
 
50
        DB_KEYEXIST             => 0,
 
51
        DB_KEYFIRST             => 0,
 
52
        DB_KEYLAST              => 0,
 
53
        DB_LAST                 => 0,
 
54
        DB_LOCK_CONFLICT        => 0,
 
55
        DB_LOCK_DEADLOCK        => 0,
 
56
        DB_LOCK_DEFAULT         => 0,
 
57
        DB_LOCK_GET             => 1,
 
58
        DB_LOCK_NORUN           => 0,
 
59
        DB_LOCK_NOTGRANTED      => 0,
 
60
        DB_LOCK_NOTHELD         => 0,
 
61
        DB_LOCK_NOWAIT          => 0,
 
62
        DB_LOCK_OLDEST          => 0,
 
63
        DB_LOCK_RANDOM          => 0,
 
64
        DB_LOCK_RIW_N           => 0,
 
65
        DB_LOCK_RW_N            => 0,
 
66
        DB_LOCK_YOUNGEST        => 0,
 
67
        DB_LOCKMAGIC            => 0,
 
68
        DB_LOCKVERSION          => 0,
 
69
        DB_LOGMAGIC             => 0,
 
70
        DB_LOGOLDVER            => 0,
 
71
        DB_MAX_PAGES            => 0,
 
72
        DB_MAX_RECORDS          => 0,
 
73
        DB_MPOOL_CLEAN          => 0,
 
74
        DB_MPOOL_CREATE         => 0,
 
75
        DB_MPOOL_DIRTY          => 0,
 
76
        DB_MPOOL_DISCARD        => 0,
 
77
        DB_MPOOL_LAST           => 0,
 
78
        DB_MPOOL_NEW            => 0,
 
79
        DB_MPOOL_PRIVATE        => 0,
 
80
        DB_MUTEXDEBUG           => 0,
 
81
        DB_MUTEXLOCKS           => 0,
 
82
        DB_NEEDSPLIT            => 0,
 
83
        DB_NEXT                 => 0,
 
84
        DB_NEXT_DUP             => 0,
 
85
        DB_NOMMAP               => 0,
 
86
        DB_NOOVERWRITE          => 0,
 
87
        DB_NOSYNC               => 0,
 
88
        DB_NOTFOUND             => 0,
 
89
        DB_PAD                  => 0,
 
90
        DB_PAGEYIELD            => 0,
 
91
        DB_POSITION             => 0,
 
92
        DB_PREV                 => 0,
 
93
        DB_PRIVATE              => 0,
 
94
        DB_QUEUE                => 1,
 
95
        DB_RDONLY               => 0,
 
96
        DB_RECNO                => 1,
 
97
        DB_RECNUM               => 0,
 
98
        DB_RECORDCOUNT          => 0,
 
99
        DB_RECOVER              => 0,
 
100
        DB_RECOVER_FATAL        => 0,
 
101
        DB_REGISTERED           => 0,
 
102
        DB_RENUMBER             => 0,
 
103
        DB_RMW                  => 0,
 
104
        DB_RUNRECOVERY          => 0,
 
105
        DB_SEQUENTIAL           => 0,
 
106
        DB_SET                  => 0,
 
107
        DB_SET_RANGE            => 0,
 
108
        DB_SET_RECNO            => 0,
 
109
        DB_SNAPSHOT             => 0,
 
110
        DB_SWAPBYTES            => 0,
 
111
        DB_TEMPORARY            => 0,
 
112
        DB_THREAD               => 0,
 
113
        DB_TRUNCATE             => 0,
 
114
        DB_TXN_ABORT            => 1,
 
115
        DB_TXN_BACKWARD_ROLL    => 1,
 
116
        DB_TXN_CKP              => 0,
 
117
        DB_TXN_FORWARD_ROLL     => 1,
 
118
        DB_TXN_LOCK_2PL         => 0,
 
119
        DB_TXN_LOCK_MASK        => 0,
 
120
        DB_TXN_LOCK_OPTIMISTIC  => 0,
 
121
        DB_TXN_LOG_MASK         => 0,
 
122
        DB_TXN_LOG_REDO         => 0,
 
123
        DB_TXN_LOG_UNDO         => 0,
 
124
        DB_TXN_LOG_UNDOREDO     => 0,
 
125
        DB_TXN_NOSYNC           => 0,
 
126
        DB_TXN_NOWAIT           => 0,
 
127
        DB_TXN_SYNC             => 0,
 
128
        DB_TXN_OPENFILES        => 1,
 
129
        DB_TXN_REDO             => 0,
 
130
        DB_TXN_UNDO             => 0,
 
131
        DB_TXNMAGIC             => 0,
 
132
        DB_TXNVERSION           => 0,
 
133
        DB_TXN_LOCK_OPTIMIST    => 0,
 
134
        DB_UNKNOWN              => 1,
 
135
        DB_USE_ENVIRON          => 0,
 
136
        DB_USE_ENVIRON_ROOT     => 0,
 
137
        DB_VERSION_MAJOR        => 0,
 
138
        DB_VERSION_MINOR        => 0,
 
139
        DB_VERSION_PATCH        => 0,
 
140
        DB_WRITECURSOR          => 0,
 
141
        ) ;
 
142
 
 
143
sub OutputXS
 
144
{
 
145
    # skip to the marker
 
146
    if (0) {
 
147
        while (<>)
 
148
        {
 
149
            last if /^MARKER/ ;
 
150
            print ;
 
151
        }
 
152
    }
 
153
    
 
154
    foreach my $key (sort keys %constants)
 
155
    {
 
156
        my $isEnum = $constants{$key} ;
 
157
 
 
158
        if ($isEnum) {
 
159
            print <<EOM
 
160
        if (strEQ(name, "$key"))
 
161
            return $key;
 
162
EOM
 
163
        }
 
164
        else
 
165
        {
 
166
            print <<EOM
 
167
        if (strEQ(name, "$key"))
 
168
#ifdef $key
 
169
            return $key;
 
170
#else
 
171
            goto not_there;
 
172
#endif
 
173
EOM
 
174
        }
 
175
    
 
176
    }
 
177
    
 
178
    if (0) {
 
179
        while (<>)
 
180
        {
 
181
            print ;
 
182
        }
 
183
    }
 
184
}
 
185
 
 
186
sub OutputPM
 
187
{
 
188
    # skip to the marker
 
189
    if (0) {
 
190
        while (<>)
 
191
        {
 
192
            last if /^MARKER/ ;
 
193
            print ;
 
194
        }
 
195
    }
 
196
    
 
197
    foreach my $key (sort keys %constants)
 
198
    {
 
199
        print "\t$key\n";
 
200
    }
 
201
    
 
202
    if (0) {
 
203
        while (<>)
 
204
        {
 
205
            print ;
 
206
        }
 
207
    }
 
208
}
 
209
 
 
210
OutputXS() if $ARGV[0] =~ /xs/i ;
 
211
OutputPM() if $ARGV[0] =~ /pm/i ;