102 lines
2.1 KiB
C++
102 lines
2.1 KiB
C++
|
|
||
|
|
/* Close files */
|
||
|
|
/* Copyright (c) Mix Software 1988 */
|
||
|
|
|
||
|
|
fcloseall() {
|
||
|
|
int fd;
|
||
|
|
int count = 0;
|
||
|
|
for (fd = 5; fd < MAXFILES; fd++) {
|
||
|
|
if (_iob[fd] != NULL) {
|
||
|
|
if (close(fd) == 0) count++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return count;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* ------------------------------------------------------------ */
|
||
|
|
|
||
|
|
fclose(fp)
|
||
|
|
FILE *fp;
|
||
|
|
{
|
||
|
|
int fd;
|
||
|
|
int x;
|
||
|
|
extern int _dupcnt_;
|
||
|
|
if (fp == NULL) return EOF;
|
||
|
|
fd = fp->fd;
|
||
|
|
if (_dupcnt_ != 0) {
|
||
|
|
for (x = fd+1; x < MAXFILES; x++) {
|
||
|
|
if (_iob[x] == fp) fd = x;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return close(fd);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* ------------------------------------------------------------ */
|
||
|
|
|
||
|
|
close(fd)
|
||
|
|
int fd;
|
||
|
|
{
|
||
|
|
int _fflush(), _sys_ab(), _sysabcd();
|
||
|
|
int status = 0;
|
||
|
|
int i;
|
||
|
|
FILE *fp;
|
||
|
|
extern int (*_fileerr)();
|
||
|
|
extern int errno;
|
||
|
|
extern int _dupcnt_;
|
||
|
|
extern FILE _STDFL1, _STDFL5;
|
||
|
|
fp = _iob[fd];
|
||
|
|
if (fp == NULL) {
|
||
|
|
if (_sys_ab(0x3e00,fd,&status) == 0) return 0;
|
||
|
|
errno = EBADF;
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (fp->file.dirty & fdwrite) status = _fflush(fp);
|
||
|
|
if (fp->file.flags & fdctlz) {
|
||
|
|
if (fp->file.mode == O_WRONLY) {
|
||
|
|
if (status==0) {
|
||
|
|
if (_sysabcd(0x4000,fp->file.handle,1,"\032",&status)==0)
|
||
|
|
status = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (fp->file.device == 0) {
|
||
|
|
if (_sys_ab(0x3e00,fd,&status)==0) status = 0;
|
||
|
|
}
|
||
|
|
if (status) {
|
||
|
|
(*_fileerr)(status,fp);
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
_iob[fd] = NULL;
|
||
|
|
if (_dupcnt_ != 0) {
|
||
|
|
for (i = MAXFILES-1; i > 4; i--) {
|
||
|
|
if (_iob[i] == fp) {
|
||
|
|
fp = NULL;
|
||
|
|
i = 0;
|
||
|
|
--_dupcnt_;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (fp->file.flag2 & fd2temp) _sys_ad(0x4100,fp->file.pathnm,&status);
|
||
|
|
if (fp != NULL) {
|
||
|
|
if ((fp > &_STDFL1) || (fp < &_STDFL5)) {
|
||
|
|
if ((fp->file.flags & fdsetbuf) == 0) free(fp->file.bufr);
|
||
|
|
free(fp->file.pathnm);
|
||
|
|
free(fp);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* ------------------------------------------------------------ */
|
||
|
|
|
||
|
|
_stdclose(fp)
|
||
|
|
FILE *fp;
|
||
|
|
{
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int _dupcnt_ = 0;
|
||
|
|
|