Subversion Repositories openrisc_2011-10-31

/*

 * Copyright (c) 1989 The Regents of the University of California.

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 * 3. All advertising materials mentioning features or use of this software

 *    must display the following acknowledgement:

 *      This product includes software developed by the University of

 *      California, Berkeley and its contributors.

 * 4. Neither the name of the University nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND

 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE

 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 * SUCH DAMAGE.

 */

#if defined(LIBC_SCCS) && !defined(lint)

static char sccsid[] = "@(#)ctype_.c    5.6 (Berkeley) 6/1/90";

#endif /* LIBC_SCCS and not lint */

#include <ctype.h>

#define _CTYPE_DATA_0_127 \

        _C,     _C,     _C,     _C,     _C,     _C,     _C,     _C, \

        _C,     _C|_S, _C|_S, _C|_S,    _C|_S,  _C|_S,  _C,     _C, \

        _C,     _C,     _C,     _C,     _C,     _C,     _C,     _C, \

        _C,     _C,     _C,     _C,     _C,     _C,     _C,     _C, \

        _S|_B,  _P,     _P,     _P,     _P,     _P,     _P,     _P, \

        _P,     _P,     _P,     _P,     _P,     _P,     _P,     _P, \

        _N,     _N,     _N,     _N,     _N,     _N,     _N,     _N, \

        _N,     _N,     _P,     _P,     _P,     _P,     _P,     _P, \

        _P,     _U|_X,  _U|_X,  _U|_X,  _U|_X,  _U|_X,  _U|_X,  _U, \

        _U,     _U,     _U,     _U,     _U,     _U,     _U,     _U, \

        _U,     _U,     _U,     _U,     _U,     _U,     _U,     _U, \

        _U,     _U,     _U,     _P,     _P,     _P,     _P,     _P, \

        _P,     _L|_X,  _L|_X,  _L|_X,  _L|_X,  _L|_X,  _L|_X,  _L, \

        _L,     _L,     _L,     _L,     _L,     _L,     _L,     _L, \

        _L,     _L,     _L,     _L,     _L,     _L,     _L,     _L, \

        _L,     _L,     _L,     _P,     _P,     _P,     _P,     _C

#define _CTYPE_DATA_128_255 \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0, \

        0,       0,       0,       0,       0,       0,       0,       0

#if (defined(__GNUC__) && !defined(__CHAR_UNSIGNED__) && !defined(COMPACT_CTYPE)) || defined (__CYGWIN__)

#define ALLOW_NEGATIVE_CTYPE_INDEX

#endif

#if defined(_MB_CAPABLE)

#if defined(_MB_EXTENDED_CHARSETS_ISO)

#include "ctype_iso.h"

#endif

#if defined(_MB_EXTENDED_CHARSETS_WINDOWS)

#include "ctype_cp.h"

#endif

#endif

#if defined(ALLOW_NEGATIVE_CTYPE_INDEX)

/* No static const on Cygwin since it's referenced and potentially overwritten

   for compatibility with older applications. */

#ifndef __CYGWIN__

static _CONST

#endif

char _ctype_b[128 + 256] = {

        _CTYPE_DATA_128_255,

        _CTYPE_DATA_0_127,

        _CTYPE_DATA_128_255

};

#ifndef _MB_CAPABLE

_CONST

#endif

char __EXPORT *__ctype_ptr__ = (char *) _ctype_b + 127;

#  ifdef __CYGWIN__

__asm__ ("                                      \n\

        .data                                   \n\

        .globl  __ctype_                        \n\

        .set    __ctype_,__ctype_b+127          \n\

        .text                                   \n\

");

#  else /* !__CYGWIN__ */

_CONST char _ctype_[1 + 256] = {

        0,

        _CTYPE_DATA_0_127,

        _CTYPE_DATA_128_255

};

#  endif /* !__CYGWIN__ */

#else   /* !defined(ALLOW_NEGATIVE_CTYPE_INDEX) */

_CONST char _ctype_[1 + 256] = {

        0,

        _CTYPE_DATA_0_127,

        _CTYPE_DATA_128_255

};

#ifndef _MB_CAPABLE

_CONST

#endif

char *__ctype_ptr__ = (char *) _ctype_;

#endif

#if defined(_MB_CAPABLE)

/* Cygwin has its own implementation which additionally maintains backward

   compatibility with applications built under older Cygwin releases. */

#ifndef __CYGWIN__

void

__set_ctype (const char *charset)

{

#if defined(_MB_EXTENDED_CHARSETS_ISO) || defined(_MB_EXTENDED_CHARSETS_WINDOWS)

  int idx;

#endif

  switch (*charset)

    {

#if defined(_MB_EXTENDED_CHARSETS_ISO)

    case 'I':

      idx = __iso_8859_index (charset + 9);

      /* The ctype table has a leading ISO-8859-1 element so we have to add

         1 to the index returned by __iso_8859_index.  If __iso_8859_index

         returns < 0, it's ISO-8859-1. */

      if (idx < 0)

        idx = 0;

      else

        ++idx;

#  if defined(ALLOW_NEGATIVE_CTYPE_INDEX)

      __ctype_ptr__ = (char *) (__ctype_iso[idx] + 127);

#  else

      __ctype_ptr__ = (char *) __ctype_iso[idx];

#  endif

      return;

#endif

#if defined(_MB_EXTENDED_CHARSETS_WINDOWS)

    case 'C':

      idx = __cp_index (charset + 2);

      if (idx < 0)

        break;

#  if defined(ALLOW_NEGATIVE_CTYPE_INDEX)

      __ctype_ptr__ = (char *) (__ctype_cp[idx] + 127);

#  else

      __ctype_ptr__ = (char *) __ctype_cp[idx];

#  endif

      return;

#endif

    default:

      break;

    }

#  if defined(ALLOW_NEGATIVE_CTYPE_INDEX)

  __ctype_ptr__ = (char *) _ctype_b + 127;

#  else

  __ctype_ptr__ = (char *) _ctype_;

#  endif

}

#endif /* !__CYGWIN__ */

#endif /* _MB_CAPABLE */