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