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.2  2004/09/08 10:19:05  haraldkipp
00037  * Todo: We need a better check for stdio channels!
00038  *
00039  * Revision 1.1.1.1  2003/05/09 14:40:24  haraldkipp
00040  * Initial using 3.2.1
00041  *
00042  * Revision 1.1  2003/02/04 17:49:04  harald
00043  * *** empty log message ***
00044  *
00045  */
00046 
00047 
00048 #include "nut_io.h"
00049 
00050 #include <errno.h>
00051 #include <io.h>
00052 #include <stdlib.h>
00053 
00058 
00069 int fclose(FILE * stream)
00070 {
00071     int rc = EOF;
00072     u_char i;
00073 
00074     /*
00075      * Search the list first to detect bad stream pointer.
00076      */
00077     if (stream == 0) {
00078         errno = EBADF;
00079         return EOF;
00080     }
00081     for (i = 0; __iob[i] != stream;) {
00082         if (++i >= FOPEN_MAX) {
00083             errno = EBADF;
00084             return EOF;
00085         }
00086     }
00087 
00088     /*
00089      * Ignore unopened standard streams.
00090      */
00091     //if ((void *) stream < RAMSTART)
00092     //    return 0;
00093 
00094     /*
00095      * Close the file or device.
00096      */
00097     if (_close(stream->iob_fd) == 0)
00098         rc = 0;
00099     free(stream);
00100     __iob[i] = 0;
00101 
00102     return rc;
00103 }
00104 

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