source: buchla-68k/libcio/readrn.c@ 6262b5c

/*
   =============================================================================
        readrn.c -- read a random sector from a file
        Version 8 -- 1987-12-15 -- D.N. Lynx Crowe

        int
        ReadRN(fcp, buf)
        struct fcb *fcp;
        char *buf;

                Reads a sector from file 'fcp' into 'buf'.  Seeks as needed.
                Returns 0 if OK, -1 for errors, 1 for EOF (no data returned).
   =============================================================================
*/

#define DEBUGIT         0

#include "all.h"

#if     DEBUGIT
extern  short   fsdebug;
#endif

#if     TBUFFER
extern  int32_t _secrd(int8_t *buf, int16_t rec);
#endif

extern  int32_t _berrno;
extern  int16_t _seek(struct fcb *fcp);

/* 

*/

/*
   =============================================================================
        ReadRN(fcp, buf) -- Reads a sector from file 'fcp' into 'buf'.
        Seeks as needed.  Returns SUCCESS (0) if OK,  FAILURE (-1) for errors.
   =============================================================================
*/

int16_t ReadRN(struct fcb *fcp, int8_t *buf)
{
        int16_t sv;             /* seek return code */
        int32_t brc;            /* bios return code */

        if (sv = _seek(fcp))            /* try to find the sector we want */
                if (sv < 0) {

                        errno = EIO;            /* I/O error */
                        return(-1);             /* return:  ERROR */

                } else {

                        errno = EINVAL;         /* invalid argument */
                        return(1);              /* return:  EOF */
                }

#if     DEBUGIT
        if (fsdebug)
                printf("ReadRN():  curlsn=%ld, curdsn=%ld, offset=%u\n",
                        fcp->curlsn, fcp->curdsn, fcp->offset);
#endif

#if     TBUFFER
        if (brc = _secrd(buf, (int16_t)fcp->curdsn)) {
#else
        if (brc = BIOS(B_RDWR, 0, buf, 1, (short)fcp->curdsn, 0)) {
#endif

                _berrno = brc;                  /* log the error */
                errno = EIO;                    /* ... as an I/O error */
                return(FAILURE);                /* return:  ERROR */
        }

        return(SUCCESS);                /* return:  SUCCESS */
}