libkcc/outsjis.c

   1 void (*outascii)(), (*outkanji)(), (*outgaiji)(), (*outkana)();
   2 /*---------------------------------------------------------------------
   3     NAME
   4         outsjis
   5  ---------------------------------------------------------------------*/
   6 void outsjis(c1, c2)
   7     register int c1, c2;
   8 {
   9     register int c;
  10
  11     c = c1 * 2 - (c1 <= 0x9f ? 0x00e1 : (c1 < 0xf0 ? 0x0161 : 0x01bf));
  12     if (c2 < 0x9f)
  13         c2 = c2 - (c2 > 0x7f ? 0x20 : 0x1f);
  14     else {
  15         c2 = c2 - 0x7e;
  16         c++;
  17     }
  18     (*(c1 <= 0xef ? outkanji : outgaiji))(c, c2);
  19 }