home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 2.x / plum2_15_2.lzh / module / client / kanji.plm
Text File  |  1997-12-13  |  2KB  |  89 lines
  1. # <!-- -*- perl -*-
  2. # $Id: kanji.plm,v 2.2 1997/12/13 13:44:23 hasegawa Exp $
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package client_kanji;
  6.  
  7. $_ = 'client_kanji';
  8.  
  9. sub client_read {
  10.   local($clientno, $line) = @_;
  11.   foreach $kanji (&'property($'userno[$clientno], 'input')) {
  12.     foreach $code (split(/\,/, $kanji)) {
  13.       if ("\L$code\E" eq 'euc') {
  14.         $line = &'euc_jis($line);
  15.       } elsif ("\L$code\E" eq 'jis') {
  16.         $line = &'jis_jis($line);
  17.       } elsif ("\L$code\E" eq 'sjis') {
  18.         $line = &'sjis_jis($line);
  19.       }
  20.     }
  21.   }
  22.   return $line;
  23. }
  24.  
  25. sub client_write {
  26.   local($clientno, $line) = @_;
  27.   local($kanji);
  28.   $kanji = &'property($'userno[$clientno], 'output');
  29.   if ($kanji) {
  30.     if ("\L$kanji\E" eq 'euc') {
  31.       $line = &'jis_euc($line);
  32.     } elsif ("\L$kanji\E" eq 'jis') {
  33.       $line = &'jis_jis($line);
  34.     } elsif ("\L$kanji\E" eq 'sjis') {
  35.       $line = &'jis_sjis($line);
  36.     }
  37.   }
  38.   return $line;
  39. }
  40.  
  41. __END__
  42. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  43. <HTML><HEAD><TITLE> client/kanji.plm </TITLE></HEAD><BODY>
  44.  
  45. $B%*%s%i%$%s%I%-%e%a%s%H(B
  46.  
  47.  
  48. <HR><H3> $BL>A0(B </H3>
  49.  
  50. client/kanji.plm - $B%/%i%$%"%s%H$H$NF~=PNO$G4A;z%3!<%I$rJQ49$9$k(B
  51.  
  52.  
  53. <HR><H3> $B@bL@(B </H3>
  54.  
  55. $B%/%i%$%"%s%H$+$i(Bjis$B0J30$GF~NO$5$l$?4A;z%3!<%I$r(Bjis$B$KJQ49$7$^$9!#(B
  56. $B$^$?%/%i%$%"%s%H$KBP$7$F=PNO$9$k4A;z%3!<%I$r;XDj$7$?$b$N$K$7$^$9!#(B
  57.  
  58.  
  59. <HR><H3> $B%W%m%Q%F%#(B </H3>
  60.  
  61. <DL>
  62. <DT> client.kanji.input* ({euc|jis|sjis})
  63. <DD>    $B%/%i%$%"%s%H$+$i$NF~NO$,;XDj$7$?4A;z%3!<%I$N$b$N$G$"$l$P!"(B
  64.         $B$=$l$r(BJIS$B$KJQ49$7$^$9!#(BEUC$B$H(BSJIS$B$OF1;~$K;XDj$G$-$^$;$s!#(B
  65. <DT> client.kanji.output {euc|jis|sjis}
  66. <DD>    $B%/%i%$%"%s%H$K=PNO$9$k4A;z%3!<%I$r;XDj$7$?$b$N$K$7$^$9!#(B
  67. </DL>
  68.  
  69.  
  70. <HR><H3> $B@_DjNc(B </H3>
  71.  
  72. <PRE>
  73. + client/kanji.plm
  74. client.kanji.input: euc
  75. </PRE>
  76.  
  77. $B%/%i%$%"%s%H$+$i$NF~NO$,(BEUC$B$@$C$?$H$-$K!"$=$l$r(BJIS$B$KJQ49$7$^$9!#(B
  78.  
  79. <PRE>
  80. + client/kanji.plm
  81. client.kanji.input: sjis,jis
  82. client.kanji.output: sjis
  83. </PRE>
  84.  
  85. $B%/%i%$%"%s%H$+$i$NF~NO$,(BSJIS$B$@$C$?$H$-$K!"$=$l$r(BJIS$B$KJQ49$7$^$9!#(B
  86. $B$^$?%/%i%$%"%s%H$KBP$9$k=PNO$r(BSJIS$B$K$7$^$9!#(B
  87.  
  88. </BODY></HTML>
  89.