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

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

#define _FS_DEF_        /* define so that stdio.h and io.h get things right */

#include "biosdefs.h"
#include "errno.h"
#include "io.h"
#include "stdio.h"
#include "stddefs.h"

extern  int16_t _bpbin, _dirin, _fatin, _dirmod, _fatmod;

int16_t _badfd(void);
int16_t _noper(void);

int8_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

/* 

*/

/*
   ============================================================================
        _badfd() -- set "bad fd" error
   ============================================================================
*/

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

/*
   ============================================================================
        _noper() -- null return with no error condition
   ============================================================================
*/

int16_t _noper(void)
{
        return(SUCCESS);        /* return with a non-error indication */
}

/* 

*/

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

void InitCH(struct channel *cp, int8_t rdi, int8_t wri, int8_t ioi, int8_t ski, int16_t (*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, int8_t unit, int8_t flags, 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, (int8_t *)0L, BUFSIZ);        /* stdin */
        Init_CB(stdout, _BUSY, 1, (int8_t *)0L, 1);     /* stdout */ 
        Init_CB(stderr, _BUSY, 2, (int8_t *)0L, 1);     /* stderr */

        for (i = 3; i < NSTREAMS; i++)
                Init_CB(&Cbuffs[i], 0, 0, (int8_t *)0L, 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, _noper, (io_arg)CON_DEV );      /*  0 - stdin  */
        InitCH(&chantab[1], 0, 2, 1, 0, _noper, (io_arg)CON_DEV );      /*  1 - stdout */
        InitCH(&chantab[2], 0, 2, 1, 0, _noper, (io_arg)CON_DEV );      /*  2 - stderr */

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

        _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
}