← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/horae/gutsy

« back to all changes in this revision

Viewing changes to 0CPAN/Compress-Zlib-1.41/fallback.h

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2006-12-28 12:36:48 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20061228123648-9xnjr76wfthd92cq
Tags: 064-1
New upstream release, dropped dependency on libtk-filedialog-perl.

Show diffs side-by-side

added added

removed removed

Lines of Context:
0CPAN/Compress-Zlib-1.41/fallback.h
1
 
#define PERL_constant_NOTFOUND  1
2
 
#define PERL_constant_NOTDEF    2
3
 
#define PERL_constant_ISIV      3
4
 
#define PERL_constant_ISNO      4
5
 
#define PERL_constant_ISNV      5
6
 
#define PERL_constant_ISPV      6
7
 
#define PERL_constant_ISPVN     7
8
 
#define PERL_constant_ISSV      8
9
 
#define PERL_constant_ISUNDEF   9
10
 
#define PERL_constant_ISUV      10
11
 
#define PERL_constant_ISYES     11
12
 
 
13
 
#ifndef NVTYPE
14
 
typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it.  */
15
 
#endif
16
 
#ifndef aTHX_
17
 
#define aTHX_ /* 5.6 or later define this for threading support.  */
18
 
#endif
19
 
#ifndef pTHX_
20
 
#define pTHX_ /* 5.6 or later define this for threading support.  */
21
 
#endif
22
 
 
23
 
static int
24
 
constant_7 (pTHX_ const char *name, IV *iv_return) {
25
 
  /* When generated this function returned values for the list of names given
26
 
     here.  However, subsequent manual editing may have added or removed some.
27
 
     OS_CODE Z_ASCII Z_ERRNO */
28
 
  /* Offset 5 gives the best switch position.  */
29
 
  switch (name[5]) {
30
 
  case 'D':
31
 
    if (memEQ(name, "OS_CODE", 7)) {
32
 
    /*                    ^       */
33
 
#ifdef OS_CODE
34
 
      *iv_return = OS_CODE;
35
 
      return PERL_constant_ISIV;
36
 
#else
37
 
      return PERL_constant_NOTDEF;
38
 
#endif
39
 
    }
40
 
    break;
41
 
  case 'I':
42
 
    if (memEQ(name, "Z_ASCII", 7)) {
43
 
    /*                    ^       */
44
 
#ifdef Z_ASCII
45
 
      *iv_return = Z_ASCII;
46
 
      return PERL_constant_ISIV;
47
 
#else
48
 
      return PERL_constant_NOTDEF;
49
 
#endif
50
 
    }
51
 
    break;
52
 
  case 'N':
53
 
    if (memEQ(name, "Z_ERRNO", 7)) {
54
 
    /*                    ^       */
55
 
#ifdef Z_ERRNO
56
 
      *iv_return = Z_ERRNO;
57
 
      return PERL_constant_ISIV;
58
 
#else
59
 
      return PERL_constant_NOTDEF;
60
 
#endif
61
 
    }
62
 
    break;
63
 
  }
64
 
  return PERL_constant_NOTFOUND;
65
 
}
66
 
 
67
 
static int
68
 
constant_9 (pTHX_ const char *name, IV *iv_return) {
69
 
  /* When generated this function returned values for the list of names given
70
 
     here.  However, subsequent manual editing may have added or removed some.
71
 
     DEF_WBITS MAX_WBITS Z_UNKNOWN */
72
 
  /* Offset 2 gives the best switch position.  */
73
 
  switch (name[2]) {
74
 
  case 'F':
75
 
    if (memEQ(name, "DEF_WBITS", 9)) {
76
 
    /*                 ^            */
77
 
#ifdef DEF_WBITS
78
 
      *iv_return = DEF_WBITS;
79
 
      return PERL_constant_ISIV;
80
 
#else
81
 
      return PERL_constant_NOTDEF;
82
 
#endif
83
 
    }
84
 
    break;
85
 
  case 'U':
86
 
    if (memEQ(name, "Z_UNKNOWN", 9)) {
87
 
    /*                 ^            */
88
 
#ifdef Z_UNKNOWN
89
 
      *iv_return = Z_UNKNOWN;
90
 
      return PERL_constant_ISIV;
91
 
#else
92
 
      return PERL_constant_NOTDEF;
93
 
#endif
94
 
    }
95
 
    break;
96
 
  case 'X':
97
 
    if (memEQ(name, "MAX_WBITS", 9)) {
98
 
    /*                 ^            */
99
 
#ifdef MAX_WBITS
100
 
      *iv_return = MAX_WBITS;
101
 
      return PERL_constant_ISIV;
102
 
#else
103
 
      return PERL_constant_NOTDEF;
104
 
#endif
105
 
    }
106
 
    break;
107
 
  }
108
 
  return PERL_constant_NOTFOUND;
109
 
}
110
 
 
111
 
static int
112
 
constant_10 (pTHX_ const char *name, IV *iv_return) {
113
 
  /* When generated this function returned values for the list of names given
114
 
     here.  However, subsequent manual editing may have added or removed some.
115
 
     Z_DEFLATED Z_FILTERED Z_NO_FLUSH */
116
 
  /* Offset 7 gives the best switch position.  */
117
 
  switch (name[7]) {
118
 
  case 'R':
119
 
    if (memEQ(name, "Z_FILTERED", 10)) {
120
 
    /*                      ^         */
121
 
#ifdef Z_FILTERED
122
 
      *iv_return = Z_FILTERED;
123
 
      return PERL_constant_ISIV;
124
 
#else
125
 
      return PERL_constant_NOTDEF;
126
 
#endif
127
 
    }
128
 
    break;
129
 
  case 'T':
130
 
    if (memEQ(name, "Z_DEFLATED", 10)) {
131
 
    /*                      ^         */
132
 
#ifdef Z_DEFLATED
133
 
      *iv_return = Z_DEFLATED;
134
 
      return PERL_constant_ISIV;
135
 
#else
136
 
      return PERL_constant_NOTDEF;
137
 
#endif
138
 
    }
139
 
    break;
140
 
  case 'U':
141
 
    if (memEQ(name, "Z_NO_FLUSH", 10)) {
142
 
    /*                      ^         */
143
 
#ifdef Z_NO_FLUSH
144
 
      *iv_return = Z_NO_FLUSH;
145
 
      return PERL_constant_ISIV;
146
 
#else
147
 
      return PERL_constant_NOTDEF;
148
 
#endif
149
 
    }
150
 
    break;
151
 
  }
152
 
  return PERL_constant_NOTFOUND;
153
 
}
154
 
 
155
 
static int
156
 
constant_11 (pTHX_ const char *name, IV *iv_return) {
157
 
  /* When generated this function returned values for the list of names given
158
 
     here.  However, subsequent manual editing may have added or removed some.
159
 
     Z_BUF_ERROR Z_MEM_ERROR Z_NEED_DICT */
160
 
  /* Offset 4 gives the best switch position.  */
161
 
  switch (name[4]) {
162
 
  case 'E':
163
 
    if (memEQ(name, "Z_NEED_DICT", 11)) {
164
 
    /*                   ^             */
165
 
#ifdef Z_NEED_DICT
166
 
      *iv_return = Z_NEED_DICT;
167
 
      return PERL_constant_ISIV;
168
 
#else
169
 
      return PERL_constant_NOTDEF;
170
 
#endif
171
 
    }
172
 
    break;
173
 
  case 'F':
174
 
    if (memEQ(name, "Z_BUF_ERROR", 11)) {
175
 
    /*                   ^             */
176
 
#ifdef Z_BUF_ERROR
177
 
      *iv_return = Z_BUF_ERROR;
178
 
      return PERL_constant_ISIV;
179
 
#else
180
 
      return PERL_constant_NOTDEF;
181
 
#endif
182
 
    }
183
 
    break;
184
 
  case 'M':
185
 
    if (memEQ(name, "Z_MEM_ERROR", 11)) {
186
 
    /*                   ^             */
187
 
#ifdef Z_MEM_ERROR
188
 
      *iv_return = Z_MEM_ERROR;
189
 
      return PERL_constant_ISIV;
190
 
#else
191
 
      return PERL_constant_NOTDEF;
192
 
#endif
193
 
    }
194
 
    break;
195
 
  }
196
 
  return PERL_constant_NOTFOUND;
197
 
}
198
 
 
199
 
static int
200
 
constant_12 (pTHX_ const char *name, IV *iv_return, const char **pv_return) {
201
 
  /* When generated this function returned values for the list of names given
202
 
     here.  However, subsequent manual editing may have added or removed some.
203
 
     ZLIB_VERSION Z_BEST_SPEED Z_DATA_ERROR Z_FULL_FLUSH Z_STREAM_END
204
 
     Z_SYNC_FLUSH */
205
 
  /* Offset 4 gives the best switch position.  */
206
 
  switch (name[4]) {
207
 
  case 'L':
208
 
    if (memEQ(name, "Z_FULL_FLUSH", 12)) {
209
 
    /*                   ^              */
210
 
#ifdef Z_FULL_FLUSH
211
 
      *iv_return = Z_FULL_FLUSH;
212
 
      return PERL_constant_ISIV;
213
 
#else
214
 
      return PERL_constant_NOTDEF;
215
 
#endif
216
 
    }
217
 
    break;
218
 
  case 'N':
219
 
    if (memEQ(name, "Z_SYNC_FLUSH", 12)) {
220
 
    /*                   ^              */
221
 
#ifdef Z_SYNC_FLUSH
222
 
      *iv_return = Z_SYNC_FLUSH;
223
 
      return PERL_constant_ISIV;
224
 
#else
225
 
      return PERL_constant_NOTDEF;
226
 
#endif
227
 
    }
228
 
    break;
229
 
  case 'R':
230
 
    if (memEQ(name, "Z_STREAM_END", 12)) {
231
 
    /*                   ^              */
232
 
#ifdef Z_STREAM_END
233
 
      *iv_return = Z_STREAM_END;
234
 
      return PERL_constant_ISIV;
235
 
#else
236
 
      return PERL_constant_NOTDEF;
237
 
#endif
238
 
    }
239
 
    break;
240
 
  case 'S':
241
 
    if (memEQ(name, "Z_BEST_SPEED", 12)) {
242
 
    /*                   ^              */
243
 
#ifdef Z_BEST_SPEED
244
 
      *iv_return = Z_BEST_SPEED;
245
 
      return PERL_constant_ISIV;
246
 
#else
247
 
      return PERL_constant_NOTDEF;
248
 
#endif
249
 
    }
250
 
    break;
251
 
  case 'T':
252
 
    if (memEQ(name, "Z_DATA_ERROR", 12)) {
253
 
    /*                   ^              */
254
 
#ifdef Z_DATA_ERROR
255
 
      *iv_return = Z_DATA_ERROR;
256
 
      return PERL_constant_ISIV;
257
 
#else
258
 
      return PERL_constant_NOTDEF;
259
 
#endif
260
 
    }
261
 
    break;
262
 
  case '_':
263
 
    if (memEQ(name, "ZLIB_VERSION", 12)) {
264
 
    /*                   ^              */
265
 
#ifdef ZLIB_VERSION
266
 
      *pv_return = ZLIB_VERSION;
267
 
      return PERL_constant_ISPV;
268
 
#else
269
 
      return PERL_constant_NOTDEF;
270
 
#endif
271
 
    }
272
 
    break;
273
 
  }
274
 
  return PERL_constant_NOTFOUND;
275
 
}
276
 
 
277
 
static int
278
 
constant (pTHX_ const char *name, STRLEN len, IV *iv_return, const char **pv_return) {
279
 
  /* Initially switch on the length of the name.  */
280
 
  /* When generated this function returned values for the list of names given
281
 
     in this section of perl code.  Rather than manually editing these functions
282
 
     to add or remove constants, which would result in this comment and section
283
 
     of code becoming inaccurate, we recommend that you edit this section of
284
 
     code, and use it to regenerate a new set of constant functions which you
285
 
     then use to replace the originals.
286
 
 
287
 
     Regenerate these constant functions by feeding this entire source file to
288
 
     perl -x
289
 
 
290
 
#!/home/paul/perl/install/redhat6.1/bleed/bin/perl5.7.2 -w
291
 
use ExtUtils::Constant qw (constant_types C_constant XS_constant);
292
 
 
293
 
my $types = {map {($_, 1)} qw(IV PV)};
294
 
my @names = (qw(DEF_WBITS MAX_MEM_LEVEL MAX_WBITS OS_CODE Z_ASCII
295
 
               Z_BEST_COMPRESSION Z_BEST_SPEED Z_BINARY Z_BUF_ERROR
296
 
               Z_DATA_ERROR Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY Z_DEFLATED
297
 
               Z_ERRNO Z_FILTERED Z_FINISH Z_FULL_FLUSH Z_HUFFMAN_ONLY
298
 
               Z_MEM_ERROR Z_NEED_DICT Z_NO_COMPRESSION Z_NO_FLUSH Z_NULL Z_OK
299
 
               Z_PARTIAL_FLUSH Z_STREAM_END Z_STREAM_ERROR Z_SYNC_FLUSH
300
 
               Z_UNKNOWN Z_VERSION_ERROR),
301
 
            {name=>"ZLIB_VERSION", type=>"PV"});
302
 
 
303
 
print constant_types(); # macro defs
304
 
foreach (C_constant ("Zlib", 'constant', 'IV', $types, undef, 3, @names) ) {
305
 
    print $_, "\n"; # C constant subs
306
 
}
307
 
print "#### XS Section:\n";
308
 
print XS_constant ("Zlib", $types);
309
 
__END__
310
 
   */
311
 
 
312
 
  switch (len) {
313
 
  case 4:
314
 
    if (memEQ(name, "Z_OK", 4)) {
315
 
#ifdef Z_OK
316
 
      *iv_return = Z_OK;
317
 
      return PERL_constant_ISIV;
318
 
#else
319
 
      return PERL_constant_NOTDEF;
320
 
#endif
321
 
    }
322
 
    break;
323
 
  case 6:
324
 
    if (memEQ(name, "Z_NULL", 6)) {
325
 
#ifdef Z_NULL
326
 
      *iv_return = Z_NULL;
327
 
      return PERL_constant_ISIV;
328
 
#else
329
 
      return PERL_constant_NOTDEF;
330
 
#endif
331
 
    }
332
 
    break;
333
 
  case 7:
334
 
    return constant_7 (aTHX_ name, iv_return);
335
 
    break;
336
 
  case 8:
337
 
    /* Names all of length 8.  */
338
 
    /* Z_BINARY Z_FINISH */
339
 
    /* Offset 6 gives the best switch position.  */
340
 
    switch (name[6]) {
341
 
    case 'R':
342
 
      if (memEQ(name, "Z_BINARY", 8)) {
343
 
      /*                     ^       */
344
 
#ifdef Z_BINARY
345
 
        *iv_return = Z_BINARY;
346
 
        return PERL_constant_ISIV;
347
 
#else
348
 
        return PERL_constant_NOTDEF;
349
 
#endif
350
 
      }
351
 
      break;
352
 
    case 'S':
353
 
      if (memEQ(name, "Z_FINISH", 8)) {
354
 
      /*                     ^       */
355
 
#ifdef Z_FINISH
356
 
        *iv_return = Z_FINISH;
357
 
        return PERL_constant_ISIV;
358
 
#else
359
 
        return PERL_constant_NOTDEF;
360
 
#endif
361
 
      }
362
 
      break;
363
 
    }
364
 
    break;
365
 
  case 9:
366
 
    return constant_9 (aTHX_ name, iv_return);
367
 
    break;
368
 
  case 10:
369
 
    return constant_10 (aTHX_ name, iv_return);
370
 
    break;
371
 
  case 11:
372
 
    return constant_11 (aTHX_ name, iv_return);
373
 
    break;
374
 
  case 12:
375
 
    return constant_12 (aTHX_ name, iv_return, pv_return);
376
 
    break;
377
 
  case 13:
378
 
    if (memEQ(name, "MAX_MEM_LEVEL", 13)) {
379
 
#ifdef MAX_MEM_LEVEL
380
 
      *iv_return = MAX_MEM_LEVEL;
381
 
      return PERL_constant_ISIV;
382
 
#else
383
 
      return PERL_constant_NOTDEF;
384
 
#endif
385
 
    }
386
 
    break;
387
 
  case 14:
388
 
    /* Names all of length 14.  */
389
 
    /* Z_HUFFMAN_ONLY Z_STREAM_ERROR */
390
 
    /* Offset 3 gives the best switch position.  */
391
 
    switch (name[3]) {
392
 
    case 'T':
393
 
      if (memEQ(name, "Z_STREAM_ERROR", 14)) {
394
 
      /*                  ^                 */
395
 
#ifdef Z_STREAM_ERROR
396
 
        *iv_return = Z_STREAM_ERROR;
397
 
        return PERL_constant_ISIV;
398
 
#else
399
 
        return PERL_constant_NOTDEF;
400
 
#endif
401
 
      }
402
 
      break;
403
 
    case 'U':
404
 
      if (memEQ(name, "Z_HUFFMAN_ONLY", 14)) {
405
 
      /*                  ^                 */
406
 
#ifdef Z_HUFFMAN_ONLY
407
 
        *iv_return = Z_HUFFMAN_ONLY;
408
 
        return PERL_constant_ISIV;
409
 
#else
410
 
        return PERL_constant_NOTDEF;
411
 
#endif
412
 
      }
413
 
      break;
414
 
    }
415
 
    break;
416
 
  case 15:
417
 
    /* Names all of length 15.  */
418
 
    /* Z_PARTIAL_FLUSH Z_VERSION_ERROR */
419
 
    /* Offset 5 gives the best switch position.  */
420
 
    switch (name[5]) {
421
 
    case 'S':
422
 
      if (memEQ(name, "Z_VERSION_ERROR", 15)) {
423
 
      /*                    ^                */
424
 
#ifdef Z_VERSION_ERROR
425
 
        *iv_return = Z_VERSION_ERROR;
426
 
        return PERL_constant_ISIV;
427
 
#else
428
 
        return PERL_constant_NOTDEF;
429
 
#endif
430
 
      }
431
 
      break;
432
 
    case 'T':
433
 
      if (memEQ(name, "Z_PARTIAL_FLUSH", 15)) {
434
 
      /*                    ^                */
435
 
#ifdef Z_PARTIAL_FLUSH
436
 
        *iv_return = Z_PARTIAL_FLUSH;
437
 
        return PERL_constant_ISIV;
438
 
#else
439
 
        return PERL_constant_NOTDEF;
440
 
#endif
441
 
      }
442
 
      break;
443
 
    }
444
 
    break;
445
 
  case 16:
446
 
    if (memEQ(name, "Z_NO_COMPRESSION", 16)) {
447
 
#ifdef Z_NO_COMPRESSION
448
 
      *iv_return = Z_NO_COMPRESSION;
449
 
      return PERL_constant_ISIV;
450
 
#else
451
 
      return PERL_constant_NOTDEF;
452
 
#endif
453
 
    }
454
 
    break;
455
 
  case 18:
456
 
    /* Names all of length 18.  */
457
 
    /* Z_BEST_COMPRESSION Z_DEFAULT_STRATEGY */
458
 
    /* Offset 14 gives the best switch position.  */
459
 
    switch (name[14]) {
460
 
    case 'S':
461
 
      if (memEQ(name, "Z_BEST_COMPRESSION", 18)) {
462
 
      /*                             ^          */
463
 
#ifdef Z_BEST_COMPRESSION
464
 
        *iv_return = Z_BEST_COMPRESSION;
465
 
        return PERL_constant_ISIV;
466
 
#else
467
 
        return PERL_constant_NOTDEF;
468
 
#endif
469
 
      }
470
 
      break;
471
 
    case 'T':
472
 
      if (memEQ(name, "Z_DEFAULT_STRATEGY", 18)) {
473
 
      /*                             ^          */
474
 
#ifdef Z_DEFAULT_STRATEGY
475
 
        *iv_return = Z_DEFAULT_STRATEGY;
476
 
        return PERL_constant_ISIV;
477
 
#else
478
 
        return PERL_constant_NOTDEF;
479
 
#endif
480
 
      }
481
 
      break;
482
 
    }
483
 
    break;
484
 
  case 21:
485
 
    if (memEQ(name, "Z_DEFAULT_COMPRESSION", 21)) {
486
 
#ifdef Z_DEFAULT_COMPRESSION
487
 
      *iv_return = Z_DEFAULT_COMPRESSION;
488
 
      return PERL_constant_ISIV;
489
 
#else
490
 
      return PERL_constant_NOTDEF;
491
 
#endif
492
 
    }
493
 
    break;
494
 
  }
495
 
  return PERL_constant_NOTFOUND;
496
 
}
497