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 * Copyright(c) 2001 Sun Microsystems, Inc. 23 * All rights reserved. 24 */ 25 #include <stdio.h> 26 #include <errno.h> 27 #include <strings.h> 28 #include <stdlib.h> 29 #include "pc-iscii.h" 30 31 #define MSB 0x80 32 #define REPLACE_CHAR '?' 33 34 typedef struct _icv_state { 35 int dummy; 36 } _iconv_st; 37 38 static uchar 39 traverse_table(Entry *entry , int num, uchar iscii) 40 { 41 int i = 0; 42 uchar pc_iscii=0; 43 44 for ( ; i < num; ++i) { 45 Entry en = entry[i]; 46 47 if ( iscii < en.iscii ) break; 48 if ( iscii >= en.iscii && iscii < en.iscii + en.count ) { 49 pc_iscii = (iscii - en.iscii) + en.pc_iscii; 50 break; 51 } 52 } 53 54 return pc_iscii; 55 } 56 57 void * 58 _icv_open() 59 { 60 _iconv_st *st; 61 62 if ((st = (_iconv_st*)malloc(sizeof(_iconv_st))) == NULL) { 63 errno = ENOMEM; 64 return ((void*)-1); 65 } 66 67 bzero(st, sizeof(_iconv_st)); 68 69 return ((void*)st); 70 } 71 72 /* 73 * Close; called from iconv_close() 74 */ 75 void 76 _icv_close(_iconv_st *st) 77 { 78 if (!st) 79 errno = EBADF; 80 else 81 free(st); 82 } 83 84 size_t 85 _icv_iconv(_iconv_st *st, char **inbuf, size_t *inbytesleft, 86 char **outbuf, size_t *outbytesleft) 87 { 88 if (st == NULL) { 89 errno = EBADF; 90 return ((size_t) -1); 91 } 92 93 if (inbuf == NULL || *inbuf == NULL) { /* Reset request. */ 94 return ((size_t)0); 95 } 96 97 /* a state machine for interpreting ISCII code */ 98 while (*inbytesleft > 0 && *outbytesleft > 0) { 99 uchar c = (uchar)**inbuf; 100 101 if ( c & MSB ) { 102 uchar pc_iscii = traverse_table(isc_pciscii_tbl, 103 sizeof(isc_pciscii_tbl)/sizeof(Entry), c); 104 if ( pc_iscii ) **outbuf = pc_iscii; 105 else **outbuf = REPLACE_CHAR; 106 } else { /* ASCII */ 107 **outbuf = c; 108 } 109 110 (*inbuf)++; 111 (*inbytesleft)--; 112 (*outbuf)++; 113 (*outbytesleft)--; 114 } 115 116 if ( *inbytesleft > 0 && *outbytesleft == 0 ) { 117 errno = E2BIG; 118 return ((size_t)-1); 119 } 120 121 return ((size_t)(*inbytesleft)); 122 } 123