/*
|
/*
|
* solaris-cfuncs.S -- C functions for Solaris.
|
* solaris-cfuncs.S -- C functions for Solaris.
|
*
|
*
|
* Copyright (c) 1996 Cygnus Support
|
* Copyright (c) 1996 Cygnus Support
|
*
|
*
|
* The authors hereby grant permission to use, copy, modify, distribute,
|
* The authors hereby grant permission to use, copy, modify, distribute,
|
* and license this software and its documentation for any purpose, provided
|
* and license this software and its documentation for any purpose, provided
|
* that existing copyright notices are retained in all copies and that this
|
* that existing copyright notices are retained in all copies and that this
|
* notice is included verbatim in any distributions. No written agreement,
|
* notice is included verbatim in any distributions. No written agreement,
|
* license, or royalty fee is required for any of the authorized uses.
|
* license, or royalty fee is required for any of the authorized uses.
|
* Modifications to this software may be copyrighted by their authors
|
* Modifications to this software may be copyrighted by their authors
|
* and need not follow the licensing terms described here, provided that
|
* and need not follow the licensing terms described here, provided that
|
* the new terms are clearly indicated on the first page of each file where
|
* the new terms are clearly indicated on the first page of each file where
|
* they apply.
|
* they apply.
|
*/
|
*/
|
|
|
#include <errno.h>
|
#include <errno.h>
|
#include <sys/types.h>
|
#include <sys/types.h>
|
#include <sys/stat.h>
|
#include <sys/stat.h>
|
#include <sys/unistd.h>
|
#include <sys/unistd.h>
|
|
|
#ifndef __STDC__
|
#ifndef __STDC__
|
#define const
|
#define const
|
#endif
|
#endif
|
|
|
/* Solaris stat packet */
|
/* Solaris stat packet */
|
typedef long solaris_off_t;
|
typedef long solaris_off_t;
|
typedef long solaris_uid_t;
|
typedef long solaris_uid_t;
|
typedef long solaris_gid_t;
|
typedef long solaris_gid_t;
|
typedef long unsigned solaris_mode_t;
|
typedef long unsigned solaris_mode_t;
|
typedef long unsigned solaris_nlink_t;
|
typedef long unsigned solaris_nlink_t;
|
typedef long unsigned solaris_dev_t;
|
typedef long unsigned solaris_dev_t;
|
typedef long unsigned solaris_ino_t;
|
typedef long unsigned solaris_ino_t;
|
typedef long solaris_time_t;
|
typedef long solaris_time_t;
|
|
|
typedef struct {
|
typedef struct {
|
solaris_time_t tv_sec;
|
solaris_time_t tv_sec;
|
long tv_nsec;
|
long tv_nsec;
|
} solaris_timestruc_t;
|
} solaris_timestruc_t;
|
|
|
#define _ST_FSTYPSZ 16
|
#define _ST_FSTYPSZ 16
|
|
|
struct solaris_stat {
|
struct solaris_stat {
|
solaris_dev_t st_dev;
|
solaris_dev_t st_dev;
|
long st_pad1[3];
|
long st_pad1[3];
|
solaris_ino_t st_ino;
|
solaris_ino_t st_ino;
|
solaris_mode_t st_mode;
|
solaris_mode_t st_mode;
|
solaris_nlink_t st_nlink;
|
solaris_nlink_t st_nlink;
|
solaris_uid_t st_uid;
|
solaris_uid_t st_uid;
|
solaris_gid_t st_gid;
|
solaris_gid_t st_gid;
|
solaris_dev_t st_rdev;
|
solaris_dev_t st_rdev;
|
long st_pad2[2];
|
long st_pad2[2];
|
solaris_off_t st_size;
|
solaris_off_t st_size;
|
long st_pad3;
|
long st_pad3;
|
solaris_timestruc_t st_atim;
|
solaris_timestruc_t st_atim;
|
solaris_timestruc_t st_mtim;
|
solaris_timestruc_t st_mtim;
|
solaris_timestruc_t st_ctim;
|
solaris_timestruc_t st_ctim;
|
long st_blksize;
|
long st_blksize;
|
long st_blocks;
|
long st_blocks;
|
char st_fstype[_ST_FSTYPSZ];
|
char st_fstype[_ST_FSTYPSZ];
|
long st_pad4[8];
|
long st_pad4[8];
|
};
|
};
|
|
|
/* Solaris termios packet */
|
/* Solaris termios packet */
|
#define SOLARIS_NCCS 19
|
#define SOLARIS_NCCS 19
|
typedef unsigned long solaris_tcflag_t;
|
typedef unsigned long solaris_tcflag_t;
|
typedef unsigned char solaris_cc_t;
|
typedef unsigned char solaris_cc_t;
|
typedef unsigned long solaris_speed_t;
|
typedef unsigned long solaris_speed_t;
|
|
|
struct solaris_termios {
|
struct solaris_termios {
|
solaris_tcflag_t c_iflag;
|
solaris_tcflag_t c_iflag;
|
solaris_tcflag_t c_oflag;
|
solaris_tcflag_t c_oflag;
|
solaris_tcflag_t c_cflag;
|
solaris_tcflag_t c_cflag;
|
solaris_tcflag_t c_lflag;
|
solaris_tcflag_t c_lflag;
|
solaris_cc_t c_cc[SOLARIS_NCCS];
|
solaris_cc_t c_cc[SOLARIS_NCCS];
|
};
|
};
|
|
|
#define SOLARIS_TIOC ('T'<<8)
|
#define SOLARIS_TIOC ('T'<<8)
|
#define SOLARIS_TCGETS (SOLARIS_TIOC|13)
|
#define SOLARIS_TCGETS (SOLARIS_TIOC|13)
|
|
|
|
|
|
|
/* Debug support */
|
/* Debug support */
|
#ifdef DEBUG
|
#ifdef DEBUG
|
#define TRACE(msg) trace (msg)
|
#define TRACE(msg) trace (msg)
|
#define TRACE1(msg,num) trace1 (msg,(unsigned)num)
|
#define TRACE1(msg,num) trace1 (msg,(unsigned)num)
|
|
|
static void
|
static void
|
trace (msg)
|
trace (msg)
|
const char *msg;
|
const char *msg;
|
{
|
{
|
const char *p;
|
const char *p;
|
|
|
for (p = msg; *p != '\0'; p++)
|
for (p = msg; *p != '\0'; p++)
|
;
|
;
|
|
|
(void) write (2, msg, p-msg);
|
(void) write (2, msg, p-msg);
|
}
|
}
|
|
|
static void
|
static void
|
trace1 (msg, num)
|
trace1 (msg, num)
|
const char *msg;
|
const char *msg;
|
unsigned int num;
|
unsigned int num;
|
{
|
{
|
char buffer[16];
|
char buffer[16];
|
char *p = &buffer[ sizeof(buffer) ];
|
char *p = &buffer[ sizeof(buffer) ];
|
|
|
trace (msg);
|
trace (msg);
|
*--p = '\0';
|
*--p = '\0';
|
*--p = '\n';
|
*--p = '\n';
|
do {
|
do {
|
*--p = '0' + (num % 10);
|
*--p = '0' + (num % 10);
|
num /= 10;
|
num /= 10;
|
} while (num != 0);
|
} while (num != 0);
|
trace (p);
|
trace (p);
|
}
|
}
|
|
|
#else
|
#else
|
#define TRACE(msg)
|
#define TRACE(msg)
|
#define TRACE1(msg,num)
|
#define TRACE1(msg,num)
|
#endif
|
#endif
|
|
|
|
|
/* Errno support */
|
/* Errno support */
|
|
|
int errno;
|
int errno;
|
|
|
int *
|
int *
|
__errno ()
|
__errno ()
|
{
|
{
|
return &errno;
|
return &errno;
|
}
|
}
|
|
|
/* syscall handler branches here to set errno. Error codes
|
/* syscall handler branches here to set errno. Error codes
|
that are common between newlib and Solaris are the same. */
|
that are common between newlib and Solaris are the same. */
|
|
|
int
|
int
|
_cerror (e)
|
_cerror (e)
|
int e;
|
int e;
|
{
|
{
|
TRACE1("got to _cerror ",e);
|
TRACE1("got to _cerror ",e);
|
errno = e;
|
errno = e;
|
return -1;
|
return -1;
|
}
|
}
|
|
|
|
|
/* Sbrk support */
|
/* Sbrk support */
|
|
|
extern char _end[];
|
extern char _end[];
|
static char *curbrk = _end;
|
static char *curbrk = _end;
|
|
|
void *
|
void *
|
sbrk (incr)
|
sbrk (incr)
|
size_t incr;
|
size_t incr;
|
{
|
{
|
char *oldbrk = curbrk;
|
char *oldbrk = curbrk;
|
TRACE("got to sbrk\n");
|
TRACE("got to sbrk\n");
|
curbrk += incr;
|
curbrk += incr;
|
if (brk (curbrk) == -1)
|
if (brk (curbrk) == -1)
|
return (char *) -1;
|
return (char *) -1;
|
|
|
return (void *)oldbrk;
|
return (void *)oldbrk;
|
}
|
}
|
|
|
|
|
/* Isatty support */
|
/* Isatty support */
|
|
|
int
|
int
|
isatty (fd)
|
isatty (fd)
|
int fd;
|
int fd;
|
{
|
{
|
struct solaris_termios t;
|
struct solaris_termios t;
|
int ret;
|
int ret;
|
|
|
ret = (ioctl (fd, SOLARIS_TCGETS, &t) == 0);
|
ret = (ioctl (fd, SOLARIS_TCGETS, &t) == 0);
|
|
|
TRACE1("got to isatty, returned ", ret);
|
TRACE1("got to isatty, returned ", ret);
|
return ret;
|
return ret;
|
}
|
}
|
|
|
|
|
/* Convert Solaris {,f}stat to newlib.
|
/* Convert Solaris {,f}stat to newlib.
|
Fortunately, the st_mode bits are the same. */
|
Fortunately, the st_mode bits are the same. */
|
|
|
static void
|
static void
|
solaris_to_newlib_stat (solaris, newlib)
|
solaris_to_newlib_stat (solaris, newlib)
|
struct solaris_stat *solaris;
|
struct solaris_stat *solaris;
|
struct stat *newlib;
|
struct stat *newlib;
|
{
|
{
|
static struct stat zero_stat;
|
static struct stat zero_stat;
|
|
|
*newlib = zero_stat;
|
*newlib = zero_stat;
|
newlib->st_dev = solaris->st_dev;
|
newlib->st_dev = solaris->st_dev;
|
newlib->st_ino = solaris->st_ino;
|
newlib->st_ino = solaris->st_ino;
|
newlib->st_mode = solaris->st_mode;
|
newlib->st_mode = solaris->st_mode;
|
newlib->st_nlink = solaris->st_nlink;
|
newlib->st_nlink = solaris->st_nlink;
|
newlib->st_uid = solaris->st_uid;
|
newlib->st_uid = solaris->st_uid;
|
newlib->st_gid = solaris->st_gid;
|
newlib->st_gid = solaris->st_gid;
|
newlib->st_rdev = solaris->st_rdev;
|
newlib->st_rdev = solaris->st_rdev;
|
newlib->st_size = solaris->st_size;
|
newlib->st_size = solaris->st_size;
|
newlib->st_blksize = solaris->st_blksize;
|
newlib->st_blksize = solaris->st_blksize;
|
newlib->st_blocks = solaris->st_blocks;
|
newlib->st_blocks = solaris->st_blocks;
|
newlib->st_atime = solaris->st_atim.tv_sec;
|
newlib->st_atime = solaris->st_atim.tv_sec;
|
newlib->st_mtime = solaris->st_mtim.tv_sec;
|
newlib->st_mtime = solaris->st_mtim.tv_sec;
|
newlib->st_ctime = solaris->st_ctim.tv_sec;
|
newlib->st_ctime = solaris->st_ctim.tv_sec;
|
}
|
}
|
|
|
int
|
int
|
stat (file, newlib_stat)
|
stat (file, newlib_stat)
|
const char *file;
|
const char *file;
|
struct stat *newlib_stat;
|
struct stat *newlib_stat;
|
{
|
{
|
int ret;
|
int ret;
|
struct solaris_stat st;
|
struct solaris_stat st;
|
|
|
TRACE("got to stat\n");
|
TRACE("got to stat\n");
|
ret = _stat (file, &st);
|
ret = _stat (file, &st);
|
if (ret >= 0)
|
if (ret >= 0)
|
solaris_to_newlib_stat (&st, newlib_stat);
|
solaris_to_newlib_stat (&st, newlib_stat);
|
|
|
return ret;
|
return ret;
|
}
|
}
|
|
|
int
|
int
|
lstat (file, newlib_stat)
|
lstat (file, newlib_stat)
|
const char *file;
|
const char *file;
|
struct stat *newlib_stat;
|
struct stat *newlib_stat;
|
{
|
{
|
int ret;
|
int ret;
|
struct solaris_stat st;
|
struct solaris_stat st;
|
|
|
TRACE("got to lstat\n");
|
TRACE("got to lstat\n");
|
ret = _lstat (file, &st);
|
ret = _lstat (file, &st);
|
if (ret >= 0)
|
if (ret >= 0)
|
solaris_to_newlib_stat (&st, newlib_stat);
|
solaris_to_newlib_stat (&st, newlib_stat);
|
|
|
return ret;
|
return ret;
|
}
|
}
|
|
|
int
|
int
|
fstat (fd, newlib_stat)
|
fstat (fd, newlib_stat)
|
int fd;
|
int fd;
|
struct stat *newlib_stat;
|
struct stat *newlib_stat;
|
{
|
{
|
int ret;
|
int ret;
|
struct solaris_stat st;
|
struct solaris_stat st;
|
|
|
TRACE("got to fstat\n");
|
TRACE("got to fstat\n");
|
ret = _fstat (fd, &st);
|
ret = _fstat (fd, &st);
|
if (ret >= 0)
|
if (ret >= 0)
|
solaris_to_newlib_stat (&st, newlib_stat);
|
solaris_to_newlib_stat (&st, newlib_stat);
|
|
|
return ret;
|
return ret;
|
}
|
}
|
|
|
|
|
/* Nops */
|
/* Nops */
|
|
|
int
|
int
|
getrusage ()
|
getrusage ()
|
{
|
{
|
_cerror (EINVAL);
|
_cerror (EINVAL);
|
return -1;
|
return -1;
|
}
|
}
|
|
|
char *
|
char *
|
getcwd(buf, size)
|
getcwd(buf, size)
|
char *buf;
|
char *buf;
|
size_t size;
|
size_t size;
|
{
|
{
|
if (!buf || size < 2)
|
if (!buf || size < 2)
|
return ".";
|
return ".";
|
|
|
buf[0] = '.';
|
buf[0] = '.';
|
buf[1] = '\0';
|
buf[1] = '\0';
|
return buf;
|
return buf;
|
}
|
}
|
|
|
