view packages/net/tcpip/current/src/lib/close.c @ 208:e0c0827131d1 ecos

Merge from eCos master repository on 2002-05-20-20:11:54-BST
author jlarmour
date Mon, 20 May 2002 22:19:26 +0000
parents ced4577552cd
children
line wrap: on
line source

//==========================================================================
//
//      lib/close.c
//
//      close() system call
//
//==========================================================================
//####BSDCOPYRIGHTBEGIN####
//
// -------------------------------------------
//
// Portions of this software may have been derived from OpenBSD or other sources,
// and are covered by the appropriate copyright disclaimers included herein.
//
// -------------------------------------------
//
//####BSDCOPYRIGHTEND####
//==========================================================================
//#####DESCRIPTIONBEGIN####
//
// Author(s):    gthomas
// Contributors: gthomas
// Date:         2000-01-10
// Purpose:      
// Description:  
//              
//
//####DESCRIPTIONEND####
//
//==========================================================================


#include <sys/param.h>
#include <cyg/io/file.h>
#include <sys/socket.h>
#include <sys/socketvar.h>

#include <sys/syscallargs.h>

int 
close(int fd)
{
    int error;
    struct file *fp;
    if (getfp(fd, &fp))
        return (EBADF);
    error = (*fp->f_ops->fo_close)(fp);
    if (error) {
        errno = error;
        return -1;
    } else {
        ffree(fp);
        return 0;
    }
}