seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-23 16:34:07 +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

26
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/lseekvms.c Normal file
View File

@@ -0,0 +1,26 @@
/* SEEK FOR VMS
* copyright (c) 1980 by Whitesmiths, Ltd.
*/
#include <std.h>
#include "vms.h"
FILE lseek(fd, loff, way)
FILE fd;
LONG loff;
COUNT way;
{
FAST RCB *p;
if (!(p = _ckfd(fd)) || !(p->flags & WFIX))
return (FAIL);
else
{
if (way == 0)
p->lseek = loff;
else if (way == 1)
p->lseek =+ loff;
else
p->lseek = p->lend + loff;
return (p->lseek);
}
}