1 files changed, 52 insertions, 0 deletions
diff --git a/ecos/packages/net/tcpip/current/src/lib/close.c b/ecos/packages/net/tcpip/current/src/lib/close.c
new file mode 100644
index 0000000..7cf8f4e
--- /dev/null
+++ b/ecos/packages/net/tcpip/current/src/lib/close.c
@@ -0,0 +1,52 @@
+//==========================================================================
+//
+//      lib/close.c
+//
+//      close() system call
+//
+//==========================================================================
+// ####BSDALTCOPYRIGHTBEGIN####                                             
+// -------------------------------------------                              
+// Portions of this software may have been derived from OpenBSD             
+// or other sources, and if so are covered by the appropriate copyright     
+// and license included herein.                                             
+// -------------------------------------------                              
+// ####BSDALTCOPYRIGHTEND####                                               
+//==========================================================================
+//#####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;
+    }
+}