1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21 /*
22 * ICU License - ICU 1.8.1 and later
23 *
24 * COPYRIGHT AND PERMISSION NOTICE
25 *
26 * Copyright (c) 1995-2005 International Business Machines Corporation and others
27 * All rights reserved.
28 *
29 * Permission is hereby granted, free of charge, to any person obtaining a
30 * copy of this software and associated documentation files (the
31 * "Software"), to deal in the Software without restriction, including
32 * without limitation the rights to use, copy, modify, merge, publish,
33 * distribute, and/or sell copies of the Software, and to permit persons
34 * to whom the Software is furnished to do so, provided that the above
35 * copyright notice(s) and this permission notice appear in all copies of
36 * the Software and that both the above copyright notice(s) and this
37 * permission notice appear in supporting documentation.
38 *
39 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
40 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
41 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
42 * OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
43 * HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL
44 * INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING
45 * FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
46 * NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
47 * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
48 *
49 * Except as contained in this notice, the name of a copyright holder
50 * shall not be used in advertising or otherwise to promote the sale, use
51 * or other dealings in this Software without prior written authorization
52 * of the copyright holder.
53 *
54 * --------------------------------------------------------------------------
55 * All trademarks and registered trademarks mentioned herein are the property
56 * of their respective owners.
57 */
58
59 /*
60 * Copyright (c) 1994, 1995 by Sun Microsystems, Inc.
61 * Copyright (c) 1994, Nihon Sun Microsystems K.K.
62 * All Rights Reserved.
63 */
64
65 /*
66 Converting IBM-037 (EBCDIC) to 8859-1 (ASCII).
67 By Greg Nakhimovsky, Sun Microsystems.
68 April 1996.
69 */
70 #include <stdio.h>
71 #include <stdlib.h>
72 #include <errno.h>
73 #include <ctype.h>
74
75 #define MAGIC_NUMBER (0x216513)
76 #define ERR_RETURN (-1) /* result code on error */
77
78 #define GET(c) ((c) = *ip, ip++, ileft--)
79 #define PUT(c) (*op = (c), op++, oleft--)
80 #define UNGET() (ip--, ileft++)
81
82
83 /*
84 * Open; called from iconv_open()
85 */
86 void *
_icv_open()87 _icv_open()
88 {
89 return ((void*)MAGIC_NUMBER);
90 }
91
92
93 /*
94 * Close; called from iconv_close
95 */
96 void
_icv_close(int * cd)97 _icv_close(int* cd)
98 {
99 if (!cd || cd != (int*)MAGIC_NUMBER)
100 errno = EBADF;
101 }
102
103
104 /*
105 * Actual conversion; called from iconv()
106 */
107 size_t
_icv_iconv(int * cd,char ** inbuf,size_t * inbytesleft,char ** outbuf,size_t * outbytesleft)108 _icv_iconv(int* cd, char **inbuf, size_t *inbytesleft,
109 char **outbuf, size_t *outbytesleft)
110 {
111 unsigned char *ip, ic, *op;
112 size_t ileft, oleft;
113 size_t retval = 0;
114
115 static unsigned char map[256] = {
116 0x00 , 0x01 , 0x02 , 0x03 , 0xDC , 0x09 , 0xC3 , 0x7F , 0xCA , 0xB2 ,
117 0xD5 , 0x0B , 0x0C , 0x0D , 0x0E , 0x0F , 0x10 , 0x11 , 0x12 , 0x13 ,
118 0xDB , 0xDA , 0x08 , 0xC1 , 0x18 , 0x19 , 0xC8 , 0xF2 , 0x1C , 0x1D ,
119 0x1E , 0x1F , 0xC4 , 0xB3 , 0xC0 , 0xD9 , 0xBF , 0x0A , 0x17 , 0x1B ,
120 0xB4 , 0xC2 , 0xC5 , 0xB0 , 0xB1 , 0x05 , 0x06 , 0x07 , 0xCD , 0xBA ,
121 0x16 , 0xBC , 0xBB , 0xC9 , 0xCC , 0x04 , 0xB9 , 0xCB , 0xCE , 0xDF ,
122 0x14 , 0x15 , 0xFE , 0x1A , 0x20 , 0xA0 , 0xE2 , 0xE4 , 0xE0 , 0xE1 ,
123 0xE3 , 0xE5 , 0xE7 , 0xF1 , 0xA2 , 0x2E , 0x3C , 0x28 , 0x2B , 0x7C ,
124 0x26 , 0xE9 , 0xEA , 0xEB , 0xE8 , 0xED , 0xEE , 0xEF , 0xEC , 0xDF ,
125 0x21 , 0x24 , 0x2A , 0x29 , 0x3B , 0xAC , 0x2D , 0x2F , 0xC2 , 0xC4 ,
126 0xC0 , 0xC1 , 0xC3 , 0xC5 , 0xC7 , 0xD1 , 0xA6 , 0x2C , 0x25 , 0x5F ,
127 0x3E , 0x3F , 0xF8 , 0xC9 , 0xCA , 0xCB , 0xC8 , 0xCD , 0xCE , 0xCF ,
128 0xCC , 0x60 , 0x3A , 0x23 , 0x40 , 0x27 , 0x3D , 0x22 , 0xD8 , 0x61 ,
129 0x62 , 0x63 , 0x64 , 0x65 , 0x66 , 0x67 , 0x68 , 0x69 , 0xAB , 0xBB ,
130 0xF0 , 0xFD , 0xFE , 0xB1 , 0xB0 , 0x6A , 0x6B , 0x6C , 0x6D , 0x6E ,
131 0x6F , 0x70 , 0x71 , 0x72 , 0xAA , 0xBA , 0xE6 , 0xB8 , 0xC6 , 0xA4 ,
132 0xB5 , 0x7E , 0x73 , 0x74 , 0x75 , 0x76 , 0x77 , 0x78 , 0x79 , 0x7A ,
133 0xA1 , 0xBF , 0xD0 , 0xDD , 0xDE , 0xAE , 0x5E , 0xA3 , 0xA5 , 0xB7 ,
134 0xA9 , 0xA7 , 0xB6 , 0xBC , 0xBD , 0xBE , 0x5B , 0x5D , 0xAF , 0xA8 ,
135 0xB4 , 0xD7 , 0x7B , 0x41 , 0x42 , 0x43 , 0x44 , 0x45 , 0x46 , 0x47 ,
136 0x48 , 0x49 , 0xAD , 0xF4 , 0xF6 , 0xF2 , 0xF3 , 0xF5 , 0x7D , 0x4A ,
137 0x4B , 0x4C , 0x4D , 0x4E , 0x4F , 0x50 , 0x51 , 0x52 , 0xB9 , 0xFB ,
138 0xFC , 0xF9 , 0xFA , 0xFF , 0x5C , 0xF7 , 0x53 , 0x54 , 0x55 , 0x56 ,
139 0x57 , 0x58 , 0x59 , 0x5A , 0xB2 , 0xD4 , 0xD6 , 0xD2 , 0xD3 , 0xD5 ,
140 0x30 , 0x31 , 0x32 , 0x33 , 0x34 , 0x35 , 0x36 , 0x37 , 0x38 , 0x39 ,
141 0xB3 , 0xDB , 0xDC , 0xD9 , 0xDA , 0x1A };
142
143 if (!cd || cd != (int*)MAGIC_NUMBER)
144 {
145 errno = EBADF;
146 return((size_t)ERR_RETURN);
147 }
148
149 if ((inbuf == 0) || (*inbuf == 0))
150 return((size_t)0);
151
152 ip = (unsigned char*)*inbuf;
153 op = (unsigned char *)*outbuf;
154 ileft = *inbytesleft;
155 oleft = *outbytesleft;
156
157 /*
158 * Main loop; basically 1 loop per 1 input byte
159 */
160
161 while (ileft > 0) {
162 GET(ic);
163 if (oleft < 1) {
164 UNGET();
165 errno = E2BIG;
166 retval = ERR_RETURN;
167 goto ret;
168 }
169 PUT(map[ic]);
170 retval++;
171 }
172
173 ret:
174 *inbuf = (char *)ip;
175 *inbytesleft = ileft;
176 *outbuf = (char *)op;
177 *outbytesleft = oleft;
178
179 return (retval);
180 }
181