source: git/lib/fixmsgs.pl @ 1aa3fb7

#!/usr/bin/perl -w
require 5.008;
use open ':encoding(utf8)';
use strict;

use integer;

my @ent = ();
for (128..65536) {
   $ent[$_] = "#$_";
}

open ENT, "named-entities.txt" or die $!;
while (<ENT>) {
   my ($e, $v) = /^(\w+),(\d+)/;
   $ent[$v] = $e;
}
close ENT;

while (<>) {
   if (/^\s*#/) {
      print;
      next;
   }
   
   my ($pre, $msg) = /^([-\w,]+:\s*\d+\s+)(.*)/;

   $msg =~ s/([\x{80}-\x{ffff}])/"&".$ent[ord($1)].";"/ge;

   $msg =~ s/'\%s'/`%s'/g;
   $msg =~ s/^([^`']* )\%s'/$1`%s'/;
   $msg =~ s/^([^`']* `\%s'[^`']* )\%s'/$1`%s'/;
   $pre =~ s/: (\d\d\d\b)/:$1/;
   $pre =~ s/:(\d\d\b)/: $1/;
   $pre =~ s/: ?(\d\b)/:  $1/;

   print "$pre$msg\n";
}