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, Version 1.0 only 6 * (the "License"). You may not use this file except in compliance 7 * with the License. 8 * 9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10 * or http://www.opensolaris.org/os/licensing. 11 * See the License for the specific language governing permissions 12 * and limitations under the License. 13 * 14 * When distributing Covered Code, include this CDDL HEADER in each 15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16 * If applicable, add the following below this CDDL HEADER, with the 17 * fields enclosed by brackets "[]" replaced with your own identifying 18 * information: Portions Copyright [yyyy] [name of copyright owner] 19 * 20 * CDDL HEADER END 21 */ 22 /* 23 * Copyright 1997 Sun Microsystems, Inc. All rights reserved. 24 * Use is subject to license terms. 25 */ 26 27 /* 28 * mbtowc 29 */ 30 31 #pragma ident "%Z%%M% %I% %E% SMI" 32 33 #if !defined(lint) && defined(SCCSIDS) 34 static char *sccsid = "%Z%%M% %I% %E% SMI"; 35 #endif 36 37 #include <stdlib.h> 38 #include "codeset.h" 39 #include "mbextern.h" 40 41 #undef mblen 42 43 int 44 mbtowc(pwc, s, n) 45 wchar_t * pwc; 46 char *s; 47 size_t n; 48 { 49 char *handle; /* handle */ 50 int (*p)(); 51 int ret; 52 53 switch (_code_set_info.code_id) { 54 case CODESET_NONE: 55 #ifdef DEBUG 56 printf ("DEFAULT: mbtowc invoked\n"); 57 #endif 58 /* 59 * This is a default code set 60 */ 61 if (s == NULL) 62 return (1); 63 else { 64 if (pwc != NULL) 65 *pwc = (unsigned char)*s; 66 return (1); 67 } 68 break; 69 case CODESET_EUC: 70 #ifdef DEBUG 71 printf ("EUC: mbtowc invoked\n"); 72 #endif 73 /* 74 * EUC code set 75 */ 76 return(_mbtowc_euc(pwc, s, n)); 77 break; 78 79 case CODESET_XCCS: 80 #ifdef DEBUG 81 printf ("XCCS: mbtowc invoked\n"); 82 #endif 83 /* 84 * XCCS code set 85 */ 86 return(_mbtowc_xccs(pwc, s, n)); 87 break; 88 89 case CODESET_ISO2022: 90 #ifdef DEBUG 91 printf ("ISO2022: mbtowc invoked\n"); 92 #endif 93 /* 94 * ISO family 95 */ 96 return(_mbtowc_iso(pwc, s, n)); 97 break; 98 99 default: 100 /* 101 * User defined code set 102 */ 103 handle = _ml_open_library(); 104 if (handle == (char *)NULL) 105 return(ERROR_NO_LIB); /* No user library */ 106 p = (int (*)()) dlsym(handle, "_mbtowc"); 107 if (p == (int (*)()) NULL) 108 return(ERROR_NO_SYM); 109 ret = (*p)(pwc, s, n); 110 return (ret); 111 break; 112 } 113 /* NOTREACHED */ 114 } 115 116 int mblen(s, n) 117 register char *s; int n; 118 { 119 int val; 120 121 if (_code_set_info.code_id != CODESET_ISO2022) 122 return (mbtowc((wchar_t *)0, s, n)); 123 else { 124 /* 125 * ISO's mbtowc() changes 'states'. 126 */ 127 _savestates(); 128 val = mbtowc((wchar_t *)0, s, n); 129 _restorestates(); 130 return (val); 131 } 132 } 133