« back to all changes in this revision
Viewing changes to const-c.inc
- browse files at revision 21
- compare with another revision
- download diff
- download tarball
- view history from revision 21
- Committer: Package Import Robot
- Author(s): Alexandre Mestiashvili, Alexandre Mestiashvili, gregor herrmann
- Date: 2015-04-29 11:12:18 UTC
- mfrom: (17.1.6 sid)
- Revision ID: package-import@ubuntu.com-20150429111218-v3ghc7ck5gcr38fu
Tags: 3.005.001-1
[ Alexandre Mestiashvili ]
* Imported Upstream version 3.005.001
* d/control: cme fix dpkg
* d/copyright: updated debian/* copyright year
[ gregor herrmann ]
* Mark package as autopkgtest-able.
* Imported Upstream version 3.005.001
* d/control: cme fix dpkg
* d/copyright: updated debian/* copyright year
[ gregor herrmann ]
* Mark package as autopkgtest-able.
- files added:
- author_tools/decode.pl
- debian/tests
- debian/tests/pkg-perl
- files removed:
- const-c.inc
- files modified:
- Changes
added
removed
const-c.inc
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_11 (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
SRL_HDR_NEG SRL_HDR_PAD SRL_HDR_POS */
28
/* Offset 9 gives the best switch position. */
29
switch (name[9]) {
30
case 'A':
31
if (memEQ(name, "SRL_HDR_PAD", 11)) {
32
/* ^ */
33
#ifdef SRL_HDR_PAD
34
*iv_return = SRL_HDR_PAD;
35
return PERL_constant_ISIV;
36
#else
37
return PERL_constant_NOTDEF;
38
#endif
39
}
40
break;
41
case 'E':
42
if (memEQ(name, "SRL_HDR_NEG", 11)) {
43
/* ^ */
44
#ifdef SRL_HDR_NEG
45
*iv_return = SRL_HDR_NEG;
46
return PERL_constant_ISIV;
47
#else
48
return PERL_constant_NOTDEF;
49
#endif
50
}
51
break;
52
case 'O':
53
if (memEQ(name, "SRL_HDR_POS", 11)) {
54
/* ^ */
55
#ifdef SRL_HDR_POS
56
*iv_return = SRL_HDR_POS;
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_12 (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
SRL_HDR_COPY SRL_HDR_HASH SRL_HDR_MANY SRL_HDR_REFN SRL_HDR_REFP
72
SRL_HDR_TRUE */
73
/* Offset 10 gives the best switch position. */
74
switch (name[10]) {
75
case 'F':
76
if (memEQ(name, "SRL_HDR_REFN", 12)) {
77
/* ^ */
78
#ifdef SRL_HDR_REFN
79
*iv_return = SRL_HDR_REFN;
80
return PERL_constant_ISIV;
81
#else
82
return PERL_constant_NOTDEF;
83
#endif
84
}
85
if (memEQ(name, "SRL_HDR_REFP", 12)) {
86
/* ^ */
87
#ifdef SRL_HDR_REFP
88
*iv_return = SRL_HDR_REFP;
89
return PERL_constant_ISIV;
90
#else
91
return PERL_constant_NOTDEF;
92
#endif
93
}
94
break;
95
case 'N':
96
if (memEQ(name, "SRL_HDR_MANY", 12)) {
97
/* ^ */
98
#ifdef SRL_HDR_MANY
99
*iv_return = SRL_HDR_MANY;
100
return PERL_constant_ISIV;
101
#else
102
return PERL_constant_NOTDEF;
103
#endif
104
}
105
break;
106
case 'P':
107
if (memEQ(name, "SRL_HDR_COPY", 12)) {
108
/* ^ */
109
#ifdef SRL_HDR_COPY
110
*iv_return = SRL_HDR_COPY;
111
return PERL_constant_ISIV;
112
#else
113
return PERL_constant_NOTDEF;
114
#endif
115
}
116
break;
117
case 'S':
118
if (memEQ(name, "SRL_HDR_HASH", 12)) {
119
/* ^ */
120
#ifdef SRL_HDR_HASH
121
*iv_return = SRL_HDR_HASH;
122
return PERL_constant_ISIV;
123
#else
124
return PERL_constant_NOTDEF;
125
#endif
126
}
127
break;
128
case 'U':
129
if (memEQ(name, "SRL_HDR_TRUE", 12)) {
130
/* ^ */
131
#ifdef SRL_HDR_TRUE
132
*iv_return = SRL_HDR_TRUE;
133
return PERL_constant_ISIV;
134
#else
135
return PERL_constant_NOTDEF;
136
#endif
137
}
138
break;
139
}
140
return PERL_constant_NOTFOUND;
141
}
142
143
static int
144
constant_13 (pTHX_ const char *name, IV *iv_return) {
145
/* When generated this function returned values for the list of names given
146
here. However, subsequent manual editing may have added or removed some.
147
SRL_HDR_ALIAS SRL_HDR_ARRAY SRL_HDR_FALSE SRL_HDR_FLOAT SRL_HDR_UNDEF */
148
/* Offset 10 gives the best switch position. */
149
switch (name[10]) {
150
case 'D':
151
if (memEQ(name, "SRL_HDR_UNDEF", 13)) {
152
/* ^ */
153
#ifdef SRL_HDR_UNDEF
154
*iv_return = SRL_HDR_UNDEF;
155
return PERL_constant_ISIV;
156
#else
157
return PERL_constant_NOTDEF;
158
#endif
159
}
160
break;
161
case 'I':
162
if (memEQ(name, "SRL_HDR_ALIAS", 13)) {
163
/* ^ */
164
#ifdef SRL_HDR_ALIAS
165
*iv_return = SRL_HDR_ALIAS;
166
return PERL_constant_ISIV;
167
#else
168
return PERL_constant_NOTDEF;
169
#endif
170
}
171
break;
172
case 'L':
173
if (memEQ(name, "SRL_HDR_FALSE", 13)) {
174
/* ^ */
175
#ifdef SRL_HDR_FALSE
176
*iv_return = SRL_HDR_FALSE;
177
return PERL_constant_ISIV;
178
#else
179
return PERL_constant_NOTDEF;
180
#endif
181
}
182
break;
183
case 'O':
184
if (memEQ(name, "SRL_HDR_FLOAT", 13)) {
185
/* ^ */
186
#ifdef SRL_HDR_FLOAT
187
*iv_return = SRL_HDR_FLOAT;
188
return PERL_constant_ISIV;
189
#else
190
return PERL_constant_NOTDEF;
191
#endif
192
}
193
break;
194
case 'R':
195
if (memEQ(name, "SRL_HDR_ARRAY", 13)) {
196
/* ^ */
197
#ifdef SRL_HDR_ARRAY
198
*iv_return = SRL_HDR_ARRAY;
199
return PERL_constant_ISIV;
200
#else
201
return PERL_constant_NOTDEF;
202
#endif
203
}
204
break;
205
}
206
return PERL_constant_NOTFOUND;
207
}
208
209
static int
210
constant_14 (pTHX_ const char *name, IV *iv_return) {
211
/* When generated this function returned values for the list of names given
212
here. However, subsequent manual editing may have added or removed some.
213
SRL_HDR_BINARY SRL_HDR_DOUBLE SRL_HDR_EXTEND SRL_HDR_OBJECT SRL_HDR_REGEXP
214
SRL_HDR_VARINT SRL_HDR_WEAKEN SRL_HDR_ZIGZAG */
215
/* Offset 8 gives the best switch position. */
216
switch (name[8]) {
217
case 'B':
218
if (memEQ(name, "SRL_HDR_BINARY", 14)) {
219
/* ^ */
220
#ifdef SRL_HDR_BINARY
221
*iv_return = SRL_HDR_BINARY;
222
return PERL_constant_ISIV;
223
#else
224
return PERL_constant_NOTDEF;
225
#endif
226
}
227
break;
228
case 'D':
229
if (memEQ(name, "SRL_HDR_DOUBLE", 14)) {
230
/* ^ */
231
#ifdef SRL_HDR_DOUBLE
232
*iv_return = SRL_HDR_DOUBLE;
233
return PERL_constant_ISIV;
234
#else
235
return PERL_constant_NOTDEF;
236
#endif
237
}
238
break;
239
case 'E':
240
if (memEQ(name, "SRL_HDR_EXTEND", 14)) {
241
/* ^ */
242
#ifdef SRL_HDR_EXTEND
243
*iv_return = SRL_HDR_EXTEND;
244
return PERL_constant_ISIV;
245
#else
246
return PERL_constant_NOTDEF;
247
#endif
248
}
249
break;
250
case 'O':
251
if (memEQ(name, "SRL_HDR_OBJECT", 14)) {
252
/* ^ */
253
#ifdef SRL_HDR_OBJECT
254
*iv_return = SRL_HDR_OBJECT;
255
return PERL_constant_ISIV;
256
#else
257
return PERL_constant_NOTDEF;
258
#endif
259
}
260
break;
261
case 'R':
262
if (memEQ(name, "SRL_HDR_REGEXP", 14)) {
263
/* ^ */
264
#ifdef SRL_HDR_REGEXP
265
*iv_return = SRL_HDR_REGEXP;
266
return PERL_constant_ISIV;
267
#else
268
return PERL_constant_NOTDEF;
269
#endif
270
}
271
break;
272
case 'V':
273
if (memEQ(name, "SRL_HDR_VARINT", 14)) {
274
/* ^ */
275
#ifdef SRL_HDR_VARINT
276
*iv_return = SRL_HDR_VARINT;
277
return PERL_constant_ISIV;
278
#else
279
return PERL_constant_NOTDEF;
280
#endif
281
}
282
break;
283
case 'W':
284
if (memEQ(name, "SRL_HDR_WEAKEN", 14)) {
285
/* ^ */
286
#ifdef SRL_HDR_WEAKEN
287
*iv_return = SRL_HDR_WEAKEN;
288
return PERL_constant_ISIV;
289
#else
290
return PERL_constant_NOTDEF;
291
#endif
292
}
293
break;
294
case 'Z':
295
if (memEQ(name, "SRL_HDR_ZIGZAG", 14)) {
296
/* ^ */
297
#ifdef SRL_HDR_ZIGZAG
298
*iv_return = SRL_HDR_ZIGZAG;
299
return PERL_constant_ISIV;
300
#else
301
return PERL_constant_NOTDEF;
302
#endif
303
}
304
break;
305
}
306
return PERL_constant_NOTFOUND;
307
}
308
309
static int
310
constant_15 (pTHX_ const char *name, IV *iv_return) {
311
/* When generated this function returned values for the list of names given
312
here. However, subsequent manual editing may have added or removed some.
313
SRL_HDR_HASHREF SRL_HDR_NEG_LOW SRL_HDR_OBJECTV SRL_HDR_POS_LOW */
314
/* Offset 8 gives the best switch position. */
315
switch (name[8]) {
316
case 'H':
317
if (memEQ(name, "SRL_HDR_HASHREF", 15)) {
318
/* ^ */
319
#ifdef SRL_HDR_HASHREF
320
*iv_return = SRL_HDR_HASHREF;
321
return PERL_constant_ISIV;
322
#else
323
return PERL_constant_NOTDEF;
324
#endif
325
}
326
break;
327
case 'N':
328
if (memEQ(name, "SRL_HDR_NEG_LOW", 15)) {
329
/* ^ */
330
#ifdef SRL_HDR_NEG_LOW
331
*iv_return = SRL_HDR_NEG_LOW;
332
return PERL_constant_ISIV;
333
#else
334
return PERL_constant_NOTDEF;
335
#endif
336
}
337
break;
338
case 'O':
339
if (memEQ(name, "SRL_HDR_OBJECTV", 15)) {
340
/* ^ */
341
#ifdef SRL_HDR_OBJECTV
342
*iv_return = SRL_HDR_OBJECTV;
343
return PERL_constant_ISIV;
344
#else
345
return PERL_constant_NOTDEF;
346
#endif
347
}
348
break;
349
case 'P':
350
if (memEQ(name, "SRL_HDR_POS_LOW", 15)) {
351
/* ^ */
352
#ifdef SRL_HDR_POS_LOW
353
*iv_return = SRL_HDR_POS_LOW;
354
return PERL_constant_ISIV;
355
#else
356
return PERL_constant_NOTDEF;
357
#endif
358
}
359
break;
360
}
361
return PERL_constant_NOTFOUND;
362
}
363
364
static int
365
constant_16 (pTHX_ const char *name, IV *iv_return) {
366
/* When generated this function returned values for the list of names given
367
here. However, subsequent manual editing may have added or removed some.
368
SRL_HDR_ARRAYREF SRL_HDR_NEG_HIGH SRL_HDR_POS_HIGH SRL_HDR_RESERVED
369
SRL_HDR_STR_UTF8 SRL_MAGIC_STRLEN SRL_NEG_MIN_SIZE SRL_POS_MAX_SIZE */
370
/* Offset 8 gives the best switch position. */
371
switch (name[8]) {
372
case 'A':
373
if (memEQ(name, "SRL_HDR_ARRAYREF", 16)) {
374
/* ^ */
375
#ifdef SRL_HDR_ARRAYREF
376
*iv_return = SRL_HDR_ARRAYREF;
377
return PERL_constant_ISIV;
378
#else
379
return PERL_constant_NOTDEF;
380
#endif
381
}
382
break;
383
case 'C':
384
if (memEQ(name, "SRL_MAGIC_STRLEN", 16)) {
385
/* ^ */
386
#ifdef SRL_MAGIC_STRLEN
387
*iv_return = SRL_MAGIC_STRLEN;
388
return PERL_constant_ISIV;
389
#else
390
return PERL_constant_NOTDEF;
391
#endif
392
}
393
break;
394
case 'M':
395
if (memEQ(name, "SRL_NEG_MIN_SIZE", 16)) {
396
/* ^ */
397
#ifdef SRL_NEG_MIN_SIZE
398
*iv_return = SRL_NEG_MIN_SIZE;
399
return PERL_constant_ISIV;
400
#else
401
return PERL_constant_NOTDEF;
402
#endif
403
}
404
if (memEQ(name, "SRL_POS_MAX_SIZE", 16)) {
405
/* ^ */
406
#ifdef SRL_POS_MAX_SIZE
407
*iv_return = SRL_POS_MAX_SIZE;
408
return PERL_constant_ISIV;
409
#else
410
return PERL_constant_NOTDEF;
411
#endif
412
}
413
break;
414
case 'N':
415
if (memEQ(name, "SRL_HDR_NEG_HIGH", 16)) {
416
/* ^ */
417
#ifdef SRL_HDR_NEG_HIGH
418
*iv_return = SRL_HDR_NEG_HIGH;
419
return PERL_constant_ISIV;
420
#else
421
return PERL_constant_NOTDEF;
422
#endif
423
}
424
break;
425
case 'P':
426
if (memEQ(name, "SRL_HDR_POS_HIGH", 16)) {
427
/* ^ */
428
#ifdef SRL_HDR_POS_HIGH
429
*iv_return = SRL_HDR_POS_HIGH;
430
return PERL_constant_ISIV;
431
#else
432
return PERL_constant_NOTDEF;
433
#endif
434
}
435
break;
436
case 'R':
437
if (memEQ(name, "SRL_HDR_RESERVED", 16)) {
438
/* ^ */
439
#ifdef SRL_HDR_RESERVED
440
*iv_return = SRL_HDR_RESERVED;
441
return PERL_constant_ISIV;
442
#else
443
return PERL_constant_NOTDEF;
444
#endif
445
}
446
break;
447
case 'S':
448
if (memEQ(name, "SRL_HDR_STR_UTF8", 16)) {
449
/* ^ */
450
#ifdef SRL_HDR_STR_UTF8
451
*iv_return = SRL_HDR_STR_UTF8;
452
return PERL_constant_ISIV;
453
#else
454
return PERL_constant_NOTDEF;
455
#endif
456
}
457
break;
458
}
459
return PERL_constant_NOTFOUND;
460
}
461
462
static int
463
constant_20 (pTHX_ const char *name, IV *iv_return) {
464
/* When generated this function returned values for the list of names given
465
here. However, subsequent manual editing may have added or removed some.
466
SRL_HDR_ARRAYREF_LOW SRL_HDR_HASHREF_HIGH SRL_HDR_PACKET_START
467
SRL_HDR_RESERVED_LOW SRL_HDR_SHORT_BINARY SRL_PROTOCOL_VERSION */
468
/* Offset 11 gives the best switch position. */
469
switch (name[11]) {
470
case 'A':
471
if (memEQ(name, "SRL_HDR_ARRAYREF_LOW", 20)) {
472
/* ^ */
473
#ifdef SRL_HDR_ARRAYREF_LOW
474
*iv_return = SRL_HDR_ARRAYREF_LOW;
475
return PERL_constant_ISIV;
476
#else
477
return PERL_constant_NOTDEF;
478
#endif
479
}
480
break;
481
case 'E':
482
if (memEQ(name, "SRL_HDR_RESERVED_LOW", 20)) {
483
/* ^ */
484
#ifdef SRL_HDR_RESERVED_LOW
485
*iv_return = SRL_HDR_RESERVED_LOW;
486
return PERL_constant_ISIV;
487
#else
488
return PERL_constant_NOTDEF;
489
#endif
490
}
491
break;
492
case 'H':
493
if (memEQ(name, "SRL_HDR_HASHREF_HIGH", 20)) {
494
/* ^ */
495
#ifdef SRL_HDR_HASHREF_HIGH
496
*iv_return = SRL_HDR_HASHREF_HIGH;
497
return PERL_constant_ISIV;
498
#else
499
return PERL_constant_NOTDEF;
500
#endif
501
}
502
break;
503
case 'K':
504
if (memEQ(name, "SRL_HDR_PACKET_START", 20)) {
505
/* ^ */
506
#ifdef SRL_HDR_PACKET_START
507
*iv_return = SRL_HDR_PACKET_START;
508
return PERL_constant_ISIV;
509
#else
510
return PERL_constant_NOTDEF;
511
#endif
512
}
513
break;
514
case 'L':
515
if (memEQ(name, "SRL_PROTOCOL_VERSION", 20)) {
516
/* ^ */
517
#ifdef SRL_PROTOCOL_VERSION
518
*iv_return = SRL_PROTOCOL_VERSION;
519
return PERL_constant_ISIV;
520
#else
521
return PERL_constant_NOTDEF;
522
#endif
523
}
524
break;
525
case 'R':
526
if (memEQ(name, "SRL_HDR_SHORT_BINARY", 20)) {
527
/* ^ */
528
#ifdef SRL_HDR_SHORT_BINARY
529
*iv_return = SRL_HDR_SHORT_BINARY;
530
return PERL_constant_ISIV;
531
#else
532
return PERL_constant_NOTDEF;
533
#endif
534
}
535
break;
536
}
537
return PERL_constant_NOTFOUND;
538
}
539
540
static int
541
constant_21 (pTHX_ const char *name, IV *iv_return) {
542
/* When generated this function returned values for the list of names given
543
here. However, subsequent manual editing may have added or removed some.
544
SRL_HDR_ARRAYREF_HIGH SRL_HDR_OBJECT_FREEZE SRL_HDR_RESERVED_HIGH */
545
/* Offset 13 gives the best switch position. */
546
switch (name[13]) {
547
case 'R':
548
if (memEQ(name, "SRL_HDR_ARRAYREF_HIGH", 21)) {
549
/* ^ */
550
#ifdef SRL_HDR_ARRAYREF_HIGH
551
*iv_return = SRL_HDR_ARRAYREF_HIGH;
552
return PERL_constant_ISIV;
553
#else
554
return PERL_constant_NOTDEF;
555
#endif
556
}
557
break;
558
case 'T':
559
if (memEQ(name, "SRL_HDR_OBJECT_FREEZE", 21)) {
560
/* ^ */
561
#ifdef SRL_HDR_OBJECT_FREEZE
562
*iv_return = SRL_HDR_OBJECT_FREEZE;
563
return PERL_constant_ISIV;
564
#else
565
return PERL_constant_NOTDEF;
566
#endif
567
}
568
break;
569
case 'V':
570
if (memEQ(name, "SRL_HDR_RESERVED_HIGH", 21)) {
571
/* ^ */
572
#ifdef SRL_HDR_RESERVED_HIGH
573
*iv_return = SRL_HDR_RESERVED_HIGH;
574
return PERL_constant_ISIV;
575
#else
576
return PERL_constant_NOTDEF;
577
#endif
578
}
579
break;
580
}
581
return PERL_constant_NOTFOUND;
582
}
583
584
static int
585
constant_24 (pTHX_ const char *name, IV *iv_return) {
586
/* When generated this function returned values for the list of names given
587
here. However, subsequent manual editing may have added or removed some.
588
SRL_HDR_SHORT_BINARY_LOW SRL_MAGIC_STRING_UINT_BE SRL_MAGIC_STRING_UINT_LE
589
*/
590
/* Offset 22 gives the best switch position. */
591
switch (name[22]) {
592
case 'B':
593
if (memEQ(name, "SRL_MAGIC_STRING_UINT_BE", 24)) {
594
/* ^ */
595
#ifdef SRL_MAGIC_STRING_UINT_BE
596
*iv_return = SRL_MAGIC_STRING_UINT_BE;
597
return PERL_constant_ISIV;
598
#else
599
return PERL_constant_NOTDEF;
600
#endif
601
}
602
break;
603
case 'L':
604
if (memEQ(name, "SRL_MAGIC_STRING_UINT_LE", 24)) {
605
/* ^ */
606
#ifdef SRL_MAGIC_STRING_UINT_LE
607
*iv_return = SRL_MAGIC_STRING_UINT_LE;
608
return PERL_constant_ISIV;
609
#else
610
return PERL_constant_NOTDEF;
611
#endif
612
}
613
break;
614
case 'O':
615
if (memEQ(name, "SRL_HDR_SHORT_BINARY_LOW", 24)) {
616
/* ^ */
617
#ifdef SRL_HDR_SHORT_BINARY_LOW
618
*iv_return = SRL_HDR_SHORT_BINARY_LOW;
619
return PERL_constant_ISIV;
620
#else
621
return PERL_constant_NOTDEF;
622
#endif
623
}
624
break;
625
}
626
return PERL_constant_NOTFOUND;
627
}
628
629
static int
630
constant_25 (pTHX_ const char *name, IV *iv_return) {
631
/* When generated this function returned values for the list of names given
632
here. However, subsequent manual editing may have added or removed some.
633
SRL_HDR_SHORT_BINARY_HIGH SRL_MASK_SHORT_BINARY_LEN
634
SRL_PROTOCOL_ENCODING_RAW SRL_PROTOCOL_HDR_CONTINUE
635
SRL_PROTOCOL_VERSION_BITS SRL_PROTOCOL_VERSION_MASK */
636
/* Offset 24 gives the best switch position. */
637
switch (name[24]) {
638
case 'E':
639
if (memEQ(name, "SRL_PROTOCOL_HDR_CONTINU", 24)) {
640
/* E */
641
#ifdef SRL_PROTOCOL_HDR_CONTINUE
642
*iv_return = SRL_PROTOCOL_HDR_CONTINUE;
643
return PERL_constant_ISIV;
644
#else
645
return PERL_constant_NOTDEF;
646
#endif
647
}
648
break;
649
case 'H':
650
if (memEQ(name, "SRL_HDR_SHORT_BINARY_HIG", 24)) {
651
/* H */
652
#ifdef SRL_HDR_SHORT_BINARY_HIGH
653
*iv_return = SRL_HDR_SHORT_BINARY_HIGH;
654
return PERL_constant_ISIV;
655
#else
656
return PERL_constant_NOTDEF;
657
#endif
658
}
659
break;
660
case 'K':
661
if (memEQ(name, "SRL_PROTOCOL_VERSION_MAS", 24)) {
662
/* K */
663
#ifdef SRL_PROTOCOL_VERSION_MASK
664
*iv_return = SRL_PROTOCOL_VERSION_MASK;
665
return PERL_constant_ISIV;
666
#else
667
return PERL_constant_NOTDEF;
668
#endif
669
}
670
break;
671
case 'N':
672
if (memEQ(name, "SRL_MASK_SHORT_BINARY_LE", 24)) {
673
/* N */
674
#ifdef SRL_MASK_SHORT_BINARY_LEN
675
*iv_return = SRL_MASK_SHORT_BINARY_LEN;
676
return PERL_constant_ISIV;
677
#else
678
return PERL_constant_NOTDEF;
679
#endif
680
}
681
break;
682
case 'S':
683
if (memEQ(name, "SRL_PROTOCOL_VERSION_BIT", 24)) {
684
/* S */
685
#ifdef SRL_PROTOCOL_VERSION_BITS
686
*iv_return = SRL_PROTOCOL_VERSION_BITS;
687
return PERL_constant_ISIV;
688
#else
689
return PERL_constant_NOTDEF;
690
#endif
691
}
692
break;
693
case 'W':
694
if (memEQ(name, "SRL_PROTOCOL_ENCODING_RA", 24)) {
695
/* W */
696
#ifdef SRL_PROTOCOL_ENCODING_RAW
697
*iv_return = SRL_PROTOCOL_ENCODING_RAW;
698
return PERL_constant_ISIV;
699
#else
700
return PERL_constant_NOTDEF;
701
#endif
702
}
703
break;
704
}
705
return PERL_constant_NOTFOUND;
706
}
707
708
static int
709
constant_26 (pTHX_ const char *name, IV *iv_return) {
710
/* When generated this function returned values for the list of names given
711
here. However, subsequent manual editing may have added or removed some.
712
SRL_PROTOCOL_ENCODING_MASK SRL_PROTOCOL_ENCODING_ZLIB
713
SRL_PROTOCOL_HDR_USER_DATA */
714
/* Offset 25 gives the best switch position. */
715
switch (name[25]) {
716
case 'A':
717
if (memEQ(name, "SRL_PROTOCOL_HDR_USER_DAT", 25)) {
718
/* A */
719
#ifdef SRL_PROTOCOL_HDR_USER_DATA
720
*iv_return = SRL_PROTOCOL_HDR_USER_DATA;
721
return PERL_constant_ISIV;
722
#else
723
return PERL_constant_NOTDEF;
724
#endif
725
}
726
break;
727
case 'B':
728
if (memEQ(name, "SRL_PROTOCOL_ENCODING_ZLI", 25)) {
729
/* B */
730
#ifdef SRL_PROTOCOL_ENCODING_ZLIB
731
*iv_return = SRL_PROTOCOL_ENCODING_ZLIB;
732
return PERL_constant_ISIV;
733
#else
734
return PERL_constant_NOTDEF;
735
#endif
736
}
737
break;
738
case 'K':
739
if (memEQ(name, "SRL_PROTOCOL_ENCODING_MAS", 25)) {
740
/* K */
741
#ifdef SRL_PROTOCOL_ENCODING_MASK
742
*iv_return = SRL_PROTOCOL_ENCODING_MASK;
743
return PERL_constant_ISIV;
744
#else
745
return PERL_constant_NOTDEF;
746
#endif
747
}
748
break;
749
}
750
return PERL_constant_NOTFOUND;
751
}
752
753
static int
754
constant (pTHX_ const char *name, STRLEN len, IV *iv_return) {
755
/* Initially switch on the length of the name. */
756
/* When generated this function returned values for the list of names given
757
in this section of perl code. Rather than manually editing these functions
758
to add or remove constants, which would result in this comment and section
759
of code becoming inaccurate, we recommend that you edit this section of
760
code, and use it to regenerate a new set of constant functions which you
761
then use to replace the originals.
762
763
Regenerate these constant functions by feeding this entire source file to
764
perl -x
765
766
#!/usr/bin/perl -w
767
use ExtUtils::Constant qw (constant_types C_constant XS_constant);
768
769
my $types = {map {($_, 1)} qw(IV)};
770
my @names = (qw(SRL_HDR_ALIAS SRL_HDR_ARRAY SRL_HDR_ARRAYREF
771
SRL_HDR_ARRAYREF_HIGH SRL_HDR_ARRAYREF_LOW SRL_HDR_BINARY
772
SRL_HDR_CANONICAL_UNDEF SRL_HDR_COPY SRL_HDR_DOUBLE
773
SRL_HDR_EXTEND SRL_HDR_FALSE SRL_HDR_FLOAT SRL_HDR_HASH
774
SRL_HDR_HASHREF SRL_HDR_HASHREF_HIGH SRL_HDR_HASHREF_LOW
775
SRL_HDR_LONG_DOUBLE SRL_HDR_MANY SRL_HDR_NEG SRL_HDR_NEG_HIGH
776
SRL_HDR_NEG_LOW SRL_HDR_OBJECT SRL_HDR_OBJECTV
777
SRL_HDR_OBJECTV_FREEZE SRL_HDR_OBJECT_FREEZE
778
SRL_HDR_PACKET_START SRL_HDR_PAD SRL_HDR_POS SRL_HDR_POS_HIGH
779
SRL_HDR_POS_LOW SRL_HDR_REFN SRL_HDR_REFP SRL_HDR_REGEXP
780
SRL_HDR_RESERVED SRL_HDR_RESERVED_HIGH SRL_HDR_RESERVED_LOW
781
SRL_HDR_SHORT_BINARY SRL_HDR_SHORT_BINARY_HIGH
782
SRL_HDR_SHORT_BINARY_LOW SRL_HDR_STR_UTF8 SRL_HDR_TRACK_FLAG
783
SRL_HDR_TRUE SRL_HDR_UNDEF SRL_HDR_VARINT SRL_HDR_WEAKEN
784
SRL_HDR_ZIGZAG SRL_MAGIC_STRING_HIGHBIT_UINT_BE
785
SRL_MAGIC_STRING_HIGHBIT_UINT_LE
786
SRL_MAGIC_STRING_HIGHBIT_UTF8_UINT_BE
787
SRL_MAGIC_STRING_HIGHBIT_UTF8_UINT_LE SRL_MAGIC_STRING_UINT_BE
788
SRL_MAGIC_STRING_UINT_LE SRL_MAGIC_STRLEN
789
SRL_MASK_ARRAYREF_COUNT SRL_MASK_HASHREF_COUNT
790
SRL_MASK_SHORT_BINARY_LEN SRL_NEG_MIN_SIZE SRL_POS_MAX_SIZE
791
SRL_PROTOCOL_ENCODING_MASK SRL_PROTOCOL_ENCODING_RAW
792
SRL_PROTOCOL_ENCODING_SNAPPY
793
SRL_PROTOCOL_ENCODING_SNAPPY_INCREMENTAL
794
SRL_PROTOCOL_ENCODING_ZLIB SRL_PROTOCOL_HDR_CONTINUE
795
SRL_PROTOCOL_HDR_USER_DATA SRL_PROTOCOL_VERSION
796
SRL_PROTOCOL_VERSION_BITS SRL_PROTOCOL_VERSION_MASK));
797
798
print constant_types(), "\n"; # macro defs
799
foreach (C_constant ("Sereal::Encoder::Constants", 'constant', 'IV', $types, undef, 3, @names) ) {
800
print $_, "\n"; # C constant subs
801
}
802
print "\n#### XS Section:\n";
803
print XS_constant ("Sereal::Encoder::Constants", $types);
804
__END__
805
*/
806
807
switch (len) {
808
case 11:
809
return constant_11 (aTHX_ name, iv_return);
810
break;
811
case 12:
812
return constant_12 (aTHX_ name, iv_return);
813
break;
814
case 13:
815
return constant_13 (aTHX_ name, iv_return);
816
break;
817
case 14:
818
return constant_14 (aTHX_ name, iv_return);
819
break;
820
case 15:
821
return constant_15 (aTHX_ name, iv_return);
822
break;
823
case 16:
824
return constant_16 (aTHX_ name, iv_return);
825
break;
826
case 18:
827
if (memEQ(name, "SRL_HDR_TRACK_FLAG", 18)) {
828
#ifdef SRL_HDR_TRACK_FLAG
829
*iv_return = SRL_HDR_TRACK_FLAG;
830
return PERL_constant_ISIV;
831
#else
832
return PERL_constant_NOTDEF;
833
#endif
834
}
835
break;
836
case 19:
837
/* Names all of length 19. */
838
/* SRL_HDR_HASHREF_LOW SRL_HDR_LONG_DOUBLE */
839
/* Offset 11 gives the best switch position. */
840
switch (name[11]) {
841
case 'G':
842
if (memEQ(name, "SRL_HDR_LONG_DOUBLE", 19)) {
843
/* ^ */
844
#ifdef SRL_HDR_LONG_DOUBLE
845
*iv_return = SRL_HDR_LONG_DOUBLE;
846
return PERL_constant_ISIV;
847
#else
848
return PERL_constant_NOTDEF;
849
#endif
850
}
851
break;
852
case 'H':
853
if (memEQ(name, "SRL_HDR_HASHREF_LOW", 19)) {
854
/* ^ */
855
#ifdef SRL_HDR_HASHREF_LOW
856
*iv_return = SRL_HDR_HASHREF_LOW;
857
return PERL_constant_ISIV;
858
#else
859
return PERL_constant_NOTDEF;
860
#endif
861
}
862
break;
863
}
864
break;
865
case 20:
866
return constant_20 (aTHX_ name, iv_return);
867
break;
868
case 21:
869
return constant_21 (aTHX_ name, iv_return);
870
break;
871
case 22:
872
/* Names all of length 22. */
873
/* SRL_HDR_OBJECTV_FREEZE SRL_MASK_HASHREF_COUNT */
874
/* Offset 6 gives the best switch position. */
875
switch (name[6]) {
876
case 'R':
877
if (memEQ(name, "SRL_HDR_OBJECTV_FREEZE", 22)) {
878
/* ^ */
879
#ifdef SRL_HDR_OBJECTV_FREEZE
880
*iv_return = SRL_HDR_OBJECTV_FREEZE;
881
return PERL_constant_ISIV;
882
#else
883
return PERL_constant_NOTDEF;
884
#endif
885
}
886
break;
887
case 'S':
888
if (memEQ(name, "SRL_MASK_HASHREF_COUNT", 22)) {
889
/* ^ */
890
#ifdef SRL_MASK_HASHREF_COUNT
891
*iv_return = SRL_MASK_HASHREF_COUNT;
892
return PERL_constant_ISIV;
893
#else
894
return PERL_constant_NOTDEF;
895
#endif
896
}
897
break;
898
}
899
break;
900
case 23:
901
/* Names all of length 23. */
902
/* SRL_HDR_CANONICAL_UNDEF SRL_MASK_ARRAYREF_COUNT */
903
/* Offset 6 gives the best switch position. */
904
switch (name[6]) {
905
case 'R':
906
if (memEQ(name, "SRL_HDR_CANONICAL_UNDEF", 23)) {
907
/* ^ */
908
#ifdef SRL_HDR_CANONICAL_UNDEF
909
*iv_return = SRL_HDR_CANONICAL_UNDEF;
910
return PERL_constant_ISIV;
911
#else
912
return PERL_constant_NOTDEF;
913
#endif
914
}
915
break;
916
case 'S':
917
if (memEQ(name, "SRL_MASK_ARRAYREF_COUNT", 23)) {
918
/* ^ */
919
#ifdef SRL_MASK_ARRAYREF_COUNT
920
*iv_return = SRL_MASK_ARRAYREF_COUNT;
921
return PERL_constant_ISIV;
922
#else
923
return PERL_constant_NOTDEF;
924
#endif
925
}
926
break;
927
}
928
break;
929
case 24:
930
return constant_24 (aTHX_ name, iv_return);
931
break;
932
case 25:
933
return constant_25 (aTHX_ name, iv_return);
934
break;
935
case 26:
936
return constant_26 (aTHX_ name, iv_return);
937
break;
938
case 28:
939
if (memEQ(name, "SRL_PROTOCOL_ENCODING_SNAPPY", 28)) {
940
#ifdef SRL_PROTOCOL_ENCODING_SNAPPY
941
*iv_return = SRL_PROTOCOL_ENCODING_SNAPPY;
942
return PERL_constant_ISIV;
943
#else
944
return PERL_constant_NOTDEF;
945
#endif
946
}
947
break;
948
case 32:
949
/* Names all of length 32. */
950
/* SRL_MAGIC_STRING_HIGHBIT_UINT_BE SRL_MAGIC_STRING_HIGHBIT_UINT_LE */
951
/* Offset 30 gives the best switch position. */
952
switch (name[30]) {
953
case 'B':
954
if (memEQ(name, "SRL_MAGIC_STRING_HIGHBIT_UINT_BE", 32)) {
955
/* ^ */
956
#ifdef SRL_MAGIC_STRING_HIGHBIT_UINT_BE
957
*iv_return = SRL_MAGIC_STRING_HIGHBIT_UINT_BE;
958
return PERL_constant_ISIV;
959
#else
960
return PERL_constant_NOTDEF;
961
#endif
962
}
963
break;
964
case 'L':
965
if (memEQ(name, "SRL_MAGIC_STRING_HIGHBIT_UINT_LE", 32)) {
966
/* ^ */
967
#ifdef SRL_MAGIC_STRING_HIGHBIT_UINT_LE
968
*iv_return = SRL_MAGIC_STRING_HIGHBIT_UINT_LE;
969
return PERL_constant_ISIV;
970
#else
971
return PERL_constant_NOTDEF;
972
#endif
973
}
974
break;
975
}
976
break;
977
case 37:
978
/* Names all of length 37. */
979
/* SRL_MAGIC_STRING_HIGHBIT_UTF8_UINT_BE
980
SRL_MAGIC_STRING_HIGHBIT_UTF8_UINT_LE */
981
/* Offset 35 gives the best switch position. */
982
switch (name[35]) {
983
case 'B':
984
if (memEQ(name, "SRL_MAGIC_STRING_HIGHBIT_UTF8_UINT_BE", 37)) {
985
/* ^ */
986
#ifdef SRL_MAGIC_STRING_HIGHBIT_UTF8_UINT_BE
987
*iv_return = SRL_MAGIC_STRING_HIGHBIT_UTF8_UINT_BE;
988
return PERL_constant_ISIV;
989
#else
990
return PERL_constant_NOTDEF;
991
#endif
992
}
993
break;
994
case 'L':
995
if (memEQ(name, "SRL_MAGIC_STRING_HIGHBIT_UTF8_UINT_LE", 37)) {
996
/* ^ */
997
#ifdef SRL_MAGIC_STRING_HIGHBIT_UTF8_UINT_LE
998
*iv_return = SRL_MAGIC_STRING_HIGHBIT_UTF8_UINT_LE;
999
return PERL_constant_ISIV;
1000
#else
1001
return PERL_constant_NOTDEF;
1002
#endif
1003
}
1004
break;
1005
}
1006
break;
1007
case 40:
1008
if (memEQ(name, "SRL_PROTOCOL_ENCODING_SNAPPY_INCREMENTAL", 40)) {
1009
#ifdef SRL_PROTOCOL_ENCODING_SNAPPY_INCREMENTAL
1010
*iv_return = SRL_PROTOCOL_ENCODING_SNAPPY_INCREMENTAL;
1011
return PERL_constant_ISIV;
1012
#else
1013
return PERL_constant_NOTDEF;
1014
#endif
1015
}
1016
break;
1017
}
1018
return PERL_constant_NOTFOUND;
1019
}
1020
Loggerhead is a web-based interface for Breezy
Version: 2.0.1