source: git/lib/fixmsgs.pl @ f3f9b0e

RELEASE/1.2debug-cidebug-ci-sanitisersstereowalls-data
Last change on this file since f3f9b0e was a269915, checked in by Olly Betts <olly@…>, 19 years ago

"require 5.008", not "require 5.8"

git-svn-id: file:///home/survex-svn/survex/trunk@2804 4b37db11-9a0c-4f06-9ece-9ab7cdaee568

  • Property mode set to 100755
File size: 651 bytes
Line 
1#!/usr/bin/perl -w
2require 5.008;
3use bytes;
4use strict;
5
6use integer;
7
8my @ent = ();
9for (128..255) {
10   $ent[$_] = "#$_";
11}
12
13open ENT, "named-entities.txt" or die $!;
14while (<ENT>) {
15   my ($e, $v) = /^(\w+),(\d+)/;
16   $ent[$v] = $e;
17}
18close ENT;
19
20while (<>) {
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;
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/;
36
37   print "$pre$msg\n";
38}
Note: See TracBrowser for help on using the repository browser.