gen/common/mbtowc.c

	mbtowc.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 1997 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*
 * mbtowc
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

#if !defined(lint) && defined(SCCSIDS)
static  char *sccsid = "%Z%%M% %I%     %E% SMI";
#endif

#include <stdlib.h>
#include "codeset.h"
#include "mbextern.h"

#undef  mblen

int
mbtowc(pwc, s, n)
    wchar_t * pwc;
    char *s;
    size_t n;
{
    char *handle;       /* handle */
    int (*p)();
    int ret;

    switch (_code_set_info.code_id) {
    case CODESET_NONE:
#ifdef DEBUG
    printf ("DEFAULT: mbtowc invoked\n");
#endif
        /*
         * This is a default code set
         */
         if (s == NULL)
            return (1);
         else {
            if (pwc != NULL)
                *pwc = (unsigned char)*s;
            return (1);
         }
         break;
    case CODESET_EUC:
#ifdef DEBUG
    printf ("EUC: mbtowc invoked\n");
#endif
        /*
         * EUC code set
         */
         return(_mbtowc_euc(pwc, s, n));
         break;

    case CODESET_XCCS:
#ifdef DEBUG
    printf ("XCCS: mbtowc invoked\n");
#endif
        /*
         * XCCS code set
         */
        return(_mbtowc_xccs(pwc, s, n));
        break;

    case CODESET_ISO2022:
#ifdef DEBUG
    printf ("ISO2022: mbtowc invoked\n");
#endif
        /*
         * ISO family
         */
        return(_mbtowc_iso(pwc, s, n));
        break;

    default:
        /*
         * User defined code set
         */
         handle = _ml_open_library();
         if (handle == (char *)NULL)
            return(ERROR_NO_LIB);   /* No user library */
         p = (int (*)()) dlsym(handle, "_mbtowc");
         if (p == (int (*)()) NULL)
            return(ERROR_NO_SYM);
         ret = (*p)(pwc, s, n);
         return (ret);
         break;
    }
    /* NOTREACHED */
}

int mblen(s, n)
register char *s; int n;
{
    int val;

    if (_code_set_info.code_id != CODESET_ISO2022)
        return (mbtowc((wchar_t *)0, s, n));
    else {
        /*
         * ISO's mbtowc() changes 'states'.
         */
        _savestates();
        val = mbtowc((wchar_t *)0, s, n);
        _restorestates();
        return (val);
    }
}