Changeset 1211 for trunk/gsdl

Timestamp:

2000-06-15T10:20:41+12:00 (24 years ago)

Author:

sjboddie

Message:

minor changes to handle Spanish non-ascii characters when translating
macro files

File:

• trunk/gsdl/bin/script/translate.pl (modified) (3 diffs)

trunk/gsdl/bin/script/translate.pl

@@ -54 +54 @@
         'Ouml' => chr (214),
         'Uuml' => chr (220),
-        'szlig' => chr (223));
+        'szlig' => chr (223),
+        'aacute' => chr (225),
+        'eacute' => chr (233),
+        'iacute' => chr (237),
+        'oacute' => chr (243),
+        'uacute' => chr (250),
+        'Aacute' => chr (193),
+        'Eacute' => chr (201),
+        'Iacute' => chr (205),
+        'Oacute' => chr (211),
+        'Uacute' => chr (218),
+        'ntilde' => chr (241),
+        'Ntilde' => chr (209));
 
 my $hand_made = 0;
@@ -149 +161 @@
 
     my $origtext = $text;
+    $text =~ s/&(\d{3,4});/chr($1)/ge;
     $text =~ s/&([^;]*);/$rmap{$1}/g;
 
@@ -228 +241 @@
     }
 
-    return "\n\#\# \"$text\" \#\# $image_type \#\# $image_name \#\#$image_macros";
+    return "\n\#\# \"$origtext\" \#\# $image_type \#\# $image_name \#\#$image_macros";
 }