source: buchla-68k/libcio/fsinit.c@ ca867c1

/*
   ============================================================================
        fsinit.c -- Initialize file system
        Version 9 -- 1988-01-31 -- D.N. Lynx Crowe
   ============================================================================
*/

#include "ram.h"

int32_t *Stdbufs;                       /* buffer chain pointer */

int8_t  Wrkbuf[BPSEC];                  /* sector work buffer */

int32_t Stdbuf[MAXDFILE][BUFSIZL];      /* standard buffers */

FILE Cbuffs[NSTREAMS];                  /* stream file control table */

struct fcb _fcbtab[MAXDFILE];           /* fcb table */

struct channel  chantab[MAXCHAN];       /* channel table:  relates fd's to devices */

#if     TBUFFER

/* WARNING:  this ONLY works for 512 byte sectors, 9 sectors per track */

int16_t _b_tbuf[9][256];        /* the track buffer */

int16_t _b_trak;                /* current track */
int16_t _b_side;                /* current side */
int16_t _b_sect;                /* current sector */
int16_t _b_tsec;                /* current base sector of current track */

#endif

/*
   ============================================================================
        _badfio() -- set "bad fd" error on I/O
   ============================================================================
*/

int16_t _badfio(io_arg arg, void *buff, int16_t len)
{
        (void)arg;
        (void)buff;
        (void)len;

        errno = EBADF;          /* set bad fd code */
        return(FAILURE);        /* return with an error indication */
}

/*
   ============================================================================
        _badfc() -- set "bad fd" error on close
   ============================================================================
*/

int16_t _badfc(io_arg arg)
{
        (void)arg;

        errno = EBADF;          /* set bad fd code */
        return(FAILURE);        /* return with an error indication */
}

/*
   ============================================================================
        _nopo() -- null open with no error condition
   ============================================================================
*/

int16_t _nopo(int8_t *name, uint16_t flags, struct channel *chp, struct devtabl *dp)
{
        (void)name;
        (void)flags;
        (void)chp;
        (void)dp;

        return(SUCCESS);        /* return with a non-error indication */
}

/*
   ============================================================================
        _nopc() -- null close with no error condition
   ============================================================================
*/

int16_t _nopc(io_arg arg)
{
        (void)arg;

        return(SUCCESS);        /* return with a non-error indication */
}

/*
   ============================================================================
        InitCH() -- Initialize chantab structure entry
   ============================================================================
*/

void InitCH(struct channel *cp, int16_t rdi, int16_t wri, int16_t ioi, int16_t ski, chclo cfp, io_arg charg)
{
        cp->c_read  = rdi;
        cp->c_write = wri;
        cp->c_ioctl = ioi;
        cp->c_seek  = ski;
        cp->c_close = cfp;
        cp->c_arg   = charg;
}

/*
   ============================================================================
        Init_CB() -- Initialize Cbuff structure entry
   ============================================================================
*/

void Init_CB(FILE *fp, uint8_t flags, int16_t unit, int32_t *bufad, int16_t bufsize)
{
        fp->_bp     = (int8_t *)0L;
        fp->_bend   = (int8_t *)0L;
        fp->_buff   = (int8_t *)bufad;
        fp->_flags  = flags;
        fp->_unit   = unit;
        fp->_bytbuf = 0;
        fp->_buflen = bufsize;
}

/*
   ============================================================================
        InitFS() -- Initialize file system
   ============================================================================
*/

void InitFS(void)
{
        register int16_t i;

        memset(_fcbtab, 0, sizeof _fcbtab);             /* clear fcb table */
        memsetw(Stdbuf, 0, sizeof Stdbuf / 2);          /* clear buffers */

        Init_CB(stdin,  _BUSY, 0, NULL, BUFSIZ);        /* stdin */
        Init_CB(stdout, _BUSY, 1, NULL, 1);             /* stdout */
        Init_CB(stderr, _BUSY, 2, NULL, 1);             /* stderr */

        for (i = 3; i < NSTREAMS; i++)
                Init_CB(&Cbuffs[i], 0, 0, NULL, 0);

        Stdbuf[0][0] = 0L;              /* initialize the buffer list */

        for (i = 1; i < MAXDFILE; i++)
                Stdbuf[i][0] = (int32_t)Stdbuf[i-1];

        Stdbufs = Stdbuf[MAXDFILE-1];

        InitCH(&chantab[0], 2, 0, 1, 0, _nopc, (io_arg)CON_DEV );       /*  0 - stdin  */
        InitCH(&chantab[1], 0, 2, 1, 0, _nopc, (io_arg)CON_DEV );       /*  1 - stdout */
        InitCH(&chantab[2], 0, 2, 1, 0, _nopc, (io_arg)CON_DEV );       /*  2 - stderr */

        for (i = 3; i < MAXCHAN; i++)   /*  3..MAXCHAN-1 - not preassigned */
                InitCH(&chantab[i], 0, 0, 0, 0, _badfc, (io_arg)-1 );

        _bpbin  = FALSE;        /* BPB isn't in memory */
        _dirin  = FALSE;        /* directory isn't in memory */
        _fatin  = FALSE;        /* FAT isn't in memory */
        _fatmod = FALSE;        /* FAT hasn't been changed */
        _dirmod = FALSE;        /* directory hasn't been changed */

#if     TBUFFER
        _b_trak = -1;           /* no track in the buffer */
        _b_side = -1;           /* ... */
#endif
}