2003-12-23 14:41:51 +01:00
|
|
|
/* $MirBSD: sh.h,v 1.6 2003/12/23 13:41:50 tg Exp $ */
|
|
|
|
/* $OpenBSD: sh.h,v 1.15 2003/10/22 07:40:38 jmc Exp $ */
|
2003-03-22 18:35:03 +01:00
|
|
|
|
|
|
|
/*
|
|
|
|
* Public Domain Bourne/Korn shell
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* $From: sh.h,v 1.2 1994/05/19 18:32:40 michael Exp michael $ */
|
|
|
|
|
|
|
|
#include "config.h" /* system and option configuration info */
|
|
|
|
|
|
|
|
#ifdef HAVE_PROTOTYPES
|
|
|
|
# define ARGS(args) args /* prototype declaration */
|
|
|
|
#else
|
|
|
|
# define ARGS(args) () /* K&R declaration */
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* Start of common headers */
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <sys/types.h>
|
|
|
|
#include <setjmp.h>
|
|
|
|
#ifdef HAVE_STDDEF_H
|
|
|
|
# include <stddef.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef HAVE_STDLIB_H
|
|
|
|
# include <stdlib.h>
|
|
|
|
#else
|
|
|
|
/* just a useful subset of what stdlib.h would have */
|
|
|
|
extern char * getenv ARGS((const char *));
|
|
|
|
extern void * malloc ARGS((size_t));
|
|
|
|
extern void * realloc ARGS((void *, size_t));
|
|
|
|
extern int free ARGS((void *));
|
|
|
|
extern int exit ARGS((int));
|
|
|
|
extern int rand ARGS((void));
|
|
|
|
extern void srand ARGS((unsigned int));
|
|
|
|
extern int atoi ARGS((const char *));
|
|
|
|
#endif /* HAVE_STDLIB_H */
|
|
|
|
|
|
|
|
#ifdef HAVE_UNISTD_H
|
|
|
|
# include <unistd.h>
|
|
|
|
#else
|
|
|
|
/* just a useful subset of what unistd.h would have */
|
|
|
|
extern int access ARGS((const char *, int));
|
|
|
|
extern int open ARGS((const char *, int, ...));
|
|
|
|
extern int creat ARGS((const char *, mode_t));
|
|
|
|
extern int read ARGS((int, char *, unsigned));
|
|
|
|
extern int write ARGS((int, const char *, unsigned));
|
|
|
|
extern off_t lseek ARGS((int, off_t, int));
|
|
|
|
extern int close ARGS((int));
|
|
|
|
extern int pipe ARGS((int []));
|
|
|
|
extern int dup2 ARGS((int, int));
|
|
|
|
extern int unlink ARGS((const char *));
|
|
|
|
extern int fork ARGS((void));
|
|
|
|
extern int execve ARGS((const char *, char * const[], char * const[]));
|
|
|
|
extern int chdir ARGS((const char *));
|
|
|
|
extern int kill ARGS((pid_t, int));
|
|
|
|
extern char *getcwd(); /* no ARGS here - differs on different machines */
|
|
|
|
extern int geteuid ARGS((void));
|
|
|
|
extern int readlink ARGS((const char *, char *, int));
|
|
|
|
extern int getegid ARGS((void));
|
|
|
|
extern int getpid ARGS((void));
|
|
|
|
extern int getppid ARGS((void));
|
|
|
|
extern unsigned int sleep ARGS((unsigned int));
|
|
|
|
extern int isatty ARGS((int));
|
|
|
|
# ifdef POSIX_PGRP
|
|
|
|
extern int getpgrp ARGS((void));
|
|
|
|
extern int setpgid ARGS((pid_t, pid_t));
|
|
|
|
# endif /* POSIX_PGRP */
|
|
|
|
# ifdef BSD_PGRP
|
|
|
|
extern int getpgrp ARGS((pid_t));
|
|
|
|
extern int setpgrp ARGS((pid_t, pid_t));
|
|
|
|
# endif /* BSD_PGRP */
|
|
|
|
# ifdef SYSV_PGRP
|
|
|
|
extern int getpgrp ARGS((void));
|
|
|
|
extern int setpgrp ARGS((void));
|
|
|
|
# endif /* SYSV_PGRP */
|
|
|
|
#endif /* HAVE_UNISTD_H */
|
|
|
|
|
|
|
|
#ifdef HAVE_STRING_H
|
|
|
|
# include <string.h>
|
|
|
|
#else
|
|
|
|
# include <strings.h>
|
|
|
|
# define strchr index
|
|
|
|
# define strrchr rindex
|
|
|
|
#endif /* HAVE_STRING_H */
|
|
|
|
#ifndef HAVE_STRSTR
|
|
|
|
char *strstr ARGS((const char *s, const char *p));
|
|
|
|
#endif /* HAVE_STRSTR */
|
|
|
|
#ifndef HAVE_STRCASECMP
|
|
|
|
int strcasecmp ARGS((const char *s1, const char *s2));
|
|
|
|
int strncasecmp ARGS((const char *s1, const char *s2, int n));
|
|
|
|
#endif /* HAVE_STRCASECMP */
|
|
|
|
|
|
|
|
#ifdef HAVE_MEMORY_H
|
|
|
|
# include <memory.h>
|
|
|
|
#endif
|
|
|
|
#ifndef HAVE_MEMSET
|
|
|
|
# define memcpy(d, s, n) bcopy(s, d, n)
|
|
|
|
# define memcmp(s1, s2, n) bcmp(s1, s2, n)
|
|
|
|
void *memset ARGS((void *d, int c, size_t n));
|
|
|
|
#endif /* HAVE_MEMSET */
|
|
|
|
#ifndef HAVE_MEMMOVE
|
|
|
|
# ifdef HAVE_BCOPY
|
|
|
|
# define memmove(d, s, n) bcopy(s, d, n)
|
|
|
|
# else
|
|
|
|
void *memmove ARGS((void *d, const void *s, size_t n));
|
|
|
|
# endif
|
|
|
|
#endif /* HAVE_MEMMOVE */
|
|
|
|
|
|
|
|
#ifdef HAVE_PROTOTYPES
|
|
|
|
# include <stdarg.h>
|
|
|
|
# define SH_VA_START(va, argn) va_start(va, argn)
|
|
|
|
#else
|
|
|
|
# include <varargs.h>
|
|
|
|
# define SH_VA_START(va, argn) va_start(va)
|
|
|
|
#endif /* HAVE_PROTOTYPES */
|
|
|
|
|
|
|
|
#include <errno.h>
|
|
|
|
extern int errno;
|
|
|
|
|
|
|
|
#ifdef HAVE_FCNTL_H
|
|
|
|
# include <fcntl.h>
|
|
|
|
#else
|
|
|
|
# include <sys/file.h>
|
|
|
|
#endif /* HAVE_FCNTL_H */
|
|
|
|
#ifndef O_ACCMODE
|
|
|
|
# define O_ACCMODE (O_RDONLY|O_WRONLY|O_RDWR)
|
|
|
|
#endif /* !O_ACCMODE */
|
|
|
|
|
|
|
|
#ifndef F_OK /* access() arguments */
|
|
|
|
# define F_OK 0
|
|
|
|
# define X_OK 1
|
|
|
|
# define W_OK 2
|
|
|
|
# define R_OK 4
|
|
|
|
#endif /* !F_OK */
|
|
|
|
|
|
|
|
#ifndef SEEK_SET
|
|
|
|
# ifdef L_SET
|
|
|
|
# define SEEK_SET L_SET
|
|
|
|
# define SEEK_CUR L_INCR
|
|
|
|
# define SEEK_END L_XTND
|
|
|
|
# else /* L_SET */
|
|
|
|
# define SEEK_SET 0
|
|
|
|
# define SEEK_CUR 1
|
|
|
|
# define SEEK_END 2
|
|
|
|
# endif /* L_SET */
|
|
|
|
#endif /* !SEEK_SET */
|
|
|
|
|
|
|
|
/* Some machines (eg, FreeBSD 1.1.5) define CLK_TCK in limits.h
|
|
|
|
* (ksh_limval.h assumes limits has been included, if available)
|
|
|
|
*/
|
|
|
|
#ifdef HAVE_LIMITS_H
|
|
|
|
# include <limits.h>
|
|
|
|
#endif /* HAVE_LIMITS_H */
|
|
|
|
|
|
|
|
#include <signal.h>
|
|
|
|
#ifdef NSIG
|
|
|
|
# define SIGNALS NSIG
|
|
|
|
#else
|
|
|
|
# ifdef _MINIX
|
|
|
|
# define SIGNALS (_NSIG+1) /* _NSIG is # of signals used, excluding 0. */
|
|
|
|
# else
|
|
|
|
# ifdef _SIGMAX /* QNX */
|
|
|
|
# define SIGNALS _SIGMAX
|
|
|
|
# else /* _SIGMAX */
|
|
|
|
# define SIGNALS 32
|
|
|
|
# endif /* _SIGMAX */
|
|
|
|
# endif /* _MINIX */
|
|
|
|
#endif /* NSIG */
|
|
|
|
#ifndef SIGCHLD
|
|
|
|
# define SIGCHLD SIGCLD
|
|
|
|
#endif
|
|
|
|
/* struct sigaction.sa_flags is set to KSH_SA_FLAGS. Used to ensure
|
|
|
|
* system calls are interrupted
|
|
|
|
*/
|
|
|
|
#ifdef SA_INTERRUPT
|
|
|
|
# define KSH_SA_FLAGS SA_INTERRUPT
|
|
|
|
#else /* SA_INTERRUPT */
|
|
|
|
# define KSH_SA_FLAGS 0
|
|
|
|
#endif /* SA_INTERRUPT */
|
|
|
|
|
|
|
|
typedef RETSIGTYPE (*handler_t) ARGS((int)); /* signal handler */
|
|
|
|
|
|
|
|
#ifdef USE_FAKE_SIGACT
|
|
|
|
# include "sigact.h" /* use sjg's fake sigaction() */
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef HAVE_PATHS_H
|
|
|
|
# include <paths.h>
|
|
|
|
#endif /* HAVE_PATHS_H */
|
|
|
|
#ifdef _PATH_DEFPATH
|
|
|
|
# define DEFAULT__PATH _PATH_DEFPATH
|
|
|
|
#else /* _PATH_DEFPATH */
|
|
|
|
# define DEFAULT__PATH DEFAULT_PATH
|
|
|
|
#endif /* _PATH_DEFPATH */
|
|
|
|
|
|
|
|
#ifndef offsetof
|
|
|
|
# define offsetof(type,id) ((size_t)&((type*)NULL)->id)
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef HAVE_KILLPG
|
|
|
|
# define killpg(p, s) kill(-(p), (s))
|
|
|
|
#endif /* !HAVE_KILLPG */
|
|
|
|
|
|
|
|
/* Special cases for execve(2) */
|
|
|
|
#ifdef OS2
|
|
|
|
extern int ksh_execve(char *cmd, char **args, char **env, int flags);
|
|
|
|
#else /* OS2 */
|
|
|
|
# if defined(OS_ISC) && defined(_POSIX_SOURCE)
|
|
|
|
/* Kludge for ISC 3.2 (and other versions?) so programs will run correctly. */
|
|
|
|
# define ksh_execve(p, av, ev, flags) \
|
|
|
|
do { \
|
|
|
|
__setostype(0); \
|
|
|
|
execve(p, av, ev); \
|
|
|
|
__setostype(1); \
|
|
|
|
} while (0)
|
|
|
|
# else /* OS_ISC && _POSIX */
|
|
|
|
# define ksh_execve(p, av, ev, flags) execve(p, av, ev)
|
|
|
|
# endif /* OS_ISC && _POSIX */
|
|
|
|
#endif /* OS2 */
|
|
|
|
|
|
|
|
/* this is a hang-over from older versions of the os2 port */
|
|
|
|
#define ksh_dupbase(fd, base) fcntl(fd, F_DUPFD, base)
|
|
|
|
|
|
|
|
#ifdef HAVE_SIGSETJMP
|
|
|
|
# define ksh_sigsetjmp(env,sm) sigsetjmp((env), (sm))
|
|
|
|
# define ksh_siglongjmp(env,v) siglongjmp((env), (v))
|
|
|
|
# define ksh_jmp_buf sigjmp_buf
|
|
|
|
#else /* HAVE_SIGSETJMP */
|
|
|
|
# ifdef HAVE__SETJMP
|
|
|
|
# define ksh_sigsetjmp(env,sm) _setjmp(env)
|
|
|
|
# define ksh_siglongjmp(env,v) _longjmp((env), (v))
|
|
|
|
# else /* HAVE__SETJMP */
|
|
|
|
# define ksh_sigsetjmp(env,sm) setjmp(env)
|
|
|
|
# define ksh_siglongjmp(env,v) longjmp((env), (v))
|
|
|
|
# endif /* HAVE__SETJMP */
|
|
|
|
# define ksh_jmp_buf jmp_buf
|
|
|
|
#endif /* HAVE_SIGSETJMP */
|
|
|
|
|
|
|
|
#ifndef HAVE_DUP2
|
|
|
|
extern int dup2 ARGS((int, int));
|
|
|
|
#endif /* !HAVE_DUP2 */
|
|
|
|
|
|
|
|
/* Find a integer type that is at least 32 bits (or die) - SIZEOF_* defined
|
|
|
|
* by autoconf (assumes an 8 bit byte, but I'm not concerned).
|
|
|
|
* NOTE: INT32 may end up being more than 32 bits.
|
|
|
|
*/
|
|
|
|
#if SIZEOF_INT >= 4
|
|
|
|
# define INT32 int
|
|
|
|
#else /* SIZEOF_INT */
|
|
|
|
# if SIZEOF_LONG >= 4
|
|
|
|
# define INT32 long
|
|
|
|
# else /* SIZEOF_LONG */
|
|
|
|
#error cannot find 32 bit type...
|
|
|
|
# endif /* SIZEOF_LONG */
|
|
|
|
#endif /* SIZEOF_INT */
|
|
|
|
|
|
|
|
/* end of common headers */
|
|
|
|
|
|
|
|
/* Stop gcc and lint from complaining about possibly uninitialized variables */
|
|
|
|
#if defined(__GNUC__) || defined(lint)
|
|
|
|
# define UNINITIALIZED(var) var = 0
|
|
|
|
#else
|
|
|
|
# define UNINITIALIZED(var) var
|
|
|
|
#endif /* GNUC || lint */
|
|
|
|
|
|
|
|
/* some useful #defines */
|
|
|
|
#ifdef EXTERN
|
|
|
|
# define I__(i) = i
|
|
|
|
#else
|
|
|
|
# define I__(i)
|
|
|
|
# define EXTERN extern
|
|
|
|
# define EXTERN_DEFINED
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef OS2
|
|
|
|
# define inDOS() (!(_emx_env & 0x200))
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef EXECSHELL
|
|
|
|
/* shell to exec scripts (see also $SHELL initialization in main.c) */
|
|
|
|
# ifdef OS2
|
|
|
|
# define EXECSHELL (inDOS() ? "c:\\command.com" : "c:\\os2\\cmd.exe")
|
|
|
|
# define EXECSHELL_STR (inDOS() ? "COMSPEC" : "OS2_SHELL")
|
|
|
|
# else /* OS2 */
|
|
|
|
# define EXECSHELL "/bin/sh"
|
|
|
|
# define EXECSHELL_STR "EXECSHELL"
|
|
|
|
# endif /* OS2 */
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* ISABSPATH() means path is fully and completely specified,
|
|
|
|
* ISROOTEDPATH() means a .. as the first component is a no-op,
|
|
|
|
* ISRELPATH() means $PWD can be tacked on to get an absolute path.
|
|
|
|
*
|
|
|
|
* OS Path ISABSPATH ISROOTEDPATH ISRELPATH
|
|
|
|
* unix /foo yes yes no
|
|
|
|
* unix foo no no yes
|
|
|
|
* unix ../foo no no yes
|
|
|
|
* os2+cyg a:/foo yes yes no
|
|
|
|
* os2+cyg a:foo no no no
|
|
|
|
* os2+cyg /foo no yes no
|
|
|
|
* os2+cyg foo no no yes
|
|
|
|
* os2+cyg ../foo no no yes
|
|
|
|
* cyg //foo yes yes no
|
|
|
|
*/
|
|
|
|
#ifdef OS2
|
|
|
|
# define PATHSEP ';'
|
|
|
|
# define DIRSEP '/' /* even though \ is native */
|
|
|
|
# define DIRSEPSTR "\\"
|
|
|
|
# define ISDIRSEP(c) ((c) == '\\' || (c) == '/')
|
|
|
|
# define ISABSPATH(s) (((s)[0] && (s)[1] == ':' && ISDIRSEP((s)[2])))
|
|
|
|
# define ISROOTEDPATH(s) (ISDIRSEP((s)[0]) || ISABSPATH(s))
|
|
|
|
# define ISRELPATH(s) (!(s)[0] || ((s)[1] != ':' && !ISDIRSEP((s)[0])))
|
|
|
|
# define FILECHCONV(c) (isascii(c) && isupper(c) ? tolower(c) : c)
|
|
|
|
# define FILECMP(s1, s2) stricmp(s1, s2)
|
|
|
|
# define FILENCMP(s1, s2, n) strnicmp(s1, s2, n)
|
|
|
|
extern char *ksh_strchr_dirsep(const char *path);
|
|
|
|
extern char *ksh_strrchr_dirsep(const char *path);
|
|
|
|
# define chdir _chdir2
|
|
|
|
# define getcwd _getcwd2
|
|
|
|
#else
|
|
|
|
# define PATHSEP ':'
|
|
|
|
# define DIRSEP '/'
|
|
|
|
# define DIRSEPSTR "/"
|
|
|
|
# define ISDIRSEP(c) ((c) == '/')
|
|
|
|
#ifdef __CYGWIN__
|
|
|
|
# define ISABSPATH(s) \
|
|
|
|
(((s)[0] && (s)[1] == ':' && ISDIRSEP((s)[2])) || ISDIRSEP((s)[0]))
|
|
|
|
# define ISRELPATH(s) (!(s)[0] || ((s)[1] != ':' && !ISDIRSEP((s)[0])))
|
|
|
|
#else /* __CYGWIN__ */
|
|
|
|
# define ISABSPATH(s) ISDIRSEP((s)[0])
|
|
|
|
# define ISRELPATH(s) (!ISABSPATH(s))
|
|
|
|
#endif /* __CYGWIN__ */
|
|
|
|
# define ISROOTEDPATH(s) ISABSPATH(s)
|
|
|
|
# define FILECHCONV(c) c
|
|
|
|
# define FILECMP(s1, s2) strcmp(s1, s2)
|
|
|
|
# define FILENCMP(s1, s2, n) strncmp(s1, s2, n)
|
|
|
|
# define ksh_strchr_dirsep(p) strchr(p, DIRSEP)
|
|
|
|
# define ksh_strrchr_dirsep(p) strrchr(p, DIRSEP)
|
|
|
|
#endif
|
|
|
|
|
|
|
|
typedef int bool_t;
|
|
|
|
#define FALSE 0
|
|
|
|
#define TRUE 1
|
|
|
|
|
|
|
|
#define NELEM(a) (sizeof(a) / sizeof((a)[0]))
|
|
|
|
#define sizeofN(type, n) (sizeof(type) * (n))
|
|
|
|
#define BIT(i) (1<<(i)) /* define bit in flag */
|
|
|
|
|
|
|
|
/* Table flag type - needs > 16 and < 32 bits */
|
|
|
|
typedef INT32 Tflag;
|
|
|
|
|
|
|
|
#define NUFILE 32 /* Number of user-accessible files */
|
|
|
|
#define FDBASE 10 /* First file usable by Shell */
|
|
|
|
|
|
|
|
/* you're not going to run setuid shell scripts, are you? */
|
|
|
|
#define eaccess(path, mode) access(path, mode)
|
|
|
|
|
|
|
|
/* Make MAGIC a char that might be printed to make bugs more obvious, but
|
|
|
|
* not a char that is used often. Also, can't use the high bit as it causes
|
|
|
|
* portability problems (calling strchr(x, 0x80|'x') is error prone).
|
|
|
|
*/
|
2003-05-22 16:06:07 +02:00
|
|
|
#define MAGIC (7) /* prefix for *?[!{,} during expand */
|
2003-03-22 18:35:03 +01:00
|
|
|
#define ISMAGIC(c) ((unsigned char)(c) == MAGIC)
|
|
|
|
#define NOT '!' /* might use ^ (ie, [!...] vs [^..]) */
|
|
|
|
|
2003-04-12 16:32:14 +02:00
|
|
|
#define LINE 4096 /* input line size */
|
|
|
|
#define PATH 4096 /* pathname size (todo: PATH_MAX/pathconf()) */
|
|
|
|
#define ARRAYMAX 4095 /* max array index */
|
2003-03-22 18:35:03 +01:00
|
|
|
|
|
|
|
EXTERN const char *kshname; /* $0 */
|
|
|
|
EXTERN pid_t kshpid; /* $$, shell pid */
|
|
|
|
EXTERN pid_t procpid; /* pid of executing process */
|
|
|
|
EXTERN uid_t ksheuid; /* effective uid of shell */
|
|
|
|
EXTERN int exstat; /* exit status */
|
|
|
|
EXTERN int subst_exstat; /* exit status of last $(..)/`..` */
|
|
|
|
EXTERN const char *safe_prompt; /* safe prompt if PS1 substitution fails */
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Area-based allocation built on malloc/free
|
|
|
|
*/
|
|
|
|
typedef struct Area {
|
|
|
|
struct link *freelist; /* free list */
|
|
|
|
} Area;
|
|
|
|
|
|
|
|
EXTERN Area aperm; /* permanent object space */
|
|
|
|
#define APERM &aperm
|
|
|
|
#define ATEMP &e->area
|
|
|
|
|
|
|
|
#ifdef MEM_DEBUG
|
|
|
|
# include "chmem.h" /* a debugging front end for malloc et. al. */
|
|
|
|
#endif /* MEM_DEBUG */
|
|
|
|
|
|
|
|
#ifdef KSH_DEBUG
|
|
|
|
# define kshdebug_init() kshdebug_init_()
|
|
|
|
# define kshdebug_printf(a) kshdebug_printf_ a
|
|
|
|
# define kshdebug_dump(a) kshdebug_dump_ a
|
|
|
|
#else /* KSH_DEBUG */
|
|
|
|
# define kshdebug_init()
|
|
|
|
# define kshdebug_printf(a)
|
|
|
|
# define kshdebug_dump(a)
|
|
|
|
#endif /* KSH_DEBUG */
|
|
|
|
|
|
|
|
/*
|
|
|
|
* parsing & execution environment
|
|
|
|
*/
|
|
|
|
EXTERN struct env {
|
|
|
|
short type; /* environment type - see below */
|
|
|
|
short flags; /* EF_* */
|
|
|
|
Area area; /* temporary allocation area */
|
|
|
|
struct block *loc; /* local variables and functions */
|
|
|
|
short *savefd; /* original redirected fd's */
|
|
|
|
struct env *oenv; /* link to previous environment */
|
|
|
|
ksh_jmp_buf jbuf; /* long jump back to env creator */
|
|
|
|
struct temp *temps; /* temp files */
|
|
|
|
} *e;
|
|
|
|
|
|
|
|
/* struct env.type values */
|
|
|
|
#define E_NONE 0 /* dummy environment */
|
|
|
|
#define E_PARSE 1 /* parsing command # */
|
|
|
|
#define E_FUNC 2 /* executing function # */
|
|
|
|
#define E_INCL 3 /* including a file via . # */
|
|
|
|
#define E_EXEC 4 /* executing command tree */
|
|
|
|
#define E_LOOP 5 /* executing for/while # */
|
|
|
|
#define E_ERRH 6 /* general error handler # */
|
|
|
|
/* # indicates env has valid jbuf (see unwind()) */
|
|
|
|
|
|
|
|
/* struct env.flag values */
|
|
|
|
#define EF_FUNC_PARSE BIT(0) /* function being parsed */
|
|
|
|
#define EF_BRKCONT_PASS BIT(1) /* set if E_LOOP must pass break/continue on */
|
|
|
|
#define EF_FAKE_SIGDIE BIT(2) /* hack to get info from unwind to quitenv */
|
|
|
|
|
|
|
|
/* Do breaks/continues stop at env type e? */
|
|
|
|
#define STOP_BRKCONT(t) ((t) == E_NONE || (t) == E_PARSE \
|
|
|
|
|| (t) == E_FUNC || (t) == E_INCL)
|
|
|
|
/* Do returns stop at env type e? */
|
|
|
|
#define STOP_RETURN(t) ((t) == E_FUNC || (t) == E_INCL)
|
|
|
|
|
|
|
|
/* values for ksh_siglongjmp(e->jbuf, 0) */
|
|
|
|
#define LRETURN 1 /* return statement */
|
|
|
|
#define LEXIT 2 /* exit statement */
|
|
|
|
#define LERROR 3 /* errorf() called */
|
|
|
|
#define LLEAVE 4 /* untrappable exit/error */
|
|
|
|
#define LINTR 5 /* ^C noticed */
|
|
|
|
#define LBREAK 6 /* break statement */
|
|
|
|
#define LCONTIN 7 /* continue statement */
|
|
|
|
#define LSHELL 8 /* return to interactive shell() */
|
|
|
|
#define LAEXPR 9 /* error in arithmetic expression */
|
|
|
|
|
|
|
|
/* option processing */
|
|
|
|
#define OF_CMDLINE 0x01 /* command line */
|
|
|
|
#define OF_SET 0x02 /* set builtin */
|
|
|
|
#define OF_SPECIAL 0x04 /* a special variable changing */
|
|
|
|
#define OF_INTERNAL 0x08 /* set internally by shell */
|
|
|
|
#define OF_ANY (OF_CMDLINE | OF_SET | OF_SPECIAL | OF_INTERNAL)
|
|
|
|
|
|
|
|
struct option {
|
|
|
|
const char *name; /* long name of option */
|
|
|
|
char c; /* character flag (if any) */
|
|
|
|
short flags; /* OF_* */
|
|
|
|
};
|
|
|
|
extern const struct option options[];
|
|
|
|
|
|
|
|
/*
|
|
|
|
* flags (the order of these enums MUST match the order in misc.c(options[]))
|
|
|
|
*/
|
|
|
|
enum sh_flag {
|
|
|
|
FEXPORT = 0, /* -a: export all */
|
|
|
|
#ifdef BRACE_EXPAND
|
|
|
|
FBRACEEXPAND, /* enable {} globbing */
|
|
|
|
#endif
|
|
|
|
FBGNICE, /* bgnice */
|
|
|
|
FCOMMAND, /* -c: (invocation) execute specified command */
|
|
|
|
#ifdef EMACS
|
|
|
|
FEMACS, /* emacs command editing */
|
2003-06-26 20:26:21 +02:00
|
|
|
FEMACSUSEMETA, /* use 8th bit as meta */
|
2003-03-22 18:35:03 +01:00
|
|
|
#endif
|
|
|
|
FERREXIT, /* -e: quit on error */
|
|
|
|
#ifdef EMACS
|
|
|
|
FGMACS, /* gmacs command editing */
|
|
|
|
#endif
|
|
|
|
FIGNOREEOF, /* eof does not exit */
|
|
|
|
FTALKING, /* -i: interactive */
|
2003-12-23 14:41:51 +01:00
|
|
|
FKEYWORD, /* -k: name=value anywhere */
|
2003-03-22 18:35:03 +01:00
|
|
|
FLOGIN, /* -l: a login shell */
|
|
|
|
FMARKDIRS, /* mark dirs with / in file name completion */
|
|
|
|
FMONITOR, /* -m: job control monitoring */
|
|
|
|
FNOCLOBBER, /* -C: don't overwrite existing files */
|
|
|
|
FNOEXEC, /* -n: don't execute any commands */
|
|
|
|
FNOGLOB, /* -f: don't do file globbing */
|
|
|
|
FNOHUP, /* -H: don't kill running jobs when login shell exits */
|
|
|
|
FNOLOG, /* don't save functions in history (ignored) */
|
|
|
|
#ifdef JOBS
|
|
|
|
FNOTIFY, /* -b: asynchronous job completion notification */
|
|
|
|
#endif
|
|
|
|
FNOUNSET, /* -u: using an unset var is an error */
|
|
|
|
FPHYSICAL, /* -o physical: don't do logical cd's/pwd's */
|
|
|
|
FPOSIX, /* -o posix: be posixly correct */
|
|
|
|
FPRIVILEGED, /* -p: use suid_profile */
|
|
|
|
FRESTRICTED, /* -r: restricted shell */
|
2003-12-23 14:41:51 +01:00
|
|
|
FSH, /* -o sh: favor sh behaviour */
|
2003-03-22 18:35:03 +01:00
|
|
|
FSTDIN, /* -s: (invocation) parse stdin */
|
|
|
|
FTRACKALL, /* -h: create tracked aliases for all commands */
|
|
|
|
FVERBOSE, /* -v: echo input */
|
|
|
|
#ifdef VI
|
|
|
|
FVI, /* vi command editing */
|
|
|
|
FVIRAW, /* always read in raw mode (ignored) */
|
|
|
|
FVISHOW8, /* display chars with 8th bit set as is (versus M-) */
|
|
|
|
FVITABCOMPLETE, /* enable tab as file name completion char */
|
|
|
|
FVIESCCOMPLETE, /* enable ESC as file name completion in command mode */
|
|
|
|
#endif
|
|
|
|
FXTRACE, /* -x: execution trace */
|
|
|
|
FTALKING_I, /* (internal): initial shell was interactive */
|
|
|
|
FNFLAGS /* (place holder: how many flags are there) */
|
|
|
|
};
|
|
|
|
|
|
|
|
#define Flag(f) (shell_flags[(int) (f)])
|
|
|
|
|
|
|
|
EXTERN char shell_flags [FNFLAGS];
|
|
|
|
|
|
|
|
EXTERN char null [] I__(""); /* null value for variable */
|
|
|
|
EXTERN char space [] I__(" ");
|
|
|
|
EXTERN char newline [] I__("\n");
|
|
|
|
EXTERN char slash [] I__("/");
|
|
|
|
|
|
|
|
enum temp_type {
|
|
|
|
TT_HEREDOC_EXP, /* expanded heredoc */
|
|
|
|
TT_HIST_EDIT /* temp file used for history editing (fc -e) */
|
|
|
|
};
|
|
|
|
typedef enum temp_type Temp_type;
|
|
|
|
/* temp/heredoc files. The file is removed when the struct is freed. */
|
|
|
|
struct temp {
|
|
|
|
struct temp *next;
|
|
|
|
struct shf *shf;
|
|
|
|
int pid; /* pid of process parsed here-doc */
|
|
|
|
Temp_type type;
|
|
|
|
char *name;
|
|
|
|
};
|
|
|
|
|
|
|
|
/*
|
|
|
|
* stdio and our IO routines
|
|
|
|
*/
|
|
|
|
|
|
|
|
#define shl_spare (&shf_iob[0]) /* for c_read()/c_print() */
|
|
|
|
#define shl_stdout (&shf_iob[1])
|
|
|
|
#define shl_out (&shf_iob[2])
|
|
|
|
EXTERN int shl_stdout_ok;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* trap handlers
|
|
|
|
*/
|
|
|
|
typedef struct trap {
|
|
|
|
int signal; /* signal number */
|
|
|
|
const char *name; /* short name */
|
|
|
|
const char *mess; /* descriptive name */
|
|
|
|
char *trap; /* trap command */
|
|
|
|
int volatile set; /* trap pending */
|
|
|
|
int flags; /* TF_* */
|
|
|
|
handler_t cursig; /* current handler (valid if TF_ORIG_* set) */
|
|
|
|
handler_t shtrap; /* shell signal handler */
|
|
|
|
} Trap;
|
|
|
|
|
|
|
|
/* values for Trap.flags */
|
|
|
|
#define TF_SHELL_USES BIT(0) /* shell uses signal, user can't change */
|
|
|
|
#define TF_USER_SET BIT(1) /* user has (tried to) set trap */
|
|
|
|
#define TF_ORIG_IGN BIT(2) /* original action was SIG_IGN */
|
|
|
|
#define TF_ORIG_DFL BIT(3) /* original action was SIG_DFL */
|
|
|
|
#define TF_EXEC_IGN BIT(4) /* restore SIG_IGN just before exec */
|
|
|
|
#define TF_EXEC_DFL BIT(5) /* restore SIG_DFL just before exec */
|
|
|
|
#define TF_DFL_INTR BIT(6) /* when received, default action is LINTR */
|
|
|
|
#define TF_TTY_INTR BIT(7) /* tty generated signal (see j_waitj) */
|
|
|
|
#define TF_CHANGED BIT(8) /* used by runtrap() to detect trap changes */
|
|
|
|
#define TF_FATAL BIT(9) /* causes termination if not trapped */
|
|
|
|
|
|
|
|
/* values for setsig()/setexecsig() flags argument */
|
|
|
|
#define SS_RESTORE_MASK 0x3 /* how to restore a signal before an exec() */
|
|
|
|
#define SS_RESTORE_CURR 0 /* leave current handler in place */
|
|
|
|
#define SS_RESTORE_ORIG 1 /* restore original handler */
|
|
|
|
#define SS_RESTORE_DFL 2 /* restore to SIG_DFL */
|
|
|
|
#define SS_RESTORE_IGN 3 /* restore to SIG_IGN */
|
|
|
|
#define SS_FORCE BIT(3) /* set signal even if original signal ignored */
|
|
|
|
#define SS_USER BIT(4) /* user is doing the set (ie, trap command) */
|
|
|
|
#define SS_SHTRAP BIT(5) /* trap for internal use (CHLD,ALRM,WINCH) */
|
|
|
|
|
|
|
|
#define SIGEXIT_ 0 /* for trap EXIT */
|
|
|
|
#define SIGERR_ SIGNALS /* for trap ERR */
|
|
|
|
|
|
|
|
EXTERN int volatile trap; /* traps pending? */
|
|
|
|
EXTERN int volatile intrsig; /* pending trap interrupts executing command */
|
|
|
|
EXTERN int volatile fatal_trap;/* received a fatal signal */
|
|
|
|
#ifndef FROM_TRAP_C
|
|
|
|
/* Kludge to avoid bogus re-declaration of sigtraps[] error on AIX 3.2.5 */
|
|
|
|
extern Trap sigtraps[SIGNALS+1];
|
|
|
|
#endif /* !FROM_TRAP_C */
|
|
|
|
|
|
|
|
#ifdef KSH
|
|
|
|
/*
|
|
|
|
* TMOUT support
|
|
|
|
*/
|
|
|
|
/* values for ksh_tmout_state */
|
|
|
|
enum tmout_enum {
|
|
|
|
TMOUT_EXECUTING = 0, /* executing commands */
|
|
|
|
TMOUT_READING, /* waiting for input */
|
|
|
|
TMOUT_LEAVING /* have timed out */
|
|
|
|
};
|
|
|
|
EXTERN unsigned int ksh_tmout;
|
|
|
|
EXTERN enum tmout_enum ksh_tmout_state I__(TMOUT_EXECUTING);
|
|
|
|
#endif /* KSH */
|
|
|
|
|
|
|
|
/* For "You have stopped jobs" message */
|
|
|
|
EXTERN int really_exit;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* fast character classes
|
|
|
|
*/
|
|
|
|
#define C_ALPHA BIT(0) /* a-z_A-Z */
|
|
|
|
#define C_DIGIT BIT(1) /* 0-9 */
|
|
|
|
#define C_LEX1 BIT(2) /* \0 \t\n|&;<>() */
|
|
|
|
#define C_VAR1 BIT(3) /* *@#!$-? */
|
|
|
|
#define C_IFSWS BIT(4) /* \t \n (IFS white space) */
|
|
|
|
#define C_SUBOP1 BIT(5) /* "=-+?" */
|
|
|
|
#define C_SUBOP2 BIT(6) /* "#%" */
|
|
|
|
#define C_IFS BIT(7) /* $IFS */
|
|
|
|
#define C_QUOTE BIT(8) /* \n\t"#$&'()*;<>?[\`| (needing quoting) */
|
|
|
|
|
|
|
|
extern short ctypes [];
|
|
|
|
|
|
|
|
#define ctype(c, t) !!(ctypes[(unsigned char)(c)]&(t))
|
|
|
|
#define letter(c) ctype(c, C_ALPHA)
|
|
|
|
#define digit(c) ctype(c, C_DIGIT)
|
|
|
|
#define letnum(c) ctype(c, C_ALPHA|C_DIGIT)
|
|
|
|
|
|
|
|
EXTERN int ifs0 I__(' '); /* for "$*" */
|
|
|
|
|
|
|
|
/* Argument parsing for built-in commands and getopts command */
|
|
|
|
|
|
|
|
/* Values for Getopt.flags */
|
|
|
|
#define GF_ERROR BIT(0) /* call errorf() if there is an error */
|
|
|
|
#define GF_PLUSOPT BIT(1) /* allow +c as an option */
|
|
|
|
#define GF_NONAME BIT(2) /* don't print argv[0] in errors */
|
|
|
|
|
|
|
|
/* Values for Getopt.info */
|
|
|
|
#define GI_MINUS BIT(0) /* an option started with -... */
|
|
|
|
#define GI_PLUS BIT(1) /* an option started with +... */
|
|
|
|
#define GI_MINUSMINUS BIT(2) /* arguments were ended with -- */
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
int optind;
|
|
|
|
int uoptind;/* what user sees in $OPTIND */
|
|
|
|
char *optarg;
|
|
|
|
int flags; /* see GF_* */
|
|
|
|
int info; /* see GI_* */
|
|
|
|
unsigned int p; /* 0 or index into argv[optind - 1] */
|
|
|
|
char buf[2]; /* for bad option OPTARG value */
|
|
|
|
} Getopt;
|
|
|
|
|
|
|
|
EXTERN Getopt builtin_opt; /* for shell builtin commands */
|
|
|
|
EXTERN Getopt user_opt; /* parsing state for getopts builtin command */
|
|
|
|
|
|
|
|
#ifdef KSH
|
|
|
|
/* This for co-processes */
|
|
|
|
|
|
|
|
typedef INT32 Coproc_id; /* something that won't (realisticly) wrap */
|
|
|
|
struct coproc {
|
|
|
|
int read; /* pipe from co-process's stdout */
|
|
|
|
int readw; /* other side of read (saved temporarily) */
|
|
|
|
int write; /* pipe to co-process's stdin */
|
|
|
|
Coproc_id id; /* id of current output pipe */
|
|
|
|
int njobs; /* number of live jobs using output pipe */
|
|
|
|
void *job; /* 0 or job of co-process using input pipe */
|
|
|
|
};
|
|
|
|
EXTERN struct coproc coproc;
|
|
|
|
#endif /* KSH */
|
|
|
|
|
|
|
|
/* Used in jobs.c and by coprocess stuff in exec.c */
|
|
|
|
#ifdef JOB_SIGS
|
|
|
|
EXTERN sigset_t sm_default, sm_sigchld;
|
|
|
|
#endif /* JOB_SIGS */
|
|
|
|
|
|
|
|
extern const char ksh_version[];
|
|
|
|
|
|
|
|
/* name of called builtin function (used by error functions) */
|
|
|
|
EXTERN char *builtin_argv0;
|
|
|
|
EXTERN Tflag builtin_flag; /* flags of called builtin (SPEC_BI, etc.) */
|
|
|
|
|
|
|
|
/* current working directory, and size of memory allocated for same */
|
|
|
|
EXTERN char *current_wd;
|
|
|
|
EXTERN int current_wd_size;
|
|
|
|
|
|
|
|
#ifdef EDIT
|
2003-12-23 14:41:51 +01:00
|
|
|
/* Minimum required space to work with on a line - if the prompt leaves less
|
2003-03-22 18:35:03 +01:00
|
|
|
* space than this on a line, the prompt is truncated.
|
|
|
|
*/
|
|
|
|
# define MIN_EDIT_SPACE 7
|
2003-12-23 14:41:51 +01:00
|
|
|
/* Minimum allowed value for x_cols: 2 for prompt, 3 for " < " at end of line
|
2003-03-22 18:35:03 +01:00
|
|
|
*/
|
|
|
|
# define MIN_COLS (2 + MIN_EDIT_SPACE + 3)
|
|
|
|
EXTERN int x_cols I__(80); /* tty columns */
|
|
|
|
#else
|
|
|
|
# define x_cols 80 /* for pr_menu(exec.c) */
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* These to avoid bracket matching problems */
|
|
|
|
#define OPAREN '('
|
|
|
|
#define CPAREN ')'
|
|
|
|
#define OBRACK '['
|
|
|
|
#define CBRACK ']'
|
|
|
|
#define OBRACE '{'
|
|
|
|
#define CBRACE '}'
|
|
|
|
|
|
|
|
/* Determine the location of the system (common) profile */
|
|
|
|
#ifndef KSH_SYSTEM_PROFILE
|
|
|
|
# ifdef __NeXT
|
|
|
|
# define KSH_SYSTEM_PROFILE "/etc/profile.std"
|
|
|
|
# else /* __NeXT */
|
|
|
|
# define KSH_SYSTEM_PROFILE "/etc/profile"
|
|
|
|
# endif /* __NeXT */
|
|
|
|
#endif /* KSH_SYSTEM_PROFILE */
|
|
|
|
|
|
|
|
/* Used by v_evaluate() and setstr() to control action when error occurs */
|
|
|
|
#define KSH_UNWIND_ERROR 0 /* unwind the stack (longjmp) */
|
|
|
|
#define KSH_RETURN_ERROR 1 /* return 1/0 for success/failure */
|
|
|
|
|
|
|
|
#include "shf.h"
|
|
|
|
#include "table.h"
|
|
|
|
#include "tree.h"
|
|
|
|
#include "expand.h"
|
|
|
|
#include "lex.h"
|
|
|
|
#include "proto.h"
|
|
|
|
|
|
|
|
/* be sure not to interfere with anyone else's idea about EXTERN */
|
|
|
|
#ifdef EXTERN_DEFINED
|
|
|
|
# undef EXTERN_DEFINED
|
|
|
|
# undef EXTERN
|
|
|
|
#endif
|
|
|
|
#undef I__
|