URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [rtos/] [ecos-2.0/] [packages/] [language/] [c/] [libc/] [string/] [v2_0/] [src/] [strtok.cxx] - Rev 621
Go to most recent revision | Compare with Previous | Blame | View Log
//=========================================================================== // // strtok.cxx // // ISO standard strtok() 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): jlarmour // Contributors: jlarmour // Date: 2000-04-14 // Purpose: Provide ISO C strtok() and POSIX strtok_r() routines // Description: // Usage: // //####DESCRIPTIONEND#### // //=========================================================================== // // This code is based on original code with the following copyright: // /* * Copyright (c) 1988 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. 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. */ // CONFIGURATION #include <pkgconf/libc_string.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 <string.h> // Header for this file #include <stddef.h> // Compiler definitions such as size_t, NULL etc. #include <cyg/libc/string/stringsupp.hxx> // Useful string function support and // prototypes #ifdef CYGSEM_LIBC_STRING_PER_THREAD_STRTOK # 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_STRING_STRTOK_TRACE_LEVEL) static int strtok_trace = CYGNUM_LIBC_STRING_STRTOK_TRACE_LEVEL; # define TL1 (0 < strtok_trace) #else # define TL1 (0) #endif // STATICS #ifdef CYGSEM_LIBC_STRING_PER_THREAD_STRTOK static cyg_ucount32 strtok_data_index=CYGNUM_KERNEL_THREADS_DATA_MAX; static Cyg_Mutex strtok_data_mutex CYG_INIT_PRIORITY(LIBC); #else static char *cyg_libc_strtok_last; #endif // FUNCTIONS char * strtok( char *s1, const char *s2 ) { char **lasts; char *retval; CYG_REPORT_FUNCNAMETYPE( "strtok", "returning %08x" ); CYG_REPORT_FUNCARG2( "s1=%08x, s2=%08x", s1, s2 ); if (s1 != NULL) CYG_CHECK_DATA_PTR( s1, "s1 is not a valid pointer!" ); CYG_CHECK_DATA_PTR( s2, "s2 is not a valid pointer!" ); #ifdef CYGSEM_LIBC_STRING_PER_THREAD_STRTOK Cyg_Thread *self = Cyg_Thread::self(); // Get a per-thread data slot if we haven't got one already // Do a simple test before locking and retrying test, as this is a // rare situation if (CYGNUM_KERNEL_THREADS_DATA_MAX==strtok_data_index) { strtok_data_mutex.lock(); if (CYGNUM_KERNEL_THREADS_DATA_MAX==strtok_data_index) { // the kernel just throws an assert if this doesn't work // FIXME: Should use real CDL to pre-allocate a slot at compile // time to ensure there are enough slots strtok_data_index = self->new_data_index(); } strtok_data_mutex.unlock(); } // if // we have a valid index now lasts = (char **)self->get_data_ptr(strtok_data_index); #else lasts = &cyg_libc_strtok_last; #endif CYG_TRACE2( TL1, "Retrieved strtok_last address %08x containing %s", lasts, *lasts ); retval = strtok_r( s1, s2, lasts ); CYG_REPORT_RETVAL( retval ); return retval; } // strtok() char * strtok_r( char *s1, const char *s2, char **lasts ) { char *spanp; int c, sc; char *tok; CYG_REPORT_FUNCNAMETYPE( "strtok_r", "returning %08x" ); CYG_REPORT_FUNCARG3( "s1=%08x, s2=%08x, lasts=%08x", s1, s2, lasts ); if (s1 != NULL) CYG_CHECK_DATA_PTR( s1, "s1 is not a valid pointer!" ); CYG_CHECK_DATA_PTR( s2, "s2 is not a valid pointer!" ); CYG_CHECK_DATA_PTR( lasts, "lasts is not a valid pointer!" ); if (s1 == NULL && (s1 = *lasts) == NULL) { CYG_REPORT_RETVAL( NULL ); return NULL; } // if // // Skip (span) leading delimiters (s += strspn(s, delim), sort of). // cont: c = *s1++; for (spanp = (char *)s2; (sc = *spanp++) != 0;) { if (c == sc) goto cont; } // for if (c == 0) { // no non-delimiter characters *lasts = NULL; CYG_REPORT_RETVAL( NULL ); return NULL; } // if tok = s1 - 1; // // Scan token (scan for delimiters: s += strcspn(s, delim), sort of). // Note that delim must have one NUL; we stop if we see that, too. // for (;;) { c = *s1++; spanp = (char *)s2; do { if ((sc = *spanp++) == c) { if (c == 0) s1 = NULL; else s1[-1] = 0; *lasts = s1; CYG_REPORT_RETVAL( tok ); return (tok); } // if } while (sc != 0); } // for // NOTREACHED } // strtok_r() // EOF strtok.cxx
Go to most recent revision | Compare with Previous | Blame | View Log