Mercurial > flash_v2
annotate packages/language/c/libc/current/src/stdio/output/fwrite.cxx @ 64:c38311975d4f ecos-sw-2000-01-28
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
| author | jlarmour |
|---|---|
| date | Fri, 28 Jan 2000 04:59:39 +0000 |
| parents | 443894e2e912 |
| children | bf00f99aec69 |
| rev | line source |
|---|---|
| 0 | 1 //======================================================================== |
| 2 // | |
| 3 // fwrite.cxx | |
| 4 // | |
| 5 // ANSI Stdio fwrite() function | |
| 6 // | |
| 7 //======================================================================== | |
| 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 |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
12 // Version 1.0 (the "License"); you may not use this file except in |
|
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 |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
14 // http://sourceware.cygnus.com/ecos |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
15 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
2
diff
changeset
|
16 // Software distributed under the License is distributed on an |
|
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 | 30 //####COPYRIGHTEND#### |
| 31 //======================================================================== | |
| 32 //#####DESCRIPTIONBEGIN#### | |
| 33 // | |
| 2 | 34 // Author(s): jlarmour |
| 35 // Contributors: jlarmour | |
| 0 | 36 // Date: 1998-02-13 |
| 37 // Purpose: | |
| 38 // Description: | |
| 39 // Usage: | |
| 40 // | |
| 41 //####DESCRIPTIONEND#### | |
| 42 // | |
| 43 //======================================================================== | |
| 44 | |
| 45 // CONFIGURATION | |
| 46 | |
| 47 #include <pkgconf/libc.h> // Configuration header | |
| 48 | |
| 49 // Include the C library? And do we want the stdio stuff? | |
| 50 #if defined(CYGPKG_LIBC) && defined(CYGPKG_LIBC_STDIO) | |
| 51 | |
| 52 // INCLUDES | |
| 53 | |
| 54 #include <cyg/infra/cyg_type.h> // Common project-wide type definitions | |
| 55 #include <cyg/infra/cyg_ass.h> // Assertion support | |
| 56 #include <cyg/infra/cyg_trac.h> // Tracing support | |
| 57 #include <stddef.h> // NULL and size_t from compiler | |
| 58 #include <stdio.h> // header for this file | |
| 59 #include <errno.h> // error codes | |
| 60 #include "clibincl/stdiosupp.hxx" // Support functions for stdio | |
| 61 #include "clibincl/stream.hxx" // Cyg_StdioStream | |
| 62 | |
| 63 // EXPORTED SYMBOLS | |
| 64 | |
| 65 externC size_t | |
| 66 fwrite( const void *, size_t, size_t , FILE * ) | |
| 67 CYGPRI_LIBC_WEAK_ALIAS("_fwrite"); | |
| 68 | |
| 69 // FUNCTIONS | |
| 70 | |
| 71 externC size_t | |
| 72 _fwrite( const void *ptr, size_t object_size, size_t num_objects, | |
| 73 FILE *stream ) | |
| 74 { | |
| 75 Cyg_StdioStream *real_stream = (Cyg_StdioStream *)stream; | |
| 76 cyg_ucount32 written; | |
| 77 Cyg_ErrNo err; | |
| 78 | |
| 79 CYG_REPORT_FUNCNAMETYPE( "_fwrite", "wrote %d objects" ); | |
| 80 CYG_REPORT_FUNCARG4( "ptr=%08x, object_size=%d, num_objects=%d, " | |
| 81 "stream=%08x", ptr, object_size, num_objects, | |
| 82 stream ); | |
| 83 | |
| 84 if ( (object_size==0) || (num_objects==0) ) { | |
| 85 CYG_REPORT_RETVAL(0); | |
| 86 return 0; | |
| 87 } // if | |
| 88 | |
| 89 err = real_stream->write( (cyg_uint8 *)ptr, num_objects*object_size, | |
| 90 &written ); | |
| 91 | |
| 92 if (err) { | |
| 93 real_stream->set_error( err ); | |
| 94 errno = err; | |
| 95 } // if | |
| 96 | |
| 97 // we return the number of _objects_ written. Simple division is | |
| 98 // sufficient as this returns the quotient rather than rounding | |
| 99 | |
| 100 CYG_REPORT_RETVAL( written/object_size ); | |
| 101 return written/object_size; | |
| 102 } // _fwrite() | |
| 103 | |
| 104 #endif // if defined(CYGPKG_LIBC) && defined(CYGPKG_LIBC_STDIO) | |
| 105 | |
| 106 // EOF fwrite.cxx |