packages/language/c/libc/stdio/v2_0/src/common/vsscanf.cxx

   1 //===========================================================================
   2 //
   3 //      vsscanf.cxx
   4 //
   5 //      ANSI Stdio vsscanf() function
   6 //
   7 //===========================================================================
   8 //####ECOSGPLCOPYRIGHTBEGIN####
   9 // -------------------------------------------
  10 // This file is part of eCos, the Embedded Configurable Operating System.
  11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
  12 //
  13 // eCos is free software; you can redistribute it and/or modify it under
  14 // the terms of the GNU General Public License as published by the Free
  15 // Software Foundation; either version 2 or (at your option) any later version.
  16 //
  17 // eCos is distributed in the hope that it will be useful, but WITHOUT ANY
  18 // WARRANTY; without even the implied warranty of MERCHANTABILITY or
  19 // FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  20 // for more details.
  21 //
  22 // You should have received a copy of the GNU General Public License along
  23 // with eCos; if not, write to the Free Software Foundation, Inc.,
  24 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  25 //
  26 // As a special exception, if other files instantiate templates or use macros
  27 // or inline functions from this file, or you compile this file and link it
  28 // with other works to produce a work based on this file, this file does not
  29 // by itself cause the resulting work to be covered by the GNU General Public
  30 // License. However the source code for this file must still be made available
  31 // in accordance with section (3) of the GNU General Public License.
  32 //
  33 // This exception does not invalidate any other reasons why a work based on
  34 // this file might be covered by the GNU General Public License.
  35 //
  36 // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
  37 // at http://sources.redhat.com/ecos/ecos-license/
  38 // -------------------------------------------
  39 //####ECOSGPLCOPYRIGHTEND####
  40 //===========================================================================
  41 //#####DESCRIPTIONBEGIN####
  42 //
  43 // Author(s):    jlarmour
  44 // Contributors:
  45 // Date:         2000-04-20
  46 // Purpose:
  47 // Description:
  48 // Usage:
  49 //
  50 //####DESCRIPTIONEND####
  51 //
  52 //===========================================================================
  53
  54 // CONFIGURATION
  55
  56 #include <pkgconf/libc_stdio.h>   // Configuration header
  57
  58 // INCLUDES
  59
  60 #include <cyg/infra/cyg_type.h>     // Common project-wide type definitions
  61 #include <stddef.h>                 // NULL and size_t from compiler
  62 #include <stdio.h>                  // header for this file
  63 #include <errno.h>                  // error codes
  64 #include <cyg/io/devtab.h>          // Device table
  65 #include <cyg/libc/stdio/stream.hxx>// Cyg_StdioStream
  66
  67 #include <cyg/libc/stdio/io.inl>     // I/O system inlines
  68
  69 #ifndef CYGPKG_LIBC_STDIO_FILEIO
  70
  71 // FUNCTIONS
  72
  73 static Cyg_ErrNo
  74 str_read(cyg_stdio_handle_t handle, void *buf, cyg_uint32 *len)
  75 {
  76     cyg_devtab_entry_t *dev = (cyg_devtab_entry_t *)handle;
  77     cyg_uint8 *str_p = (cyg_uint8 *)dev->priv;
  78     cyg_ucount32 i;
  79
  80     // we set str_p to NULL further down when the string has finished being
  81     // read
  82     if (str_p == NULL)
  83     {
  84         *len = 0;
  85         return ENOERR;
  86     } // if
  87
  88     // I suspect most strings passed to sprintf will be relatively short,
  89     // so we just take the simple approach rather than have the overhead
  90     // of calling memcpy etc.
  91
  92     // copy string until run out of user space, or we reach its end
  93     for (i = 0; i < *len ; ++i)
  94     {
  95         *((cyg_uint8 *)buf + i) = *str_p;
  96
  97         if (*str_p++ == '\0')
  98         {
  99             str_p = NULL;
 100             ++i;
 101             break;
 102         } // if
 103
 104     } // for
 105
 106     *len = i;
 107     dev->priv = (void *)str_p;
 108
 109     return ENOERR;
 110
 111 } // str_read()
 112
 113 static DEVIO_TABLE(devio_table,
 114                    NULL,            // write
 115                    str_read,        // read
 116                    NULL,            // select
 117                    NULL,            // get_config
 118                    NULL);           // set_config
 119
 120
 121 externC int
 122 vsscanf( const char *s, const char *format, va_list arg ) __THROW
 123 {
 124     // construct a fake device with the address of the string we've
 125     // been passed as its private data. This way we can use the data
 126     // directly
 127     DEVTAB_ENTRY_NO_INIT(strdev,
 128                          "strdev",       // Name
 129                          NULL,           // Dependent name (layered device)
 130                          &devio_table,   // I/O function table
 131                          NULL,           // Init
 132                          NULL,           // Lookup
 133                          (void *)s);     // private
 134     Cyg_StdioStream my_stream( &strdev, Cyg_StdioStream::CYG_STREAM_READ,
 135                                false, false, _IONBF, 0, NULL );
 136
 137     return vfscanf( (FILE *)&my_stream, format, arg );
 138
 139 } // vsscanf()
 140
 141 #else
 142
 143 externC int
 144 vsscanf( const char *s, const char *format, va_list arg ) __THROW
 145 {
 146     Cyg_StdioStream my_stream( Cyg_StdioStream::CYG_STREAM_READ,
 147                                strlen(s), (cyg_uint8 *)s );
 148
 149     return vfscanf( (FILE *)&my_stream, format, arg );
 150
 151 } // vsscanf()
 152
 153 #endif
 154
 155 // EOF vsscanf.cxx