「Re: vICQ」記事へのコメント

diff

[satsuki (5219)]

--- vicq.org    Tue Apr 23 12:39:05 2002
+++ vicq    Wed Apr 24 16:31:39 2002
@@ -8,6 +8,7 @@
use POSIX qw(mktime getcwd);
package main;
use locale;
+use NKF
#use Data::Dumper;

my %config;
@@ -26,6 +27,7 @@
my $section = '';
my $Id = '$Id: vicq,v 1.103 2002/02/03 17:38:15 gonzo Exp $';
my $nomodule = 0;
+my $nkfopt = '-e'; # EUC
my %connection_types = (
                             1 => 'firewall/https proxy',
                             2 => 'socks4/socks5 proxy',
@@ -1017,6 +1019,7 @@
eval
{
     $term = new Term::ReadLine::Gnu 'vICQ v0.2';
+    require Term::ReadLine::Gnu::euc_jp;
     $gnu_readline = 1;
     $ignore_start = Term::ReadLine::Gnu::RL_PROMPT_START_IGNORE();
     $ignore_stop = Term::ReadLine::Gnu::RL_PROMPT_END_IGNORE();
@@ -1966,7 +1969,19 @@

     if($config{encoding} ne 'koi')
     {
-        $config{encoding} = 'win' if ($config{encoding} ne 'translit');
+        if($config{encoding} =~ /^ja(\.(euc|jis|sjis))?$/)
+        {
+            if (substr($config{encoding}, 3) eq 'euc')
+            {
+                $nkfopt = '-e';
+            } elsif (substr($config{encoding}, 3) eq 'jis') {
+                $nkfopt = '-j';
+            } elsif (substr($config{encoding}, 3) eq 'sjis') {
+                $nkfopt = '-s';
+            }
+        } else {
+            $config{encoding} = 'win' if ($config{encoding} ne 'translit');
+        }
     }

     if ($config{uin} eq '')
@@ -2326,6 +2341,7 @@
{
     my $s = shift;
     return win2koi($s) if($config{encoding} eq 'koi');
+    return nkf($nkfopt, $s) if($config{encoding} =~ /^ja(\.(euc|jis|sjis))?$/);
     return translit($s) if($config{encoding} eq 'translit');
     return $s;
}
@@ -2334,6 +2350,7 @@
{
     my $s = shift;
     return koi2win($s) if($config{encoding} eq 'koi');
+    return nkf("-s", $s) if($config{encoding} =~ /^ja(\.(euc|jis|sjis))?$/);
     return $s;
}