{*
 * << P o w e r P d f >> -- PdfJpCMap.pas
 *
 * << conversion routines from japanese charactor code to CID >>
 *
 * Copyright (c) 1999-2001 Takezou. <takeshi_kanno@est.hi-ho.ne.jp>
 *
 * This library is free software; you can redistribute it and/or modify it
 * under the terms of the GNU Library General Public License as published
 * by the Free Software Foundation; either version 2 of the License, or any
 * later version.
 *
 * This library is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE. See the GNU Library general Public License for more
 * details.
 *
 * You should have received a copy of the GNU Library General Public License
 * along with this library.
 *
 * Create 2001.04.16
 *
 *}
{$IFDEF LAZ_POWERPDF}
{$H+}
{$ENDIF}
unit PdfJpCMap;

interface

uses
  SysUtils;

type
  {*
   * PdfCidRange
   *}
  TPdfCidRange = record
    CFrom, CTo: integer;
    CRange: integer;
  end;

const

  CMAP_90MS_RKSJ_H: array[0..170] of TPdfCidRange = (
                     (CFrom: $20; CTo: $7d; CRange: 231),
                     (CFrom: $7e; CTo: $7e; CRange: 631),
                     (CFrom: $8140; CTo: $817e; CRange:  633),
                     (CFrom: $8180; CTo: $81ac; CRange:  696),
                     (CFrom: $81b8; CTo: $81bf; CRange:  741),
                     (CFrom: $81c8; CTo: $81ce; CRange:  749),
                     (CFrom: $81da; CTo: $81e8; CRange:  756),
                     (CFrom: $81f0; CTo: $81f7; CRange:  771),
                     (CFrom: $81fc; CTo: $81fc; CRange:  779),
                     (CFrom: $824f; CTo: $8258; CRange:  780),
                     (CFrom: $8260; CTo: $8279; CRange:  790),
                     (CFrom: $8281; CTo: $829a; CRange:  816),
                     (CFrom: $829f; CTo: $82f1; CRange:  842),
                     (CFrom: $8340; CTo: $837e; CRange:  925),
                     (CFrom: $8380; CTo: $8396; CRange:  988),
                     (CFrom: $839f; CTo: $83b6; CRange: 1011),
                     (CFrom: $83bf; CTo: $83d6; CRange: 1035),
                     (CFrom: $8440; CTo: $8460; CRange: 1059),
                     (CFrom: $8470; CTo: $847e; CRange: 1092),
                     (CFrom: $8480; CTo: $8491; CRange: 1107),
                     (CFrom: $849f; CTo: $849f; CRange: 7479),
                     (CFrom: $84a0; CTo: $84a0; CRange: 7481),
                     (CFrom: $84a1; CTo: $84a1; CRange: 7491),
                     (CFrom: $84a2; CTo: $84a2; CRange: 7495),
                     (CFrom: $84a3; CTo: $84a3; CRange: 7503),
                     (CFrom: $84a4; CTo: $84a4; CRange: 7499),
                     (CFrom: $84a5; CTo: $84a5; CRange: 7507),
                     (CFrom: $84a6; CTo: $84a6; CRange: 7523),
                     (CFrom: $84a7; CTo: $84a7; CRange: 7515),
                     (CFrom: $84a8; CTo: $84a8; CRange: 7531),
                     (CFrom: $84a9; CTo: $84a9; CRange: 7539),
                     (CFrom: $84aa; CTo: $84aa; CRange: 7480),
                     (CFrom: $84ab; CTo: $84ab; CRange: 7482),
                     (CFrom: $84ac; CTo: $84ac; CRange: 7494),
                     (CFrom: $84ad; CTo: $84ad; CRange: 7498),
                     (CFrom: $84ae; CTo: $84ae; CRange: 7506),
                     (CFrom: $84af; CTo: $84af; CRange: 7502),
                     (CFrom: $84b0; CTo: $84b0; CRange: 7514),
                     (CFrom: $84b1; CTo: $84b1; CRange: 7530),
                     (CFrom: $84b2; CTo: $84b2; CRange: 7522),
                     (CFrom: $84b3; CTo: $84b3; CRange: 7538),
                     (CFrom: $84b4; CTo: $84b4; CRange: 7554),
                     (CFrom: $84b5; CTo: $84b5; CRange: 7511),
                     (CFrom: $84b6; CTo: $84b6; CRange: 7526),
                     (CFrom: $84b7; CTo: $84b7; CRange: 7519),
                     (CFrom: $84b8; CTo: $84b8; CRange: 7534),
                     (CFrom: $84b9; CTo: $84b9; CRange: 7542),
                     (CFrom: $84ba; CTo: $84ba; CRange: 7508),
                     (CFrom: $84bb; CTo: $84bb; CRange: 7527),
                     (CFrom: $84bc; CTo: $84bc; CRange: 7516),
                     (CFrom: $84bd; CTo: $84bd; CRange: 7535),
                     (CFrom: $84be; CTo: $84be; CRange: 7545),
                     (CFrom: $8740; CTo: $875d; CRange: 7555),
                     (CFrom: $875f; CTo: $8760; CRange: 7585),
                     (CFrom: $8761; CTo: $8761; CRange: 8038),
                     (CFrom: $8762; CTo: $8762; CRange: 7588),
                     (CFrom: $8763; CTo: $8763; CRange: 8040),
                     (CFrom: $8764; CTo: $8764; CRange: 7590),
                     (CFrom: $8765; CTo: $8765; CRange: 8042),
                     (CFrom: $8766; CTo: $8767; CRange: 7592),
                     (CFrom: $8768; CTo: $8768; CRange: 8044),
                     (CFrom: $8769; CTo: $876a; CRange: 7595),
                     (CFrom: $876b; CTo: $876b; CRange: 8043),
                     (CFrom: $876c; CTo: $876d; CRange: 7598),
                     (CFrom: $876e; CTo: $876e; CRange: 8047),
                     (CFrom: $876f; CTo: $8775; CRange: 7601),
                     (CFrom: $877e; CTo: $877e; CRange: 8323),
                     (CFrom: $8780; CTo: $8783; CRange: 7608),
                     (CFrom: $8784; CTo: $8784; CRange: 8055),
                     (CFrom: $8785; CTo: $878f; CRange: 7613),
                     (CFrom: $8790; CTo: $8790; CRange:  762),
                     (CFrom: $8791; CTo: $8791; CRange:  761),
                     (CFrom: $8792; CTo: $8792; CRange:  769),
                     (CFrom: $8793; CTo: $8799; CRange: 7624),
                     (CFrom: $879a; CTo: $879a; CRange:  768),
                     (CFrom: $879b; CTo: $879c; CRange: 7631),
                     (CFrom: $889f; CTo: $88fc; CRange: 1125),
                     (CFrom: $8940; CTo: $897e; CRange: 1219),
                     (CFrom: $8980; CTo: $89fc; CRange: 1282),
                     (CFrom: $8a40; CTo: $8a7e; CRange: 1407),
                     (CFrom: $8a80; CTo: $8afc; CRange: 1470),
                     (CFrom: $8b40; CTo: $8b7e; CRange: 1595),
                     (CFrom: $8b80; CTo: $8bfc; CRange: 1658),
                     (CFrom: $8c40; CTo: $8c7e; CRange: 1783),
                     (CFrom: $8c80; CTo: $8cfc; CRange: 1846),
                     (CFrom: $8d40; CTo: $8d7e; CRange: 1971),
                     (CFrom: $8d80; CTo: $8dfc; CRange: 2034),
                     (CFrom: $8e40; CTo: $8e7e; CRange: 2159),
                     (CFrom: $8e80; CTo: $8efc; CRange: 2222),
                     (CFrom: $8f40; CTo: $8f7e; CRange: 2347),
                     (CFrom: $8f80; CTo: $8ffc; CRange: 2410),
                     (CFrom: $9040; CTo: $907e; CRange: 2535),
                     (CFrom: $9080; CTo: $90fc; CRange: 2598),
                     (CFrom: $9140; CTo: $917e; CRange: 2723),
                     (CFrom: $9180; CTo: $91fc; CRange: 2786),
                     (CFrom: $9240; CTo: $927e; CRange: 2911),
                     (CFrom: $9280; CTo: $92fc; CRange: 2974),
                     (CFrom: $9340; CTo: $937e; CRange: 3099),
                     (CFrom: $9380; CTo: $93fc; CRange: 3162),
                     (CFrom: $9440; CTo: $947e; CRange: 3287),
                     (CFrom: $9480; CTo: $94fc; CRange: 3350),
                     (CFrom: $9540; CTo: $957e; CRange: 3475),
                     (CFrom: $9580; CTo: $95fc; CRange: 3538),
                     (CFrom: $9640; CTo: $967e; CRange: 3663),
                     (CFrom: $9680; CTo: $96fc; CRange: 3726),
                     (CFrom: $9740; CTo: $977e; CRange: 3851),
                     (CFrom: $9780; CTo: $97fc; CRange: 3914),
                     (CFrom: $9840; CTo: $9872; CRange: 4039),
                     (CFrom: $989f; CTo: $98fc; CRange: 4090),
                     (CFrom: $9940; CTo: $997e; CRange: 4184),
                     (CFrom: $9980; CTo: $99fc; CRange: 4247),
                     (CFrom: $9a40; CTo: $9a7e; CRange: 4372),
                     (CFrom: $9a80; CTo: $9afc; CRange: 4435),
                     (CFrom: $9b40; CTo: $9b7e; CRange: 4560),
                     (CFrom: $9b80; CTo: $9bfc; CRange: 4623),
                     (CFrom: $9c40; CTo: $9c7e; CRange: 4748),
                     (CFrom: $9c80; CTo: $9cfc; CRange: 4811),
                     (CFrom: $9d40; CTo: $9d7e; CRange: 4936),
                     (CFrom: $9d80; CTo: $9dfc; CRange: 4999),
                     (CFrom: $9e40; CTo: $9e7e; CRange: 5124),
                     (CFrom: $9e80; CTo: $9efc; CRange: 5187),
                     (CFrom: $9f40; CTo: $9f7e; CRange: 5312),
                     (CFrom: $9f80; CTo: $9ffc; CRange: 5375),
                     (CFrom: $a0; CTo: $df; CRange:      326),
                     (CFrom: $e040; CTo: $e07e; CRange: 5500),
                     (CFrom: $e080; CTo: $e0fc; CRange: 5563),
                     (CFrom: $e140; CTo: $e17e; CRange: 5688),
                     (CFrom: $e180; CTo: $e1fc; CRange: 5751),
                     (CFrom: $e240; CTo: $e27e; CRange: 5876),
                     (CFrom: $e280; CTo: $e2fc; CRange: 5939),
                     (CFrom: $e340; CTo: $e37e; CRange: 6064),
                     (CFrom: $e380; CTo: $e3fc; CRange: 6127),
                     (CFrom: $e440; CTo: $e47e; CRange: 6252),
                     (CFrom: $e480; CTo: $e4fc; CRange: 6315),
                     (CFrom: $e540; CTo: $e57e; CRange: 6440),
                     (CFrom: $e580; CTo: $e5fc; CRange: 6503),
                     (CFrom: $e640; CTo: $e67e; CRange: 6628),
                     (CFrom: $e680; CTo: $e6fc; CRange: 6691),
                     (CFrom: $e740; CTo: $e77e; CRange: 6816),
                     (CFrom: $e780; CTo: $e7fc; CRange: 6879),
                     (CFrom: $e840; CTo: $e87e; CRange: 7004),
                     (CFrom: $e880; CTo: $e8fc; CRange: 7067),
                     (CFrom: $e940; CTo: $e97e; CRange: 7192),
                     (CFrom: $e980; CTo: $e9fc; CRange: 7255),
                     (CFrom: $ea40; CTo: $ea7e; CRange: 7380),
                     (CFrom: $ea80; CTo: $eaa2; CRange: 7443),
                     (CFrom: $eaa3; CTo: $eaa4; CRange: 8284),
                     (CFrom: $ed40; CTo: $ed7e; CRange: 8359),
                     (CFrom: $ed80; CTo: $edb3; CRange: 8422),
                     (CFrom: $edb4; CTo: $edb4; CRange: 1993),
                     (CFrom: $edb5; CTo: $edfc; CRange: 8474),
                     (CFrom: $ee40; CTo: $ee7e; CRange: 8546),
                     (CFrom: $ee80; CTo: $eeec; CRange: 8609),
                     (CFrom: $eeef; CTo: $eef8; CRange: 8092),
                     (CFrom: $eef9; CTo: $eef9; CRange:  751),
                     (CFrom: $eefa; CTo: $eefc; CRange: 8005),
                     (CFrom: $fa40; CTo: $fa49; CRange: 8092),
                     (CFrom: $fa4a; CTo: $fa53; CRange: 7575),
                     (CFrom: $fa54; CTo: $fa54; CRange:  751),
                     (CFrom: $fa55; CTo: $fa57; CRange: 8005),
                     (CFrom: $fa58; CTo: $fa58; CRange: 7618),
                     (CFrom: $fa59; CTo: $fa59; CRange: 7610),
                     (CFrom: $fa5a; CTo: $fa5a; CRange: 8055),
                     (CFrom: $fa5b; CTo: $fa5b; CRange:  768),
                     (CFrom: $fa5c; CTo: $fa7e; CRange: 8359),
                     (CFrom: $fa80; CTo: $facf; CRange: 8394),
                     (CFrom: $fad0; CTo: $fad0; CRange: 1993),
                     (CFrom: $fad1; CTo: $fafc; CRange: 8474),
                     (CFrom: $fb40; CTo: $fb7e; CRange: 8518),
                     (CFrom: $fb80; CTo: $fbfc; CRange: 8581),
                     (CFrom: $fc40; CTo: $fc4b; CRange: 8706));

  CMAP_90MSP_RKSJ_H: array[0..170] of TPdfCidRange = (
                     (CFrom: $20; CTo: $7d; CRange: 1),
                     (CFrom: $7e; CTo: $7e; CRange: 631),
                     (CFrom: $8140; CTo: $817e; CRange:  633),
                     (CFrom: $8180; CTo: $81ac; CRange:  696),
                     (CFrom: $81b8; CTo: $81bf; CRange:  741),
                     (CFrom: $81c8; CTo: $81ce; CRange:  749),
                     (CFrom: $81da; CTo: $81e8; CRange:  756),
                     (CFrom: $81f0; CTo: $81f7; CRange:  771),
                     (CFrom: $81fc; CTo: $81fc; CRange:  779),
                     (CFrom: $824f; CTo: $8258; CRange:  780),
                     (CFrom: $8260; CTo: $8279; CRange:  790),
                     (CFrom: $8281; CTo: $829a; CRange:  816),
                     (CFrom: $829f; CTo: $82f1; CRange:  842),
                     (CFrom: $8340; CTo: $837e; CRange:  925),
                     (CFrom: $8380; CTo: $8396; CRange:  988),
                     (CFrom: $839f; CTo: $83b6; CRange: 1011),
                     (CFrom: $83bf; CTo: $83d6; CRange: 1035),
                     (CFrom: $8440; CTo: $8460; CRange: 1059),
                     (CFrom: $8470; CTo: $847e; CRange: 1092),
                     (CFrom: $8480; CTo: $8491; CRange: 1107),
                     (CFrom: $849f; CTo: $849f; CRange: 7479),
                     (CFrom: $84a0; CTo: $84a0; CRange: 7481),
                     (CFrom: $84a1; CTo: $84a1; CRange: 7491),
                     (CFrom: $84a2; CTo: $84a2; CRange: 7495),
                     (CFrom: $84a3; CTo: $84a3; CRange: 7503),
                     (CFrom: $84a4; CTo: $84a4; CRange: 7499),
                     (CFrom: $84a5; CTo: $84a5; CRange: 7507),
                     (CFrom: $84a6; CTo: $84a6; CRange: 7523),
                     (CFrom: $84a7; CTo: $84a7; CRange: 7515),
                     (CFrom: $84a8; CTo: $84a8; CRange: 7531),
                     (CFrom: $84a9; CTo: $84a9; CRange: 7539),
                     (CFrom: $84aa; CTo: $84aa; CRange: 7480),
                     (CFrom: $84ab; CTo: $84ab; CRange: 7482),
                     (CFrom: $84ac; CTo: $84ac; CRange: 7494),
                     (CFrom: $84ad; CTo: $84ad; CRange: 7498),
                     (CFrom: $84ae; CTo: $84ae; CRange: 7506),
                     (CFrom: $84af; CTo: $84af; CRange: 7502),
                     (CFrom: $84b0; CTo: $84b0; CRange: 7514),
                     (CFrom: $84b1; CTo: $84b1; CRange: 7530),
                     (CFrom: $84b2; CTo: $84b2; CRange: 7522),
                     (CFrom: $84b3; CTo: $84b3; CRange: 7538),
                     (CFrom: $84b4; CTo: $84b4; CRange: 7554),
                     (CFrom: $84b5; CTo: $84b5; CRange: 7511),
                     (CFrom: $84b6; CTo: $84b6; CRange: 7526),
                     (CFrom: $84b7; CTo: $84b7; CRange: 7519),
                     (CFrom: $84b8; CTo: $84b8; CRange: 7534),
                     (CFrom: $84b9; CTo: $84b9; CRange: 7542),
                     (CFrom: $84ba; CTo: $84ba; CRange: 7508),
                     (CFrom: $84bb; CTo: $84bb; CRange: 7527),
                     (CFrom: $84bc; CTo: $84bc; CRange: 7516),
                     (CFrom: $84bd; CTo: $84bd; CRange: 7535),
                     (CFrom: $84be; CTo: $84be; CRange: 7545),
                     (CFrom: $8740; CTo: $875d; CRange: 7555),
                     (CFrom: $875f; CTo: $8760; CRange: 7585),
                     (CFrom: $8761; CTo: $8761; CRange: 8038),
                     (CFrom: $8762; CTo: $8762; CRange: 7588),
                     (CFrom: $8763; CTo: $8763; CRange: 8040),
                     (CFrom: $8764; CTo: $8764; CRange: 7590),
                     (CFrom: $8765; CTo: $8765; CRange: 8042),
                     (CFrom: $8766; CTo: $8767; CRange: 7592),
                     (CFrom: $8768; CTo: $8768; CRange: 8044),
                     (CFrom: $8769; CTo: $876a; CRange: 7595),
                     (CFrom: $876b; CTo: $876b; CRange: 8043),
                     (CFrom: $876c; CTo: $876d; CRange: 7598),
                     (CFrom: $876e; CTo: $876e; CRange: 8047),
                     (CFrom: $876f; CTo: $8775; CRange: 7601),
                     (CFrom: $877e; CTo: $877e; CRange: 8323),
                     (CFrom: $8780; CTo: $8783; CRange: 7608),
                     (CFrom: $8784; CTo: $8784; CRange: 8055),
                     (CFrom: $8785; CTo: $878f; CRange: 7613),
                     (CFrom: $8790; CTo: $8790; CRange:  762),
                     (CFrom: $8791; CTo: $8791; CRange:  761),
                     (CFrom: $8792; CTo: $8792; CRange:  769),
                     (CFrom: $8793; CTo: $8799; CRange: 7624),
                     (CFrom: $879a; CTo: $879a; CRange:  768),
                     (CFrom: $879b; CTo: $879c; CRange: 7631),
                     (CFrom: $889f; CTo: $88fc; CRange: 1125),
                     (CFrom: $8940; CTo: $897e; CRange: 1219),
                     (CFrom: $8980; CTo: $89fc; CRange: 1282),
                     (CFrom: $8a40; CTo: $8a7e; CRange: 1407),
                     (CFrom: $8a80; CTo: $8afc; CRange: 1470),
                     (CFrom: $8b40; CTo: $8b7e; CRange: 1595),
                     (CFrom: $8b80; CTo: $8bfc; CRange: 1658),
                     (CFrom: $8c40; CTo: $8c7e; CRange: 1783),
                     (CFrom: $8c80; CTo: $8cfc; CRange: 1846),
                     (CFrom: $8d40; CTo: $8d7e; CRange: 1971),
                     (CFrom: $8d80; CTo: $8dfc; CRange: 2034),
                     (CFrom: $8e40; CTo: $8e7e; CRange: 2159),
                     (CFrom: $8e80; CTo: $8efc; CRange: 2222),
                     (CFrom: $8f40; CTo: $8f7e; CRange: 2347),
                     (CFrom: $8f80; CTo: $8ffc; CRange: 2410),
                     (CFrom: $9040; CTo: $907e; CRange: 2535),
                     (CFrom: $9080; CTo: $90fc; CRange: 2598),
                     (CFrom: $9140; CTo: $917e; CRange: 2723),
                     (CFrom: $9180; CTo: $91fc; CRange: 2786),
                     (CFrom: $9240; CTo: $927e; CRange: 2911),
                     (CFrom: $9280; CTo: $92fc; CRange: 2974),
                     (CFrom: $9340; CTo: $937e; CRange: 3099),
                     (CFrom: $9380; CTo: $93fc; CRange: 3162),
                     (CFrom: $9440; CTo: $947e; CRange: 3287),
                     (CFrom: $9480; CTo: $94fc; CRange: 3350),
                     (CFrom: $9540; CTo: $957e; CRange: 3475),
                     (CFrom: $9580; CTo: $95fc; CRange: 3538),
                     (CFrom: $9640; CTo: $967e; CRange: 3663),
                     (CFrom: $9680; CTo: $96fc; CRange: 3726),
                     (CFrom: $9740; CTo: $977e; CRange: 3851),
                     (CFrom: $9780; CTo: $97fc; CRange: 3914),
                     (CFrom: $9840; CTo: $9872; CRange: 4039),
                     (CFrom: $989f; CTo: $98fc; CRange: 4090),
                     (CFrom: $9940; CTo: $997e; CRange: 4184),
                     (CFrom: $9980; CTo: $99fc; CRange: 4247),
                     (CFrom: $9a40; CTo: $9a7e; CRange: 4372),
                     (CFrom: $9a80; CTo: $9afc; CRange: 4435),
                     (CFrom: $9b40; CTo: $9b7e; CRange: 4560),
                     (CFrom: $9b80; CTo: $9bfc; CRange: 4623),
                     (CFrom: $9c40; CTo: $9c7e; CRange: 4748),
                     (CFrom: $9c80; CTo: $9cfc; CRange: 4811),
                     (CFrom: $9d40; CTo: $9d7e; CRange: 4936),
                     (CFrom: $9d80; CTo: $9dfc; CRange: 4999),
                     (CFrom: $9e40; CTo: $9e7e; CRange: 5124),
                     (CFrom: $9e80; CTo: $9efc; CRange: 5187),
                     (CFrom: $9f40; CTo: $9f7e; CRange: 5312),
                     (CFrom: $9f80; CTo: $9ffc; CRange: 5375),
                     (CFrom: $a0; CTo: $df; CRange:      326),
                     (CFrom: $e040; CTo: $e07e; CRange: 5500),
                     (CFrom: $e080; CTo: $e0fc; CRange: 5563),
                     (CFrom: $e140; CTo: $e17e; CRange: 5688),
                     (CFrom: $e180; CTo: $e1fc; CRange: 5751),
                     (CFrom: $e240; CTo: $e27e; CRange: 5876),
                     (CFrom: $e280; CTo: $e2fc; CRange: 5939),
                     (CFrom: $e340; CTo: $e37e; CRange: 6064),
                     (CFrom: $e380; CTo: $e3fc; CRange: 6127),
                     (CFrom: $e440; CTo: $e47e; CRange: 6252),
                     (CFrom: $e480; CTo: $e4fc; CRange: 6315),
                     (CFrom: $e540; CTo: $e57e; CRange: 6440),
                     (CFrom: $e580; CTo: $e5fc; CRange: 6503),
                     (CFrom: $e640; CTo: $e67e; CRange: 6628),
                     (CFrom: $e680; CTo: $e6fc; CRange: 6691),
                     (CFrom: $e740; CTo: $e77e; CRange: 6816),
                     (CFrom: $e780; CTo: $e7fc; CRange: 6879),
                     (CFrom: $e840; CTo: $e87e; CRange: 7004),
                     (CFrom: $e880; CTo: $e8fc; CRange: 7067),
                     (CFrom: $e940; CTo: $e97e; CRange: 7192),
                     (CFrom: $e980; CTo: $e9fc; CRange: 7255),
                     (CFrom: $ea40; CTo: $ea7e; CRange: 7380),
                     (CFrom: $ea80; CTo: $eaa2; CRange: 7443),
                     (CFrom: $eaa3; CTo: $eaa4; CRange: 8284),
                     (CFrom: $ed40; CTo: $ed7e; CRange: 8359),
                     (CFrom: $ed80; CTo: $edb3; CRange: 8422),
                     (CFrom: $edb4; CTo: $edb4; CRange: 1993),
                     (CFrom: $edb5; CTo: $edfc; CRange: 8474),
                     (CFrom: $ee40; CTo: $ee7e; CRange: 8546),
                     (CFrom: $ee80; CTo: $eeec; CRange: 8609),
                     (CFrom: $eeef; CTo: $eef8; CRange: 8092),
                     (CFrom: $eef9; CTo: $eef9; CRange:  751),
                     (CFrom: $eefa; CTo: $eefc; CRange: 8005),
                     (CFrom: $fa40; CTo: $fa49; CRange: 8092),
                     (CFrom: $fa4a; CTo: $fa53; CRange: 7575),
                     (CFrom: $fa54; CTo: $fa54; CRange:  751),
                     (CFrom: $fa55; CTo: $fa57; CRange: 8005),
                     (CFrom: $fa58; CTo: $fa58; CRange: 7618),
                     (CFrom: $fa59; CTo: $fa59; CRange: 7610),
                     (CFrom: $fa5a; CTo: $fa5a; CRange: 8055),
                     (CFrom: $fa5b; CTo: $fa5b; CRange:  768),
                     (CFrom: $fa5c; CTo: $fa7e; CRange: 8359),
                     (CFrom: $fa80; CTo: $facf; CRange: 8394),
                     (CFrom: $fad0; CTo: $fad0; CRange: 1993),
                     (CFrom: $fad1; CTo: $fafc; CRange: 8474),
                     (CFrom: $fb40; CTo: $fb7e; CRange: 8518),
                     (CFrom: $fb80; CTo: $fbfc; CRange: 8581),
                     (CFrom: $fc40; CTo: $fc4b; CRange: 8706));

  function CharToCMap_90MS_RKSJ_H(S: string; Index: integer): integer;
  function CharToCMap_90MSP_RKSJ_H(S: string; Index: integer): integer;

implementation

{ CharToCMap_90MS_RKSJ_H }
function CharToCMap_90MS_RKSJ_H(S: string; Index: integer): integer;
var
  i: integer;
  C: integer;
begin
  C := 0;
  result := 0;
  case ByteType(S, Index) of
    mbSingleByte: C := Integer(S[Index]);
    mbLeadByte: C := Integer(S[Index])*256 + Integer(S[Index+1]);
    mbTrailByte:
      begin
        result := -1;
        Exit;
      end;
  end;

  for i := 0 to High(CMAP_90MS_RKSJ_H) - 1 do
  begin
    with CMAP_90MS_RKSJ_H[i] do
      if (C <= CTo) and (C >= CFrom) then
      begin
        result := CRange + (C - CFrom);
        Break;
      end;
  end;
end;

{ CharToCMap_90MS_RKSJ_H }
function CharToCMap_90MSP_RKSJ_H(S: string; Index: integer): integer;
var
  i: integer;
  C: integer;
begin
  C := 0;
  result := 0;
  case ByteType(S, Index) of
    mbSingleByte: C := Integer(S[Index]);
    mbLeadByte: C := Integer(S[Index])*256 + Integer(S[Index+1]);
    mbTrailByte:
      begin
        result := -1;
        Exit;
      end;
  end;

  for i := 0 to High(CMAP_90MSP_RKSJ_H) do
  begin
    with CMAP_90MSP_RKSJ_H[i] do
      if (C <= CTo) and (C >= CFrom) then
      begin
        result := CRange + (C - CFrom);
        Break;
      end;
  end;
end;

end.