URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [rtos/] [ecos-2.0/] [packages/] [language/] [c/] [libc/] [i18n/] [v2_0/] [src/] [mbstowcs.cxx] - Rev 27
Go to most recent revision | Compare with Previous | Blame | View Log
//=========================================================================== // // mbstowcs.cxx // // ISO standard mbstowcs() routine // //=========================================================================== //####ECOSGPLCOPYRIGHTBEGIN#### // ------------------------------------------- // This file is part of eCos, the Embedded Configurable Operating System. // Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc. // // eCos is free software; you can redistribute it and/or modify it under // the terms of the GNU General Public License as published by the Free // Software Foundation; either version 2 or (at your option) any later version. // // eCos is distributed in the hope that it will be useful, but WITHOUT ANY // WARRANTY; without even the implied warranty of MERCHANTABILITY or // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License // for more details. // // You should have received a copy of the GNU General Public License along // with eCos; if not, write to the Free Software Foundation, Inc., // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. // // As a special exception, if other files instantiate templates or use macros // or inline functions from this file, or you compile this file and link it // with other works to produce a work based on this file, this file does not // by itself cause the resulting work to be covered by the GNU General Public // License. However the source code for this file must still be made available // in accordance with section (3) of the GNU General Public License. // // This exception does not invalidate any other reasons why a work based on // this file might be covered by the GNU General Public License. // // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc. // at http://sources.redhat.com/ecos/ecos-license/ // ------------------------------------------- //####ECOSGPLCOPYRIGHTEND#### //=========================================================================== //#####DESCRIPTIONBEGIN#### // // Author(s): jjohnstn // Contributors: jjohnstn // Date: 2000-11-01 // Purpose: Provide ISO C mbstowcs() // Description: // Usage: // //####DESCRIPTIONEND#### // //=========================================================================== // // This code was based on newlib/libc/stdlib/mbstowcs.c and newlib/libc/stdlib/mbstowcs_r.c // The following is the modified from the original newlib description: // /* FUNCTION <<mbstowcs>>---multibyte string to wide char converter INDEX mbstowcs ANSI_SYNOPSIS #include <stdlib.h> int mbstowcs(wchar_t *<[pwc]>, const char *<[s]>, size_t <[n]>); TRAD_SYNOPSIS #include <stdlib.h> int mbstowcs(<[pwc]>, <[s]>, <[n]>) wchar_t *<[pwc]>; const char *<[s]>; size_t <[n]>; DESCRIPTION When CYGINT_LIBC_I18N_MB_REQUIRED is not defined, this is a minimal ANSI-conforming implementation of <<mbstowcs>>. In this case, the only ``multi-byte character sequences'' recognized are single bytes, and they are ``converted'' to wide-char versions simply by byte extension. When CYGINT_LIBC_I18N_MB_REQUIRED is defined, this routine calls the LC_CTYPE locale mbtowc_fn repeatedly to perform the conversion, passing a state variable to allow state dependent decoding. The result is based on the locale setting which may be restricted to a defined set of locales. RETURNS This implementation of <<mbstowcs>> returns <<0>> if <[s]> is <<NULL>> or is the empty string; it returns <<-1>> if CYGINT_LIBC_I18N_MB_REQUIRED and one of the multi-byte characters is invalid or incomplete; otherwise it returns the minimum of: <<n>> or the number of multi-byte characters in <<s>> plus 1 (to compensate for the nul character). If the return value is -1, the state of the <<pwc>> string is indeterminate. If the input has a length of 0, the output string will be modified to contain a wchar_t nul terminator. PORTABILITY <<mbstowcs>> is required in the ANSI C standard. However, the precise effects vary with the locale. <<mbstowcs>> requires no supporting OS subroutines. */ // CONFIGURATION #include <pkgconf/libc_i18n.h> // Configuration header // INCLUDES #include <cyg/infra/cyg_type.h> // Common type definitions #include <cyg/infra/cyg_trac.h> // Tracing support #include <cyg/infra/cyg_ass.h> // Assertion support #include <locale.h> #include <stdlib.h> // Header for this file #include <string.h> // strcmp definition #include <stddef.h> // size_t definition #include "internal.h" // __current_ctype_locale #ifdef CYGSEM_LIBC_I18N_PER_THREAD_MBSTOWCS # include <pkgconf/kernel.h> // kernel configuration # include <cyg/kernel/thread.hxx> // per-thread data # include <cyg/kernel/thread.inl> // per-thread data # include <cyg/kernel/mutex.hxx> // mutexes #endif // TRACE #if defined(CYGDBG_USE_TRACING) && defined(CYGNUM_LIBC_I18N_MBSTOWCS_TRACE_LEVEL) static int mbstowcs_trace = CYGNUM_LIBC_I18N_MBSTOWCS_TRACE_LEVEL; # define TL1 (0 < mbstowcs_trace) #else # define TL1 (0) #endif // STATICS // FUNCTIONS size_t mbstowcs ( wchar_t *pwcs, const char *s, size_t n ) { size_t retval; CYG_REPORT_FUNCNAMETYPE( "mbstowcs", "returning %ud" ); CYG_REPORT_FUNCARG3( "pwcs=%08x, s=%08x, n=%ud", pwcs, s, n ); if (pwcs != NULL) CYG_CHECK_DATA_PTR( pwcs, "pwcs is not a valid pointer!" ); if (s != NULL) CYG_CHECK_DATA_PTR( s, "s is not a valid pointer!" ); #ifdef CYGINT_LIBC_I18N_MB_REQUIRED CYG_TRACE2( TL1, "Retrieved mbstowcs_last address %08x containing %d", state, *state ); wchar_t *ptr = pwcs; size_t max = n; int state = 0; char *t = (char *)s; int bytes; int (*mbtowc_fn)(wchar_t *, const char *, size_t, int *) = __current_ctype_locale->mbtowc_fn; if (mbtowc_fn) { while (n > 0) { bytes = mbtowc_fn (ptr, t, MB_CUR_MAX, &state); if (bytes == -1) { retval = (size_t)-1; CYG_REPORT_RETVAL( retval ); return retval; } else if (bytes == 0) { retval = ptr - pwcs; CYG_REPORT_RETVAL( retval ); return retval; } t += bytes; ++ptr; --n; } retval = max; CYG_REPORT_RETVAL( retval ); return retval; } #endif /* CYGINT_LIBC_I18N_MB_REQUIRED */ int count = 0; if (n != 0) { do { if ((*pwcs++ = (wchar_t) *s++) == 0) break; count++; } while (--n != 0); } retval = count; CYG_REPORT_RETVAL( retval ); return retval; } // mbstowcs() // EOF mbstowcs.cxx
Go to most recent revision | Compare with Previous | Blame | View Log