source: buchla-68k/libcio/close.c@ fa38804

/*
   =============================================================================
        close.c -- close a file for the Buchla 700 C I/O Library
        Version 9 -- 1987-11-13 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "ram.h"

/*
   =============================================================================
        _clsfat() -- write out the modified FAT
   =============================================================================
*/

void _clsfat(void)
{
        /* write the primary FAT to disk */

        BIOS(B_RDWR, 1, _thefat, _thebpb->fsiz,
                _thebpb->fatrec, 0);

        /* write the secondary FAT to disk */

        BIOS(B_RDWR, 1, _thefat, _thebpb->fsiz,
                (_thebpb->fatrec - _thebpb->fsiz), 0);

        _fatmod = FALSE;        /* FAT on disk now matches memory */
}

/*
   =============================================================================
        _clsdir() -- write out the modified directory
   =============================================================================
*/

void _clsdir(void)
{
        /* write the directory to disk */

        BIOS(B_RDWR, 1, _thedir, _thebpb->rdlen,
                (_thebpb->fatrec + _thebpb->fsiz), 0);

        _dirmod = FALSE;        /* directory on disk now matches memory */
}

/*
   =============================================================================
        close(fd) -- close file 'fd'
   =============================================================================
*/

int16_t close(int16_t fd)
{
        register struct channel *chp;
        register int16_t rc;

        if ((fd < 0) OR (fd > MAXCHAN)) {

                errno = EBADF;
                return(FAILURE);
        }

        chp = &chantab[fd];                     /* point at the channel */

        rc  = (*chp->c_close)(chp->c_arg);      /* close the FCB */

        chp->c_read  = 0;                       /* release the channel */
        chp->c_write = 0;
        chp->c_ioctl = 0;
        chp->c_seek  = 0;
        chp->c_close = _badfc;

        if (_fatmod)
                _clsfat();                      /* write modified FAT */

        if (_dirmod)
                _clsdir();                      /* write modified directory */

        return(rc);                             /* return result of close */
}

/*
   =============================================================================
        _filecl(fp) -- close file 'fp' at the BDOS level
   =============================================================================
*/

int16_t _filecl(struct fcb *fp)
{
        register int16_t rc;

        rc = ClsFile(fp);               /* close the FCB */
        fp->modefl = 0;         /* mark the FILE closed */
        return(rc);
}

/*
   =============================================================================
        _fd_cls() -- close all open files
   =============================================================================
*/

void _fd_cls(void)
{
        register int16_t fd;

        for (fd = 0; fd < MAXCHAN; ++fd)
                if (chantab[fd].c_close NE _badfc)
                        close(fd);

        _clsvol();                      /* write modified directory adn FAT */
}