URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [ecos-2.0/] [packages/] [net/] [tcpip/] [v2_0/] [src/] [lib/] [close.c] - Blame information for rev 1765

Line No.	Rev	Author	Line
1	1254	phoenix	`//==========================================================================`
2			`//`
3			`// lib/close.c`
4			`//`
5			`// close() system call`
6			`//`
7			`//==========================================================================`
8			`//####BSDCOPYRIGHTBEGIN####`
9			`//`
10			`// -------------------------------------------`
11			`//`
12			`// Portions of this software may have been derived from OpenBSD or other sources,`
13			`// and are covered by the appropriate copyright disclaimers included herein.`
14			`//`
15			`// -------------------------------------------`
16			`//`
17			`//####BSDCOPYRIGHTEND####`
18			`//==========================================================================`
19			`//#####DESCRIPTIONBEGIN####`
20			`//`
21			`// Author(s): gthomas`
22			`// Contributors: gthomas`
23			`// Date: 2000-01-10`
24			`// Purpose:`
25			`// Description:`
26			`//`
27			`//`
28			`//####DESCRIPTIONEND####`
29			`//`
30			`//==========================================================================`
31
32
33			`#include <sys/param.h>`
34			`#include <cyg/io/file.h>`
35			`#include <sys/socket.h>`
36			`#include <sys/socketvar.h>`
37
38			`#include <sys/syscallargs.h>`
39
40			`int`
41			`close(int fd)`
42			`{`
43			`int error;`
44			`struct file *fp;`
45			`if (getfp(fd, &fp))`
46			`return (EBADF);`
47			`error = (*fp->f_ops->fo_close)(fp);`
48			`if (error) {`
49			`errno = error;`
50			`return -1;`
51			`} else {`
52			`ffree(fp);`
53			`return 0;`
54			`}`
55			`}`