fclose.c

Go to the documentation of this file.
00001 /*
00002  * Copyright (C) 2001-2003 by egnite Software GmbH. All rights reserved.
00003  *
00004  * Redistribution and use in source and binary forms, with or without
00005  * modification, are permitted provided that the following conditions
00006  * are met:
00007  *
00008  * 1. Redistributions of source code must retain the above copyright
00009  *    notice, this list of conditions and the following disclaimer.
00010  * 2. Redistributions in binary form must reproduce the above copyright
00011  *    notice, this list of conditions and the following disclaimer in the
00012  *    documentation and/or other materials provided with the distribution.
00013  * 3. Neither the name of the copyright holders nor the names of
00014  *    contributors may be used to endorse or promote products derived
00015  *    from this software without specific prior written permission.
00016  *
00017  * THIS SOFTWARE IS PROVIDED BY EGNITE SOFTWARE GMBH AND CONTRIBUTORS
00018  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
00019  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
00020  * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL EGNITE
00021  * SOFTWARE GMBH OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
00022  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
00023  * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
00024  * OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
00025  * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
00026  * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
00027  * THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
00028  * SUCH DAMAGE.
00029  *
00030  * For additional information see http://www.ethernut.de/
00031  *
00032  */
00033 
00034 /*
00035  * $Log: fclose.c,v $
00036  * Revision 1.3  2008/08/11 06:59:39  haraldkipp
00037  * BSD types replaced by stdint types (feature request #1282721).
00038  *
00039  * Revision 1.2  2004/09/08 10:19:05  haraldkipp
00040  * Todo: We need a better check for stdio channels!
00041  *
00042  * Revision 1.1.1.1  2003/05/09 14:40:24  haraldkipp
00043  * Initial using 3.2.1
00044  *
00045  * Revision 1.1  2003/02/04 17:49:04  harald
00046  * *** empty log message ***
00047  *
00048  */
00049 
00050 
00051 #include "nut_io.h"
00052 
00053 #include <errno.h>
00054 #include <io.h>
00055 #include <stdlib.h>
00056 
00061 
00072 int fclose(FILE * stream)
00073 {
00074     int rc = EOF;
00075     uint_fast8_t i;
00076 
00077     /*
00078      * Search the list first to detect bad stream pointer.
00079      */
00080     if (stream == 0) {
00081         errno = EBADF;
00082         return EOF;
00083     }
00084     for (i = 0; __iob[i] != stream;) {
00085         if (++i >= FOPEN_MAX) {
00086             errno = EBADF;
00087             return EOF;
00088         }
00089     }
00090 
00091     /*
00092      * Ignore unopened standard streams.
00093      */
00094     //if ((void *) stream < RAMSTART)
00095     //    return 0;
00096 
00097     /*
00098      * Close the file or device.
00099      */
00100     if (_close(stream->iob_fd) == 0)
00101         rc = 0;
00102     free(stream);
00103     __iob[i] = 0;
00104 
00105     return rc;
00106 }
00107 

© 2000-2007 by egnite Software GmbH - visit http://www.ethernut.de/