ecos: packages/language/c/libc/current/src/stdio/input/fread.cxx annotate

annotate packages/language/c/libc/current/src/stdio/input/fread.cxx @ 66:bf00f99aec69 ecos-sw-2000-02-02

Merge from eCos master repository on 2000-02-02-19:16:44-GMT

author	jlarmour
date	Wed, 02 Feb 2000 19:57:02 +0000
parents	c38311975d4f
children	08ffab08d2ee

rev	line source
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	1 //========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	2 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	3 // fread.cxx
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	4 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	5 // ANSI Stdio fread() function
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	6 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	7 //========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	8 //####COPYRIGHTBEGIN####
64 c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	9 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	10 // -------------------------------------------
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	11 // The contents of this file are subject to the Red Hat eCos Public License
66 bf00f99aec69 Merge from eCos master repository on 2000-02-02-19:16:44-GMT jlarmour parents: 64 diff changeset	12 // Version 1.1 (the "License"); you may not use this file except in
64 c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	13 // compliance with the License. You may obtain a copy of the License at
66 bf00f99aec69 Merge from eCos master repository on 2000-02-02-19:16:44-GMT jlarmour parents: 64 diff changeset	14 // http://www.redhat.com/
64 c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	15 //
66 bf00f99aec69 Merge from eCos master repository on 2000-02-02-19:16:44-GMT jlarmour parents: 64 diff changeset	16 // Software distributed under the License is distributed on an "AS IS"
64 c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	17 // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	18 // License for the specific language governing rights and limitations under
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	19 // the License.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	20 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	21 // The Original Code is eCos - Embedded Configurable Operating System,
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	22 // released September 30, 1998.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	23 //
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	24 // The Initial Developer of the Original Code is Red Hat.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	25 // Portions created by Red Hat are
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	26 // Copyright (C) 1998, 1999, 2000 Red Hat, Inc.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	27 // All Rights Reserved.
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	28 // -------------------------------------------
c38311975d4f Merge from eCos master repository on 2000-01-28-04:28:11-GMT jlarmour parents: 2 diff changeset	29 //
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	30 //####COPYRIGHTEND####
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	31 //========================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	32 //#####DESCRIPTIONBEGIN####
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	33 //
2 443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	34 // Author(s): jlarmour
443894e2e912 Block commit of eCos version 1.2.1 jlarmour parents: 0 diff changeset	35 // Contributors: jlarmour
0 3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	36 // Date: 1998-02-13
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	37 // Purpose:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	38 // Description:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	39 // Usage:
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	40 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	41 //####DESCRIPTIONEND####
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	42 //
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	43 //=======================================================================
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	44
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	45 // CONFIGURATION
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	46
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	47 #include <pkgconf/libc.h> // Configuration header
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	48
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	49 // Include the C library? And do we want the stdio stuff?
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	50 #if defined(CYGPKG_LIBC) && defined(CYGPKG_LIBC_STDIO)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	51
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	52 // INCLUDES
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	53
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	54 #include <cyg/infra/cyg_type.h> // Common project-wide type definitions
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	55 #include <cyg/infra/cyg_ass.h> // Assertion support
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	56 #include <cyg/infra/cyg_trac.h> // Tracing support
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	57 #include <stddef.h> // NULL and size_t from compiler
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	58 #include <stdio.h> // header for this file
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	59 #include <errno.h> // error codes
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	60 #include "clibincl/stdiosupp.hxx" // Support functions for stdio
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	61 #include "clibincl/stream.hxx" // Cyg_StdioStream
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	62
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	63 // EXPORTED SYMBOLS
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	64
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	65 externC size_t
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	66 fread( void , size_t, size_t, FILE ) CYGPRI_LIBC_WEAK_ALIAS("_fread");
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	67
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	68 // FUNCTIONS
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	69
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	70 externC size_t
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	71 _fread( void ptr, size_t object_size, size_t num_objects, FILE stream )
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	72 {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	73 Cyg_StdioStream real_stream = (Cyg_StdioStream )stream;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	74 cyg_ucount32 bytes_read;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	75 Cyg_ErrNo err;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	76
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	77
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	78 CYG_REPORT_FUNCNAMETYPE( "_fread", "read %d objects" );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	79 CYG_REPORT_FUNCARG4( "ptr=%08x, object_size=%d, num_objects=%d, "
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	80 "stream=%08x", ptr, object_size, num_objects,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	81 stream );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	82
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	83 if ( (object_size==0) \|\| (num_objects==0) ) {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	84 CYG_REPORT_RETVAL(0);
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	85 return 0;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	86 } // if
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	87
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	88 err = real_stream->read( (cyg_uint8 )ptr, object_sizenum_objects,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	89 &bytes_read );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	90
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	91 if (!err && !bytes_read) { // if no err, but nothing to read, try again
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	92 real_stream->refill_read_buffer();
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	93 err = real_stream->read( (cyg_uint8 )ptr, object_sizenum_objects,
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	94 &bytes_read );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	95 } // if
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	96
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	97 if (err) {
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	98 real_stream->set_error( err );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	99 errno = err;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	100 } // if
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	101
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	102 // we return the number of _objects_ read. Simple division is
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	103 // sufficient as this returns the quotient rather than rounding
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	104 CYG_REPORT_RETVAL( bytes_read/object_size );
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	105 return bytes_read/object_size;
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	106
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	107 } // _fread()
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	108
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	109 #endif // if defined(CYGPKG_LIBC) && defined(CYGPKG_LIBC_STDIO)
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	110
3111d98ba7b3 Initial commit of eCos version 1.1 jlarmour parents: diff changeset	111 // EOF fread.cxx

Mercurial > ecos

annotate packages/language/c/libc/current/src/stdio/input/fread.cxx @ 66:bf00f99aec69 ecos-sw-2000-02-02