Changeset 1223

Timestamp:

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

Author:

sjboddie

Message:

added an arabic2unicode conversion function to unicode.pm

File:

• trunk/gsdl/perllib/unicode.pm (modified) (2 diffs)

trunk/gsdl/perllib/unicode.pm

@@ -33 +33 @@
 
 
-# ascii2unicode takes a (extended) ascii string and
-# returns a unicode array.
+# ascii2unicode takes an (extended) ascii string (ISO-8859-1)
+# and returns a unicode array.
 sub ascii2unicode {
     my ($in) = @_;
@@ -49 +49 @@
 }
 
+# arabic2unicode takes an 8 bit Arabic string (ISO-8859-6)
+# and returns a unicode array
+sub arabic2unicode {
+    my ($in) = @_;
+    my $out = [];
+
+    my $i = 0;
+    my $len = length($in);
+    while ($i < $len) {
+    my $c = ord(substr ($in, $i, 1));
+    $c += (1567-191) if ($c >= 0x80);
+    push (@$out, $c);
+    $i++;
+    }
+
+    return $out;
+}
 
 # ascii2utf8 takes a (extended) ascii string and