mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
70 lines
1.4 KiB
C
70 lines
1.4 KiB
C
/* READ A FILE FOR VMS
|
|
* copyright (c) 1980 by Whitesmiths, Ltd.
|
|
*/
|
|
#include <std.h>
|
|
#include "vms.h"
|
|
|
|
COUNT read(fd, buf, size)
|
|
FILE fd;
|
|
FAST TEXT *buf;
|
|
COUNT size;
|
|
{
|
|
FAST RCB *p;
|
|
FAST BYTES n;
|
|
FAST BYTES bytesread;
|
|
BYTES boff;
|
|
COUNT stat;
|
|
|
|
if (!(p = _ckfd(fd)))
|
|
return (FAIL);
|
|
bytesread = 0;
|
|
for (n = 0; n < size; )
|
|
{
|
|
if (p->flags & WFIX)
|
|
{
|
|
boff = p->lseek & 0777;
|
|
if (p->lseek - boff == p->lact)
|
|
;
|
|
else if (!_wblk(p))
|
|
return (FAIL);
|
|
else if (!(stat = _read(p->rab, p->pbuf, BUFSIZE,
|
|
(p->lseek >> 9) + 1)))
|
|
break;
|
|
else if (stat != BUFSIZE)
|
|
{
|
|
p->lact = NOBLOCK;
|
|
if (bytesread == 0)
|
|
return (FAIL);
|
|
else
|
|
return (bytesread);
|
|
}
|
|
p->lact = p->lseek - boff;
|
|
p->bnext = p->pbuf + boff;
|
|
p->bleft = BUFSIZE - boff;
|
|
for (; n < size && 0 < p->bleft; --p->bleft, ++p->lseek)
|
|
*buf++ = *p->bnext++, ++n,++bytesread;
|
|
}
|
|
else if (p->bleft)
|
|
{
|
|
for (; n < size && 0 < p->bleft; --p->bleft, ++p->bnext)
|
|
if (*p->bnext != '\r' && *p->bnext != '\f' &&
|
|
*p->bnext != '\0')
|
|
*buf++ = *p->bnext, ++n;
|
|
}
|
|
else if ((stat = _read(p->rab, p->pbuf, BUFSIZE - 1, 0)) < -1)
|
|
return (FAIL);
|
|
else if (stat == -1)
|
|
break;
|
|
else
|
|
{
|
|
p->bleft = stat;
|
|
p->bnext = p->pbuf;
|
|
if (p->flags & (WCR|WTTY))
|
|
p->pbuf[p->bleft++] = '\n';
|
|
}
|
|
if (p->flags & WTTY && n)
|
|
break;
|
|
}
|
|
return (n);
|
|
}
|