RELEASE/1.1RELEASE/1.2debug-cidebug-ci-sanitisersfaster-cavernloglog-selectstereowalls-datawalls-data-hanging-as-warning
Rev | Line | |
---|
[a39f74f] | 1 | #!/usr/bin/perl -w |
---|
[be891ea] | 2 | require 5.008; |
---|
| 3 | use bytes; |
---|
[a39f74f] | 4 | use strict; |
---|
| 5 | |
---|
| 6 | use integer; |
---|
| 7 | |
---|
| 8 | my @ent = (); |
---|
| 9 | for (128..255) { |
---|
| 10 | $ent[$_] = "#$_"; |
---|
| 11 | } |
---|
| 12 | |
---|
| 13 | open ENT, "named-entities.txt" or die $!; |
---|
| 14 | while (<ENT>) { |
---|
| 15 | my ($e, $v) = /^(\w+),(\d+)/; |
---|
| 16 | $ent[$v] = $e; |
---|
| 17 | } |
---|
| 18 | close ENT; |
---|
| 19 | |
---|
| 20 | while (<>) { |
---|
| 21 | if (/^\s*#/) { |
---|
| 22 | print; |
---|
| 23 | next; |
---|
| 24 | } |
---|
| 25 | |
---|
| 26 | my ($pre, $msg) = /^([-\w,]+:\s*\d+\s+)(.*)/; |
---|
| 27 | |
---|
| 28 | $msg =~ s/([\x80-\xff])/"&".$ent[ord($1)].";"/ge; |
---|
| 29 | |
---|
| 30 | $msg =~ s/'\%s'/`%s'/g; |
---|
[417e9b3] | 31 | $msg =~ s/^([^`']* )\%s'/$1`%s'/; |
---|
| 32 | $msg =~ s/^([^`']* `\%s'[^`']* )\%s'/$1`%s'/; |
---|
| 33 | $pre =~ s/: (\d\d\d\b)/:$1/; |
---|
| 34 | $pre =~ s/:(\d\d\b)/: $1/; |
---|
| 35 | $pre =~ s/: ?(\d\b)/: $1/; |
---|
[a39f74f] | 36 | |
---|
| 37 | print "$pre$msg\n"; |
---|
| 38 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.