mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
27 lines
391 B
C
27 lines
391 B
C
/* 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);
|
|
}
|
|
}
|