blob: 0194b87dfdc3eebf1336abada1b54262ce456e2e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
/* close for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE. */
#include <_ansi.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "sys/syscall.h"
#include <errno.h>
int
_close (int file)
{
if ((unsigned int) file >= N_MMIX_FILEHANDLES
|| _MMIX_allocated_filehandle[file] == 0)
{
errno = EBADF;
return -1;
}
_MMIX_allocated_filehandle[file] = 0;
if (TRAP1f (SYS_Fclose, file) != 0)
{
errno = EIO;
return -1;
}
return 0;
}
|