static int fdtype_datatype_deref (SLtype type)
{
SLFile_FD_Type *f;
int status;
int fd;
(void) type;
if (-1 == SLang_pop_int (&fd))
return -1;
#ifdef F_GETFL
while (-1 == fcntl (fd, F_GETFL))
{
if (is_interrupt (errno, 1))
continue;
return SLang_push_null ();
}
#endif
f = find_chained_fd (fd);
if (f != NULL)
return SLfile_push_fd (f);
/* The descriptor is valid, but we have no record of what it is. So make sure
* it is not automatically closed.
*/
if (NULL == (f = SLfile_create_fd (NULL, fd)))
return -1;
f->flags |= _SLFD_NO_AUTO_CLOSE;
status = SLfile_push_fd (f);
SLfile_free_fd (f);
return status;
}
static void pipe_intrin (void)
{
int fds[2];
SLFile_FD_Type *f0;
SLFile_FD_Type *f1;
while (-1 == pipe (fds))
{
if (errno == EINTR)
{
if (-1 != SLang_handle_interrupt ())
continue;
}
SLerrno_set_errno (errno);
SLang_verror (SL_OS_Error, "pipe failed: %s", SLerrno_strerror(errno));
return;
}
f0 = SLfile_create_fd ("*pipe*", fds[0]);
f1 = SLfile_create_fd ("*pipe*", fds[1]);
if ((NULL != f0) && (NULL != f1))
{
/* Ignore errors and allow the free_fd routines to clean up */
(void) SLfile_push_fd (f0);
(void) SLfile_push_fd (f1);
}
SLfile_free_fd (f1);
SLfile_free_fd (f0);
}
static void posix_fileno (void)
{
FILE *fp;
SLang_MMT_Type *mmt;
int fd;
SLFile_FD_Type *f;
SLFUTURE_CONST char *name;
if (-1 == SLang_pop_fileptr (&mmt, &fp))
{
SLang_push_null ();
return;
}
name = SLang_get_name_from_fileptr (mmt);
fd = fileno (fp);
f = SLfile_create_fd (name, fd);
if (f != NULL)
{
/* prevent fd from being closed when it goes out of scope */
f->flags |= _SLFD_NO_AUTO_CLOSE;
f->close = dummy_close;
}
SLang_free_mmt (mmt);
if (-1 == SLfile_push_fd (f))
SLang_push_null ();
SLfile_free_fd (f);
}
static void posix_dup (SLFile_FD_Type *f)
{
if ((NULL == (f = SLfile_dup_fd (f)))
|| (-1 == SLfile_push_fd (f)))
SLang_push_null ();
SLfile_free_fd (f);
}
static void posix_open (void)
{
char *file;
int mode, flags;
SLFile_FD_Type *f;
switch (SLang_Num_Function_Args)
{
case 3:
if (-1 == pop_string_int_int (&file, &flags, &mode))
{
SLang_push_null ();
return;
}
break;
case 2:
default:
if (-1 == pop_string_int (&file, &flags))
return;
mode = 0777;
break;
}
f = SLfile_create_fd (file, -1);
if (f == NULL)
{
SLang_free_slstring (file);
SLang_push_null ();
return;
}
SLang_free_slstring (file);
while (-1 == (f->fd = open (f->name, flags, mode)))
{
if (is_interrupt (errno, 1))
continue;
SLfile_free_fd (f);
SLang_push_null ();
return;
}
if (-1 == SLfile_push_fd (f))
SLang_push_null ();
SLfile_free_fd (f);
}
/* This function frees the socket before returning */
static int push_socket (Socket_Type *s)
{
SLFile_FD_Type *f;
int status;
if (s == NULL)
return SLang_push_null ();
if (NULL == (f = socket_to_fd (s)))
{
free_socket (s);
return -1;
}
status = SLfile_push_fd (f);
SLfile_free_fd (f);
return status;
}
static int fd_push (SLtype type, VOID_STAR v)
{
(void) type;
return SLfile_push_fd (*(SLFile_FD_Type **)v);
}
