« back to all changes in this revision
Viewing changes to inc/Sereal/BuildTools.pm
- 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
inc/Sereal/BuildTools.pm
40
40
} or warn $@;
41
41
}
42
42
43
# This section deals with extracting constants from the protocol
44
# definition and including them as Perl constants. Not pretty, I know.
45
# Regenerate constants if module available.
46
43
sub generate_constant_includes {
47
my $namespace = shift;
48
my $constant_namespace = $namespace . "::Constants";
49
my $file = $constant_namespace;
50
$file =~ s/::/\//g;
51
$file = "lib/$file";
52
my $dir = $file;
53
$file .= '.pm';
54
55
if (eval { use ExtUtils::Constant qw(WriteConstants); 1 }) {
56
require File::Path;
57
my $fragment = $dir;
58
$fragment =~ s/(?:En|De)coder\/?$//;
59
File::Path::mkpath($fragment);
60
print "Generating constant exports for Perl...\n";
61
open my $fh, "<", "srl_protocol.h" or die $!;
62
my (@string_const, @int_const);
63
while (<$fh>) {
64
if (/^#\s*define\s*(SRL_\w+)\s*(.*?)(?:\/\*|$)/) {
65
my ($name, $value) = ($1, $2);
66
next if $name =~ /_H_$/ or $name =~ /SET/ or $value =~ /"/;
67
push @int_const, $name;
68
}
69
}
70
close $fh;
71
WriteConstants(
72
NAME => $constant_namespace,
73
NAMES => \@int_const,
74
);
75
open my $ofh, ">", $file or die $!;
76
print $ofh <<HERE;
77
# Genereated code! Do not modify! See inc/Sereal/BuildTools.pm instead
78
79
package $constant_namespace;
80
use strict;
81
use warnings;
82
use Carp qw(croak);
83
use $namespace; our \$VERSION= \$$namespace\::VERSION; # for XSLoading
84
our \@ISA = qw(Exporter);
85
require Exporter;
86
our \@EXPORT_OK;
87
BEGIN { \@EXPORT_OK = qw(
88
HERE
89
print $ofh " $_\n" for (@int_const);
90
print $ofh <<'HERE';
91
);
92
my $code;
93
foreach my $constname (@EXPORT_OK) {
94
my ($error, $val) = constant($constname);
95
if ($error) { croak($error); }
96
$code .= "sub $constname () {$val}\n";
97
}
98
eval "$code\n1;" or do {
99
my $err = $@ || 'Zombie error';
100
die "Failed to generate constant subs: $err\n Code was:\n$code\n";
101
};
102
}
103
104
sub SRL_MAGIC_STRING () { "=srl" }
105
sub SRL_MAGIC_STRING_HIGHBIT () { "=\xF3rl" }
106
sub SRL_MAGIC_STRING_HIGHBIT_UTF8 () { "=\xC3\xB3rl" }
107
108
push @EXPORT_OK, qw(
109
SRL_MAGIC_STRING
110
SRL_MAGIC_STRING_HIGHBIT
111
SRL_MAGIC_STRING_HIGHBIT_UTF8
112
);
113
114
# start autoupdated section - do not modify directly
115
116
our (%TAG_INFO_HASH, @TAG_INFO_ARRAY);
117
@TAG_INFO_ARRAY = (
118
# autoupdated by author_tools/update_from_header.pl do not modify directly!
119
{
120
'type_name' => 'POS',
121
'masked' => 1,
122
'comment' => 'small positive integer - value in low 4 bits (identity)',
123
'value' => 0,
124
'name' => 'POS_0',
125
'masked_val' => 0,
126
'type_value' => 0
127
},
128
# autoupdated by author_tools/update_from_header.pl do not modify directly!
129
{
130
'type_name' => 'POS',
131
'masked' => 1,
132
'value' => 1,
133
'name' => 'POS_1',
134
'masked_val' => 1,
135
'type_value' => 0
136
},
137
# autoupdated by author_tools/update_from_header.pl do not modify directly!
138
{
139
'type_name' => 'POS',
140
'masked' => 1,
141
'value' => 2,
142
'name' => 'POS_2',
143
'masked_val' => 2,
144
'type_value' => 0
145
},
146
# autoupdated by author_tools/update_from_header.pl do not modify directly!
147
{
148
'type_name' => 'POS',
149
'masked' => 1,
150
'value' => 3,
151
'name' => 'POS_3',
152
'masked_val' => 3,
153
'type_value' => 0
154
},
155
# autoupdated by author_tools/update_from_header.pl do not modify directly!
156
{
157
'type_name' => 'POS',
158
'masked' => 1,
159
'value' => 4,
160
'name' => 'POS_4',
161
'masked_val' => 4,
162
'type_value' => 0
163
},
164
# autoupdated by author_tools/update_from_header.pl do not modify directly!
165
{
166
'type_name' => 'POS',
167
'masked' => 1,
168
'value' => 5,
169
'name' => 'POS_5',
170
'masked_val' => 5,
171
'type_value' => 0
172
},
173
# autoupdated by author_tools/update_from_header.pl do not modify directly!
174
{
175
'type_name' => 'POS',
176
'masked' => 1,
177
'value' => 6,
178
'name' => 'POS_6',
179
'masked_val' => 6,
180
'type_value' => 0
181
},
182
# autoupdated by author_tools/update_from_header.pl do not modify directly!
183
{
184
'type_name' => 'POS',
185
'masked' => 1,
186
'value' => 7,
187
'name' => 'POS_7',
188
'masked_val' => 7,
189
'type_value' => 0
190
},
191
# autoupdated by author_tools/update_from_header.pl do not modify directly!
192
{
193
'type_name' => 'POS',
194
'masked' => 1,
195
'value' => 8,
196
'name' => 'POS_8',
197
'masked_val' => 8,
198
'type_value' => 0
199
},
200
# autoupdated by author_tools/update_from_header.pl do not modify directly!
201
{
202
'type_name' => 'POS',
203
'masked' => 1,
204
'value' => 9,
205
'name' => 'POS_9',
206
'masked_val' => 9,
207
'type_value' => 0
208
},
209
# autoupdated by author_tools/update_from_header.pl do not modify directly!
210
{
211
'type_name' => 'POS',
212
'masked' => 1,
213
'value' => 10,
214
'name' => 'POS_10',
215
'masked_val' => 10,
216
'type_value' => 0
217
},
218
# autoupdated by author_tools/update_from_header.pl do not modify directly!
219
{
220
'type_name' => 'POS',
221
'masked' => 1,
222
'value' => 11,
223
'name' => 'POS_11',
224
'masked_val' => 11,
225
'type_value' => 0
226
},
227
# autoupdated by author_tools/update_from_header.pl do not modify directly!
228
{
229
'type_name' => 'POS',
230
'masked' => 1,
231
'value' => 12,
232
'name' => 'POS_12',
233
'masked_val' => 12,
234
'type_value' => 0
235
},
236
# autoupdated by author_tools/update_from_header.pl do not modify directly!
237
{
238
'type_name' => 'POS',
239
'masked' => 1,
240
'value' => 13,
241
'name' => 'POS_13',
242
'masked_val' => 13,
243
'type_value' => 0
244
},
245
# autoupdated by author_tools/update_from_header.pl do not modify directly!
246
{
247
'type_name' => 'POS',
248
'masked' => 1,
249
'value' => 14,
250
'name' => 'POS_14',
251
'masked_val' => 14,
252
'type_value' => 0
253
},
254
# autoupdated by author_tools/update_from_header.pl do not modify directly!
255
{
256
'type_name' => 'POS',
257
'masked' => 1,
258
'comment' => 'small positive integer - value in low 4 bits (identity)',
259
'value' => 15,
260
'name' => 'POS_15',
261
'masked_val' => 15,
262
'type_value' => 0
263
},
264
# autoupdated by author_tools/update_from_header.pl do not modify directly!
265
{
266
'type_name' => 'NEG',
267
'masked' => 1,
268
'comment' => 'small negative integer - value in low 4 bits (k+32)',
269
'value' => 16,
270
'name' => 'NEG_16',
271
'masked_val' => 16,
272
'type_value' => 16
273
},
274
# autoupdated by author_tools/update_from_header.pl do not modify directly!
275
{
276
'type_name' => 'NEG',
277
'masked' => 1,
278
'value' => 17,
279
'name' => 'NEG_15',
280
'masked_val' => 15,
281
'type_value' => 16
282
},
283
# autoupdated by author_tools/update_from_header.pl do not modify directly!
284
{
285
'type_name' => 'NEG',
286
'masked' => 1,
287
'value' => 18,
288
'name' => 'NEG_14',
289
'masked_val' => 14,
290
'type_value' => 16
291
},
292
# autoupdated by author_tools/update_from_header.pl do not modify directly!
293
{
294
'type_name' => 'NEG',
295
'masked' => 1,
296
'value' => 19,
297
'name' => 'NEG_13',
298
'masked_val' => 13,
299
'type_value' => 16
300
},
301
# autoupdated by author_tools/update_from_header.pl do not modify directly!
302
{
303
'type_name' => 'NEG',
304
'masked' => 1,
305
'value' => 20,
306
'name' => 'NEG_12',
307
'masked_val' => 12,
308
'type_value' => 16
309
},
310
# autoupdated by author_tools/update_from_header.pl do not modify directly!
311
{
312
'type_name' => 'NEG',
313
'masked' => 1,
314
'value' => 21,
315
'name' => 'NEG_11',
316
'masked_val' => 11,
317
'type_value' => 16
318
},
319
# autoupdated by author_tools/update_from_header.pl do not modify directly!
320
{
321
'type_name' => 'NEG',
322
'masked' => 1,
323
'value' => 22,
324
'name' => 'NEG_10',
325
'masked_val' => 10,
326
'type_value' => 16
327
},
328
# autoupdated by author_tools/update_from_header.pl do not modify directly!
329
{
330
'type_name' => 'NEG',
331
'masked' => 1,
332
'value' => 23,
333
'name' => 'NEG_9',
334
'masked_val' => 9,
335
'type_value' => 16
336
},
337
# autoupdated by author_tools/update_from_header.pl do not modify directly!
338
{
339
'type_name' => 'NEG',
340
'masked' => 1,
341
'value' => 24,
342
'name' => 'NEG_8',
343
'masked_val' => 8,
344
'type_value' => 16
345
},
346
# autoupdated by author_tools/update_from_header.pl do not modify directly!
347
{
348
'type_name' => 'NEG',
349
'masked' => 1,
350
'value' => 25,
351
'name' => 'NEG_7',
352
'masked_val' => 7,
353
'type_value' => 16
354
},
355
# autoupdated by author_tools/update_from_header.pl do not modify directly!
356
{
357
'type_name' => 'NEG',
358
'masked' => 1,
359
'value' => 26,
360
'name' => 'NEG_6',
361
'masked_val' => 6,
362
'type_value' => 16
363
},
364
# autoupdated by author_tools/update_from_header.pl do not modify directly!
365
{
366
'type_name' => 'NEG',
367
'masked' => 1,
368
'value' => 27,
369
'name' => 'NEG_5',
370
'masked_val' => 5,
371
'type_value' => 16
372
},
373
# autoupdated by author_tools/update_from_header.pl do not modify directly!
374
{
375
'type_name' => 'NEG',
376
'masked' => 1,
377
'value' => 28,
378
'name' => 'NEG_4',
379
'masked_val' => 4,
380
'type_value' => 16
381
},
382
# autoupdated by author_tools/update_from_header.pl do not modify directly!
383
{
384
'type_name' => 'NEG',
385
'masked' => 1,
386
'value' => 29,
387
'name' => 'NEG_3',
388
'masked_val' => 3,
389
'type_value' => 16
390
},
391
# autoupdated by author_tools/update_from_header.pl do not modify directly!
392
{
393
'type_name' => 'NEG',
394
'masked' => 1,
395
'value' => 30,
396
'name' => 'NEG_2',
397
'masked_val' => 2,
398
'type_value' => 16
399
},
400
# autoupdated by author_tools/update_from_header.pl do not modify directly!
401
{
402
'type_name' => 'NEG',
403
'masked' => 1,
404
'comment' => 'small negative integer - value in low 4 bits (k+32)',
405
'value' => 31,
406
'name' => 'NEG_1',
407
'masked_val' => 1,
408
'type_value' => 16
409
},
410
# autoupdated by author_tools/update_from_header.pl do not modify directly!
411
{
412
'type_name' => 'VARINT',
413
'comment' => '<VARINT> - Varint variable length integer',
414
'value' => 32,
415
'name' => 'VARINT',
416
'type_value' => 32
417
},
418
# autoupdated by author_tools/update_from_header.pl do not modify directly!
419
{
420
'type_name' => 'ZIGZAG',
421
'comment' => '<ZIGZAG-VARINT> - Zigzag variable length integer',
422
'value' => 33,
423
'name' => 'ZIGZAG',
424
'type_value' => 33
425
},
426
# autoupdated by author_tools/update_from_header.pl do not modify directly!
427
{
428
'type_name' => 'FLOAT',
429
'comment' => '<IEEE-FLOAT>',
430
'value' => 34,
431
'name' => 'FLOAT',
432
'type_value' => 34
433
},
434
# autoupdated by author_tools/update_from_header.pl do not modify directly!
435
{
436
'type_name' => 'DOUBLE',
437
'comment' => '<IEEE-DOUBLE>',
438
'value' => 35,
439
'name' => 'DOUBLE',
440
'type_value' => 35
441
},
442
# autoupdated by author_tools/update_from_header.pl do not modify directly!
443
{
444
'type_name' => 'LONG_DOUBLE',
445
'comment' => '<IEEE-LONG-DOUBLE>',
446
'value' => 36,
447
'name' => 'LONG_DOUBLE',
448
'type_value' => 36
449
},
450
# autoupdated by author_tools/update_from_header.pl do not modify directly!
451
{
452
'type_name' => 'UNDEF',
453
'comment' => 'None - Perl undef var; eg my $var= undef;',
454
'value' => 37,
455
'name' => 'UNDEF',
456
'type_value' => 37
457
},
458
# autoupdated by author_tools/update_from_header.pl do not modify directly!
459
{
460
'type_name' => 'BINARY',
461
'comment' => '<LEN-VARINT> <BYTES> - binary/(latin1) string',
462
'value' => 38,
463
'name' => 'BINARY',
464
'type_value' => 38
465
},
466
# autoupdated by author_tools/update_from_header.pl do not modify directly!
467
{
468
'type_name' => 'STR_UTF8',
469
'comment' => '<LEN-VARINT> <UTF8> - utf8 string',
470
'value' => 39,
471
'name' => 'STR_UTF8',
472
'type_value' => 39
473
},
474
# autoupdated by author_tools/update_from_header.pl do not modify directly!
475
{
476
'type_name' => 'REFN',
477
'comment' => '<ITEM-TAG> - ref to next item',
478
'value' => 40,
479
'name' => 'REFN',
480
'type_value' => 40
481
},
482
# autoupdated by author_tools/update_from_header.pl do not modify directly!
483
{
484
'type_name' => 'REFP',
485
'comment' => '<OFFSET-VARINT> - ref to previous item stored at offset',
486
'value' => 41,
487
'name' => 'REFP',
488
'type_value' => 41
489
},
490
# autoupdated by author_tools/update_from_header.pl do not modify directly!
491
{
492
'type_name' => 'HASH',
493
'comment' => '<COUNT-VARINT> [<KEY-TAG> <ITEM-TAG> ...] - count followed by key/value pairs',
494
'value' => 42,
495
'name' => 'HASH',
496
'type_value' => 42
497
},
498
# autoupdated by author_tools/update_from_header.pl do not modify directly!
499
{
500
'type_name' => 'ARRAY',
501
'comment' => '<COUNT-VARINT> [<ITEM-TAG> ...] - count followed by items',
502
'value' => 43,
503
'name' => 'ARRAY',
504
'type_value' => 43
505
},
506
# autoupdated by author_tools/update_from_header.pl do not modify directly!
507
{
508
'type_name' => 'OBJECT',
509
'comment' => '<STR-TAG> <ITEM-TAG> - class, object-item',
510
'value' => 44,
511
'name' => 'OBJECT',
512
'type_value' => 44
513
},
514
# autoupdated by author_tools/update_from_header.pl do not modify directly!
515
{
516
'type_name' => 'OBJECTV',
517
'comment' => '<OFFSET-VARINT> <ITEM-TAG> - offset of previously used classname tag - object-item',
518
'value' => 45,
519
'name' => 'OBJECTV',
520
'type_value' => 45
521
},
522
# autoupdated by author_tools/update_from_header.pl do not modify directly!
523
{
524
'type_name' => 'ALIAS',
525
'comment' => '<OFFSET-VARINT> - alias to item defined at offset',
526
'value' => 46,
527
'name' => 'ALIAS',
528
'type_value' => 46
529
},
530
# autoupdated by author_tools/update_from_header.pl do not modify directly!
531
{
532
'type_name' => 'COPY',
533
'comment' => '<OFFSET-VARINT> - copy of item defined at offset',
534
'value' => 47,
535
'name' => 'COPY',
536
'type_value' => 47
537
},
538
# autoupdated by author_tools/update_from_header.pl do not modify directly!
539
{
540
'type_name' => 'WEAKEN',
541
'comment' => '<REF-TAG> - Weaken the following reference',
542
'value' => 48,
543
'name' => 'WEAKEN',
544
'type_value' => 48
545
},
546
# autoupdated by author_tools/update_from_header.pl do not modify directly!
547
{
548
'type_name' => 'REGEXP',
549
'comment' => '<PATTERN-STR-TAG> <MODIFIERS-STR-TAG>',
550
'value' => 49,
551
'name' => 'REGEXP',
552
'type_value' => 49
553
},
554
# autoupdated by author_tools/update_from_header.pl do not modify directly!
555
{
556
'type_name' => 'OBJECT_FREEZE',
557
'comment' => '<STR-TAG> <ITEM-TAG> - class, object-item. Need to call "THAW" method on class after decoding',
558
'value' => 50,
559
'name' => 'OBJECT_FREEZE',
560
'type_value' => 50
561
},
562
# autoupdated by author_tools/update_from_header.pl do not modify directly!
563
{
564
'type_name' => 'OBJECTV_FREEZE',
565
'comment' => '<OFFSET-VARINT> <ITEM-TAG> - (OBJECTV_FREEZE is to OBJECT_FREEZE as OBJECTV is to OBJECT)',
566
'value' => 51,
567
'name' => 'OBJECTV_FREEZE',
568
'type_value' => 51
569
},
570
# autoupdated by author_tools/update_from_header.pl do not modify directly!
571
{
572
'type_name' => 'RESERVED',
573
'masked' => 1,
574
'comment' => 'reserved',
575
'value' => 52,
576
'name' => 'RESERVED_0',
577
'masked_val' => 0,
578
'type_value' => 52
579
},
580
# autoupdated by author_tools/update_from_header.pl do not modify directly!
581
{
582
'type_name' => 'RESERVED',
583
'masked' => 1,
584
'value' => 53,
585
'name' => 'RESERVED_1',
586
'masked_val' => 1,
587
'type_value' => 52
588
},
589
# autoupdated by author_tools/update_from_header.pl do not modify directly!
590
{
591
'type_name' => 'RESERVED',
592
'masked' => 1,
593
'value' => 54,
594
'name' => 'RESERVED_2',
595
'masked_val' => 2,
596
'type_value' => 52
597
},
598
# autoupdated by author_tools/update_from_header.pl do not modify directly!
599
{
600
'type_name' => 'RESERVED',
601
'masked' => 1,
602
'value' => 55,
603
'name' => 'RESERVED_3',
604
'masked_val' => 3,
605
'type_value' => 52
606
},
607
# autoupdated by author_tools/update_from_header.pl do not modify directly!
608
{
609
'type_name' => 'RESERVED',
610
'masked' => 1,
611
'value' => 56,
612
'name' => 'RESERVED_4',
613
'masked_val' => 4,
614
'type_value' => 52
615
},
616
# autoupdated by author_tools/update_from_header.pl do not modify directly!
617
{
618
'type_name' => 'CANONICAL_UNDEF',
619
'comment' => 'undef (PL_sv_undef) - "the" Perl undef (see notes)',
620
'value' => 57,
621
'name' => 'CANONICAL_UNDEF',
622
'type_value' => 57
623
},
624
# autoupdated by author_tools/update_from_header.pl do not modify directly!
625
{
626
'type_name' => 'FALSE',
627
'comment' => 'false (PL_sv_no)',
628
'value' => 58,
629
'name' => 'FALSE',
630
'type_value' => 58
631
},
632
# autoupdated by author_tools/update_from_header.pl do not modify directly!
633
{
634
'type_name' => 'TRUE',
635
'comment' => 'true (PL_sv_yes)',
636
'value' => 59,
637
'name' => 'TRUE',
638
'type_value' => 59
639
},
640
# autoupdated by author_tools/update_from_header.pl do not modify directly!
641
{
642
'type_name' => 'MANY',
643
'comment' => '<LEN-VARINT> <TYPE-BYTE> <TAG-DATA> - repeated tag (not done yet, will be implemented in version 3)',
644
'value' => 60,
645
'name' => 'MANY',
646
'type_value' => 60
647
},
648
# autoupdated by author_tools/update_from_header.pl do not modify directly!
649
{
650
'type_name' => 'PACKET_START',
651
'comment' => '(first byte of magic string in header)',
652
'value' => 61,
653
'name' => 'PACKET_START',
654
'type_value' => 61
655
},
656
# autoupdated by author_tools/update_from_header.pl do not modify directly!
657
{
658
'type_name' => 'EXTEND',
659
'comment' => '<BYTE> - for additional tags',
660
'value' => 62,
661
'name' => 'EXTEND',
662
'type_value' => 62
663
},
664
# autoupdated by author_tools/update_from_header.pl do not modify directly!
665
{
666
'type_name' => 'PAD',
667
'comment' => '(ignored tag, skip to next byte)',
668
'value' => 63,
669
'name' => 'PAD',
670
'type_value' => 63
671
},
672
# autoupdated by author_tools/update_from_header.pl do not modify directly!
673
{
674
'type_name' => 'ARRAYREF',
675
'masked' => 1,
676
'comment' => '[<ITEM-TAG> ...] - count of items in low 4 bits (ARRAY must be refcnt=1)',
677
'value' => 64,
678
'name' => 'ARRAYREF_0',
679
'masked_val' => 0,
680
'type_value' => 64
681
},
682
# autoupdated by author_tools/update_from_header.pl do not modify directly!
683
{
684
'type_name' => 'ARRAYREF',
685
'masked' => 1,
686
'value' => 65,
687
'name' => 'ARRAYREF_1',
688
'masked_val' => 1,
689
'type_value' => 64
690
},
691
# autoupdated by author_tools/update_from_header.pl do not modify directly!
692
{
693
'type_name' => 'ARRAYREF',
694
'masked' => 1,
695
'value' => 66,
696
'name' => 'ARRAYREF_2',
697
'masked_val' => 2,
698
'type_value' => 64
699
},
700
# autoupdated by author_tools/update_from_header.pl do not modify directly!
701
{
702
'type_name' => 'ARRAYREF',
703
'masked' => 1,
704
'value' => 67,
705
'name' => 'ARRAYREF_3',
706
'masked_val' => 3,
707
'type_value' => 64
708
},
709
# autoupdated by author_tools/update_from_header.pl do not modify directly!
710
{
711
'type_name' => 'ARRAYREF',
712
'masked' => 1,
713
'value' => 68,
714
'name' => 'ARRAYREF_4',
715
'masked_val' => 4,
716
'type_value' => 64
717
},
718
# autoupdated by author_tools/update_from_header.pl do not modify directly!
719
{
720
'type_name' => 'ARRAYREF',
721
'masked' => 1,
722
'value' => 69,
723
'name' => 'ARRAYREF_5',
724
'masked_val' => 5,
725
'type_value' => 64
726
},
727
# autoupdated by author_tools/update_from_header.pl do not modify directly!
728
{
729
'type_name' => 'ARRAYREF',
730
'masked' => 1,
731
'value' => 70,
732
'name' => 'ARRAYREF_6',
733
'masked_val' => 6,
734
'type_value' => 64
735
},
736
# autoupdated by author_tools/update_from_header.pl do not modify directly!
737
{
738
'type_name' => 'ARRAYREF',
739
'masked' => 1,
740
'value' => 71,
741
'name' => 'ARRAYREF_7',
742
'masked_val' => 7,
743
'type_value' => 64
744
},
745
# autoupdated by author_tools/update_from_header.pl do not modify directly!
746
{
747
'type_name' => 'ARRAYREF',
748
'masked' => 1,
749
'value' => 72,
750
'name' => 'ARRAYREF_8',
751
'masked_val' => 8,
752
'type_value' => 64
753
},
754
# autoupdated by author_tools/update_from_header.pl do not modify directly!
755
{
756
'type_name' => 'ARRAYREF',
757
'masked' => 1,
758
'value' => 73,
759
'name' => 'ARRAYREF_9',
760
'masked_val' => 9,
761
'type_value' => 64
762
},
763
# autoupdated by author_tools/update_from_header.pl do not modify directly!
764
{
765
'type_name' => 'ARRAYREF',
766
'masked' => 1,
767
'value' => 74,
768
'name' => 'ARRAYREF_10',
769
'masked_val' => 10,
770
'type_value' => 64
771
},
772
# autoupdated by author_tools/update_from_header.pl do not modify directly!
773
{
774
'type_name' => 'ARRAYREF',
775
'masked' => 1,
776
'value' => 75,
777
'name' => 'ARRAYREF_11',
778
'masked_val' => 11,
779
'type_value' => 64
780
},
781
# autoupdated by author_tools/update_from_header.pl do not modify directly!
782
{
783
'type_name' => 'ARRAYREF',
784
'masked' => 1,
785
'value' => 76,
786
'name' => 'ARRAYREF_12',
787
'masked_val' => 12,
788
'type_value' => 64
789
},
790
# autoupdated by author_tools/update_from_header.pl do not modify directly!
791
{
792
'type_name' => 'ARRAYREF',
793
'masked' => 1,
794
'value' => 77,
795
'name' => 'ARRAYREF_13',
796
'masked_val' => 13,
797
'type_value' => 64
798
},
799
# autoupdated by author_tools/update_from_header.pl do not modify directly!
800
{
801
'type_name' => 'ARRAYREF',
802
'masked' => 1,
803
'value' => 78,
804
'name' => 'ARRAYREF_14',
805
'masked_val' => 14,
806
'type_value' => 64
807
},
808
# autoupdated by author_tools/update_from_header.pl do not modify directly!
809
{
810
'type_name' => 'ARRAYREF',
811
'masked' => 1,
812
'value' => 79,
813
'name' => 'ARRAYREF_15',
814
'masked_val' => 15,
815
'type_value' => 64
816
},
817
# autoupdated by author_tools/update_from_header.pl do not modify directly!
818
{
819
'type_name' => 'HASHREF',
820
'masked' => 1,
821
'comment' => '[<KEY-TAG> <ITEM-TAG> ...] - count in low 4 bits, key/value pairs (HASH must be refcnt=1)',
822
'value' => 80,
823
'name' => 'HASHREF_0',
824
'masked_val' => 0,
825
'type_value' => 80
826
},
827
# autoupdated by author_tools/update_from_header.pl do not modify directly!
828
{
829
'type_name' => 'HASHREF',
830
'masked' => 1,
831
'value' => 81,
832
'name' => 'HASHREF_1',
833
'masked_val' => 1,
834
'type_value' => 80
835
},
836
# autoupdated by author_tools/update_from_header.pl do not modify directly!
837
{
838
'type_name' => 'HASHREF',
839
'masked' => 1,
840
'value' => 82,
841
'name' => 'HASHREF_2',
842
'masked_val' => 2,
843
'type_value' => 80
844
},
845
# autoupdated by author_tools/update_from_header.pl do not modify directly!
846
{
847
'type_name' => 'HASHREF',
848
'masked' => 1,
849
'value' => 83,
850
'name' => 'HASHREF_3',
851
'masked_val' => 3,
852
'type_value' => 80
853
},
854
# autoupdated by author_tools/update_from_header.pl do not modify directly!
855
{
856
'type_name' => 'HASHREF',
857
'masked' => 1,
858
'value' => 84,
859
'name' => 'HASHREF_4',
860
'masked_val' => 4,
861
'type_value' => 80
862
},
863
# autoupdated by author_tools/update_from_header.pl do not modify directly!
864
{
865
'type_name' => 'HASHREF',
866
'masked' => 1,
867
'value' => 85,
868
'name' => 'HASHREF_5',
869
'masked_val' => 5,
870
'type_value' => 80
871
},
872
# autoupdated by author_tools/update_from_header.pl do not modify directly!
873
{
874
'type_name' => 'HASHREF',
875
'masked' => 1,
876
'value' => 86,
877
'name' => 'HASHREF_6',
878
'masked_val' => 6,
879
'type_value' => 80
880
},
881
# autoupdated by author_tools/update_from_header.pl do not modify directly!
882
{
883
'type_name' => 'HASHREF',
884
'masked' => 1,
885
'value' => 87,
886
'name' => 'HASHREF_7',
887
'masked_val' => 7,
888
'type_value' => 80
889
},
890
# autoupdated by author_tools/update_from_header.pl do not modify directly!
891
{
892
'type_name' => 'HASHREF',
893
'masked' => 1,
894
'value' => 88,
895
'name' => 'HASHREF_8',
896
'masked_val' => 8,
897
'type_value' => 80
898
},
899
# autoupdated by author_tools/update_from_header.pl do not modify directly!
900
{
901
'type_name' => 'HASHREF',
902
'masked' => 1,
903
'value' => 89,
904
'name' => 'HASHREF_9',
905
'masked_val' => 9,
906
'type_value' => 80
907
},
908
# autoupdated by author_tools/update_from_header.pl do not modify directly!
909
{
910
'type_name' => 'HASHREF',
911
'masked' => 1,
912
'value' => 90,
913
'name' => 'HASHREF_10',
914
'masked_val' => 10,
915
'type_value' => 80
916
},
917
# autoupdated by author_tools/update_from_header.pl do not modify directly!
918
{
919
'type_name' => 'HASHREF',
920
'masked' => 1,
921
'value' => 91,
922
'name' => 'HASHREF_11',
923
'masked_val' => 11,
924
'type_value' => 80
925
},
926
# autoupdated by author_tools/update_from_header.pl do not modify directly!
927
{
928
'type_name' => 'HASHREF',
929
'masked' => 1,
930
'value' => 92,
931
'name' => 'HASHREF_12',
932
'masked_val' => 12,
933
'type_value' => 80
934
},
935
# autoupdated by author_tools/update_from_header.pl do not modify directly!
936
{
937
'type_name' => 'HASHREF',
938
'masked' => 1,
939
'value' => 93,
940
'name' => 'HASHREF_13',
941
'masked_val' => 13,
942
'type_value' => 80
943
},
944
# autoupdated by author_tools/update_from_header.pl do not modify directly!
945
{
946
'type_name' => 'HASHREF',
947
'masked' => 1,
948
'value' => 94,
949
'name' => 'HASHREF_14',
950
'masked_val' => 14,
951
'type_value' => 80
952
},
953
# autoupdated by author_tools/update_from_header.pl do not modify directly!
954
{
955
'type_name' => 'HASHREF',
956
'masked' => 1,
957
'value' => 95,
958
'name' => 'HASHREF_15',
959
'masked_val' => 15,
960
'type_value' => 80
961
},
962
# autoupdated by author_tools/update_from_header.pl do not modify directly!
963
{
964
'type_name' => 'SHORT_BINARY',
965
'masked' => 1,
966
'comment' => '<BYTES> - binary/latin1 string, length encoded in low 5 bits of tag',
967
'value' => 96,
968
'name' => 'SHORT_BINARY_0',
969
'masked_val' => 0,
970
'type_value' => 96
971
},
972
# autoupdated by author_tools/update_from_header.pl do not modify directly!
973
{
974
'type_name' => 'SHORT_BINARY',
975
'masked' => 1,
976
'value' => 97,
977
'name' => 'SHORT_BINARY_1',
978
'masked_val' => 1,
979
'type_value' => 96
980
},
981
# autoupdated by author_tools/update_from_header.pl do not modify directly!
982
{
983
'type_name' => 'SHORT_BINARY',
984
'masked' => 1,
985
'value' => 98,
986
'name' => 'SHORT_BINARY_2',
987
'masked_val' => 2,
988
'type_value' => 96
989
},
990
# autoupdated by author_tools/update_from_header.pl do not modify directly!
991
{
992
'type_name' => 'SHORT_BINARY',
993
'masked' => 1,
994
'value' => 99,
995
'name' => 'SHORT_BINARY_3',
996
'masked_val' => 3,
997
'type_value' => 96
998
},
999
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1000
{
1001
'type_name' => 'SHORT_BINARY',
1002
'masked' => 1,
1003
'value' => 100,
1004
'name' => 'SHORT_BINARY_4',
1005
'masked_val' => 4,
1006
'type_value' => 96
1007
},
1008
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1009
{
1010
'type_name' => 'SHORT_BINARY',
1011
'masked' => 1,
1012
'value' => 101,
1013
'name' => 'SHORT_BINARY_5',
1014
'masked_val' => 5,
1015
'type_value' => 96
1016
},
1017
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1018
{
1019
'type_name' => 'SHORT_BINARY',
1020
'masked' => 1,
1021
'value' => 102,
1022
'name' => 'SHORT_BINARY_6',
1023
'masked_val' => 6,
1024
'type_value' => 96
1025
},
1026
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1027
{
1028
'type_name' => 'SHORT_BINARY',
1029
'masked' => 1,
1030
'value' => 103,
1031
'name' => 'SHORT_BINARY_7',
1032
'masked_val' => 7,
1033
'type_value' => 96
1034
},
1035
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1036
{
1037
'type_name' => 'SHORT_BINARY',
1038
'masked' => 1,
1039
'value' => 104,
1040
'name' => 'SHORT_BINARY_8',
1041
'masked_val' => 8,
1042
'type_value' => 96
1043
},
1044
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1045
{
1046
'type_name' => 'SHORT_BINARY',
1047
'masked' => 1,
1048
'value' => 105,
1049
'name' => 'SHORT_BINARY_9',
1050
'masked_val' => 9,
1051
'type_value' => 96
1052
},
1053
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1054
{
1055
'type_name' => 'SHORT_BINARY',
1056
'masked' => 1,
1057
'value' => 106,
1058
'name' => 'SHORT_BINARY_10',
1059
'masked_val' => 10,
1060
'type_value' => 96
1061
},
1062
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1063
{
1064
'type_name' => 'SHORT_BINARY',
1065
'masked' => 1,
1066
'value' => 107,
1067
'name' => 'SHORT_BINARY_11',
1068
'masked_val' => 11,
1069
'type_value' => 96
1070
},
1071
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1072
{
1073
'type_name' => 'SHORT_BINARY',
1074
'masked' => 1,
1075
'value' => 108,
1076
'name' => 'SHORT_BINARY_12',
1077
'masked_val' => 12,
1078
'type_value' => 96
1079
},
1080
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1081
{
1082
'type_name' => 'SHORT_BINARY',
1083
'masked' => 1,
1084
'value' => 109,
1085
'name' => 'SHORT_BINARY_13',
1086
'masked_val' => 13,
1087
'type_value' => 96
1088
},
1089
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1090
{
1091
'type_name' => 'SHORT_BINARY',
1092
'masked' => 1,
1093
'value' => 110,
1094
'name' => 'SHORT_BINARY_14',
1095
'masked_val' => 14,
1096
'type_value' => 96
1097
},
1098
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1099
{
1100
'type_name' => 'SHORT_BINARY',
1101
'masked' => 1,
1102
'value' => 111,
1103
'name' => 'SHORT_BINARY_15',
1104
'masked_val' => 15,
1105
'type_value' => 96
1106
},
1107
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1108
{
1109
'type_name' => 'SHORT_BINARY',
1110
'masked' => 1,
1111
'value' => 112,
1112
'name' => 'SHORT_BINARY_16',
1113
'masked_val' => 16,
1114
'type_value' => 96
1115
},
1116
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1117
{
1118
'type_name' => 'SHORT_BINARY',
1119
'masked' => 1,
1120
'value' => 113,
1121
'name' => 'SHORT_BINARY_17',
1122
'masked_val' => 17,
1123
'type_value' => 96
1124
},
1125
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1126
{
1127
'type_name' => 'SHORT_BINARY',
1128
'masked' => 1,
1129
'value' => 114,
1130
'name' => 'SHORT_BINARY_18',
1131
'masked_val' => 18,
1132
'type_value' => 96
1133
},
1134
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1135
{
1136
'type_name' => 'SHORT_BINARY',
1137
'masked' => 1,
1138
'value' => 115,
1139
'name' => 'SHORT_BINARY_19',
1140
'masked_val' => 19,
1141
'type_value' => 96
1142
},
1143
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1144
{
1145
'type_name' => 'SHORT_BINARY',
1146
'masked' => 1,
1147
'value' => 116,
1148
'name' => 'SHORT_BINARY_20',
1149
'masked_val' => 20,
1150
'type_value' => 96
1151
},
1152
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1153
{
1154
'type_name' => 'SHORT_BINARY',
1155
'masked' => 1,
1156
'value' => 117,
1157
'name' => 'SHORT_BINARY_21',
1158
'masked_val' => 21,
1159
'type_value' => 96
1160
},
1161
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1162
{
1163
'type_name' => 'SHORT_BINARY',
1164
'masked' => 1,
1165
'value' => 118,
1166
'name' => 'SHORT_BINARY_22',
1167
'masked_val' => 22,
1168
'type_value' => 96
1169
},
1170
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1171
{
1172
'type_name' => 'SHORT_BINARY',
1173
'masked' => 1,
1174
'value' => 119,
1175
'name' => 'SHORT_BINARY_23',
1176
'masked_val' => 23,
1177
'type_value' => 96
1178
},
1179
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1180
{
1181
'type_name' => 'SHORT_BINARY',
1182
'masked' => 1,
1183
'value' => 120,
1184
'name' => 'SHORT_BINARY_24',
1185
'masked_val' => 24,
1186
'type_value' => 96
1187
},
1188
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1189
{
1190
'type_name' => 'SHORT_BINARY',
1191
'masked' => 1,
1192
'value' => 121,
1193
'name' => 'SHORT_BINARY_25',
1194
'masked_val' => 25,
1195
'type_value' => 96
1196
},
1197
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1198
{
1199
'type_name' => 'SHORT_BINARY',
1200
'masked' => 1,
1201
'value' => 122,
1202
'name' => 'SHORT_BINARY_26',
1203
'masked_val' => 26,
1204
'type_value' => 96
1205
},
1206
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1207
{
1208
'type_name' => 'SHORT_BINARY',
1209
'masked' => 1,
1210
'value' => 123,
1211
'name' => 'SHORT_BINARY_27',
1212
'masked_val' => 27,
1213
'type_value' => 96
1214
},
1215
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1216
{
1217
'type_name' => 'SHORT_BINARY',
1218
'masked' => 1,
1219
'value' => 124,
1220
'name' => 'SHORT_BINARY_28',
1221
'masked_val' => 28,
1222
'type_value' => 96
1223
},
1224
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1225
{
1226
'type_name' => 'SHORT_BINARY',
1227
'masked' => 1,
1228
'value' => 125,
1229
'name' => 'SHORT_BINARY_29',
1230
'masked_val' => 29,
1231
'type_value' => 96
1232
},
1233
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1234
{
1235
'type_name' => 'SHORT_BINARY',
1236
'masked' => 1,
1237
'value' => 126,
1238
'name' => 'SHORT_BINARY_30',
1239
'masked_val' => 30,
1240
'type_value' => 96
1241
},
1242
# autoupdated by author_tools/update_from_header.pl do not modify directly!
1243
{
1244
'type_name' => 'SHORT_BINARY',
1245
'masked' => 1,
1246
'value' => 127,
1247
'name' => 'SHORT_BINARY_31',
1248
'masked_val' => 31,
1249
'type_value' => 96
1250
}
1251
);
1252
$TAG_INFO_HASH{chr $_}= $TAG_INFO_ARRAY[$_] for 0 .. 127;
1253
push @EXPORT_OK, qw(%TAG_INFO_HASH @TAG_INFO_ARRAY);
1254
1255
# stop autoupdated section - do not modify directly!
1256
1257
1258
our %EXPORT_TAGS=(all => \@EXPORT_OK);
1259
HERE
1260
close $ofh;
1261
}
1262
else {
1263
warn "Please install ExtUtils::Constant since you appear to be running out of the source repository.\n";
1264
}
44
# no-op
1265
45
}
1266
46
1267
47
# Prefer external csnappy and miniz libraries over the bundled ones.
1300
80
}
1301
81
1302
82
1;
1303
Loggerhead is a web-based interface for Breezy
Version: 2.0.1