1 ------------------------------------------------------------------------------
3 -- GNAT RUNTIME COMPONENTS --
5 -- S Y S T E M . W C H _ J I S --
9 -- $Revision: 1.1.16.1 $
11 -- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
13 -- GNAT is free software; you can redistribute it and/or modify it under --
14 -- terms of the GNU General Public License as published by the Free Soft- --
15 -- ware Foundation; either version 2, or (at your option) any later ver- --
16 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
17 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
18 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
19 -- for more details. You should have received a copy of the GNU General --
20 -- Public License distributed with GNAT; see file COPYING. If not, write --
21 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
22 -- MA 02111-1307, USA. --
24 -- As a special exception, if other files instantiate generics from this --
25 -- unit, or you link this unit with other files to produce an executable, --
26 -- this unit does not by itself cause the resulting executable to be --
27 -- covered by the GNU General Public License. This exception does not --
28 -- however invalidate any other reasons why the executable file might be --
29 -- covered by the GNU Public License. --
31 -- GNAT was originally developed by the GNAT team at New York University. --
32 -- Extensive contributions were provided by Ada Core Technologies Inc. --
34 ------------------------------------------------------------------------------
36 -- This package contains routines used for converting between internal
37 -- JIS codes and the two external forms we support (EUC and Shift-JIS)
39 package System
.WCh_JIS
is
40 pragma Pure
(WCh_JIS
);
42 function EUC_To_JIS
(EUC1
, EUC2
: Character) return Wide_Character;
43 -- Given the two bytes of a EUC representation, return the
44 -- corresponding JIS code wide character. Raises Constraint_Error
45 -- if the two characters are not a valid EUC encoding.
48 (J
: in Wide_Character;
50 EUC2
: out Character);
52 -- Given a wide character in JIS form, produce the corresponding
53 -- two bytes of the EUC representation of this character. This is
54 -- only used if J is not in the normal ASCII range, i.e. on entry
55 -- we know that Wide_Character'Pos (J) >= 16#0080# and that we
56 -- thus require a two byte EUC representation (ASCII codes appear
57 -- unchanged as a single byte in EUC). No error checking is performed,
58 -- the input code is assumed to be in an appropriate range.
60 procedure JIS_To_Shift_JIS
61 (J
: in Wide_Character;
64 -- Given a wide character code in JIS form, produce the corresponding
65 -- two bytes of the Shift-JIS representation of this character. This
66 -- is only used if J is not in the normal ASCII range, i.e. on entry
67 -- we know that Wide_Character'Pos (J) >= 16#0080# and that we
68 -- thus require a two byte EUC representation (ASCII codes appear
69 -- unchanged as a single byte in EUC). No error checking is performed,
70 -- the input code is assumed to be in an appropriate range (note in
71 -- particular that input codes in the range 16#0080#-16#00FF#, i.e.
72 -- Hankaku Kana, do not appear, since Shift JIS has no representation
75 function Shift_JIS_To_JIS
(SJ1
, SJ2
: Character) return Wide_Character;
76 -- Given the two bytes of a Shift-JIS representation, return the
77 -- corresponding JIS code wide character. Raises Constraint_Error if
78 -- the two characters are not a valid shift-JIS encoding.