/* Support files for GNU libc. Files in the system namespace go here.
|
/* Support files for GNU libc. Files in the system namespace go here.
|
Files in the C namespace (ie those that do not start with an
|
Files in the C namespace (ie those that do not start with an
|
underscore) go in .c. */
|
underscore) go in .c. */
|
|
|
#include <_ansi.h>
|
#include <_ansi.h>
|
#include <sys/types.h>
|
#include <sys/types.h>
|
#include <sys/stat.h>
|
#include <sys/stat.h>
|
#include <sys/fcntl.h>
|
#include <sys/fcntl.h>
|
#include <stdio.h>
|
#include <stdio.h>
|
#include <string.h>
|
#include <string.h>
|
#include <time.h>
|
#include <time.h>
|
#include <sys/time.h>
|
#include <sys/time.h>
|
#include <sys/times.h>
|
#include <sys/times.h>
|
#include <errno.h>
|
#include <errno.h>
|
#include <reent.h>
|
#include <reent.h>
|
#include <unistd.h>
|
#include <unistd.h>
|
#include <sys/wait.h>
|
#include <sys/wait.h>
|
#include "swi.h"
|
#include "swi.h"
|
|
|
/* Forward prototypes. */
|
/* Forward prototypes. */
|
int _system _PARAMS ((const char *));
|
int _system _PARAMS ((const char *));
|
int _rename _PARAMS ((const char *, const char *));
|
int _rename _PARAMS ((const char *, const char *));
|
int _isatty _PARAMS ((int));
|
int _isatty _PARAMS ((int));
|
clock_t _times _PARAMS ((struct tms *));
|
clock_t _times _PARAMS ((struct tms *));
|
int _gettimeofday _PARAMS ((struct timeval *, void *));
|
int _gettimeofday _PARAMS ((struct timeval *, void *));
|
int _unlink _PARAMS ((const char *));
|
int _unlink _PARAMS ((const char *));
|
int _link _PARAMS ((void));
|
int _link _PARAMS ((void));
|
int _stat _PARAMS ((const char *, struct stat *));
|
int _stat _PARAMS ((const char *, struct stat *));
|
int _fstat _PARAMS ((int, struct stat *));
|
int _fstat _PARAMS ((int, struct stat *));
|
int _swistat _PARAMS ((int fd, struct stat * st));
|
int _swistat _PARAMS ((int fd, struct stat * st));
|
caddr_t _sbrk _PARAMS ((int));
|
caddr_t _sbrk _PARAMS ((int));
|
int _getpid _PARAMS ((int));
|
int _getpid _PARAMS ((int));
|
int _close _PARAMS ((int));
|
int _close _PARAMS ((int));
|
clock_t _clock _PARAMS ((void));
|
clock_t _clock _PARAMS ((void));
|
int _swiclose _PARAMS ((int));
|
int _swiclose _PARAMS ((int));
|
int _open _PARAMS ((const char *, int, ...));
|
int _open _PARAMS ((const char *, int, ...));
|
int _swiopen _PARAMS ((const char *, int));
|
int _swiopen _PARAMS ((const char *, int));
|
int _write _PARAMS ((int, char *, int));
|
int _write _PARAMS ((int, char *, int));
|
int _swiwrite _PARAMS ((int, char *, int));
|
int _swiwrite _PARAMS ((int, char *, int));
|
int _lseek _PARAMS ((int, int, int));
|
int _lseek _PARAMS ((int, int, int));
|
int _swilseek _PARAMS ((int, int, int));
|
int _swilseek _PARAMS ((int, int, int));
|
int _read _PARAMS ((int, char *, int));
|
int _read _PARAMS ((int, char *, int));
|
int _swiread _PARAMS ((int, char *, int));
|
int _swiread _PARAMS ((int, char *, int));
|
void initialise_monitor_handles _PARAMS ((void));
|
void initialise_monitor_handles _PARAMS ((void));
|
|
|
static int checkerror _PARAMS ((int));
|
static int checkerror _PARAMS ((int));
|
static int error _PARAMS ((int));
|
static int error _PARAMS ((int));
|
static int get_errno _PARAMS ((void));
|
static int get_errno _PARAMS ((void));
|
|
|
/* Struct used to keep track of the file position, just so we
|
/* Struct used to keep track of the file position, just so we
|
can implement fseek(fh,x,SEEK_CUR). */
|
can implement fseek(fh,x,SEEK_CUR). */
|
struct fdent
|
struct fdent
|
{
|
{
|
int handle;
|
int handle;
|
int pos;
|
int pos;
|
};
|
};
|
|
|
#define MAX_OPEN_FILES 20
|
#define MAX_OPEN_FILES 20
|
|
|
/* User file descriptors (fd) are integer indexes into
|
/* User file descriptors (fd) are integer indexes into
|
the openfiles[] array. Error checking is done by using
|
the openfiles[] array. Error checking is done by using
|
findslot().
|
findslot().
|
|
|
This openfiles array is manipulated directly by only
|
This openfiles array is manipulated directly by only
|
these 5 functions:
|
these 5 functions:
|
|
|
findslot() - Translate entry.
|
findslot() - Translate entry.
|
newslot() - Find empty entry.
|
newslot() - Find empty entry.
|
initilise_monitor_handles() - Initialize entries.
|
initilise_monitor_handles() - Initialize entries.
|
_swiopen() - Initialize entry.
|
_swiopen() - Initialize entry.
|
_close() - Handle stdout == stderr case.
|
_close() - Handle stdout == stderr case.
|
|
|
Every other function must use findslot(). */
|
Every other function must use findslot(). */
|
|
|
static struct fdent openfiles [MAX_OPEN_FILES];
|
static struct fdent openfiles [MAX_OPEN_FILES];
|
|
|
static struct fdent* findslot _PARAMS ((int));
|
static struct fdent* findslot _PARAMS ((int));
|
static int newslot _PARAMS ((void));
|
static int newslot _PARAMS ((void));
|
|
|
/* Register name faking - works in collusion with the linker. */
|
/* Register name faking - works in collusion with the linker. */
|
register char * stack_ptr asm ("sp");
|
register char * stack_ptr asm ("sp");
|
|
|
|
|
/* following is copied from libc/stdio/local.h to check std streams */
|
/* following is copied from libc/stdio/local.h to check std streams */
|
extern void _EXFUN(__sinit,(struct _reent *));
|
extern void _EXFUN(__sinit,(struct _reent *));
|
#define CHECK_INIT(ptr) \
|
#define CHECK_INIT(ptr) \
|
do \
|
do \
|
{ \
|
{ \
|
if ((ptr) && !(ptr)->__sdidinit) \
|
if ((ptr) && !(ptr)->__sdidinit) \
|
__sinit (ptr); \
|
__sinit (ptr); \
|
} \
|
} \
|
while (0)
|
while (0)
|
|
|
static int monitor_stdin;
|
static int monitor_stdin;
|
static int monitor_stdout;
|
static int monitor_stdout;
|
static int monitor_stderr;
|
static int monitor_stderr;
|
|
|
/* Return a pointer to the structure associated with
|
/* Return a pointer to the structure associated with
|
the user file descriptor fd. */
|
the user file descriptor fd. */
|
static struct fdent*
|
static struct fdent*
|
findslot (int fd)
|
findslot (int fd)
|
{
|
{
|
CHECK_INIT(_REENT);
|
CHECK_INIT(_REENT);
|
|
|
/* User file descriptor is out of range. */
|
/* User file descriptor is out of range. */
|
if ((unsigned int)fd >= MAX_OPEN_FILES)
|
if ((unsigned int)fd >= MAX_OPEN_FILES)
|
return NULL;
|
return NULL;
|
|
|
/* User file descriptor is open? */
|
/* User file descriptor is open? */
|
if (openfiles[fd].handle == -1)
|
if (openfiles[fd].handle == -1)
|
return NULL;
|
return NULL;
|
|
|
/* Valid. */
|
/* Valid. */
|
return &openfiles[fd];
|
return &openfiles[fd];
|
}
|
}
|
|
|
/* Return the next lowest numbered free file
|
/* Return the next lowest numbered free file
|
structure, or -1 if we can't find one. */
|
structure, or -1 if we can't find one. */
|
static int
|
static int
|
newslot (void)
|
newslot (void)
|
{
|
{
|
int i;
|
int i;
|
|
|
for (i = 0; i < MAX_OPEN_FILES; i++)
|
for (i = 0; i < MAX_OPEN_FILES; i++)
|
if (openfiles[i].handle == -1)
|
if (openfiles[i].handle == -1)
|
break;
|
break;
|
|
|
if (i == MAX_OPEN_FILES)
|
if (i == MAX_OPEN_FILES)
|
return -1;
|
return -1;
|
|
|
return i;
|
return i;
|
}
|
}
|
|
|
void
|
void
|
initialise_monitor_handles (void)
|
initialise_monitor_handles (void)
|
{
|
{
|
int i;
|
int i;
|
|
|
/* Open the standard file descriptors by opening the special
|
/* Open the standard file descriptors by opening the special
|
* teletype device, ":tt", read-only to obtain a descritpor for
|
* teletype device, ":tt", read-only to obtain a descritpor for
|
* standard input and write-only to obtain a descriptor for standard
|
* standard input and write-only to obtain a descriptor for standard
|
* output. Finally, open ":tt" in append mode to obtain a descriptor
|
* output. Finally, open ":tt" in append mode to obtain a descriptor
|
* for standard error. Since this is a write mode, most kernels will
|
* for standard error. Since this is a write mode, most kernels will
|
* probably return the same value as for standard output, but the
|
* probably return the same value as for standard output, but the
|
* kernel can differentiate the two using the mode flag and return a
|
* kernel can differentiate the two using the mode flag and return a
|
* different descriptor for standard error.
|
* different descriptor for standard error.
|
*/
|
*/
|
|
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
int volatile block[3];
|
int volatile block[3];
|
|
|
block[0] = (int) ":tt";
|
block[0] = (int) ":tt";
|
block[2] = 3; /* length of filename */
|
block[2] = 3; /* length of filename */
|
block[1] = 0; /* mode "r" */
|
block[1] = 0; /* mode "r" */
|
monitor_stdin = do_AngelSWI (AngelSWI_Reason_Open, (void *) block);
|
monitor_stdin = do_AngelSWI (AngelSWI_Reason_Open, (void *) block);
|
|
|
block[0] = (int) ":tt";
|
block[0] = (int) ":tt";
|
block[2] = 3; /* length of filename */
|
block[2] = 3; /* length of filename */
|
block[1] = 4; /* mode "w" */
|
block[1] = 4; /* mode "w" */
|
monitor_stdout = do_AngelSWI (AngelSWI_Reason_Open, (void *) block);
|
monitor_stdout = do_AngelSWI (AngelSWI_Reason_Open, (void *) block);
|
|
|
block[0] = (int) ":tt";
|
block[0] = (int) ":tt";
|
block[2] = 3; /* length of filename */
|
block[2] = 3; /* length of filename */
|
block[1] = 8; /* mode "a" */
|
block[1] = 8; /* mode "a" */
|
monitor_stderr = do_AngelSWI (AngelSWI_Reason_Open, (void *) block);
|
monitor_stderr = do_AngelSWI (AngelSWI_Reason_Open, (void *) block);
|
#else
|
#else
|
int fh;
|
int fh;
|
const char * name;
|
const char * name;
|
|
|
name = ":tt";
|
name = ":tt";
|
asm ("mov r0,%2; mov r1, #0; swi %a1; mov %0, r0"
|
asm ("mov r0,%2; mov r1, #0; swi %a1; mov %0, r0"
|
: "=r"(fh)
|
: "=r"(fh)
|
: "i" (SWI_Open),"r"(name)
|
: "i" (SWI_Open),"r"(name)
|
: "r0","r1");
|
: "r0","r1");
|
monitor_stdin = fh;
|
monitor_stdin = fh;
|
|
|
name = ":tt";
|
name = ":tt";
|
asm ("mov r0,%2; mov r1, #4; swi %a1; mov %0, r0"
|
asm ("mov r0,%2; mov r1, #4; swi %a1; mov %0, r0"
|
: "=r"(fh)
|
: "=r"(fh)
|
: "i" (SWI_Open),"r"(name)
|
: "i" (SWI_Open),"r"(name)
|
: "r0","r1");
|
: "r0","r1");
|
monitor_stdout = fh;
|
monitor_stdout = fh;
|
|
|
name = ":tt";
|
name = ":tt";
|
asm ("mov r0,%2; mov r1, #8; swi %a1; mov %0, r0"
|
asm ("mov r0,%2; mov r1, #8; swi %a1; mov %0, r0"
|
: "=r"(fh)
|
: "=r"(fh)
|
: "i" (SWI_Open),"r"(name)
|
: "i" (SWI_Open),"r"(name)
|
: "r0","r1");
|
: "r0","r1");
|
monitor_stderr = fh;
|
monitor_stderr = fh;
|
#endif
|
#endif
|
|
|
/* If we failed to open stderr, redirect to stdout. */
|
/* If we failed to open stderr, redirect to stdout. */
|
if (monitor_stderr == -1)
|
if (monitor_stderr == -1)
|
monitor_stderr = monitor_stdout;
|
monitor_stderr = monitor_stdout;
|
|
|
for (i = 0; i < MAX_OPEN_FILES; i ++)
|
for (i = 0; i < MAX_OPEN_FILES; i ++)
|
openfiles[i].handle = -1;
|
openfiles[i].handle = -1;
|
|
|
openfiles[0].handle = monitor_stdin;
|
openfiles[0].handle = monitor_stdin;
|
openfiles[0].pos = 0;
|
openfiles[0].pos = 0;
|
openfiles[1].handle = monitor_stdout;
|
openfiles[1].handle = monitor_stdout;
|
openfiles[1].pos = 0;
|
openfiles[1].pos = 0;
|
openfiles[2].handle = monitor_stderr;
|
openfiles[2].handle = monitor_stderr;
|
openfiles[2].pos = 0;
|
openfiles[2].pos = 0;
|
}
|
}
|
|
|
static int
|
static int
|
get_errno (void)
|
get_errno (void)
|
{
|
{
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
return do_AngelSWI (AngelSWI_Reason_Errno, NULL);
|
return do_AngelSWI (AngelSWI_Reason_Errno, NULL);
|
#else
|
#else
|
register r0 asm("r0");
|
register r0 asm("r0");
|
asm ("swi %a1" : "=r"(r0) : "i" (SWI_GetErrno));
|
asm ("swi %a1" : "=r"(r0) : "i" (SWI_GetErrno));
|
return r0;
|
return r0;
|
#endif
|
#endif
|
}
|
}
|
|
|
/* Set errno and return result. */
|
/* Set errno and return result. */
|
static int
|
static int
|
error (int result)
|
error (int result)
|
{
|
{
|
errno = get_errno ();
|
errno = get_errno ();
|
return result;
|
return result;
|
}
|
}
|
|
|
/* Check the return and set errno appropriately. */
|
/* Check the return and set errno appropriately. */
|
static int
|
static int
|
checkerror (int result)
|
checkerror (int result)
|
{
|
{
|
if (result == -1)
|
if (result == -1)
|
return error (-1);
|
return error (-1);
|
return result;
|
return result;
|
}
|
}
|
|
|
/* fh, is a valid internal file handle.
|
/* fh, is a valid internal file handle.
|
ptr, is a null terminated string.
|
ptr, is a null terminated string.
|
len, is the length in bytes to read.
|
len, is the length in bytes to read.
|
Returns the number of bytes *not* written. */
|
Returns the number of bytes *not* written. */
|
int
|
int
|
_swiread (int fh,
|
_swiread (int fh,
|
char * ptr,
|
char * ptr,
|
int len)
|
int len)
|
{
|
{
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
int block[3];
|
int block[3];
|
|
|
block[0] = fh;
|
block[0] = fh;
|
block[1] = (int) ptr;
|
block[1] = (int) ptr;
|
block[2] = len;
|
block[2] = len;
|
|
|
return checkerror (do_AngelSWI (AngelSWI_Reason_Read, block));
|
return checkerror (do_AngelSWI (AngelSWI_Reason_Read, block));
|
#else
|
#else
|
register r0 asm("r0");
|
register r0 asm("r0");
|
register r1 asm("r1");
|
register r1 asm("r1");
|
register r2 asm("r2");
|
register r2 asm("r2");
|
r0 = fh;
|
r0 = fh;
|
r1 = (int)ptr;
|
r1 = (int)ptr;
|
r2 = len;
|
r2 = len;
|
asm ("swi %a4"
|
asm ("swi %a4"
|
: "=r" (r0)
|
: "=r" (r0)
|
: "0"(r0), "r"(r1), "r"(r2), "i"(SWI_Read));
|
: "0"(r0), "r"(r1), "r"(r2), "i"(SWI_Read));
|
return checkerror (r0);
|
return checkerror (r0);
|
#endif
|
#endif
|
}
|
}
|
|
|
/* fd, is a valid user file handle.
|
/* fd, is a valid user file handle.
|
Translates the return of _swiread into
|
Translates the return of _swiread into
|
bytes read. */
|
bytes read. */
|
int
|
int
|
_read (int fd,
|
_read (int fd,
|
char * ptr,
|
char * ptr,
|
int len)
|
int len)
|
{
|
{
|
int res;
|
int res;
|
struct fdent *pfd;
|
struct fdent *pfd;
|
|
|
pfd = findslot (fd);
|
pfd = findslot (fd);
|
if (pfd == NULL)
|
if (pfd == NULL)
|
{
|
{
|
errno = EBADF;
|
errno = EBADF;
|
return -1;
|
return -1;
|
}
|
}
|
|
|
res = _swiread (pfd->handle, ptr, len);
|
res = _swiread (pfd->handle, ptr, len);
|
|
|
if (res == -1)
|
if (res == -1)
|
return res;
|
return res;
|
|
|
pfd->pos += len - res;
|
pfd->pos += len - res;
|
|
|
/* res == len is not an error,
|
/* res == len is not an error,
|
at least if we want feof() to work. */
|
at least if we want feof() to work. */
|
return len - res;
|
return len - res;
|
}
|
}
|
|
|
/* fd, is a user file descriptor. */
|
/* fd, is a user file descriptor. */
|
int
|
int
|
_swilseek (int fd,
|
_swilseek (int fd,
|
int ptr,
|
int ptr,
|
int dir)
|
int dir)
|
{
|
{
|
int res;
|
int res;
|
struct fdent *pfd;
|
struct fdent *pfd;
|
|
|
/* Valid file descriptor? */
|
/* Valid file descriptor? */
|
pfd = findslot (fd);
|
pfd = findslot (fd);
|
if (pfd == NULL)
|
if (pfd == NULL)
|
{
|
{
|
errno = EBADF;
|
errno = EBADF;
|
return -1;
|
return -1;
|
}
|
}
|
|
|
/* Valid whence? */
|
/* Valid whence? */
|
if ((dir != SEEK_CUR)
|
if ((dir != SEEK_CUR)
|
&& (dir != SEEK_SET)
|
&& (dir != SEEK_SET)
|
&& (dir != SEEK_END))
|
&& (dir != SEEK_END))
|
{
|
{
|
errno = EINVAL;
|
errno = EINVAL;
|
return -1;
|
return -1;
|
}
|
}
|
|
|
/* Convert SEEK_CUR to SEEK_SET */
|
/* Convert SEEK_CUR to SEEK_SET */
|
if (dir == SEEK_CUR)
|
if (dir == SEEK_CUR)
|
{
|
{
|
ptr = pfd->pos + ptr;
|
ptr = pfd->pos + ptr;
|
/* The resulting file offset would be negative. */
|
/* The resulting file offset would be negative. */
|
if (ptr < 0)
|
if (ptr < 0)
|
{
|
{
|
errno = EINVAL;
|
errno = EINVAL;
|
if ((pfd->pos > 0) && (ptr > 0))
|
if ((pfd->pos > 0) && (ptr > 0))
|
errno = EOVERFLOW;
|
errno = EOVERFLOW;
|
return -1;
|
return -1;
|
}
|
}
|
dir = SEEK_SET;
|
dir = SEEK_SET;
|
}
|
}
|
|
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
int block[2];
|
int block[2];
|
if (dir == SEEK_END)
|
if (dir == SEEK_END)
|
{
|
{
|
block[0] = pfd->handle;
|
block[0] = pfd->handle;
|
res = checkerror (do_AngelSWI (AngelSWI_Reason_FLen, block));
|
res = checkerror (do_AngelSWI (AngelSWI_Reason_FLen, block));
|
if (res == -1)
|
if (res == -1)
|
return -1;
|
return -1;
|
ptr += res;
|
ptr += res;
|
}
|
}
|
|
|
/* This code only does absolute seeks. */
|
/* This code only does absolute seeks. */
|
block[0] = pfd->handle;
|
block[0] = pfd->handle;
|
block[1] = ptr;
|
block[1] = ptr;
|
res = checkerror (do_AngelSWI (AngelSWI_Reason_Seek, block));
|
res = checkerror (do_AngelSWI (AngelSWI_Reason_Seek, block));
|
#else
|
#else
|
if (dir == SEEK_END)
|
if (dir == SEEK_END)
|
{
|
{
|
asm ("mov r0, %2; swi %a1; mov %0, r0"
|
asm ("mov r0, %2; swi %a1; mov %0, r0"
|
: "=r" (res)
|
: "=r" (res)
|
: "i" (SWI_Flen), "r" (pfd->handle)
|
: "i" (SWI_Flen), "r" (pfd->handle)
|
: "r0");
|
: "r0");
|
checkerror (res);
|
checkerror (res);
|
if (res == -1)
|
if (res == -1)
|
return -1;
|
return -1;
|
ptr += res;
|
ptr += res;
|
}
|
}
|
|
|
/* This code only does absolute seeks. */
|
/* This code only does absolute seeks. */
|
asm ("mov r0, %2; mov r1, %3; swi %a1; mov %0, r0"
|
asm ("mov r0, %2; mov r1, %3; swi %a1; mov %0, r0"
|
: "=r" (res)
|
: "=r" (res)
|
: "i" (SWI_Seek), "r" (pfd->handle), "r" (ptr)
|
: "i" (SWI_Seek), "r" (pfd->handle), "r" (ptr)
|
: "r0", "r1");
|
: "r0", "r1");
|
checkerror (res);
|
checkerror (res);
|
#endif
|
#endif
|
/* At this point ptr is the current file position. */
|
/* At this point ptr is the current file position. */
|
if (res >= 0)
|
if (res >= 0)
|
{
|
{
|
pfd->pos = ptr;
|
pfd->pos = ptr;
|
return ptr;
|
return ptr;
|
}
|
}
|
else
|
else
|
return -1;
|
return -1;
|
}
|
}
|
|
|
_lseek (int fd,
|
_lseek (int fd,
|
int ptr,
|
int ptr,
|
int dir)
|
int dir)
|
{
|
{
|
return _swilseek (fd, ptr, dir);
|
return _swilseek (fd, ptr, dir);
|
}
|
}
|
|
|
/* fh, is a valid internal file handle.
|
/* fh, is a valid internal file handle.
|
Returns the number of bytes *not* written. */
|
Returns the number of bytes *not* written. */
|
int
|
int
|
_swiwrite (
|
_swiwrite (
|
int fh,
|
int fh,
|
char * ptr,
|
char * ptr,
|
int len)
|
int len)
|
{
|
{
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
int block[3];
|
int block[3];
|
|
|
block[0] = fh;
|
block[0] = fh;
|
block[1] = (int) ptr;
|
block[1] = (int) ptr;
|
block[2] = len;
|
block[2] = len;
|
|
|
return checkerror (do_AngelSWI (AngelSWI_Reason_Write, block));
|
return checkerror (do_AngelSWI (AngelSWI_Reason_Write, block));
|
#else
|
#else
|
register r0 asm("r0");
|
register r0 asm("r0");
|
register r1 asm("r1");
|
register r1 asm("r1");
|
register r2 asm("r2");
|
register r2 asm("r2");
|
r0 = fh;
|
r0 = fh;
|
r1 = (int)ptr;
|
r1 = (int)ptr;
|
r2 = len;
|
r2 = len;
|
asm ("swi %a4"
|
asm ("swi %a4"
|
: "=r" (r0)
|
: "=r" (r0)
|
: "0"(r0), "r"(r1), "r"(r2), "i"(SWI_Write));
|
: "0"(r0), "r"(r1), "r"(r2), "i"(SWI_Write));
|
return checkerror (r0);
|
return checkerror (r0);
|
#endif
|
#endif
|
}
|
}
|
|
|
/* fd, is a user file descriptor. */
|
/* fd, is a user file descriptor. */
|
int
|
int
|
_write (int fd,
|
_write (int fd,
|
char * ptr,
|
char * ptr,
|
int len)
|
int len)
|
{
|
{
|
int res;
|
int res;
|
struct fdent *pfd;
|
struct fdent *pfd;
|
|
|
pfd = findslot (fd);
|
pfd = findslot (fd);
|
if (pfd == NULL)
|
if (pfd == NULL)
|
{
|
{
|
errno = EBADF;
|
errno = EBADF;
|
return -1;
|
return -1;
|
}
|
}
|
|
|
res = _swiwrite (pfd->handle, ptr,len);
|
res = _swiwrite (pfd->handle, ptr,len);
|
|
|
/* Clearly an error. */
|
/* Clearly an error. */
|
if (res < 0)
|
if (res < 0)
|
return -1;
|
return -1;
|
|
|
pfd->pos += len - res;
|
pfd->pos += len - res;
|
|
|
/* We wrote 0 bytes?
|
/* We wrote 0 bytes?
|
Retrieve errno just in case. */
|
Retrieve errno just in case. */
|
if ((len - res) == 0)
|
if ((len - res) == 0)
|
return error (0);
|
return error (0);
|
|
|
return (len - res);
|
return (len - res);
|
}
|
}
|
|
|
int
|
int
|
_swiopen (const char * path, int flags)
|
_swiopen (const char * path, int flags)
|
{
|
{
|
int aflags = 0, fh;
|
int aflags = 0, fh;
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
int block[3];
|
int block[3];
|
#endif
|
#endif
|
|
|
int fd = newslot ();
|
int fd = newslot ();
|
|
|
if (fd == -1)
|
if (fd == -1)
|
{
|
{
|
errno = EMFILE;
|
errno = EMFILE;
|
return -1;
|
return -1;
|
}
|
}
|
|
|
/* It is an error to open a file that already exists. */
|
/* It is an error to open a file that already exists. */
|
if ((flags & O_CREAT)
|
if ((flags & O_CREAT)
|
&& (flags & O_EXCL))
|
&& (flags & O_EXCL))
|
{
|
{
|
struct stat st;
|
struct stat st;
|
int res;
|
int res;
|
res = _stat (path, &st);
|
res = _stat (path, &st);
|
if (res != -1)
|
if (res != -1)
|
{
|
{
|
errno = EEXIST;
|
errno = EEXIST;
|
return -1;
|
return -1;
|
}
|
}
|
}
|
}
|
|
|
/* The flags are Unix-style, so we need to convert them. */
|
/* The flags are Unix-style, so we need to convert them. */
|
#ifdef O_BINARY
|
#ifdef O_BINARY
|
if (flags & O_BINARY)
|
if (flags & O_BINARY)
|
aflags |= 1;
|
aflags |= 1;
|
#endif
|
#endif
|
|
|
/* In O_RDONLY we expect aflags == 0. */
|
/* In O_RDONLY we expect aflags == 0. */
|
|
|
if (flags & O_RDWR)
|
if (flags & O_RDWR)
|
aflags |= 2;
|
aflags |= 2;
|
|
|
if ((flags & O_CREAT)
|
if ((flags & O_CREAT)
|
|| (flags & O_TRUNC)
|
|| (flags & O_TRUNC)
|
|| (flags & O_WRONLY))
|
|| (flags & O_WRONLY))
|
aflags |= 4;
|
aflags |= 4;
|
|
|
if (flags & O_APPEND)
|
if (flags & O_APPEND)
|
{
|
{
|
/* Can't ask for w AND a; means just 'a'. */
|
/* Can't ask for w AND a; means just 'a'. */
|
aflags &= ~4;
|
aflags &= ~4;
|
aflags |= 8;
|
aflags |= 8;
|
}
|
}
|
|
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
block[0] = (int) path;
|
block[0] = (int) path;
|
block[2] = strlen (path);
|
block[2] = strlen (path);
|
block[1] = aflags;
|
block[1] = aflags;
|
|
|
fh = do_AngelSWI (AngelSWI_Reason_Open, block);
|
fh = do_AngelSWI (AngelSWI_Reason_Open, block);
|
|
|
#else
|
#else
|
asm ("mov r0,%2; mov r1, %3; swi %a1; mov %0, r0"
|
asm ("mov r0,%2; mov r1, %3; swi %a1; mov %0, r0"
|
: "=r"(fh)
|
: "=r"(fh)
|
: "i" (SWI_Open),"r"(path),"r"(aflags)
|
: "i" (SWI_Open),"r"(path),"r"(aflags)
|
: "r0","r1");
|
: "r0","r1");
|
#endif
|
#endif
|
|
|
/* Return a user file descriptor or an error. */
|
/* Return a user file descriptor or an error. */
|
if (fh >= 0)
|
if (fh >= 0)
|
{
|
{
|
openfiles[fd].handle = fh;
|
openfiles[fd].handle = fh;
|
openfiles[fd].pos = 0;
|
openfiles[fd].pos = 0;
|
return fd;
|
return fd;
|
}
|
}
|
else
|
else
|
return error (fh);
|
return error (fh);
|
}
|
}
|
|
|
int
|
int
|
_open (const char * path, int flags, ...)
|
_open (const char * path, int flags, ...)
|
{
|
{
|
return _swiopen (path, flags);
|
return _swiopen (path, flags);
|
}
|
}
|
|
|
/* fh, is a valid internal file handle. */
|
/* fh, is a valid internal file handle. */
|
int
|
int
|
_swiclose (int fh)
|
_swiclose (int fh)
|
{
|
{
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
return checkerror (do_AngelSWI (AngelSWI_Reason_Close, &fh));
|
return checkerror (do_AngelSWI (AngelSWI_Reason_Close, &fh));
|
#else
|
#else
|
register r0 asm("r0");
|
register r0 asm("r0");
|
r0 = fh;
|
r0 = fh;
|
asm ("swi %a2"
|
asm ("swi %a2"
|
: "=r"(r0)
|
: "=r"(r0)
|
: "0"(r0), "i" (SWI_Close));
|
: "0"(r0), "i" (SWI_Close));
|
return checkerror (r0);
|
return checkerror (r0);
|
#endif
|
#endif
|
}
|
}
|
|
|
/* fd, is a user file descriptor. */
|
/* fd, is a user file descriptor. */
|
int
|
int
|
_close (int fd)
|
_close (int fd)
|
{
|
{
|
int res;
|
int res;
|
struct fdent *pfd;
|
struct fdent *pfd;
|
|
|
pfd = findslot (fd);
|
pfd = findslot (fd);
|
if (pfd == NULL)
|
if (pfd == NULL)
|
{
|
{
|
errno = EBADF;
|
errno = EBADF;
|
return -1;
|
return -1;
|
}
|
}
|
|
|
/* Handle stderr == stdout. */
|
/* Handle stderr == stdout. */
|
if ((fd == 1 || fd == 2)
|
if ((fd == 1 || fd == 2)
|
&& (openfiles[1].handle == openfiles[2].handle))
|
&& (openfiles[1].handle == openfiles[2].handle))
|
{
|
{
|
pfd->handle = -1;
|
pfd->handle = -1;
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Attempt to close the handle. */
|
/* Attempt to close the handle. */
|
res = _swiclose (pfd->handle);
|
res = _swiclose (pfd->handle);
|
|
|
/* Reclaim handle? */
|
/* Reclaim handle? */
|
if (res == 0)
|
if (res == 0)
|
pfd->handle = -1;
|
pfd->handle = -1;
|
|
|
return res;
|
return res;
|
}
|
}
|
|
|
int __attribute__((weak))
|
int __attribute__((weak))
|
_getpid (int n __attribute__ ((unused)))
|
_getpid (int n __attribute__ ((unused)))
|
{
|
{
|
return 1;
|
return 1;
|
}
|
}
|
|
|
caddr_t
|
caddr_t
|
_sbrk (int incr)
|
_sbrk (int incr)
|
{
|
{
|
extern char end asm ("end"); /* Defined by the linker. */
|
extern char end asm ("end"); /* Defined by the linker. */
|
static char * heap_end;
|
static char * heap_end;
|
char * prev_heap_end;
|
char * prev_heap_end;
|
|
|
if (heap_end == NULL)
|
if (heap_end == NULL)
|
heap_end = & end;
|
heap_end = & end;
|
|
|
prev_heap_end = heap_end;
|
prev_heap_end = heap_end;
|
|
|
if (heap_end + incr > stack_ptr)
|
if (heap_end + incr > stack_ptr)
|
{
|
{
|
/* Some of the libstdc++-v3 tests rely upon detecting
|
/* Some of the libstdc++-v3 tests rely upon detecting
|
out of memory errors, so do not abort here. */
|
out of memory errors, so do not abort here. */
|
#if 0
|
#if 0
|
extern void abort (void);
|
extern void abort (void);
|
|
|
_write (1, "_sbrk: Heap and stack collision\n", 32);
|
_write (1, "_sbrk: Heap and stack collision\n", 32);
|
|
|
abort ();
|
abort ();
|
#else
|
#else
|
errno = ENOMEM;
|
errno = ENOMEM;
|
return (caddr_t) -1;
|
return (caddr_t) -1;
|
#endif
|
#endif
|
}
|
}
|
|
|
heap_end += incr;
|
heap_end += incr;
|
|
|
return (caddr_t) prev_heap_end;
|
return (caddr_t) prev_heap_end;
|
}
|
}
|
|
|
int
|
int
|
_swistat (int fd, struct stat * st)
|
_swistat (int fd, struct stat * st)
|
{
|
{
|
struct fdent *pfd;
|
struct fdent *pfd;
|
int res;
|
int res;
|
|
|
pfd = findslot (fd);
|
pfd = findslot (fd);
|
if (pfd == NULL)
|
if (pfd == NULL)
|
{
|
{
|
errno = EBADF;
|
errno = EBADF;
|
return -1;
|
return -1;
|
}
|
}
|
|
|
/* Always assume a character device,
|
/* Always assume a character device,
|
with 1024 byte blocks. */
|
with 1024 byte blocks. */
|
st->st_mode |= S_IFCHR;
|
st->st_mode |= S_IFCHR;
|
st->st_blksize = 1024;
|
st->st_blksize = 1024;
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
res = checkerror (do_AngelSWI (AngelSWI_Reason_FLen, &pfd->handle));
|
res = checkerror (do_AngelSWI (AngelSWI_Reason_FLen, &pfd->handle));
|
#else
|
#else
|
asm ("mov r0, %2; swi %a1; mov %0, r0"
|
asm ("mov r0, %2; swi %a1; mov %0, r0"
|
: "=r" (res)
|
: "=r" (res)
|
: "i" (SWI_Flen), "r" (pfd->handle)
|
: "i" (SWI_Flen), "r" (pfd->handle)
|
: "r0");
|
: "r0");
|
checkerror (res);
|
checkerror (res);
|
#endif
|
#endif
|
if (res == -1)
|
if (res == -1)
|
return -1;
|
return -1;
|
/* Return the file size. */
|
/* Return the file size. */
|
st->st_size = res;
|
st->st_size = res;
|
return 0;
|
return 0;
|
}
|
}
|
|
|
int __attribute__((weak))
|
int __attribute__((weak))
|
_fstat (int fd, struct stat * st)
|
_fstat (int fd, struct stat * st)
|
{
|
{
|
memset (st, 0, sizeof (* st));
|
memset (st, 0, sizeof (* st));
|
return _swistat (fd, st);
|
return _swistat (fd, st);
|
}
|
}
|
|
|
int __attribute__((weak))
|
int __attribute__((weak))
|
_stat (const char *fname, struct stat *st)
|
_stat (const char *fname, struct stat *st)
|
{
|
{
|
int fd, res;
|
int fd, res;
|
memset (st, 0, sizeof (* st));
|
memset (st, 0, sizeof (* st));
|
/* The best we can do is try to open the file readonly.
|
/* The best we can do is try to open the file readonly.
|
If it exists, then we can guess a few things about it. */
|
If it exists, then we can guess a few things about it. */
|
if ((fd = _open (fname, O_RDONLY)) == -1)
|
if ((fd = _open (fname, O_RDONLY)) == -1)
|
return -1;
|
return -1;
|
st->st_mode |= S_IFREG | S_IREAD;
|
st->st_mode |= S_IFREG | S_IREAD;
|
res = _swistat (fd, st);
|
res = _swistat (fd, st);
|
/* Not interested in the error. */
|
/* Not interested in the error. */
|
_close (fd);
|
_close (fd);
|
return res;
|
return res;
|
}
|
}
|
|
|
int __attribute__((weak))
|
int __attribute__((weak))
|
_link (void)
|
_link (void)
|
{
|
{
|
errno = ENOSYS;
|
errno = ENOSYS;
|
return -1;
|
return -1;
|
}
|
}
|
|
|
int
|
int
|
_unlink (const char *path)
|
_unlink (const char *path)
|
{
|
{
|
int res;
|
int res;
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
int block[2];
|
int block[2];
|
block[0] = (int)path;
|
block[0] = (int)path;
|
block[1] = strlen(path);
|
block[1] = strlen(path);
|
res = do_AngelSWI (AngelSWI_Reason_Remove, block);
|
res = do_AngelSWI (AngelSWI_Reason_Remove, block);
|
#else
|
#else
|
register r0 asm("r0");
|
register r0 asm("r0");
|
r0 = (int)path;
|
r0 = (int)path;
|
asm ("swi %a2"
|
asm ("swi %a2"
|
: "=r"(r0)
|
: "=r"(r0)
|
: "0"(r0), "i" (SWI_Remove));
|
: "0"(r0), "i" (SWI_Remove));
|
res = r0;
|
res = r0;
|
#endif
|
#endif
|
if (res == -1)
|
if (res == -1)
|
return error (res);
|
return error (res);
|
return 0;
|
return 0;
|
}
|
}
|
|
|
int
|
int
|
_gettimeofday (struct timeval * tp, void * tzvp)
|
_gettimeofday (struct timeval * tp, void * tzvp)
|
{
|
{
|
struct timezone *tzp = tzvp;
|
struct timezone *tzp = tzvp;
|
if (tp)
|
if (tp)
|
{
|
{
|
/* Ask the host for the seconds since the Unix epoch. */
|
/* Ask the host for the seconds since the Unix epoch. */
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
tp->tv_sec = do_AngelSWI (AngelSWI_Reason_Time,NULL);
|
tp->tv_sec = do_AngelSWI (AngelSWI_Reason_Time,NULL);
|
#else
|
#else
|
{
|
{
|
int value;
|
int value;
|
asm ("swi %a1; mov %0, r0" : "=r" (value): "i" (SWI_Time) : "r0");
|
asm ("swi %a1; mov %0, r0" : "=r" (value): "i" (SWI_Time) : "r0");
|
tp->tv_sec = value;
|
tp->tv_sec = value;
|
}
|
}
|
#endif
|
#endif
|
tp->tv_usec = 0;
|
tp->tv_usec = 0;
|
}
|
}
|
|
|
/* Return fixed data for the timezone. */
|
/* Return fixed data for the timezone. */
|
if (tzp)
|
if (tzp)
|
{
|
{
|
tzp->tz_minuteswest = 0;
|
tzp->tz_minuteswest = 0;
|
tzp->tz_dsttime = 0;
|
tzp->tz_dsttime = 0;
|
}
|
}
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Return a clock that ticks at 100Hz. */
|
/* Return a clock that ticks at 100Hz. */
|
clock_t
|
clock_t
|
_clock (void)
|
_clock (void)
|
{
|
{
|
clock_t timeval;
|
clock_t timeval;
|
|
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
timeval = do_AngelSWI (AngelSWI_Reason_Clock,NULL);
|
timeval = do_AngelSWI (AngelSWI_Reason_Clock,NULL);
|
#else
|
#else
|
asm ("swi %a1; mov %0, r0" : "=r" (timeval): "i" (SWI_Clock) : "r0");
|
asm ("swi %a1; mov %0, r0" : "=r" (timeval): "i" (SWI_Clock) : "r0");
|
#endif
|
#endif
|
return timeval;
|
return timeval;
|
}
|
}
|
|
|
/* Return a clock that ticks at 100Hz. */
|
/* Return a clock that ticks at 100Hz. */
|
clock_t
|
clock_t
|
_times (struct tms * tp)
|
_times (struct tms * tp)
|
{
|
{
|
clock_t timeval = _clock();
|
clock_t timeval = _clock();
|
|
|
if (tp)
|
if (tp)
|
{
|
{
|
tp->tms_utime = timeval; /* user time */
|
tp->tms_utime = timeval; /* user time */
|
tp->tms_stime = 0; /* system time */
|
tp->tms_stime = 0; /* system time */
|
tp->tms_cutime = 0; /* user time, children */
|
tp->tms_cutime = 0; /* user time, children */
|
tp->tms_cstime = 0; /* system time, children */
|
tp->tms_cstime = 0; /* system time, children */
|
}
|
}
|
|
|
return timeval;
|
return timeval;
|
};
|
};
|
|
|
|
|
int
|
int
|
_isatty (int fd)
|
_isatty (int fd)
|
{
|
{
|
struct fdent *pfd;
|
struct fdent *pfd;
|
|
|
pfd = findslot (fd);
|
pfd = findslot (fd);
|
if (pfd == NULL)
|
if (pfd == NULL)
|
{
|
{
|
errno = EBADF;
|
errno = EBADF;
|
return -1;
|
return -1;
|
}
|
}
|
|
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
return checkerror (do_AngelSWI (AngelSWI_Reason_IsTTY, &pfd->handle));
|
return checkerror (do_AngelSWI (AngelSWI_Reason_IsTTY, &pfd->handle));
|
#else
|
#else
|
register r0 asm("r0");
|
register r0 asm("r0");
|
r0 = pfd->handle;
|
r0 = pfd->handle;
|
asm ("swi %a2"
|
asm ("swi %a2"
|
: "=r" (r0)
|
: "=r" (r0)
|
: "0"(r0), "i" (SWI_IsTTY));
|
: "0"(r0), "i" (SWI_IsTTY));
|
return checkerror (r0);
|
return checkerror (r0);
|
#endif
|
#endif
|
}
|
}
|
|
|
int
|
int
|
_system (const char *s)
|
_system (const char *s)
|
{
|
{
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
int block[2];
|
int block[2];
|
int e;
|
int e;
|
|
|
/* Hmmm. The ARM debug interface specification doesn't say whether
|
/* Hmmm. The ARM debug interface specification doesn't say whether
|
SYS_SYSTEM does the right thing with a null argument, or assign any
|
SYS_SYSTEM does the right thing with a null argument, or assign any
|
meaning to its return value. Try to do something reasonable.... */
|
meaning to its return value. Try to do something reasonable.... */
|
if (!s)
|
if (!s)
|
return 1; /* maybe there is a shell available? we can hope. :-P */
|
return 1; /* maybe there is a shell available? we can hope. :-P */
|
block[0] = (int)s;
|
block[0] = (int)s;
|
block[1] = strlen (s);
|
block[1] = strlen (s);
|
e = checkerror (do_AngelSWI (AngelSWI_Reason_System, block));
|
e = checkerror (do_AngelSWI (AngelSWI_Reason_System, block));
|
if ((e >= 0) && (e < 256))
|
if ((e >= 0) && (e < 256))
|
{
|
{
|
/* We have to convert e, an exit status to the encoded status of
|
/* We have to convert e, an exit status to the encoded status of
|
the command. To avoid hard coding the exit status, we simply
|
the command. To avoid hard coding the exit status, we simply
|
loop until we find the right position. */
|
loop until we find the right position. */
|
int exit_code;
|
int exit_code;
|
|
|
for (exit_code = e; e && WEXITSTATUS (e) != exit_code; e <<= 1)
|
for (exit_code = e; e && WEXITSTATUS (e) != exit_code; e <<= 1)
|
continue;
|
continue;
|
}
|
}
|
return e;
|
return e;
|
#else
|
#else
|
register r0 asm("r0");
|
register r0 asm("r0");
|
r0 = (int)s;
|
r0 = (int)s;
|
asm ("swi %a2"
|
asm ("swi %a2"
|
: "=r" (r0)
|
: "=r" (r0)
|
: "0"(r0), "i" (SWI_CLI));
|
: "0"(r0), "i" (SWI_CLI));
|
return checkerror (r0);
|
return checkerror (r0);
|
#endif
|
#endif
|
}
|
}
|
|
|
int
|
int
|
_rename (const char * oldpath, const char * newpath)
|
_rename (const char * oldpath, const char * newpath)
|
{
|
{
|
#ifdef ARM_RDI_MONITOR
|
#ifdef ARM_RDI_MONITOR
|
int block[4];
|
int block[4];
|
block[0] = (int)oldpath;
|
block[0] = (int)oldpath;
|
block[1] = strlen(oldpath);
|
block[1] = strlen(oldpath);
|
block[2] = (int)newpath;
|
block[2] = (int)newpath;
|
block[3] = strlen(newpath);
|
block[3] = strlen(newpath);
|
return checkerror (do_AngelSWI (AngelSWI_Reason_Rename, block)) ? -1 : 0;
|
return checkerror (do_AngelSWI (AngelSWI_Reason_Rename, block)) ? -1 : 0;
|
#else
|
#else
|
register r0 asm("r0");
|
register r0 asm("r0");
|
register r1 asm("r1");
|
register r1 asm("r1");
|
r0 = (int)oldpath;
|
r0 = (int)oldpath;
|
r1 = (int)newpath;
|
r1 = (int)newpath;
|
asm ("swi %a3"
|
asm ("swi %a3"
|
: "=r" (r0)
|
: "=r" (r0)
|
: "0" (r0), "r" (r1), "i" (SWI_Rename));
|
: "0" (r0), "r" (r1), "i" (SWI_Rename));
|
return checkerror (r0);
|
return checkerror (r0);
|
#endif
|
#endif
|
}
|
}
|
|
|
