da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "defs.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <fcin.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <ls.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <stdarg.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <regex.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "variables.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "path.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "io.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "jobs.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "shnodes.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "history.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "edit.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "timeout.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "FEATURE/externs"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "FEATURE/dynamic"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "FEATURE/poll"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef FNDELAY

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# ifdef EAGAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# if EAGAIN!=EWOULDBLOCK

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# undef EAGAIN

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define EAGAIN EWOULDBLOCK

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define EAGAIN EWOULDBLOCK

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# endif /* EAGAIN */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# ifndef O_NONBLOCK

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define O_NONBLOCK FNDELAY

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# endif /* !O_NONBLOCK */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* FNDELAY */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifndef O_SERVICE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define O_SERVICE O_NOCTTY

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define RW_ALL (S_IRUSR|S_IRGRP|S_IROTH|S_IWUSR|S_IWGRP|S_IWOTH)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void *timeout;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int (*fdnotify)(int,int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if defined(_lib_socket) && defined(_sys_socket) && defined(_hdr_netinet_in)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# include <sys/socket.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# include <netdb.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# include <netinet/in.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# if !defined(htons) && !_lib_htons

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define htons(x) (x)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# if !defined(htonl) && !_lib_htonl

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# define htonl(x) (x)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# if _pipe_socketpair

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# ifndef SHUT_RD

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# define SHUT_RD 0

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# endif

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# ifndef SHUT_WR

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# define SHUT_WR 1

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# if _socketpair_shutdown_mode

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# define pipe(v) ((socketpair(AF_UNIX,SOCK_STREAM,0,v)<0||shutdown((v)[1],SHUT_RD)<0||fchmod((v)[1],S_IWUSR)<0||shutdown((v)[0],SHUT_WR)<0||fchmod((v)[0],S_IRUSR)<0)?(-1):0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# define pipe(v) ((socketpair(AF_UNIX,SOCK_STREAM,0,v)<0||shutdown((v)[1],SHUT_RD)<0||shutdown((v)[0],SHUT_WR)<0)?(-1):0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin# endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !_lib_getaddrinfo

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef EAI_SYSTEM

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define EAI_SYSTEM 1

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef addrinfo

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef getaddrinfo

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef freeaddrinfo

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define addrinfo local_addrinfo

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define getaddrinfo local_getaddrinfo

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define freeaddrinfo local_freeaddrinfo

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct addrinfo

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int ai_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int ai_family;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int ai_socktype;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int ai_protocol;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin socklen_t ai_addrlen;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct sockaddr* ai_addr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct addrinfo* ai_next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chingetaddrinfo(const char* node, const char* service, const struct addrinfo* hint, struct addrinfo **addr)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned long ip_addr = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned short ip_port = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct addrinfo* ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct hostent* hp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct sockaddr_in* ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* prot;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin long n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(hp = gethostbyname(node)) || hp->h_addrtype!=AF_INET || hp->h_length>sizeof(struct in_addr))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = EADDRNOTAVAIL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return EAI_SYSTEM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip_addr = (unsigned long)((struct in_addr*)hp->h_addr)->s_addr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((n = strtol(service, &prot, 10)) > 0 && n <= USHRT_MAX && !*prot)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip_port = htons((unsigned short)n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct servent* sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const char* protocol = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (hint)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (hint->ai_socktype)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case SOCK_STREAM:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (hint->ai_protocol)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin protocol = "tcp";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef IPPROTO_SCTP

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case IPPROTO_SCTP:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin protocol = "sctp";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case SOCK_DGRAM:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin protocol = "udp";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!protocol)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = EPROTONOSUPPORT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sp = getservbyname(service, protocol))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip_port = sp->s_port;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!ip_port)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = EADDRNOTAVAIL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return EAI_SYSTEM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(ap = newof(0, struct addrinfo, 1, sizeof(struct sockaddr_in))))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return EAI_SYSTEM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (hint)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *ap = *hint;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->ai_family = hp->h_addrtype;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->ai_addrlen = sizeof(struct sockaddr_in);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->ai_addr = (struct sockaddr *)(ap+1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip = (struct sockaddr_in *)ap->ai_addr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip->sin_family = AF_INET;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip->sin_port = ip_port;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ip->sin_addr.s_addr = ip_addr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *addr = ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinfreeaddrinfo(struct addrinfo* ap)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ap)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(ap);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintypedef int (*Inetintr_f)(struct addrinfo*, void*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chininetopen(const char* path, int server, Inetintr_f onintr, void* handle)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int fd;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int oerrno;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct addrinfo hint;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct addrinfo* addr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct addrinfo* p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memset(&hint, 0, sizeof(hint));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hint.ai_family = PF_UNSPEC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (path[0])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef IPPROTO_SCTP

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 's':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (path[1]!='c' || path[2]!='t' || path[3]!='p' || path[4]!='/')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = ENOTDIR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hint.ai_socktype = SOCK_STREAM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hint.ai_protocol = IPPROTO_SCTP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin path += 5;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 't':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (path[1]!='c' || path[2]!='p' || path[3]!='/')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = ENOTDIR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hint.ai_socktype = SOCK_STREAM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin path += 4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'u':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (path[1]!='d' || path[2]!='p' || path[3]!='/')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = ENOTDIR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hint.ai_socktype = SOCK_DGRAM;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin path += 4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = ENOTDIR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(s = strdup(path)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (t = strchr(s, '/'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (streq(s, "local"))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = "localhost";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = getaddrinfo(s, t, &hint, &addr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (fd)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (fd != EAI_SYSTEM)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = ENOTDIR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin oerrno = errno;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (p = addr; p; p = p->ai_next)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!p->ai_protocol)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->ai_protocol = hint.ai_protocol;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!p->ai_socktype)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->ai_socktype = hint.ai_socktype;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while ((fd = socket(p->ai_family, p->ai_socktype, p->ai_protocol)) >= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (server && !bind(fd, p->ai_addr, p->ai_addrlen) && !listen(fd, 5) || !server && !connect(fd, p->ai_addr, p->ai_addrlen))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin close(fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (errno != EINTR || !onintr)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((*onintr)(addr, handle))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin done:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin freeaddrinfo(addr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (fd >= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = oerrno;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return fd;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#undef O_SERVICE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct fdsave

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int orig_fd; /* original file descriptor */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int save_fd; /* saved file descriptor */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int subshell; /* saved for subshell */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char *tname; /* name used with >; */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int subexcept(Sfio_t*, int, void*, Sfdisc_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int eval_exceptf(Sfio_t*, int, void*, Sfdisc_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int slowexcept(Sfio_t*, int, void*, Sfdisc_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int pipeexcept(Sfio_t*, int, void*, Sfdisc_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic ssize_t piperead(Sfio_t*, void*, size_t, Sfdisc_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic ssize_t slowread(Sfio_t*, void*, size_t, Sfdisc_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic ssize_t subread(Sfio_t*, void*, size_t, Sfdisc_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic ssize_t tee_write(Sfio_t*,const void*,size_t,Sfdisc_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int io_prompt(Sfio_t*,int);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic int io_heredoc(Shell_t*,register struct ionod*, const char*, int);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void sftrack(Sfio_t*,int,void*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const Sfdisc_t eval_disc = { NULL, NULL, NULL, eval_exceptf, NULL};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic Sfdisc_t tee_disc = {NULL,tee_write,NULL,NULL,NULL};

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic Sfio_t *subopen(Shell_t *,Sfio_t*, off_t, long);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const Sfdisc_t sub_disc = { subread, 0, 0, subexcept, 0 };

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct subfile

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfdisc_t disc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *oldsp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin off_t offset;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin long size;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin long left;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct Eof

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namfun_t hdr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int fd;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic Sfdouble_t nget_cur_eof(register Namval_t* np, Namfun_t *fp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct Eof *ep = (struct Eof*)fp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfoff_t end, cur =lseek(ep->fd, (Sfoff_t)0, SEEK_CUR);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*np->nvname=='C')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return((Sfdouble_t)cur);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(cur<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return((Sfdouble_t)-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin end =lseek(ep->fd, (Sfoff_t)0, SEEK_END);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lseek(ep->fd, (Sfoff_t)0, SEEK_CUR);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return((Sfdouble_t)end);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const Namdisc_t EOF_disc = { sizeof(struct Eof), 0, 0, nget_cur_eof};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define MATCH_BUFF (64*1024)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct Match

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfoff_t offset;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *base;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int matchf(void *handle, char *ptr, size_t size)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct Match *mp = (struct Match*)handle;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mp->offset += (ptr-mp->base);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic struct fdsave *filemap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic short filemapsize;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinvoid sh_ioinit(Shell_t *shp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin filemapsize = 8;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin filemap = (struct fdsave*)malloc(filemapsize*sizeof(struct fdsave));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_FASTPIPE

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = shp->lim.open_max+2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = shp->lim.open_max;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_FASTPIPE */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus = (unsigned char*)malloc((unsigned)n);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memset((char*)shp->fdstatus,0,n);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdptrs = (int**)malloc(n*sizeof(int*));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memset((char*)shp->fdptrs,0,n*sizeof(int*));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->sftable = (Sfio_t**)malloc(n*sizeof(Sfio_t*));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memset((char*)shp->sftable,0,n*sizeof(Sfio_t*));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->sftable[0] = sfstdin;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->sftable[1] = sfstdout;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->sftable[2] = sfstderr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfnotify(sftrack);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iostream(shp,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* all write steams are in the same pool and share outbuff */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->outpool = sfopen(NIL(Sfio_t*),NIL(char*),"sw"); /* pool identifier */

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz shp->outbuff = (char*)malloc(IOBSIZE+4);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->errbuff = (char*)malloc(IOBSIZE/4);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfsetbuf(sfstderr,shp->errbuff,IOBSIZE/4);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfsetbuf(sfstdout,shp->outbuff,IOBSIZE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfpool(sfstdout,shp->outpool,SF_WRITE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfpool(sfstderr,shp->outpool,SF_WRITE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfset(sfstdout,SF_LINE,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfset(sfstderr,SF_LINE,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfset(sfstdin,SF_SHARE|SF_PUBLIC,1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic int outexcept(register Sfio_t *iop,int type,void *data,Sfdisc_t *handle)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin static int active = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin NOT_USED(handle);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(type==SF_DPOP || type==SF_FINAL)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin free((void*)handle);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(type==SF_WRITE && (*(ssize_t*)data)<0 && sffileno(iop)!=2)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin switch (errno)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case EINTR:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case EPIPE:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#ifdef ECONNRESET

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case ECONNRESET:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#ifdef ESHUTDOWN

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case ESHUTDOWN:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin default:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!active)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int mode = ((struct checkpt*)sh.jmplist)->mode;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int save = errno;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin active = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ((struct checkpt*)sh.jmplist)->mode = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfpurge(iop);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfpool(iop,NIL(Sfio_t*),SF_WRITE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin errno = save;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin errormsg(SH_DICT,ERROR_system(1),e_badwrite,sffileno(iop));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin active = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ((struct checkpt*)sh.jmplist)->mode = mode;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_exit(1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(-1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April ChinSfio_t *sh_iostream(Shell_t *shp, register int fd)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Sfio_t *iop;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register int status = sh_iocheckfd(shp,fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int flags = SF_WRITE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *bp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Sfdisc_t *dp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_FASTPIPE

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(fd>=shp->lim.open_max)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(shp->sftable[fd]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_FASTPIPE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(status==IOCLOSE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(fd)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sfstdin);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 1:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sfstdout);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 2:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sfstderr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(NIL(Sfio_t*));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(status&IOREAD)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(bp = (char *)malloc(IOBSIZE+1)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(NIL(Sfio_t*));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= SF_READ;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(status&IOWRITE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~SF_WRITE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin bp = shp->outbuff;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(status&IODUP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= SF_SHARE|SF_PUBLIC;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((iop = shp->sftable[fd]) && sffileno(iop)>=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfsetbuf(iop, bp, IOBSIZE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!(iop=sfnew((fd<=2?iop:0),bp,IOBSIZE,fd,flags)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(NIL(Sfio_t*));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dp = newof(0,Sfdisc_t,1,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(status&IOREAD)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfset(iop,SF_MALLOC,1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!(status&IOWRITE))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfset(iop,SF_IOCHECK,1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dp->exceptf = slowexcept;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(status&IOTTY)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dp->readf = slowread;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(status&IONOSEEK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dp->readf = piperead;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfset(iop, SF_IOINTR,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dp->readf = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dp->seekf = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dp->writef = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dp->exceptf = outexcept;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfpool(iop,shp->outpool,SF_WRITE);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfdisc(iop,dp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->sftable[fd] = iop;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(iop);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void io_preserve(Shell_t* shp, register Sfio_t *sp, register int f2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int fd;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = sfsetfd(sp,10);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = sh_fcntl(f2,F_DUPFD,10);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(f2==shp->infd)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->infd = fd;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fd<0)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz shp->toomany = 1;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ((struct checkpt*)shp->jmplist)->mode = SH_JMPERREXIT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(1),e_toomany);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(shp->fdptrs[fd]=shp->fdptrs[f2])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f2==job.fd)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin job.fd=fd;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin *shp->fdptrs[fd] = fd;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdptrs[f2] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->sftable[fd] = sp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[fd] = shp->fdstatus[f2];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fcntl(f2,F_GETFD,0)&1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fcntl(fd,F_SETFD,FD_CLOEXEC);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[fd] |= IOCLEX;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->sftable[f2] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinint sh_iorenumber(Shell_t *shp, register int f1,register int f2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Sfio_t *sp = shp->sftable[f2];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f1!=f2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* see whether file descriptor is in use */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sh_inuse(f2) || (f2>2 && sp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!(shp->inuse_bits&(1<<f2)))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin io_preserve(shp,sp,f2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(f2==0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->st.ioset = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_close(f2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f2<=2 && sp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Sfio_t *spnew = sh_iostream(shp,f1);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[f2] = (shp->fdstatus[f1]&~IOCLEX);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfsetfd(spnew,f2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfswap(spnew,sp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfset(sp,SF_SHARE|SF_PUBLIC,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[f2] = (shp->fdstatus[f1]&~IOCLEX);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((f2 = sh_fcntl(f1,F_DUPFD, f2)) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(1),e_file+4);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(f2 <= 2)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iostream(shp,f2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sp)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->sftable[f1] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_close(f1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(f2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sh_close(register int fd)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Sfio_t *sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int r = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fd<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(sp=sh.sftable[fd]) || sfclose(sp) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fdnotify)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (*fdnotify)(fd,SH_FDCLOSE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r=close(fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fd>2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh.sftable[fd] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh.fdstatus[fd] = IOCLOSE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sh.fdptrs[fd])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *sh.fdptrs[fd] = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh.fdptrs[fd] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fd < 10)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh.inuse_bits &= ~(1<<fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(r);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#ifdef O_SERVICE

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinonintr(struct addrinfo* addr, void* handle)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Shell_t* sh = (Shell_t*)handle;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sh->trapnote&SH_SIGSET)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin freeaddrinfo(addr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_exit(SH_EXITSIG);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sh->trapnote)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_chktrap();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sh_open(register const char *path, int flags, ...)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Shell_t *shp = &sh;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int fd = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode_t mode;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *e;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin va_list ap;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin va_start(ap, flags);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = (flags & O_CREAT) ? va_arg(ap, int) : 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin va_end(ap);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*path==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = ENOENT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (path[0]=='/' && path[1]=='d' && path[2]=='e' && path[3]=='v' && path[4]=='/')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (path[5])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'f':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (path[6]=='d' && path[7]=='/')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = (int)strtol(path+8, &e, 10);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*e)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 's':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (path[6]=='t' && path[7]=='d')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (path[8])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'e':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (path[9]=='r' && path[10]=='r' && !path[11])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'i':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (path[9]=='n' && !path[10])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'o':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (path[9]=='u' && path[10]=='t' && !path[11])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef O_SERVICE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (fd < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((fd = inetopen(path+5, !!(flags & O_SERVICE), onintr, &sh)) < 0 && errno != ENOTDIR)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (fd >= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto ok;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (fd >= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz int nfd= -1;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if (flags & O_CREAT)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz struct stat st;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if (stat(path,&st) >=0)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz nfd = open(path,flags,st.st_mode);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz else

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz nfd = open(path,flags);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(nfd>=0)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fd = nfd;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz goto ok;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((mode=sh_iocheckfd(shp,fd))==IOCLOSE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= O_ACCMODE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(mode&IOWRITE) && ((flags==O_WRONLY) || (flags==O_RDWR)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(mode&IOREAD) && ((flags==O_RDONLY) || (flags==O_RDWR)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((fd=dup(fd))<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz else

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#if SHOPT_REGRESS

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz char buf[PATH_MAX];

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(strncmp(path,"/etc/",5)==0)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz sfsprintf(buf, sizeof(buf), "%s%s", sh_regress_etc(path, __LINE__, __FILE__), path+4);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz path = buf;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz while((fd = open(path, flags, mode)) < 0)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(errno!=EINTR || sh.trapnote)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz return(-1);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ok:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= O_ACCMODE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags==O_WRONLY)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = IOWRITE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flags==O_RDWR)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = (IOREAD|IOWRITE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = IOREAD;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh.fdstatus[fd] = mode;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sh_chkopen(register const char *name)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int fd = sh_open(name,O_RDONLY,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fd < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(1),e_open,name);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sh_iomovefd(register int fdold)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int fdnew;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fdold<0 || fdold>2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(fdold);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fdnew = sh_iomovefd(dup(fdold));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh.fdstatus[fdnew] = (sh.fdstatus[fdold]&~IOCLEX);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin close(fdold);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh.fdstatus[fdold] = IOCLOSE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(fdnew);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sh_pipe(register int pv[])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int fd[2];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(pipe(fd)<0 || (pv[0]=fd[0])<0 || (pv[1]=fd[1])<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(1),e_pipe);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pv[0] = sh_iomovefd(pv[0]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pv[1] = sh_iomovefd(pv[1]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh.fdstatus[pv[0]] = IONOSEEK|IOREAD;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh.fdstatus[pv[1]] = IONOSEEK|IOWRITE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_subsavefd(pv[0]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_subsavefd(pv[1]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int pat_seek(void *handle, const char *str, size_t sz)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char **bp = (char**)handle;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *bp = (char*)str;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int pat_line(const regex_t* rp, const char *buff, register size_t n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char *cp=buff, *sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(n>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(sp=cp; n-->0 && *cp++ != '\n';);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(regnexec(rp,sp,cp-sp, 0, (regmatch_t*)0, 0)==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(sp-buff);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(cp-buff);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic int io_patseek(Shell_t *shp, regex_t *rp, Sfio_t* sp, int flags)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *cp, *match;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int r, fd=sffileno(sp), close_exec = shp->fdstatus[fd]&IOCLEX;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int was_share,s=(PIPE_BUF>SF_BUFSIZE?SF_BUFSIZE:PIPE_BUF);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size_t n,m;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[sffileno(sp)] |= IOCLEX;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fd==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin was_share = sfset(sp,SF_SHARE,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((cp=sfreserve(sp, -s, SF_LOCKR)) || (cp=sfreserve(sp,SF_UNBOUND, SF_LOCKR)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = n = sfvalue(sp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(n>0 && cp[n-1]!='\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r = regrexec(rp,cp,m,0,(regmatch_t*)0, 0, '\n', (void*)&match, pat_seek);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(r<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = match-cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(r==2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((m = pat_line(rp,cp,m)) < n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin r = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(m && (flags&IOCOPY))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfwrite(sfstdout,cp,m);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfread(sp,cp,m);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(r<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!close_exec)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[sffileno(sp)] &= ~IOCLEX;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fd==0 && !(was_share&SF_SHARE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfset(sp, SF_SHARE,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic Sfoff_t file_offset(Shell_t *shp, int fn, char *fname)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Sfio_t *sp = shp->sftable[fn];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfoff_t off;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct Eof endf;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Namval_t *mp = nv_open("EOF",shp->var_tree,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Namval_t *pp = nv_open("CUR",shp->var_tree,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memset(&endf,0,sizeof(struct Eof));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endf.fd = fn;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endf.hdr.disc = &EOF_disc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endf.hdr.nofree = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_stack(mp, &endf.hdr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(pp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_stack(pp, &endf.hdr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfsync(sp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin off = sh_strnum(fname, &cp, 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_stack(mp, NiL);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(pp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_stack(pp, NiL);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(*cp?(Sfoff_t)-1:off);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinvoid sh_pclose(register int pv[])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(pv[0]>=2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_close(pv[0]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(pv[1]>=2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_close(pv[1]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pv[0] = pv[1] = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic char *io_usename(char *name, int *perm, int mode)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin struct stat statb;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char *tname, *sp, *ep;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int fd,len,n=0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(mode==0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((fd = sh_open(name,O_RDONLY,0)) > 0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(fstat(fd,&statb) < 0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!S_ISREG(statb.st_mode))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin *perm = statb.st_mode&(RW_ALL|(S_IXUSR|S_IXGRP|S_IXOTH));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(fd < 0 && errno!=ENOENT)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tname = sp = (char*)stakalloc((len=strlen(name)) + 5);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(ep = strrchr(name,'/'))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memcpy(sp,name,n=++ep-name);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin len -=n;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sp += n;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ep = name;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin *sp++ = '.';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin memcpy(sp,ep,len);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin strcpy(sp+len,".tmp");

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin switch(mode)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case 1:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin rename(tname,name);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case 2:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin unlink(tname);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(tname);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinint sh_redirect(Shell_t *shp,struct ionod *iop, int flag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfoff_t off;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *fname;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int fd, iof;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const char *message = e_open;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int o_mode; /* mode flag for open */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char io_op[7]; /* used for -x trace info */

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz int trunc=0, clexec=0, fn, traceon;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int r, indx = shp->topfd, perm= -1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char *tname=0, *after="", *trace = shp->st.trap[SH_DEBUGTRAP];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namval_t *np=0;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz int isstring = shp->subshell?(sfset(sfstdout,0,0)&SF_STRING):0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag==2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin clexec = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iop)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin traceon = sh_trace(NIL(char**),0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(;iop;iop=iop->ionxt)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin iof=iop->iofile;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fn = (iof&IOUFD);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(fn==1 && shp->subshell && !shp->subshare && (flag==2 || isstring))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_subfork();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[0] = '0'+(iof&IOUFD);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iof&IOPUT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[1] = '>';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin o_mode = O_WRONLY|O_CREAT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[1] = '<';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin o_mode = O_RDONLY|O_NONBLOCK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[2] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[3] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[4] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fname = iop->ioname;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(iof&IORAW))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iof&IOLSEEK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct argnod *ap = (struct argnod*)stakalloc(ARGVAL+strlen(iop->ioname));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memset(ap, 0, ARGVAL);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ap->argflag = ARG_MAC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin strcpy(ap->argval,iop->ioname);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fname=sh_macpat(shp,ap,(iof&IOARITH)?ARG_ARITH:ARG_EXP);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz else if(iof&IOPROCSUB)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz struct argnod *ap = (struct argnod*)stakalloc(ARGVAL+strlen(iop->ioname));

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz memset(ap, 0, ARGVAL);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(iof&IOPUT)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ap->argflag = ARG_RAW;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ap->argchn.ap = (struct argnod*)fname;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ap = sh_argprocsub(shp,ap);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fname = ap->argval;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fname=sh_mactrim(shp,fname,(!sh_isoption(SH_NOGLOB)&&sh_isoption(SH_INTERACTIVE))?2:0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno=0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iop->iovname)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin np = nv_open(iop->iovname,shp->var_tree,NV_NOASSIGN|NV_VARNAME);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(nv_isattr(np,NV_RDONLY))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_readonly, nv_name(np));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[0] = '}';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((iof&IOLSEEK) || ((iof&IOMOV) && *fname=='-'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fn = nv_getnum(np);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iof&IOLSEEK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[2] = '#';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iof&IOARITH)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin strcpy(&io_op[3]," ((");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin after = "))";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(iof&IOCOPY)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[3] = '#';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto traceit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*fname)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iof&IODOC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(traceon)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputr(sfstderr,io_op,'<');

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fd = io_heredoc(shp,iop,fname,traceon);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(traceon && (flag==SH_SHOWME))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_close(fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fname = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(iof&IOMOV)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int dupfd,toclose= -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[2] = '&';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((fd=fname[0])>='0' && fd<='9')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *number = fname;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dupfd = strtol(fname,&number,10);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*number=='-')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin toclose = dupfd;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin number++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*number || dupfd > IOUFD)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin message = e_file;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fail;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(shp->subshell && dupfd==1 && (sfset(sfstdout,0,0)&SF_STRING))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_subtmpfile(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dupfd = sffileno(sfstdout);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(shp->sftable[dupfd])

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfsync(shp->sftable[dupfd]);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(fd=='-' && fname[1]==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd= -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto traceit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(fd=='p' && fname[1]==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iof&IOPUT)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dupfd = shp->coutpipe;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dupfd = shp->cpipe[0];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin toclose = dupfd;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin message = e_file;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fail;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag==SH_SHOWME)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto traceit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((fd=sh_fcntl(dupfd,F_DUPFD,3))<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto fail;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iocheckfd(shp,dupfd);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[fd] = (shp->fdstatus[dupfd]&~IOCLEX);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(toclose<0 && shp->fdstatus[fd]&IOREAD)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shp->fdstatus[fd] |= IODUP;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(dupfd==shp->cpipe[0])

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_pclose(shp->cpipe);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(toclose>=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag==0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh_iosave(shp,toclose,indx,(char*)0); /* save file descriptor */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_close(toclose);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(iof&IORDW)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sh_isoption(SH_RESTRICTED))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_restricted,fname);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[2] = '>';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin o_mode = O_RDWR|O_CREAT;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(iof&IOREWRITE)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz trunc = io_op[2] = ';';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto openit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!(iof&IOPUT))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag==SH_SHOWME)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto traceit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd=sh_chkopen(fname);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(sh_isoption(SH_RESTRICTED))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_restricted,fname);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iof&IOAPP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[2] = '>';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin o_mode |= O_APPEND;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if((iof&IOREWRITE) && (flag==0 || flag==1 || sh_subsavefd(fn)))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin io_op[2] = ';';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin o_mode |= O_TRUNC;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tname = io_usename(fname,&perm,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin o_mode |= O_TRUNC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(iof&IOCLOB)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin io_op[2] = '|';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(sh_isoption(SH_NOCLOBBER))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct stat sb;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(stat(fname,&sb)>=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_FS_3D

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(S_ISREG(sb.st_mode)&&

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin (!shp->lim.fs3d || iview(&sb)==0))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(S_ISREG(sb.st_mode))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_FS_3D */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = EEXIST;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(1),e_exists,fname);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin o_mode |= O_EXCL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin openit:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flag!=SH_SHOWME)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((fd=sh_open(tname?tname:fname,o_mode,RW_ALL)) <0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(1),((o_mode&O_CREAT)?e_create:e_open),fname);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(perm>0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if _lib_fchmod

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fchmod(fd,perm);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin chmod(tname,perm);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin traceit:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(traceon && fname)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(np)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstderr,"{%s",nv_name(np));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstderr,"%s %s%s%c",io_op,fname,after,iop->ionxt?' ':'\n');