URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libc/] [stdio/] [fread.c] - Rev 207
Compare with Previous | Blame | View Log
/* * Copyright (c) 1990, 2007 The Regents of the University of California. * All rights reserved. * * Redistribution and use in source and binary forms are permitted * provided that the above copyright notice and this paragraph are * duplicated in all such forms and that any documentation, * advertising materials, and other materials related to such * distribution and use acknowledge that the software was developed * by the University of California, Berkeley. The name of the * University may not be used to endorse or promote products derived * from this software without specific prior written permission. * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. */ /* FUNCTION <<fread>>---read array elements from a file INDEX fread INDEX _fread_r ANSI_SYNOPSIS #include <stdio.h> size_t fread(void *<[buf]>, size_t <[size]>, size_t <[count]>, FILE *<[fp]>); #include <stdio.h> size_t _fread_r(struct _reent *<[ptr]>, void *<[buf]>, size_t <[size]>, size_t <[count]>, FILE *<[fp]>); TRAD_SYNOPSIS #include <stdio.h> size_t fread(<[buf]>, <[size]>, <[count]>, <[fp]>) char *<[buf]>; size_t <[size]>; size_t <[count]>; FILE *<[fp]>; #include <stdio.h> size_t _fread_r(<[ptr]>, <[buf]>, <[size]>, <[count]>, <[fp]>) struct _reent *<[ptr]>; char *<[buf]>; size_t <[size]>; size_t <[count]>; FILE *<[fp]>; DESCRIPTION <<fread>> attempts to copy, from the file or stream identified by <[fp]>, <[count]> elements (each of size <[size]>) into memory, starting at <[buf]>. <<fread>> may copy fewer elements than <[count]> if an error, or end of file, intervenes. <<fread>> also advances the file position indicator (if any) for <[fp]> by the number of @emph{characters} actually read. <<_fread_r>> is simply the reentrant version of <<fread>> that takes an additional reentrant structure pointer argument: <[ptr]>. RETURNS The result of <<fread>> is the number of elements it succeeded in reading. PORTABILITY ANSI C requires <<fread>>. Supporting OS subroutines required: <<close>>, <<fstat>>, <<isatty>>, <<lseek>>, <<read>>, <<sbrk>>, <<write>>. */ #include <_ansi.h> #include <stdio.h> #include <string.h> #include <malloc.h> #include "local.h" #ifdef __SCLE static size_t _DEFUN(crlf_r, (ptr, fp, buf, count, eof), struct _reent * ptr _AND FILE * fp _AND char * buf _AND size_t count _AND int eof) { int r; char *s, *d, *e; if (count == 0) return 0; e = buf + count; for (s=d=buf; s<e-1; s++) { if (*s == '\r' && s[1] == '\n') s++; *d++ = *s; } if (s < e) { if (*s == '\r') { int c = __sgetc_raw_r (ptr, fp); if (c == '\n') *s = '\n'; else ungetc (c, fp); } *d++ = *s++; } while (d < e) { r = _getc_r (ptr, fp); if (r == EOF) return count - (e-d); *d++ = r; } return count; } #endif size_t _DEFUN(_fread_r, (ptr, buf, size, count, fp), struct _reent * ptr _AND _PTR buf _AND size_t size _AND size_t count _AND FILE * fp) { register size_t resid; register char *p; register int r; size_t total; if ((resid = count * size) == 0) return 0; CHECK_INIT(ptr, fp); __sfp_lock_acquire (); _flockfile (fp); ORIENT (fp, -1); if (fp->_r < 0) fp->_r = 0; total = resid; p = buf; #if !defined(PREFER_SIZE_OVER_SPEED) && !defined(__OPTIMIZE_SIZE__) /* Optimize unbuffered I/O. */ if (fp->_flags & __SNBF) { /* First copy any available characters from ungetc buffer. */ int copy_size = resid > fp->_r ? fp->_r : resid; _CAST_VOID memcpy ((_PTR) p, (_PTR) fp->_p, (size_t) copy_size); fp->_p += copy_size; fp->_r -= copy_size; p += copy_size; resid -= copy_size; /* If still more data needed, free any allocated ungetc buffer. */ if (HASUB (fp) && resid > 0) FREEUB (ptr, fp); /* Finally read directly into user's buffer if needed. */ while (resid > 0) { int rc = 0; /* save fp buffering state */ void *old_base = fp->_bf._base; void * old_p = fp->_p; int old_size = fp->_bf._size; /* allow __refill to use user's buffer */ fp->_bf._base = (unsigned char *) p; fp->_bf._size = resid; fp->_p = (unsigned char *) p; rc = __srefill_r (ptr, fp); /* restore fp buffering back to original state */ fp->_bf._base = old_base; fp->_bf._size = old_size; fp->_p = old_p; resid -= fp->_r; p += fp->_r; fp->_r = 0; if (rc) { #ifdef __SCLE if (fp->_flags & __SCLE) { _funlockfile (fp); __sfp_lock_release (); return crlf_r (ptr, fp, buf, total-resid, 1) / size; } #endif _funlockfile (fp); __sfp_lock_release (); return (total - resid) / size; } } } else #endif /* !PREFER_SIZE_OVER_SPEED && !__OPTIMIZE_SIZE__ */ { while (resid > (r = fp->_r)) { _CAST_VOID memcpy ((_PTR) p, (_PTR) fp->_p, (size_t) r); fp->_p += r; /* fp->_r = 0 ... done in __srefill */ p += r; resid -= r; if (__srefill_r (ptr, fp)) { /* no more input: return partial result */ #ifdef __SCLE if (fp->_flags & __SCLE) { _funlockfile (fp); __sfp_lock_release (); return crlf_r (ptr, fp, buf, total-resid, 1) / size; } #endif _funlockfile (fp); __sfp_lock_release (); return (total - resid) / size; } } _CAST_VOID memcpy ((_PTR) p, (_PTR) fp->_p, resid); fp->_r -= resid; fp->_p += resid; } /* Perform any CR/LF clean-up if necessary. */ #ifdef __SCLE if (fp->_flags & __SCLE) { _funlockfile (fp); __sfp_lock_release (); return crlf_r(ptr, fp, buf, total, 0) / size; } #endif _funlockfile (fp); __sfp_lock_release (); return count; } #ifndef _REENT_ONLY size_t _DEFUN(fread, (buf, size, count, fp), _PTR buf _AND size_t size _AND size_t count _AND FILE * fp) { return _fread_r (_REENT, buf, size, count, fp); } #endif