Changeset 23285

Timestamp:

2010-11-03T17:52:09+13:00 (13 years ago)

Author:

sjm84

Message:

Moving subroutine committed previously to util.pm to unicode.pm where it belongs: Dr Bainbridge's modification of nice-string subroutine which will print the unicode strings for debugging (printable ASCII chars are shown as-is, other chars are shown with their hex values for their unicode code points.

Location:

main/trunk/greenstone2/perllib

Files:

• unicode.pm (modified) (1 diff)
• util.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/unicode.pm

@@ -701 +701 @@
 }
 
+# Useful method to print UTF8 (or other unicode) for debugging.
+# Characters that are easily displayed (that is, printable ASCII) 
+# are shown as-is, whereas hex values of the unicode code points 
+# are shown for all other chars.
+sub debug_unicode_string
+{
+    join("",
+         map { $_ > 128 ?                      # if wide character...
+                   sprintf("\\x{%04X}", $_) :  # \x{...}
+                   chr($_)          
+               } unpack("U*", $_[0]));         # unpack Unicode characters
+}
 
 1;

main/trunk/greenstone2/perllib/util.pm

@@ -1374 +1374 @@
 }
 
-# To print UTF8 (unicode) for debugging:
-# Characters that are easily displayed (that is, printable ASCII) 
-# are shown as-is, whereas hexcodes are shown for all other chars.
-# Useful method for debugging when doing encoding related work.
-sub debug_unicode_string
-{
-    join("",
-         map { $_ > 128 ?                      # if wide character...
-                   sprintf("\\x{%04X}", $_) :  # \x{...}
-                   chr($_)          
-               } unpack("U*", $_[0]));         # unpack Unicode characters
-}
-
 1;