organicmaps/icu
13
Fork 0
mirror of https://github.com/unicode-org/icu.git synced 2025-04-08 06:53:45 +00:00
Code Issues 1 Projects Releases Wiki Activity Actions 2

ICU-1098 fix escaping for genrb

Browse source 
X-SVN-Rev: 6668
This commit is contained in:
Ram Viswanadha 2001-11-07 18:55:56 +00:00
parent 2f7707fe54
commit 47f69b5b4e
2 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
icu4j/src/com/ibm/icu/dev/tool/translit/dumpICUrules.bat
View file

@ -228,6 +228,8 @@ END
# Content lines
chomp;
my $prefix = '';
#replace \p with \\p
$_=~ s/\\p/\\\\p/g;
my @a = split(':', $_);
if ($a[1] eq 'file' || $a[1] eq 'internal') {
# Convert the file name
@ -236,6 +238,7 @@ END
if ($a[2] eq $JAVA_ONLY) {
$prefix = '// Java only: ';
}
# Delete the encoding field
splice(@a, 3, 1);
} elsif ($a[1] eq 'alias') {
@ -405,10 +408,10 @@ sub hideEscapes {
sub restoreEscapes {
# Restore escaped characters
s|<<bs>>|\\\\|g;
s|<<dq>>|\\\"|g;
s|<<sq>>|\\\'|g;
s|<<lb>>|\\\#|g;
s|<<q(.)>>|\\$1|g;
s|<<dq>>|\\\\\\\"|g;
s|<<sq>>|\\\\\\\'|g;
s|<<lb>>|\\\\\\\#|g;
s|<<q(.)>>|\\\\\\$1|g;
s|<<u0000>>|\\\\u0000|g; # Double escape U+0000
s|<<u(....)>>|\\u$1|g;
}

11
icu4j/src/com/ibm/tools/translit/dumpICUrules.bat
View file

@ -228,6 +228,8 @@ END
# Content lines
chomp;
my $prefix = '';
#replace \p with \\p
$_=~ s/\\p/\\\\p/g;
my @a = split(':', $_);
if ($a[1] eq 'file' || $a[1] eq 'internal') {
# Convert the file name
@ -236,6 +238,7 @@ END
if ($a[2] eq $JAVA_ONLY) {
$prefix = '// Java only: ';
}
# Delete the encoding field
splice(@a, 3, 1);
} elsif ($a[1] eq 'alias') {
@ -405,10 +408,10 @@ sub hideEscapes {
sub restoreEscapes {
# Restore escaped characters
s|<<bs>>|\\\\|g;
s|<<dq>>|\\\"|g;
s|<<sq>>|\\\'|g;
s|<<lb>>|\\\#|g;
s|<<q(.)>>|\\$1|g;
s|<<dq>>|\\\\\\\"|g;
s|<<sq>>|\\\\\\\'|g;
s|<<lb>>|\\\\\\\#|g;
s|<<q(.)>>|\\\\\\$1|g;
s|<<u0000>>|\\\\u0000|g; # Double escape U+0000
s|<<u(....)>>|\\u$1|g;
}