text: /***
  *tojisjms.c:  Converts JIS to JMS code, and JMS to JIS code.
  *
  *       Copyright (c) Microsoft Corporation. All rights reserved.
  *
  *Purpose:
  *       Convert JIS code into Microsoft Kanji code, and vice versa.
  *
  *******************************************************************************/
  #ifndef _MBCS
      #error This file should only be compiled with _MBCS defined
  #endif
  
  #include <corecrt_internal_mbstring.h>
  #include <locale.h>
  
  /***
  *unsigned int _mbcjistojms(c) - Converts JIS code to Microsoft Kanji Code.
  *
  *Purpose:
  *       Convert JIS code to Microsoft Kanji code.
  *
  *Entry:
  *       unsigned int c - JIS code to be converted. First byte is the upper
  *                          8 bits, and second is the lower 8 bits.
  *
  *Exit:
  *       Returns related Microsoft Kanji Code. First byte is the upper 8 bits
  *       and second byte is the lower 8 bits.
  *
  *Exceptions:
  *       If c is out of range, _mbcjistojms returns zero.
  *
  *******************************************************************************/
  
  extern "C" unsigned int __cdecl _mbcjistojms_l(
          unsigned int c,
          _locale_t plocinfo
      )
  {
          unsigned int h, l;
          _LocaleUpdate _loc_update(plocinfo);
  
          if (_loc_update.GetLocaleT()->mbcinfo->mbcodepage != _KANJI_CP)
              return (c);
  
          h = (c >> 8) & 0xff;
          l = c & 0xff;
          if (h < 0x21 || h > 0x7e || l < 0x21 || l > 0x7e)
          {
              errno = EILSEQ;
              return 0;
          }
          if (h & 0x01) {    /* first byte is odd */
              if (l <= 0x5f)
                  l += 0x1f;
              else
                  l += 0x20;
          }
          else
              l += 0x7e;
  
          h = ((h - 0x21) >> 1) + 0x81;
          if (h > 0x9f)
              h += 0x40;
          return (h << 8) | l;
  }
  extern "C" unsigned int (__cdecl _mbcjistojms)(
      unsigned int c
      )
  {
      return _mbcjistojms_l(c, nullptr);
  }
  
  
  /***
  *unsigned int _mbcjmstojis(c) - Converts Microsoft Kanji code into JIS code.
  *
  *Purpose:
  *       To convert Microsoft Kanji code into JIS code.
  *
  *Entry:
  *       unsigned int c - Microsoft Kanji code to be converted. First byte is
  *                          the upper 8 bits, and the second is the lower 8 bits.
  *
  *Exit:
  *       Returns related JIS Code. First byte is the upper 8 bits and the second
  *       byte is the lower 8 bits. If c is out of range, return zero.
  *
  *Exceptions:
  *
  *******************************************************************************/
  
  extern "C" unsigned int __cdecl _mbcjmstojis_l(
          unsigned int c,
          _locale_t plocinfo
          )
  {
          unsigned int    h, l;
          _LocaleUpdate _loc_update(plocinfo);
  
          if ( _loc_update.GetLocaleT()->mbcinfo->mbcodepage != _KANJI_CP )
              return (c);
  
          h = (c >> 8) & 0xff;
          l = c & 0xff;
  
          /* make sure input is valid shift-JIS */
          if ( (!(_ismbblead_l(h, _loc_update.GetLocaleT()))) || (!(_ismbbtrail_l(l, _loc_update.GetLocaleT()))) )
          {
              errno = EILSEQ;
              return 0;
          }
  
          h -= (h >= 0xa0) ? 0xc1 : 0x81;
          if(l >= 0x9f) {
              c = (h << 9) + 0x2200;
              c |= l - 0x7e;
          } else {
              c = (h << 9) + 0x2100;
              c |= l - ((l <= 0x7e) ? 0x1f : 0x20);
          }
  
          /* not all shift-JIS maps to JIS, so make sure output is valid */
          if ( (c>0x7E7E) || (c<0x2121) || ((c&0xFF)>0x7E) || ((c&0xFF)<0x21) )
          {
              errno = EILSEQ;
              return 0;
          }
  
          return c;
  }
  extern "C" unsigned int (__cdecl _mbcjmstojis)(
          unsigned int c
          )
  {
      return _mbcjmstojis_l(c, nullptr);
  }
  