seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-24 00:44:23 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/vms/read.c Normal file
View File

@@ -0,0 +1,69 @@
/* 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);
}