Changeset 2237

Timestamp:

2001-04-01T13:21:16+12:00 (23 years ago)

Author:

sjboddie

Message:

Added a unicode2koi8r function to unicode.pm (because I needed one). Should
really have a more generic unicode2otherstuff type function but I don't
need it right now and I'm too lazy to write it ;-)

File:

• trunk/gsdl/perllib/unicode.pm (modified) (1 diff)

trunk/gsdl/perllib/unicode.pm

@@ -421 +421 @@
 }
 
+sub unicode2koi8r {
+    my ($uniref) = @_;
+    
+    my $outtext = "";
+    my $encodename = "unicode-koi8_r";
+    my $enc_info = $encodings::encodings->{"koi8_r"};
+    my $mapfile = &util::filename_cat($ENV{'GSDLHOME'}, "mappings",
+                      "from_uc", $enc_info->{'mapfile'});
+    if (!&loadmapencoding ($encodename, $mapfile)) {
+    print STDERR "unicode: ERROR - could not load encoding $encodename\n";
+    return "";
+    }
+    
+    foreach my $c (@$uniref) {
+    if ($c < 0x80) {
+        # normal ascii character
+        $outtext .= chr($c);
+    } else {
+        # extended ascii character
+        $c = &transchar ($encodename, $c);
+
+        # put a question mark if cannot translate
+        if ($c == 0) {
+        $outtext .= "?";
+        } else {
+        $outtext .= chr($c);
+        }
+    }
+    }
+    return $outtext;
+}
+
 1;