ca17798533
namely Dr. Robert “Pfeffer” Arnold (in this case, in FreeWRT), make
a half-completed attempt at implementing ${foo:2:3} substring evals
(of course, negatives can't work right now and that the numbers are
in face expressions is something I only read later too – this is to
be revisited later, but it's already late)
don't depend on this behaviour yet though
if someone wants to add more regression tests, feel free to…
1532 lines
47 KiB
C
1532 lines
47 KiB
C
/* $OpenBSD: sh.h,v 1.29 2005/12/11 18:53:51 deraadt Exp $ */
|
|
/* $OpenBSD: shf.h,v 1.6 2005/12/11 18:53:51 deraadt Exp $ */
|
|
/* $OpenBSD: table.h,v 1.7 2005/12/11 20:31:21 otto Exp $ */
|
|
/* $OpenBSD: tree.h,v 1.10 2005/03/28 21:28:22 deraadt Exp $ */
|
|
/* $OpenBSD: expand.h,v 1.6 2005/03/30 17:16:37 deraadt Exp $ */
|
|
/* $OpenBSD: lex.h,v 1.11 2006/05/29 18:22:24 otto Exp $ */
|
|
/* $OpenBSD: proto.h,v 1.30 2006/03/17 16:30:13 millert Exp $ */
|
|
/* $OpenBSD: c_test.h,v 1.4 2004/12/20 11:34:26 otto Exp $ */
|
|
/* $OpenBSD: tty.h,v 1.5 2004/12/20 11:34:26 otto Exp $ */
|
|
|
|
#define MKSH_SH_H_ID "$MirOS: src/bin/mksh/sh.h,v 1.151 2007/06/27 23:12:59 tg Exp $"
|
|
#define MKSH_VERSION "R29 2007/06/27"
|
|
|
|
#if HAVE_SYS_PARAM_H
|
|
#include <sys/param.h>
|
|
#endif
|
|
#include <sys/types.h>
|
|
#include <sys/time.h>
|
|
#include <sys/file.h>
|
|
#include <sys/ioctl.h>
|
|
#if HAVE_SYS_SYSMACROS_H
|
|
#include <sys/sysmacros.h>
|
|
#endif
|
|
#if HAVE_SYS_MKDEV_H
|
|
#include <sys/mkdev.h>
|
|
#endif
|
|
#if HAVE_SYS_MMAN_H
|
|
#include <sys/mman.h>
|
|
#endif
|
|
#include <sys/resource.h>
|
|
#include <sys/stat.h>
|
|
#include <sys/wait.h>
|
|
#include <dirent.h>
|
|
#include <errno.h>
|
|
#include <fcntl.h>
|
|
#if HAVE_LIBGEN_H
|
|
#include <libgen.h>
|
|
#endif
|
|
#include <limits.h>
|
|
#if HAVE_PATHS_H
|
|
#include <paths.h>
|
|
#endif
|
|
#include <pwd.h>
|
|
#include <setjmp.h>
|
|
#include <signal.h>
|
|
#include <stdarg.h>
|
|
#if HAVE_STDBOOL_H
|
|
#include <stdbool.h>
|
|
#endif
|
|
#include <stddef.h>
|
|
#if HAVE_STDINT_H
|
|
#include <stdint.h>
|
|
#endif
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <termios.h>
|
|
#include <time.h>
|
|
#if HAVE_ULIMIT_H
|
|
#include <ulimit.h>
|
|
#endif
|
|
#include <unistd.h>
|
|
#if HAVE_VALUES_H
|
|
#include <values.h>
|
|
#endif
|
|
|
|
#if HAVE_ATTRIBUTE
|
|
#undef __attribute__
|
|
#else
|
|
#define __attribute__(x) /* nothing */
|
|
#endif
|
|
#undef __unused
|
|
#define __unused __attribute__((unused))
|
|
#if HAVE_ATTRIBUTE_BOUNDED
|
|
#define __bound_att__(x) __attribute__(x)
|
|
#else
|
|
#define __bound_att__(x) /* nothing */
|
|
#endif
|
|
#if HAVE_ATTRIBUTE_USED
|
|
#define __attribute____used__ __attribute__((used))
|
|
#else
|
|
#define __attribute____used__ /* nothing */
|
|
#endif
|
|
|
|
#undef __IDSTRING
|
|
#undef __IDSTRING_CONCAT
|
|
#undef __IDSTRING_EXPAND
|
|
#undef __RCSID
|
|
#undef __SCCSID
|
|
#define __IDSTRING_CONCAT(l,p) __LINTED__ ## l ## _ ## p
|
|
#define __IDSTRING_EXPAND(l,p) __IDSTRING_CONCAT(l,p)
|
|
#define __IDSTRING(prefix, string) \
|
|
static const char __IDSTRING_EXPAND(__LINE__,prefix) [] \
|
|
__attribute____used__ = "@(""#)" #prefix ": " string
|
|
#define __RCSID(x) __IDSTRING(rcsid,x)
|
|
#define __SCCSID(x) __IDSTRING(sccsid,x)
|
|
|
|
#ifndef MKSH_INCLUDES_ONLY
|
|
|
|
/* extra types */
|
|
|
|
#if !HAVE_RLIM_T
|
|
typedef long rlim_t;
|
|
#endif
|
|
|
|
#if !HAVE_SIG_T
|
|
typedef void (*sig_t)(int);
|
|
#endif
|
|
|
|
#if !HAVE_STDBOOL_H
|
|
/* kludge, but enough for mksh */
|
|
typedef int bool;
|
|
#define false 0
|
|
#define true 1
|
|
#endif
|
|
|
|
/* extra macros */
|
|
|
|
#ifndef timeradd
|
|
#define timeradd(tvp, uvp, vvp) \
|
|
do { \
|
|
(vvp)->tv_sec = (tvp)->tv_sec + (uvp)->tv_sec; \
|
|
(vvp)->tv_usec = (tvp)->tv_usec + (uvp)->tv_usec; \
|
|
if ((vvp)->tv_usec >= 1000000) { \
|
|
(vvp)->tv_sec++; \
|
|
(vvp)->tv_usec -= 1000000; \
|
|
} \
|
|
} while (0)
|
|
#endif
|
|
#ifndef timersub
|
|
#define timersub(tvp, uvp, vvp) \
|
|
do { \
|
|
(vvp)->tv_sec = (tvp)->tv_sec - (uvp)->tv_sec; \
|
|
(vvp)->tv_usec = (tvp)->tv_usec - (uvp)->tv_usec; \
|
|
if ((vvp)->tv_usec < 0) { \
|
|
(vvp)->tv_sec--; \
|
|
(vvp)->tv_usec += 1000000; \
|
|
} \
|
|
} while (0)
|
|
#endif
|
|
|
|
#define ksh_isdigit(c) (((c) >= '0') && ((c) <= '9'))
|
|
#define ksh_islower(c) (((c) >= 'a') && ((c) <= 'z'))
|
|
#define ksh_isupper(c) (((c) >= 'A') && ((c) <= 'Z'))
|
|
#define ksh_tolower(c) (((c) >= 'A') && ((c) <= 'Z') ? (c) - 'A' + 'a' : (c))
|
|
#define ksh_toupper(c) (((c) >= 'a') && ((c) <= 'z') ? (c) - 'a' + 'A' : (c))
|
|
#define ksh_isdash(s) (((s) != NULL) && ((s)[0] == '-') && ((s)[1] == '\0'))
|
|
|
|
#if HAVE_EXPSTMT
|
|
/* this macro must not evaluate its arguments several times */
|
|
#define ksh_isspace(c) ({ \
|
|
unsigned ksh_isspace_c = (c); \
|
|
(ksh_isspace_c >= 0x09 && ksh_isspace_c <= 0x0D) || \
|
|
(ksh_isspace_c == 0x20); \
|
|
})
|
|
#else
|
|
#define ksh_isspace(c) ksh_isspace_((unsigned)(c))
|
|
#endif
|
|
|
|
#ifndef S_ISTXT
|
|
#define S_ISTXT 0001000
|
|
#endif
|
|
#ifndef S_ISSOCK
|
|
#define S_ISSOCK(m) ((m & 0170000) == 0140000)
|
|
#endif
|
|
#ifndef DEFFILEMODE
|
|
#define DEFFILEMODE (S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH)
|
|
#endif
|
|
|
|
#if !defined(RLIMIT_VMEM) && defined(RLIMIT_AS)
|
|
#define RLIMIT_VMEM RLIMIT_AS
|
|
#endif
|
|
|
|
#if !defined(MAP_FAILED) && defined(__linux)
|
|
#define MAP_FAILED ((void *)-1)
|
|
#endif
|
|
|
|
#ifndef NSIG
|
|
#define NSIG _NSIG
|
|
#endif
|
|
|
|
#undef BAD /* AIX defines that somewhere */
|
|
|
|
/* OS-dependent additions (functions, variables, by OS) */
|
|
|
|
#if !HAVE_ARC4RANDOM_DECL
|
|
extern u_int32_t arc4random(void);
|
|
#endif
|
|
|
|
#if !HAVE_ARC4RANDOM_PUSH_DECL
|
|
extern void arc4random_push(int);
|
|
#endif
|
|
|
|
#if !HAVE_SETMODE
|
|
mode_t getmode(const void *, mode_t);
|
|
void *setmode(const char *);
|
|
#endif
|
|
|
|
#if !HAVE_STRCASESTR
|
|
const char *stristr(const char *, const char *);
|
|
#endif
|
|
|
|
#if !HAVE_STRLCPY
|
|
size_t strlcpy(char *, const char *, size_t);
|
|
#endif
|
|
|
|
#if !HAVE_SYS_SIGLIST_DECL
|
|
extern const char *const sys_siglist[];
|
|
#endif
|
|
|
|
#ifdef __INTERIX
|
|
#define makedev mkdev
|
|
extern int __cdecl seteuid(uid_t);
|
|
extern int __cdecl setegid(gid_t);
|
|
#endif
|
|
|
|
/* some useful #defines */
|
|
#ifdef EXTERN
|
|
# define I__(i) = i
|
|
#else
|
|
# define I__(i)
|
|
# define EXTERN extern
|
|
# define EXTERN_DEFINED
|
|
#endif
|
|
|
|
#define NELEM(a) (sizeof (a) / sizeof ((a)[0]))
|
|
#define sizeofN(typ, n) (sizeof (typ) * (n))
|
|
#define BIT(i) (1 << (i)) /* define bit in flag */
|
|
|
|
/* Table flag type - needs > 16 and < 32 bits */
|
|
typedef int32_t Tflag;
|
|
|
|
#define NUFILE 32 /* Number of user-accessible files */
|
|
#define FDBASE 10 /* First file usable by Shell */
|
|
|
|
/* 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).
|
|
*/
|
|
#define MAGIC (7) /* prefix for *?[!{,} during expand */
|
|
#define ISMAGIC(c) ((unsigned char)(c) == MAGIC)
|
|
#define NOT '!' /* might use ^ (ie, [!...] vs [^..]) */
|
|
|
|
#define LINE 4096 /* input line size */
|
|
#ifndef PATH_MAX
|
|
#define PATH_MAX 1024 /* pathname size */
|
|
#endif
|
|
|
|
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 */
|
|
EXTERN const char initvsn[] I__("KSH_VERSION=@(#)MIRBSD KSH " MKSH_VERSION);
|
|
#define KSH_VERSION (initvsn + /* "KSH_VERSION=@(#)" */ 16)
|
|
|
|
/*
|
|
* Evil hack for const correctness due to API brokenness
|
|
*/
|
|
union mksh_cchack {
|
|
char *rw;
|
|
const char *ro;
|
|
};
|
|
union mksh_ccphack {
|
|
char **rw;
|
|
const char **ro;
|
|
};
|
|
|
|
/* for const debugging */
|
|
#if defined(DEBUG) && defined(__GNUC__) && !defined(__ICC) && \
|
|
!defined(__INTEL_COMPILER) && !defined(__SUNPRO_C)
|
|
char *ucstrchr(char *, int);
|
|
char *ucstrstr(char *, const char *);
|
|
#define strchr ucstrchr
|
|
#define strstr ucstrstr
|
|
#define cstrchr(s,c) ({ \
|
|
union mksh_cchack in, out; \
|
|
\
|
|
in.ro = (s); \
|
|
out.rw = ucstrchr(in.rw, (c)); \
|
|
(out.ro); \
|
|
})
|
|
#define cstrstr(b,l) ({ \
|
|
union mksh_cchack in, out; \
|
|
\
|
|
in.ro = (b); \
|
|
out.rw = ucstrstr(in.rw, (l)); \
|
|
(out.ro); \
|
|
})
|
|
#define vstrchr(s,c) (cstrchr((s), (c)) != NULL)
|
|
#define vstrstr(b,l) (cstrstr((b), (l)) != NULL)
|
|
#else /* !DEBUG, !gcc */
|
|
#define cstrchr(s,c) ((const char *)strchr((s), (c)))
|
|
#define cstrstr(s,c) ((const char *)strstr((s), (c)))
|
|
#define vstrchr(s,c) (strchr((s), (c)) != NULL)
|
|
#define vstrstr(b,l) (strstr((b), (l)) != NULL)
|
|
#endif
|
|
|
|
/* use this ipv strchr(s, 0) but no side effects in s! */
|
|
#define strnul(s) ((s) + strlen(s))
|
|
|
|
#if HAVE_STRCASESTR
|
|
#define stristr(b,l) ((const char *)strcasestr((b), (l)))
|
|
#endif
|
|
|
|
#if defined(MKSH_SMALL) && !defined(MKSH_NOVI)
|
|
#define MKSH_NOVI
|
|
#endif
|
|
|
|
/*
|
|
* 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
|
|
|
|
/*
|
|
* 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 fds */
|
|
struct env *oenv; /* link to previous environment */
|
|
sigjmp_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 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_FIRSTTIME 0x10 /* as early as possible, once */
|
|
#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) */
|
|
unsigned char 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 */
|
|
FBRACEEXPAND, /* enable {} globbing */
|
|
FBGNICE, /* bgnice */
|
|
FCOMMAND, /* -c: (invocation) execute specified command */
|
|
FEMACS, /* emacs command editing */
|
|
FERREXIT, /* -e: quit on error */
|
|
FGMACS, /* gmacs command editing */
|
|
FIGNOREEOF, /* eof does not exit */
|
|
FTALKING, /* -i: interactive */
|
|
FKEYWORD, /* -k: name=value anywhere */
|
|
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) */
|
|
FNOTIFY, /* -b: asynchronous job completion notification */
|
|
FNOUNSET, /* -u: using an unset var is an error */
|
|
FPHYSICAL, /* -o physical: don't do logical cds/pwds */
|
|
FPOSIX, /* -o posix (try to be more compatible) */
|
|
FPRIVILEGED, /* -p: use suid_profile */
|
|
FRESTRICTED, /* -r: restricted shell */
|
|
FSTDIN, /* -s: (invocation) parse stdin */
|
|
FTRACKALL, /* -h: create tracked aliases for all commands */
|
|
FUTFHACK, /* -U: utf-8 hack for command line editing */
|
|
FVERBOSE, /* -v: echo input */
|
|
#ifndef MKSH_NOVI
|
|
FVI, /* vi command editing */
|
|
FVIRAW, /* always read in raw mode (ignored) */
|
|
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");
|
|
|
|
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 */
|
|
volatile sig_atomic_t set; /* trap pending */
|
|
int flags; /* TF_* */
|
|
sig_t cursig; /* current handler (valid if TF_ORIG_* set) */
|
|
sig_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_ NSIG /* for trap ERR */
|
|
|
|
EXTERN volatile sig_atomic_t trap; /* traps pending? */
|
|
EXTERN volatile sig_atomic_t intrsig; /* pending trap interrupts command */
|
|
EXTERN volatile sig_atomic_t fatal_trap;/* received a fatal signal */
|
|
extern Trap sigtraps[NSIG+1];
|
|
|
|
/*
|
|
* 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);
|
|
|
|
/* 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_QUOTE BIT(6) /* \n\t"#$&'()*;<>?[]\`| (needing quoting) */
|
|
#define C_IFS BIT(7) /* $IFS */
|
|
#define C_SUBOP2 BIT(8) /* "#%" (magic, see below) */
|
|
|
|
extern unsigned char chtypes[];
|
|
|
|
#define ctype(c, t) !!( ((t) == C_SUBOP2) ? \
|
|
(((c) == '#' || (c) == '%') ? 1 : 0) : \
|
|
(chtypes[(unsigned char)(c)]&(t)) )
|
|
#define ksh_isalphx(c) ctype((c), C_ALPHA)
|
|
#define ksh_isalnux(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 */
|
|
const 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 */
|
|
|
|
/* This for co-processes */
|
|
|
|
typedef int32_t 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;
|
|
|
|
/* Used in jobs.c and by coprocess stuff in exec.c */
|
|
EXTERN sigset_t sm_default, sm_sigchld;
|
|
|
|
/* name of called builtin function (used by error functions) */
|
|
EXTERN const 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 size_t current_wd_size;
|
|
|
|
/* Minimum required space to work with on a line - if the prompt leaves less
|
|
* space than this on a line, the prompt is truncated.
|
|
*/
|
|
#define MIN_EDIT_SPACE 7
|
|
/* Minimum allowed value for x_cols: 2 for prompt, 3 for " < " at end of line
|
|
*/
|
|
#define MIN_COLS (2 + MIN_EDIT_SPACE + 3)
|
|
EXTERN int x_cols I__(80); /* tty columns */
|
|
|
|
/* 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 */
|
|
#define KSH_SYSTEM_PROFILE "/etc/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 */
|
|
|
|
/*
|
|
* Shell file I/O routines
|
|
*/
|
|
|
|
#define SHF_BSIZE 512
|
|
|
|
#define shf_fileno(shf) ((shf)->fd)
|
|
#define shf_setfileno(shf,nfd) ((shf)->fd = (nfd))
|
|
#ifdef MKSH_SMALL
|
|
int shf_getc(struct shf *);
|
|
int shf_putc(int, struct shf *);
|
|
#else
|
|
#define shf_getc(shf) ((shf)->rnleft > 0 ? (shf)->rnleft--, *(shf)->rp++ : \
|
|
shf_getchar(shf))
|
|
#define shf_putc(c, shf) ((shf)->wnleft == 0 ? shf_putchar((c), (shf)) : \
|
|
((shf)->wnleft--, *(shf)->wp++ = (c)))
|
|
#endif
|
|
#define shf_eof(shf) ((shf)->flags & SHF_EOF)
|
|
#define shf_error(shf) ((shf)->flags & SHF_ERROR)
|
|
#define shf_errno(shf) ((shf)->errno_)
|
|
#define shf_clearerr(shf) ((shf)->flags &= ~(SHF_EOF | SHF_ERROR))
|
|
|
|
/* Flags passed to shf_*open() */
|
|
#define SHF_RD 0x0001
|
|
#define SHF_WR 0x0002
|
|
#define SHF_RDWR (SHF_RD|SHF_WR)
|
|
#define SHF_ACCMODE 0x0003 /* mask */
|
|
#define SHF_GETFL 0x0004 /* use fcntl() to figure RD/WR flags */
|
|
#define SHF_UNBUF 0x0008 /* unbuffered I/O */
|
|
#define SHF_CLEXEC 0x0010 /* set close on exec flag */
|
|
#define SHF_MAPHI 0x0020 /* make fd > FDBASE (and close orig)
|
|
* (shf_open() only) */
|
|
#define SHF_DYNAMIC 0x0040 /* string: increase buffer as needed */
|
|
#define SHF_INTERRUPT 0x0080 /* EINTR in read/write causes error */
|
|
/* Flags used internally */
|
|
#define SHF_STRING 0x0100 /* a string, not a file */
|
|
#define SHF_ALLOCS 0x0200 /* shf and shf->buf were alloc()ed */
|
|
#define SHF_ALLOCB 0x0400 /* shf->buf was alloc()ed */
|
|
#define SHF_ERROR 0x0800 /* read()/write() error */
|
|
#define SHF_EOF 0x1000 /* read eof (sticky) */
|
|
#define SHF_READING 0x2000 /* currently reading: rnleft,rp valid */
|
|
#define SHF_WRITING 0x4000 /* currently writing: wnleft,wp valid */
|
|
|
|
|
|
struct shf {
|
|
int flags; /* see SHF_* */
|
|
unsigned char *rp; /* read: current position in buffer */
|
|
int rbsize; /* size of buffer (1 if SHF_UNBUF) */
|
|
int rnleft; /* read: how much data left in buffer */
|
|
unsigned char *wp; /* write: current position in buffer */
|
|
int wbsize; /* size of buffer (0 if SHF_UNBUF) */
|
|
int wnleft; /* write: how much space left in buffer */
|
|
unsigned char *buf; /* buffer */
|
|
int fd; /* file descriptor */
|
|
int errno_; /* saved value of errno after error */
|
|
int bsize; /* actual size of buf */
|
|
Area *areap; /* area shf/buf were allocated in */
|
|
};
|
|
|
|
extern struct shf shf_iob[];
|
|
|
|
struct table {
|
|
Area *areap; /* area to allocate entries */
|
|
short size, nfree; /* hash size (always 2^^n), free entries */
|
|
struct tbl **tbls; /* hashed table items */
|
|
};
|
|
|
|
struct tbl { /* table item */
|
|
Tflag flag; /* flags */
|
|
int type; /* command type (see below), base (if INTEGER),
|
|
* or offset from val.s of value (if EXPORT) */
|
|
Area *areap; /* area to allocate from */
|
|
union {
|
|
char *s; /* string */
|
|
long i; /* integer */
|
|
int (*f)(const char **);/* int function */
|
|
struct op *t; /* "function" tree */
|
|
} val; /* value */
|
|
int index; /* index for an array */
|
|
union {
|
|
int field; /* field with for -L/-R/-Z */
|
|
int errno_; /* CEXEC/CTALIAS */
|
|
} u2;
|
|
union {
|
|
struct tbl *array; /* array values */
|
|
const char *fpath; /* temporary path to undef function */
|
|
} u;
|
|
char name[4]; /* name -- variable length */
|
|
};
|
|
|
|
/* common flag bits */
|
|
#define ALLOC BIT(0) /* val.s has been allocated */
|
|
#define DEFINED BIT(1) /* is defined in block */
|
|
#define ISSET BIT(2) /* has value, vp->val.[si] */
|
|
#define EXPORT BIT(3) /* exported variable/function */
|
|
#define TRACE BIT(4) /* var: user flagged, func: execution tracing */
|
|
/* (start non-common flags at 8) */
|
|
/* flag bits used for variables */
|
|
#define SPECIAL BIT(8) /* PATH, IFS, SECONDS, etc */
|
|
#define INTEGER BIT(9) /* val.i contains integer value */
|
|
#define RDONLY BIT(10) /* read-only variable */
|
|
#define LOCAL BIT(11) /* for local typeset() */
|
|
#define ARRAY BIT(13) /* array */
|
|
#define LJUST BIT(14) /* left justify */
|
|
#define RJUST BIT(15) /* right justify */
|
|
#define ZEROFIL BIT(16) /* 0 filled if RJUSTIFY, strip 0s if LJUSTIFY */
|
|
#define LCASEV BIT(17) /* convert to lower case */
|
|
#define UCASEV_AL BIT(18)/* convert to upper case / autoload function */
|
|
#define INT_U BIT(19) /* unsigned integer */
|
|
#define INT_L BIT(20) /* long integer (no-op) */
|
|
#define IMPORT BIT(21) /* flag to typeset(): no arrays, must have = */
|
|
#define LOCAL_COPY BIT(22) /* with LOCAL - copy attrs from existing var */
|
|
#define EXPRINEVAL BIT(23) /* contents currently being evaluated */
|
|
#define EXPRLVALUE BIT(24) /* useable as lvalue (temp flag) */
|
|
/* flag bits used for taliases/builtins/aliases/keywords/functions */
|
|
#define KEEPASN BIT(8) /* keep command assignments (eg, var=x cmd) */
|
|
#define FINUSE BIT(9) /* function being executed */
|
|
#define FDELETE BIT(10) /* function deleted while it was executing */
|
|
#define FKSH BIT(11) /* function defined with function x (vs x()) */
|
|
#define SPEC_BI BIT(12) /* a POSIX special builtin */
|
|
#define REG_BI BIT(13) /* a POSIX regular builtin */
|
|
/* Attributes that can be set by the user (used to decide if an unset param
|
|
* should be repoted by set/typeset). Does not include ARRAY or LOCAL.
|
|
*/
|
|
#define USERATTRIB (EXPORT|INTEGER|RDONLY|LJUST|RJUST|ZEROFIL\
|
|
|LCASEV|UCASEV_AL|INT_U|INT_L)
|
|
|
|
/* command types */
|
|
#define CNONE 0 /* undefined */
|
|
#define CSHELL 1 /* built-in */
|
|
#define CFUNC 2 /* function */
|
|
#define CEXEC 4 /* executable command */
|
|
#define CALIAS 5 /* alias */
|
|
#define CKEYWD 6 /* keyword */
|
|
#define CTALIAS 7 /* tracked alias */
|
|
|
|
/* Flags for findcom()/comexec() */
|
|
#define FC_SPECBI BIT(0) /* special builtin */
|
|
#define FC_FUNC BIT(1) /* function builtin */
|
|
#define FC_REGBI BIT(2) /* regular builtin */
|
|
#define FC_UNREGBI BIT(3) /* un-regular builtin (!special,!regular) */
|
|
#define FC_BI (FC_SPECBI|FC_REGBI|FC_UNREGBI)
|
|
#define FC_PATH BIT(4) /* do path search */
|
|
#define FC_DEFPATH BIT(5) /* use default path in path search */
|
|
|
|
|
|
#define AF_ARGV_ALLOC 0x1 /* argv[] array allocated */
|
|
#define AF_ARGS_ALLOCED 0x2 /* argument strings allocated */
|
|
#define AI_ARGV(a, i) ((i) == 0 ? (a).argv[0] : (a).argv[(i) - (a).skip])
|
|
#define AI_ARGC(a) ((a).argc_ - (a).skip)
|
|
|
|
/* Argument info. Used for $#, $* for shell, functions, includes, etc. */
|
|
struct arg_info {
|
|
int flags; /* AF_* */
|
|
const char **argv;
|
|
int argc_;
|
|
int skip; /* first arg is argv[0], second is argv[1 + skip] */
|
|
};
|
|
|
|
/*
|
|
* activation record for function blocks
|
|
*/
|
|
struct block {
|
|
Area area; /* area to allocate things */
|
|
const char **argv;
|
|
int argc;
|
|
int flags; /* see BF_* */
|
|
struct table vars; /* local variables */
|
|
struct table funs; /* local functions */
|
|
Getopt getopts_state;
|
|
char *error; /* error handler */
|
|
char *exit; /* exit handler */
|
|
struct block *next; /* enclosing block */
|
|
};
|
|
|
|
/* Values for struct block.flags */
|
|
#define BF_DOGETOPTS BIT(0) /* save/restore getopts state */
|
|
|
|
/*
|
|
* Used by ktwalk() and ktnext() routines.
|
|
*/
|
|
struct tstate {
|
|
int left;
|
|
struct tbl **next;
|
|
};
|
|
|
|
EXTERN struct table taliases; /* tracked aliases */
|
|
EXTERN struct table builtins; /* built-in commands */
|
|
EXTERN struct table aliases; /* aliases */
|
|
EXTERN struct table keywords; /* keywords */
|
|
#ifndef MKSH_SMALL
|
|
EXTERN struct table homedirs; /* homedir() cache */
|
|
#endif
|
|
|
|
struct builtin {
|
|
const char *name;
|
|
int (*func)(const char **);
|
|
};
|
|
|
|
extern const struct builtin shbuiltins [], kshbuiltins [];
|
|
|
|
/* var spec values */
|
|
#define V_NONE 0
|
|
#define V_PATH 1
|
|
#define V_IFS 2
|
|
#define V_SECONDS 3
|
|
#define V_OPTIND 4
|
|
#define V_RANDOM 8
|
|
#define V_HISTSIZE 9
|
|
#define V_HISTFILE 10
|
|
#define V_COLUMNS 13
|
|
#define V_TMOUT 15
|
|
#define V_TMPDIR 16
|
|
#define V_LINENO 17
|
|
|
|
/* values for set_prompt() */
|
|
#define PS1 0 /* command */
|
|
#define PS2 1 /* command continuation */
|
|
|
|
EXTERN char *path; /* copy of either PATH or def_path */
|
|
EXTERN const char *def_path; /* path to use if PATH not set */
|
|
EXTERN char *tmpdir; /* TMPDIR value */
|
|
EXTERN const char *prompt;
|
|
EXTERN int cur_prompt; /* PS1 or PS2 */
|
|
EXTERN int current_lineno; /* LINENO value */
|
|
|
|
#define NOBLOCK ((struct op *)NULL)
|
|
#define NOWORD ((char *)NULL)
|
|
#define NOWORDS ((char **)NULL)
|
|
|
|
/*
|
|
* Description of a command or an operation on commands.
|
|
*/
|
|
struct op {
|
|
short type; /* operation type, see below */
|
|
union { /* WARNING: newtp(), tcopy() use evalflags = 0 to clear union */
|
|
short evalflags; /* TCOM: arg expansion eval() flags */
|
|
short ksh_func; /* TFUNC: function x (vs x()) */
|
|
} u;
|
|
const char **args; /* arguments to a command */
|
|
char **vars; /* variable assignments */
|
|
struct ioword **ioact; /* IO actions (eg, < > >>) */
|
|
struct op *left, *right; /* descendents */
|
|
char *str; /* word for case; identifier for for,
|
|
* select, and functions;
|
|
* path to execute for TEXEC;
|
|
* time hook for TCOM.
|
|
*/
|
|
int lineno; /* TCOM/TFUNC: LINENO for this */
|
|
};
|
|
|
|
/* Tree.type values */
|
|
#define TEOF 0
|
|
#define TCOM 1 /* command */
|
|
#define TPAREN 2 /* (c-list) */
|
|
#define TPIPE 3 /* a | b */
|
|
#define TLIST 4 /* a ; b */
|
|
#define TOR 5 /* || */
|
|
#define TAND 6 /* && */
|
|
#define TBANG 7 /* ! */
|
|
#define TDBRACKET 8 /* [[ .. ]] */
|
|
#define TFOR 9
|
|
#define TSELECT 10
|
|
#define TCASE 11
|
|
#define TIF 12
|
|
#define TWHILE 13
|
|
#define TUNTIL 14
|
|
#define TELIF 15
|
|
#define TPAT 16 /* pattern in case */
|
|
#define TBRACE 17 /* {c-list} */
|
|
#define TASYNC 18 /* c & */
|
|
#define TFUNCT 19 /* function name { command; } */
|
|
#define TTIME 20 /* time pipeline */
|
|
#define TEXEC 21 /* fork/exec eval'd TCOM */
|
|
#define TCOPROC 22 /* coprocess |& */
|
|
|
|
/*
|
|
* prefix codes for words in command tree
|
|
*/
|
|
#define EOS 0 /* end of string */
|
|
#define CHAR 1 /* unquoted character */
|
|
#define QCHAR 2 /* quoted character */
|
|
#define COMSUB 3 /* $() substitution (0 terminated) */
|
|
#define EXPRSUB 4 /* $(()) substitution (0 terminated) */
|
|
#define OQUOTE 5 /* opening " or ' */
|
|
#define CQUOTE 6 /* closing " or ' */
|
|
#define OSUBST 7 /* opening ${ subst (followed by { or X) */
|
|
#define CSUBST 8 /* closing } of above (followed by } or X) */
|
|
#define OPAT 9 /* open pattern: *(, @(, etc. */
|
|
#define SPAT 10 /* separate pattern: | */
|
|
#define CPAT 11 /* close pattern: ) */
|
|
|
|
/*
|
|
* IO redirection
|
|
*/
|
|
struct ioword {
|
|
int unit; /* unit affected */
|
|
int flag; /* action (below) */
|
|
char *name; /* file name (unused if heredoc) */
|
|
char *delim; /* delimiter for <<,<<- */
|
|
char *heredoc;/* content of heredoc */
|
|
};
|
|
|
|
/* ioword.flag - type of redirection */
|
|
#define IOTYPE 0xF /* type: bits 0:3 */
|
|
#define IOREAD 0x1 /* < */
|
|
#define IOWRITE 0x2 /* > */
|
|
#define IORDWR 0x3 /* <>: todo */
|
|
#define IOHERE 0x4 /* << (here file) */
|
|
#define IOCAT 0x5 /* >> */
|
|
#define IODUP 0x6 /* <&/>& */
|
|
#define IOEVAL BIT(4) /* expand in << */
|
|
#define IOSKIP BIT(5) /* <<-, skip ^\t* */
|
|
#define IOCLOB BIT(6) /* >|, override -o noclobber */
|
|
#define IORDUP BIT(7) /* x<&y (as opposed to x>&y) */
|
|
#define IONAMEXP BIT(8) /* name has been expanded */
|
|
|
|
/* execute/exchild flags */
|
|
#define XEXEC BIT(0) /* execute without forking */
|
|
#define XFORK BIT(1) /* fork before executing */
|
|
#define XBGND BIT(2) /* command & */
|
|
#define XPIPEI BIT(3) /* input is pipe */
|
|
#define XPIPEO BIT(4) /* output is pipe */
|
|
#define XPIPE (XPIPEI|XPIPEO) /* member of pipe */
|
|
#define XXCOM BIT(5) /* `...` command */
|
|
#define XPCLOSE BIT(6) /* exchild: close close_fd in parent */
|
|
#define XCCLOSE BIT(7) /* exchild: close close_fd in child */
|
|
#define XERROK BIT(8) /* non-zero exit ok (for set -e) */
|
|
#define XCOPROC BIT(9) /* starting a co-process */
|
|
#define XTIME BIT(10) /* timing TCOM command */
|
|
|
|
/*
|
|
* flags to control expansion of words (assumed by t->evalflags to fit
|
|
* in a short)
|
|
*/
|
|
#define DOBLANK BIT(0) /* perform blank interpretation */
|
|
#define DOGLOB BIT(1) /* expand [?* */
|
|
#define DOPAT BIT(2) /* quote *?[ */
|
|
#define DOTILDE BIT(3) /* normal ~ expansion (first char) */
|
|
#define DONTRUNCOMMAND BIT(4) /* do not run $(command) things */
|
|
#define DOASNTILDE BIT(5) /* assignment ~ expansion (after =, :) */
|
|
#define DOBRACE_ BIT(6) /* used by expand(): do brace expansion */
|
|
#define DOMAGIC_ BIT(7) /* used by expand(): string contains MAGIC */
|
|
#define DOTEMP_ BIT(8) /* ditto : in word part of ${..[%#=?]..} */
|
|
#define DOVACHECK BIT(9) /* var assign check (for typeset, set, etc) */
|
|
#define DOMARKDIRS BIT(10) /* force markdirs behaviour */
|
|
|
|
/*
|
|
* The arguments of [[ .. ]] expressions are kept in t->args[] and flags
|
|
* indicating how the arguments have been munged are kept in t->vars[].
|
|
* The contents of t->vars[] are stuffed strings (so they can be treated
|
|
* like all other t->vars[]) in which the second character is the one that
|
|
* is examined. The DB_* defines are the values for these second characters.
|
|
*/
|
|
#define DB_NORM 1 /* normal argument */
|
|
#define DB_OR 2 /* || -> -o conversion */
|
|
#define DB_AND 3 /* && -> -a conversion */
|
|
#define DB_BE 4 /* an inserted -BE */
|
|
#define DB_PAT 5 /* a pattern argument */
|
|
|
|
#define X_EXTRA 8 /* this many extra bytes in X string */
|
|
|
|
typedef struct XString {
|
|
char *end, *beg; /* end, begin of string */
|
|
size_t len; /* length */
|
|
Area *areap; /* area to allocate/free from */
|
|
} XString;
|
|
|
|
typedef char *XStringP;
|
|
|
|
/* initialise expandable string */
|
|
#define Xinit(xs, xp, length, area) do { \
|
|
(xs).len = length; \
|
|
(xs).areap = (area); \
|
|
(xs).beg = alloc((xs).len + X_EXTRA, (xs).areap); \
|
|
(xs).end = (xs).beg + (xs).len; \
|
|
xp = (xs).beg; \
|
|
} while (0)
|
|
|
|
/* stuff char into string */
|
|
#define Xput(xs, xp, c) (*xp++ = (c))
|
|
|
|
/* check if there are at least n bytes left */
|
|
#define XcheckN(xs, xp, n) do { \
|
|
int more = ((xp) + (n)) - (xs).end; \
|
|
if (more > 0) \
|
|
xp = Xcheck_grow_(&xs, xp, more); \
|
|
} while (0)
|
|
|
|
/* check for overflow, expand string */
|
|
#define Xcheck(xs, xp) XcheckN(xs, xp, 1)
|
|
|
|
/* free string */
|
|
#define Xfree(xs, xp) afree((void*) (xs).beg, (xs).areap)
|
|
|
|
/* close, return string */
|
|
#define Xclose(xs, xp) (char*) aresize((void*)(xs).beg, \
|
|
(size_t)((xp) - (xs).beg), (xs).areap)
|
|
/* begin of string */
|
|
#define Xstring(xs, xp) ((xs).beg)
|
|
|
|
#define Xnleft(xs, xp) ((xs).end - (xp)) /* may be less than 0 */
|
|
#define Xlength(xs, xp) ((xp) - (xs).beg)
|
|
#define Xsize(xs, xp) ((xs).end - (xs).beg)
|
|
#define Xsavepos(xs, xp) ((xp) - (xs).beg)
|
|
#define Xrestpos(xs, xp, n) ((xs).beg + (n))
|
|
|
|
char *Xcheck_grow_(XString *, const char *, unsigned);
|
|
|
|
/*
|
|
* expandable vector of generic pointers
|
|
*/
|
|
|
|
typedef struct XPtrV {
|
|
void **cur; /* next avail pointer */
|
|
void **beg, **end; /* begin, end of vector */
|
|
} XPtrV;
|
|
|
|
#define XPinit(x, n) do { \
|
|
void **vp__; \
|
|
vp__ = (void**) alloc(sizeofN(void*, n), ATEMP); \
|
|
(x).cur = (x).beg = vp__; \
|
|
(x).end = vp__ + n; \
|
|
} while (0)
|
|
|
|
#define XPput(x, p) do { \
|
|
if ((x).cur >= (x).end) { \
|
|
int n = XPsize(x); \
|
|
(x).beg = (void**) aresize((void*) (x).beg, \
|
|
sizeofN(void*, n*2), ATEMP); \
|
|
(x).cur = (x).beg + n; \
|
|
(x).end = (x).cur + n; \
|
|
} \
|
|
*(x).cur++ = (p); \
|
|
} while (0)
|
|
|
|
#define XPptrv(x) ((x).beg)
|
|
#define XPsize(x) ((x).cur - (x).beg)
|
|
|
|
#define XPclose(x) (void**) aresize((void*)(x).beg, \
|
|
sizeofN(void*, XPsize(x)), ATEMP)
|
|
|
|
#define XPfree(x) afree((void*) (x).beg, ATEMP)
|
|
|
|
#define IDENT 64
|
|
|
|
typedef struct source Source;
|
|
struct source {
|
|
const char *str; /* input pointer */
|
|
int type; /* input type */
|
|
const char *start; /* start of current buffer */
|
|
union {
|
|
const char **strv; /* string [] */
|
|
struct shf *shf; /* shell file */
|
|
struct tbl *tblp; /* alias (SALIAS) */
|
|
char *freeme; /* also for SREREAD */
|
|
} u;
|
|
int line; /* line number */
|
|
int errline; /* line the error occurred on (0 if not set) */
|
|
const char *file; /* input file name */
|
|
int flags; /* SF_* */
|
|
Area *areap;
|
|
XString xs; /* input buffer */
|
|
Source *next; /* stacked source */
|
|
char ugbuf[2]; /* buffer for ungetsc() (SREREAD) and
|
|
* alias (SALIAS) */
|
|
};
|
|
|
|
/* Source.type values */
|
|
#define SEOF 0 /* input EOF */
|
|
#define SFILE 1 /* file input */
|
|
#define SSTDIN 2 /* read stdin */
|
|
#define SSTRING 3 /* string */
|
|
#define SWSTR 4 /* string without \n */
|
|
#define SWORDS 5 /* string[] */
|
|
#define SWORDSEP 6 /* string[] separator */
|
|
#define SALIAS 7 /* alias expansion */
|
|
#define SREREAD 8 /* read ahead to be re-scanned */
|
|
|
|
/* Source.flags values */
|
|
#define SF_ECHO BIT(0) /* echo input to shlout */
|
|
#define SF_ALIAS BIT(1) /* faking space at end of alias */
|
|
#define SF_ALIASEND BIT(2) /* faking space at end of alias */
|
|
#define SF_TTY BIT(3) /* type == SSTDIN & it is a tty */
|
|
#define SF_FIRST BIT(4) /* initial state (to ignore UTF-8 BOM) */
|
|
|
|
/*
|
|
* states while lexing word
|
|
*/
|
|
#define SBASE 0 /* outside any lexical constructs */
|
|
#define SWORD 1 /* implicit quoting for substitute() */
|
|
#define SLETPAREN 2 /* inside (( )), implicit quoting */
|
|
#define SSQUOTE 3 /* inside '' */
|
|
#define SDQUOTE 4 /* inside "" */
|
|
#define SBRACE 5 /* inside ${} */
|
|
#define SCSPAREN 6 /* inside $() */
|
|
#define SBQUOTE 7 /* inside `` */
|
|
#define SASPAREN 8 /* inside $(( )) */
|
|
#define SHEREDELIM 9 /* parsing <<,<<- delimiter */
|
|
#define SHEREDQUOTE 10 /* parsing " in <<,<<- delimiter */
|
|
#define SPATTERN 11 /* parsing *(...|...) pattern (*+?@!) */
|
|
#define STBRACE 12 /* parsing ${..[#%]..} */
|
|
#define SLETARRAY 13 /* inside =( ), just copy */
|
|
|
|
typedef union {
|
|
int i;
|
|
char *cp;
|
|
char **wp;
|
|
struct op *o;
|
|
struct ioword *iop;
|
|
} YYSTYPE;
|
|
|
|
/* If something is added here, add it to tokentab[] in syn.c as well */
|
|
#define LWORD 256
|
|
#define LOGAND 257 /* && */
|
|
#define LOGOR 258 /* || */
|
|
#define BREAK 259 /* ;; */
|
|
#define IF 260
|
|
#define THEN 261
|
|
#define ELSE 262
|
|
#define ELIF 263
|
|
#define FI 264
|
|
#define CASE 265
|
|
#define ESAC 266
|
|
#define FOR 267
|
|
#define SELECT 268
|
|
#define WHILE 269
|
|
#define UNTIL 270
|
|
#define DO 271
|
|
#define DONE 272
|
|
#define IN 273
|
|
#define FUNCTION 274
|
|
#define TIME 275
|
|
#define REDIR 276
|
|
#define MDPAREN 277 /* (( )) */
|
|
#define BANG 278 /* ! */
|
|
#define DBRACKET 279 /* [[ .. ]] */
|
|
#define COPROC 280 /* |& */
|
|
#define YYERRCODE 300
|
|
|
|
/* flags to yylex */
|
|
#define CONTIN BIT(0) /* skip new lines to complete command */
|
|
#define ONEWORD BIT(1) /* single word for substitute() */
|
|
#define ALIAS BIT(2) /* recognise alias */
|
|
#define KEYWORD BIT(3) /* recognise keywords */
|
|
#define LETEXPR BIT(4) /* get expression inside (( )) */
|
|
#define VARASN BIT(5) /* check for var=word */
|
|
#define ARRAYVAR BIT(6) /* parse x[1 & 2] as one word */
|
|
#define ESACONLY BIT(7) /* only accept esac keyword */
|
|
#define CMDWORD BIT(8) /* parsing simple command (alias related) */
|
|
#define HEREDELIM BIT(9) /* parsing <<,<<- delimiter */
|
|
#define LQCHAR BIT(10) /* source string contains QCHAR */
|
|
#define HEREDOC BIT(11) /* parsing a here document */
|
|
#define LETARRAY BIT(12) /* copy expression inside =( ) */
|
|
|
|
#define HERES 10 /* max << in line */
|
|
|
|
EXTERN Source *source; /* yyparse/yylex source */
|
|
EXTERN YYSTYPE yylval; /* result from yylex */
|
|
EXTERN struct ioword *heres [HERES], **herep;
|
|
EXTERN char ident [IDENT+1];
|
|
|
|
#define HISTORYSIZE 500 /* size of saved history */
|
|
|
|
EXTERN char **history; /* saved commands */
|
|
EXTERN char **histptr; /* last history item */
|
|
EXTERN int histsize; /* history size */
|
|
|
|
/* user and system time of last j_waitjed job */
|
|
EXTERN struct timeval j_usrtime, j_systime;
|
|
|
|
/* alloc.c */
|
|
Area *ainit(Area *);
|
|
void afreeall(Area *);
|
|
void *alloc(size_t, Area *);
|
|
void *aresize(void *, size_t, Area *);
|
|
void afree(void *, Area *);
|
|
#define afreechk(s) do { \
|
|
if (s) \
|
|
afree(s, ATEMP); \
|
|
} while (0)
|
|
#define afreechv(v,s) do { \
|
|
if (v) \
|
|
afree(s, ATEMP); \
|
|
} while (0)
|
|
/* edit.c */
|
|
void x_init(void);
|
|
int x_read(char *, size_t);
|
|
int x_bind(const char *, const char *, int, int);
|
|
/* UTF-8 hack stuff */
|
|
int utf_widthadj(const char *, const char **);
|
|
/* eval.c */
|
|
char *substitute(const char *, int);
|
|
char **eval(const char **, int);
|
|
char *evalstr(const char *cp, int);
|
|
char *evalonestr(const char *cp, int);
|
|
char *debunk(char *, const char *, size_t);
|
|
void expand(const char *, XPtrV *, int);
|
|
int glob_str(char *, XPtrV *, int);
|
|
/* exec.c */
|
|
int execute(struct op * volatile, volatile int);
|
|
int shcomexec(const char **);
|
|
struct tbl *findfunc(const char *, unsigned int, int);
|
|
int define(const char *, struct op *);
|
|
void builtin(const char *, int (*)(const char **));
|
|
struct tbl *findcom(const char *, int);
|
|
void flushcom(int);
|
|
const char *search(const char *, const char *, int, int *);
|
|
int search_access(const char *, int, int *);
|
|
int pr_menu(const char *const *);
|
|
int pr_list(char *const *);
|
|
/* expr.c */
|
|
int evaluate(const char *, long *, int, bool);
|
|
int v_evaluate(struct tbl *, const char *, volatile int, bool);
|
|
/* funcs.c */
|
|
int c_hash(const char **);
|
|
int c_cd(const char **);
|
|
int c_pwd(const char **);
|
|
int c_print(const char **);
|
|
int c_whence(const char **);
|
|
int c_command(const char **);
|
|
int c_typeset(const char **);
|
|
int c_alias(const char **);
|
|
int c_unalias(const char **);
|
|
int c_let(const char **);
|
|
int c_jobs(const char **);
|
|
int c_fgbg(const char **);
|
|
int c_kill(const char **);
|
|
void getopts_reset(int);
|
|
int c_getopts(const char **);
|
|
int c_bind(const char **);
|
|
int c_label(const char **);
|
|
int c_shift(const char **);
|
|
int c_umask(const char **);
|
|
int c_dot(const char **);
|
|
int c_wait(const char **);
|
|
int c_read(const char **);
|
|
int c_eval(const char **);
|
|
int c_trap(const char **);
|
|
int c_brkcont(const char **);
|
|
int c_exitreturn(const char **);
|
|
int c_set(const char **);
|
|
int c_unset(const char **);
|
|
int c_ulimit(const char **);
|
|
int c_times(const char **);
|
|
int timex(struct op *, int);
|
|
void timex_hook(struct op *, char ** volatile *);
|
|
int c_exec(const char **);
|
|
int c_builtin(const char **);
|
|
int c_test(const char **);
|
|
/* histrap.c */
|
|
void init_histvec(void);
|
|
void hist_init(Source *);
|
|
#if HAVE_PERSISTENT_HISTORY
|
|
void hist_finish(void);
|
|
#endif
|
|
void histsave(int, const char *, int);
|
|
int c_fc(const char **);
|
|
void sethistsize(int);
|
|
#if HAVE_PERSISTENT_HISTORY
|
|
void sethistfile(const char *);
|
|
#endif
|
|
char **histpos(void);
|
|
int histnum(int);
|
|
int findhist(int, int, const char *, int);
|
|
int findhistrel(const char *);
|
|
char **hist_get_newest(int);
|
|
void inittraps(void);
|
|
void alarm_init(void);
|
|
Trap *gettrap(const char *, int);
|
|
void trapsig(int);
|
|
void intrcheck(void);
|
|
int fatal_trap_check(void);
|
|
int trap_pending(void);
|
|
void runtraps(int intr);
|
|
void runtrap(Trap *);
|
|
void cleartraps(void);
|
|
void restoresigs(void);
|
|
void settrap(Trap *, const char *);
|
|
int block_pipe(void);
|
|
void restore_pipe(int);
|
|
int setsig(Trap *, sig_t, int);
|
|
void setexecsig(Trap *, int);
|
|
/* jobs.c */
|
|
void j_init(int);
|
|
void j_exit(void);
|
|
void j_change(void);
|
|
int exchild(struct op *, int, int);
|
|
void startlast(void);
|
|
int waitlast(void);
|
|
int waitfor(const char *, int *);
|
|
int j_kill(const char *, int);
|
|
int j_resume(const char *, int);
|
|
int j_jobs(const char *, int, int);
|
|
int j_njobs(void);
|
|
void j_notify(void);
|
|
pid_t j_async(void);
|
|
int j_stopped_running(void);
|
|
/* lex.c */
|
|
int yylex(int);
|
|
void yyerror(const char *, ...)
|
|
__attribute__((noreturn))
|
|
__attribute__((format (printf, 1, 2)));
|
|
Source *pushs(int, Area *);
|
|
void set_prompt(int, Source *);
|
|
void pprompt(const char *, int);
|
|
int promptlen(const char *);
|
|
/* main.c */
|
|
int include(const char *, int, const char **, int);
|
|
int command(const char *);
|
|
int shell(Source *volatile, int volatile);
|
|
void unwind(int)
|
|
__attribute__((noreturn));
|
|
void newenv(int);
|
|
void quitenv(struct shf *);
|
|
void cleanup_parents_env(void);
|
|
void cleanup_proc_env(void);
|
|
void errorf(const char *, ...)
|
|
__attribute__((noreturn))
|
|
__attribute__((format (printf, 1, 2)));
|
|
void warningf(bool, const char *, ...)
|
|
__attribute__((format (printf, 2, 3)));
|
|
void bi_errorf(const char *, ...)
|
|
__attribute__((format (printf, 1, 2)));
|
|
void internal_errorf(const char *, ...)
|
|
__attribute__((noreturn))
|
|
__attribute__((format (printf, 1, 2)));
|
|
void internal_warningf(const char *, ...)
|
|
__attribute__((format (printf, 1, 2)));
|
|
void error_prefix(bool);
|
|
void shellf(const char *, ...)
|
|
__attribute__((format (printf, 1, 2)));
|
|
void shprintf(const char *, ...)
|
|
__attribute__((format (printf, 1, 2)));
|
|
int can_seek(int);
|
|
void initio(void);
|
|
int ksh_dup2(int, int, int);
|
|
short savefd(int);
|
|
void restfd(int, int);
|
|
void openpipe(int *);
|
|
void closepipe(int *);
|
|
int check_fd(const char *, int, const char **);
|
|
void coproc_init(void);
|
|
void coproc_read_close(int);
|
|
void coproc_readw_close(int);
|
|
void coproc_write_close(int);
|
|
int coproc_getfd(int, const char **);
|
|
void coproc_cleanup(int);
|
|
struct temp *maketemp(Area *, Temp_type, struct temp **);
|
|
unsigned int hash(const char *);
|
|
void ktinit(struct table *, Area *, int);
|
|
struct tbl *ktsearch(struct table *, const char *, unsigned int);
|
|
struct tbl *ktenter(struct table *, const char *, unsigned int);
|
|
void ktdelete(struct tbl *);
|
|
void ktwalk(struct tstate *, struct table *);
|
|
struct tbl *ktnext(struct tstate *);
|
|
struct tbl **ktsort(struct table *);
|
|
/* misc.c */
|
|
void setctypes(const char *, int);
|
|
void initctypes(void);
|
|
#ifdef MKSH_SMALL
|
|
char *str_save(const char *, Area *);
|
|
#else
|
|
#define str_save(s,ap) (str_nsave((s), (s) ? strlen(s) : 0, (ap)))
|
|
#endif
|
|
char *str_nsave(const char *, int, Area *);
|
|
size_t option(const char *);
|
|
char *getoptions(void);
|
|
void change_flag(enum sh_flag, int, char);
|
|
int parse_args(const char **, int, int *);
|
|
int getn(const char *, int *);
|
|
int bi_getn(const char *, int *);
|
|
int gmatchx(const char *, const char *, int);
|
|
int has_globbing(const char *, const char *);
|
|
const unsigned char *pat_scan(const unsigned char *, const unsigned char *, int);
|
|
int xstrcmp(const void *, const void *);
|
|
void ksh_getopt_reset(Getopt *, int);
|
|
int ksh_getopt(const char **, Getopt *, const char *);
|
|
void print_value_quoted(const char *);
|
|
void print_columns(struct shf *, int,
|
|
char *(*)(const void *, int, char *, int),
|
|
const void *, int, int prefcol);
|
|
void strip_nuls(char *, int);
|
|
int blocking_read(int, char *, int);
|
|
int reset_nonblock(int);
|
|
char *ksh_get_wd(size_t *);
|
|
int make_path(const char *, const char *, char **, XString *, int *);
|
|
void simplify_path(char *);
|
|
char *get_phys_path(const char *);
|
|
void set_current_wd(char *);
|
|
#if !HAVE_EXPSTMT
|
|
bool ksh_isspace_(unsigned);
|
|
#endif
|
|
/* shf.c */
|
|
struct shf *shf_open(const char *, int, int, int);
|
|
struct shf *shf_fdopen(int, int, struct shf *);
|
|
struct shf *shf_reopen(int, int, struct shf *);
|
|
struct shf *shf_sopen(char *, int, int, struct shf *);
|
|
int shf_close(struct shf *);
|
|
int shf_fdclose(struct shf *);
|
|
char *shf_sclose(struct shf *);
|
|
int shf_flush(struct shf *);
|
|
int shf_read(char *, int, struct shf *);
|
|
char *shf_getse(char *, int, struct shf *);
|
|
int shf_getchar(struct shf *s);
|
|
int shf_ungetc(int, struct shf *);
|
|
int shf_putchar(int, struct shf *);
|
|
int shf_puts(const char *, struct shf *);
|
|
int shf_write(const char *, int, struct shf *);
|
|
int shf_fprintf(struct shf *, const char *, ...)
|
|
__attribute__((format (printf, 2, 3)));
|
|
int shf_snprintf(char *, int, const char *, ...)
|
|
__attribute__((format (printf, 3, 4)))
|
|
__bound_att__((bounded (string, 1, 2)));
|
|
char *shf_smprintf(const char *, ...)
|
|
__attribute__((format (printf, 1, 2)));
|
|
int shf_vfprintf(struct shf *, const char *, va_list)
|
|
__attribute__((format (printf, 2, 0)));
|
|
/* syn.c */
|
|
void initkeywords(void);
|
|
struct op *compile(Source *);
|
|
/* tree.c */
|
|
int fptreef(struct shf *, int, const char *, ...);
|
|
char *snptreef(char *, int, const char *, ...);
|
|
struct op *tcopy(struct op *, Area *);
|
|
char *wdcopy(const char *, Area *);
|
|
const char *wdscan(const char *, int);
|
|
char *wdstrip(const char *);
|
|
void tfree(struct op *, Area *);
|
|
/* var.c */
|
|
void newblock(void);
|
|
void popblock(void);
|
|
void initvar(void);
|
|
struct tbl *global(const char *);
|
|
struct tbl *local(const char *, bool);
|
|
char *str_val(struct tbl *);
|
|
long intval(struct tbl *);
|
|
int setstr(struct tbl *, const char *, int);
|
|
struct tbl *setint_v(struct tbl *, struct tbl *, bool);
|
|
void setint(struct tbl *, long);
|
|
int getint(struct tbl *, long *, bool);
|
|
struct tbl *typeset(const char *, Tflag, Tflag, int, int);
|
|
void unset(struct tbl *, int);
|
|
const char *skip_varname(const char *, int);
|
|
const char *skip_wdvarname(const char *, int);
|
|
int is_wdvarname(const char *, int);
|
|
int is_wdvarassign(const char *);
|
|
char **makenv(void);
|
|
void change_random(void);
|
|
int array_ref_len(const char *);
|
|
char *arrayname(const char *);
|
|
void set_array(const char *, int, const char **);
|
|
|
|
enum Test_op {
|
|
TO_NONOP = 0, /* non-operator */
|
|
/* unary operators */
|
|
TO_STNZE, TO_STZER, TO_OPTION,
|
|
TO_FILAXST,
|
|
TO_FILEXST,
|
|
TO_FILREG, TO_FILBDEV, TO_FILCDEV, TO_FILSYM, TO_FILFIFO, TO_FILSOCK,
|
|
TO_FILCDF, TO_FILID, TO_FILGID, TO_FILSETG, TO_FILSTCK, TO_FILUID,
|
|
TO_FILRD, TO_FILGZ, TO_FILTT, TO_FILSETU, TO_FILWR, TO_FILEX,
|
|
/* binary operators */
|
|
TO_STEQL, TO_STNEQ, TO_STLT, TO_STGT, TO_INTEQ, TO_INTNE, TO_INTGT,
|
|
TO_INTGE, TO_INTLT, TO_INTLE, TO_FILEQ, TO_FILNT, TO_FILOT
|
|
};
|
|
typedef enum Test_op Test_op;
|
|
|
|
/* Used by Test_env.isa() (order important - used to index *_tokens[] arrays) */
|
|
enum Test_meta {
|
|
TM_OR, /* -o or || */
|
|
TM_AND, /* -a or && */
|
|
TM_NOT, /* ! */
|
|
TM_OPAREN, /* ( */
|
|
TM_CPAREN, /* ) */
|
|
TM_UNOP, /* unary operator */
|
|
TM_BINOP, /* binary operator */
|
|
TM_END /* end of input */
|
|
};
|
|
typedef enum Test_meta Test_meta;
|
|
|
|
#define TEF_ERROR BIT(0) /* set if we've hit an error */
|
|
#define TEF_DBRACKET BIT(1) /* set if [[ .. ]] test */
|
|
|
|
typedef struct test_env Test_env;
|
|
struct test_env {
|
|
int flags; /* TEF_* */
|
|
union {
|
|
const char **wp;/* used by ptest_* */
|
|
XPtrV *av; /* used by dbtestp_* */
|
|
} pos;
|
|
const char **wp_end; /* used by ptest_* */
|
|
int (*isa)(Test_env *, Test_meta);
|
|
const char *(*getopnd) (Test_env *, Test_op, int);
|
|
int (*eval)(Test_env *, Test_op, const char *, const char *, int);
|
|
void (*error)(Test_env *, int, const char *);
|
|
};
|
|
|
|
extern const char *const dbtest_tokens[];
|
|
|
|
Test_op test_isop(Test_meta, const char *);
|
|
int test_eval(Test_env *, Test_op, const char *, const char *, int);
|
|
int test_parse(Test_env *);
|
|
|
|
EXTERN int tty_fd I__(-1); /* dup'd tty file descriptor */
|
|
EXTERN int tty_devtty; /* true if tty_fd is from /dev/tty */
|
|
EXTERN struct termios tty_state; /* saved tty state */
|
|
|
|
extern void tty_init(int);
|
|
extern void tty_close(void);
|
|
|
|
/* be sure not to interfere with anyone else's idea about EXTERN */
|
|
#ifdef EXTERN_DEFINED
|
|
# undef EXTERN_DEFINED
|
|
# undef EXTERN
|
|
#endif
|
|
#undef I__
|
|
|
|
#endif /* !MKSH_INCLUDES_ONLY */
|