mirror of
https://github.com/autc04/Retro68.git
synced 2024-08-28 03:29:05 +00:00
64 lines
1.2 KiB
C
64 lines
1.2 KiB
C
|
/* lseek for MMIXware.
|
||
|
|
||
|
Copyright (C) 2001 Hans-Peter Nilsson
|
||
|
|
||
|
Permission to use, copy, modify, and distribute this software is
|
||
|
freely granted, provided that the above copyright notice, this notice
|
||
|
and the following disclaimer are preserved with no changes.
|
||
|
|
||
|
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
|
||
|
IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
|
||
|
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
||
|
PURPOSE. */
|
||
|
|
||
|
#include <_ansi.h>
|
||
|
#include <sys/types.h>
|
||
|
#include <sys/stat.h>
|
||
|
#include <sys/unistd.h>
|
||
|
#include "sys/syscall.h"
|
||
|
#include <errno.h>
|
||
|
|
||
|
off_t
|
||
|
_lseek (int file,
|
||
|
off_t ptr,
|
||
|
int dir)
|
||
|
{
|
||
|
off_t simoff = dir == SEEK_END ? -(ptr + 1) : ptr;
|
||
|
long ret;
|
||
|
|
||
|
if ((unsigned int) file >= 32 || _MMIX_allocated_filehandle[file] == 0)
|
||
|
{
|
||
|
errno = EBADF;
|
||
|
return -1;
|
||
|
}
|
||
|
|
||
|
if (dir == SEEK_CUR)
|
||
|
{
|
||
|
long curpos = TRAP2f (SYS_Ftell, file, 0);
|
||
|
|
||
|
if (curpos == -1)
|
||
|
{
|
||
|
errno = EIO;
|
||
|
return -1;
|
||
|
}
|
||
|
|
||
|
ptr += (off_t) curpos;
|
||
|
}
|
||
|
|
||
|
ret = TRAP2f (SYS_Fseek, file, simoff);
|
||
|
if (ret == -1)
|
||
|
{
|
||
|
return -1;
|
||
|
errno = EIO;
|
||
|
}
|
||
|
|
||
|
ret = TRAP2f (SYS_Ftell, file, 0);
|
||
|
if (ret == -1)
|
||
|
{
|
||
|
errno = EIO;
|
||
|
return -1;
|
||
|
}
|
||
|
|
||
|
return ret;
|
||
|
}
|