int stat(const char *name,struct stat *buf)
{ APTR oldwin,*wptr=&((struct Process *)FindTask(NULL))->pr_WindowPtr;
struct FileInfoBlock *fib;
BPTR lock;
int ret=-1;
#ifdef IXPATHS
if((name=__amigapath(name))==NULL)
return -1;
#endif
/* avoid possible dos-requesters ;-( */
oldwin=*wptr; *wptr=(APTR)ret;
if((lock=Lock((STRPTR)name,SHARED_LOCK))!=0)
{
if((fib=(struct FileInfoBlock *)AllocDosObject(DOS_FIB,NULL))!=NULL)
{ if(Examine(lock,fib)!=DOSFALSE)
ret=__stat(buf,fib);
else
__seterrno();
FreeDosObject(DOS_FIB,fib);
}
else
__seterrno();
UnLock(lock);
}
else
__seterrno();
*wptr=oldwin;
return ret;
}
/* Store at most BUFLEN characters of the pathname of the slave pseudo
terminal associated with the master FD is open on in BUF.
Return 0 on success, otherwise an error number. */
int
__ptsname_r (int fd, char *buf, size_t buflen)
{
int save_errno = errno;
struct stat st;
if (buf == NULL)
{
__set_errno (EINVAL);
return EINVAL;
}
if (!__isatty (fd))
/* We rely on isatty to set errno properly (i.e. EBADF or ENOTTY). */
return errno;
if (buflen < sizeof (_PATH_PTY) + 4)
{
__set_errno (ERANGE);
return ERANGE;
}
if (__ttyname_r (fd, buf, buflen) != 0)
return errno;
buf[ 9] = 's';
buf[10] = 'l';
buf[11] = 'v';
if (__stat (buf, &st) < 0)
return errno;
__set_errno (save_errno);
return 0;
}
int __lxstat64(int ver, const char *filename, struct stat64 *buf)
{
int e;
funcptr __stat;
DPRINT(("lstat64: filename=%s \n", filename));
check_file(filename, CRUMB_ACCESS_TYPE_READ, CRUMB_ACCESS_TYPE_STAT);
__stat = load_library_symbol("__lxstat64");
if (__stat == NULL) {
errno = ENOENT;
return -1;
}
DPRINT(("lstat64 = %p\n", __stat));
e = __stat(ver, filename, buf);
DPRINT(("lstat64: filename=%s e=%d\n", filename, e));
return e;
}
/* Store at most BUFLEN characters of the pathname of the slave pseudo
terminal associated with the master FD is open on in BUF.
Return 0 on success, otherwise an error number. */
int
__ptsname_r (int fd, char *buf, size_t buflen)
{
int save_errno = errno;
int err;
struct stat st;
if (buf == NULL)
{
__set_errno (EINVAL);
return EINVAL;
}
if (!__isatty (fd))
/* We rely on isatty to set errno properly (i.e. EBADF or ENOTTY). */
return errno;
if (buflen < strlen (_PATH_TTY) + 3)
{
__set_errno (ERANGE);
return ERANGE;
}
err = __ttyname_r (fd, buf, buflen);
if (err != 0)
{
__set_errno (err);
return errno;
}
buf[sizeof (_PATH_DEV) - 1] = 't';
if (__stat (buf, &st) < 0)
return errno;
__set_errno (save_errno);
return 0;
}
int stat(const char *str, struct stat *sb) {
return __stat(_GLOBAL_REENT, str, sb);
}
/* Store at most BUFLEN characters of the pathname of the slave pseudo
terminal associated with the master FD is open on in BUF.
Return 0 on success, otherwise an error number. */
int
__ptsname_r (int fd, char *buf, size_t buflen)
{
int save_errno = errno;
int err;
struct stat st;
if (buf == NULL)
{
__set_errno (EINVAL);
return EINVAL;
}
#if defined __sun /* Solaris */
if (fstat (fd, &st) < 0)
return errno;
if (!(S_ISCHR (st.st_mode) && major (st.st_rdev) == 0))
{
errno = ENOTTY;
return errno;
}
{
/* Master ptys can be recognized through a STREAMS ioctl. See
"STREAMS-based Pseudo-Terminal Subsystem"
<http://docs.oracle.com/cd/E18752_01/html/816-4855/termsub15-44781.html>
and "STREAMS ioctl commands"
<http://docs.oracle.com/cd/E18752_01/html/816-5177/streamio-7i.html>
*/
struct strioctl ioctl_arg;
ioctl_arg.ic_cmd = ISPTM;
ioctl_arg.ic_timout = 0;
ioctl_arg.ic_len = 0;
ioctl_arg.ic_dp = NULL;
if (ioctl (fd, I_STR, &ioctl_arg) < 0)
{
errno = ENOTTY;
return errno;
}
}
{
char tmpbuf[9 + 10 + 1];
int n = sprintf (tmpbuf, "/dev/pts/%u", minor (st.st_rdev));
if (n >= buflen)
{
errno = ERANGE;
return errno;
}
memcpy (buf, tmpbuf, n + 1);
}
#elif defined _AIX || defined __osf__ /* AIX, OSF/1 */
/* This implementation returns /dev/pts/N, like ptsname() does.
Whereas the generic implementation below returns /dev/ttypN.
Both are correct, but let's be consistent with ptsname(). */
if (fstat (fd, &st) < 0)
return errno;
if (!S_ISCHR (st.st_mode))
{
errno = ENOTTY;
return errno;
}
{
int ret;
int dev;
char tmpbuf[9 + 10 + 1];
int n;
# ifdef _AIX
ret = ioctl (fd, ISPTM, &dev);
# endif
# ifdef __osf__
ret = ioctl (fd, ISPTM, NULL);
dev = ret;
# endif
if (ret < 0)
{
errno = ENOTTY;
return errno;
}
n = sprintf (tmpbuf, "/dev/pts/%u", minor (dev));
if (n >= buflen)
{
errno = ERANGE;
return errno;
}
memcpy (buf, tmpbuf, n + 1);
}
#else
if (!__isatty (fd))
{
#if ISATTY_FAILS_WITHOUT_SETTING_ERRNO && defined F_GETFL /* IRIX, Solaris */
/* Set errno. */
if (fcntl (fd, F_GETFL) != -1)
errno = ENOTTY;
#else
/* We rely on isatty to set errno properly (i.e. EBADF or ENOTTY). */
#endif
return errno;
}
if (buflen < strlen (_PATH_TTY) + 3)
{
__set_errno (ERANGE);
return ERANGE;
}
err = __ttyname_r (fd, buf, buflen);
if (err != 0)
{
__set_errno (err);
return errno;
}
if (strncmp(buf, "/dev/pts/", strlen("/dev/pts/")) != 0)
buf[sizeof (_PATH_DEV) - 1] = 't';
#endif
if (__stat (buf, &st) < 0)
return errno;
__set_errno (save_errno);
return 0;
}
