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