bin/ksh/sh.h

   1 /*      $NetBSD: sh.h,v 1.7 2005/06/26 19:09:00 christos Exp $  */
   2
   3 /*
   4  * Public Domain Bourne/Korn shell
   5  */
   6
   7 /* $Id: sh.h,v 1.7 2005/06/26 19:09:00 christos Exp $ */
   8
   9 #include "config.h"     /* system and option configuration info */
  10
  11 #ifdef HAVE_PROTOTYPES
  12 # define        ARGS(args)      args    /* prototype declaration */
  13 #else
  14 # define        ARGS(args)      ()      /* K&R declaration */
  15 #endif
  16
  17 /* Start of common headers */
  18
  19 #include <stdio.h>
  20 #include <sys/types.h>
  21 #include <setjmp.h>
  22 #ifdef HAVE_STDDEF_H
  23 # include <stddef.h>
  24 #endif
  25
  26 #ifdef HAVE_STDLIB_H
  27 # include <stdlib.h>
  28 #else
  29 /* just a useful subset of what stdlib.h would have */
  30 extern char * getenv  ARGS((const char *));
  31 extern void * malloc  ARGS((size_t));
  32 extern void * realloc ARGS((void *, size_t));
  33 extern int    free    ARGS((void *));
  34 extern int    exit    ARGS((int));
  35 extern int    rand    ARGS((void));
  36 extern void   srand   ARGS((unsigned int));
  37 extern int    atoi    ARGS((const char *));
  38 #endif /* HAVE_STDLIB_H */
  39
  40 #ifdef HAVE_UNISTD_H
  41 # include <unistd.h>
  42 #else
  43 /* just a useful subset of what unistd.h would have */
  44 extern int access ARGS((const char *, int));
  45 extern int open ARGS((const char *, int, ...));
  46 extern int creat ARGS((const char *, mode_t));
  47 extern int read ARGS((int, char *, unsigned));
  48 extern int write ARGS((int, const char *, unsigned));
  49 extern off_t lseek ARGS((int, off_t, int));
  50 extern int close ARGS((int));
  51 extern int pipe ARGS((int []));
  52 extern int dup2 ARGS((int, int));
  53 extern int unlink ARGS((const char *));
  54 extern int fork ARGS((void));
  55 extern int execve ARGS((const char *, char * const[], char * const[]));
  56 extern int chdir ARGS((const char *));
  57 extern int kill ARGS((pid_t, int));
  58 extern char *getcwd();  /* no ARGS here - differs on different machines */
  59 extern int geteuid ARGS((void));
  60 extern int readlink ARGS((const char *, char *, int));
  61 extern int getegid ARGS((void));
  62 extern int getpid ARGS((void));
  63 extern int getppid ARGS((void));
  64 extern unsigned int sleep ARGS((unsigned int));
  65 extern int isatty ARGS((int));
  66 # ifdef POSIX_PGRP
  67 extern int getpgrp ARGS((void));
  68 extern int setpgid ARGS((pid_t, pid_t));
  69 # endif /* POSIX_PGRP */
  70 # ifdef BSD_PGRP
  71 extern int getpgrp ARGS((pid_t));
  72 extern int setpgrp ARGS((pid_t, pid_t));
  73 # endif /* BSD_PGRP */
  74 # ifdef SYSV_PGRP
  75 extern int getpgrp ARGS((void));
  76 extern int setpgrp ARGS((void));
  77 # endif /* SYSV_PGRP */
  78 #endif /* HAVE_UNISTD_H */
  79
  80 #ifdef HAVE_STRING_H
  81 # include <string.h>
  82 #else
  83 # include <strings.h>
  84 # define strchr index
  85 # define strrchr rindex
  86 #endif /* HAVE_STRING_H */
  87 #ifndef HAVE_STRSTR
  88 char *strstr ARGS((const char *s, const char *p));
  89 #endif /* HAVE_STRSTR */
  90 #ifndef HAVE_STRCASECMP
  91 int strcasecmp ARGS((const char *s1, const char *s2));
  92 int strncasecmp ARGS((const char *s1, const char *s2, int n));
  93 #endif /* HAVE_STRCASECMP */
  94
  95 #ifdef HAVE_MEMORY_H
  96 # include <memory.h>
  97 #endif
  98 #ifndef HAVE_MEMSET
  99 # define memcpy(d, s, n)        bcopy(s, d, n)
 100 # define memcmp(s1, s2, n)      bcmp(s1, s2, n)
 101 void *memset ARGS((void *d, int c, size_t n));
 102 #endif /* HAVE_MEMSET */
 103 #ifndef HAVE_MEMMOVE
 104 # ifdef HAVE_BCOPY
 105 #  define memmove(d, s, n)      bcopy(s, d, n)
 106 # else
 107 void *memmove ARGS((void *d, const void *s, size_t n));
 108 # endif
 109 #endif /* HAVE_MEMMOVE */
 110
 111 #ifdef HAVE_PROTOTYPES
 112 # include <stdarg.h>
 113 # define SH_VA_START(va, argn) va_start(va, argn)
 114 #else
 115 # include <varargs.h>
 116 # define SH_VA_START(va, argn) va_start(va)
 117 #endif /* HAVE_PROTOTYPES */
 118
 119 #include <errno.h>
 120
 121 #ifdef HAVE_FCNTL_H
 122 # include <fcntl.h>
 123 #else
 124 # include <sys/file.h>
 125 #endif /* HAVE_FCNTL_H */
 126 #ifndef O_ACCMODE
 127 # define O_ACCMODE      (O_RDONLY|O_WRONLY|O_RDWR)
 128 #endif /* !O_ACCMODE */
 129
 130 #ifndef F_OK    /* access() arguments */
 131 # define F_OK 0
 132 # define X_OK 1
 133 # define W_OK 2
 134 # define R_OK 4
 135 #endif /* !F_OK */
 136
 137 #ifndef SEEK_SET
 138 # ifdef L_SET
 139 #  define SEEK_SET L_SET
 140 #  define SEEK_CUR L_INCR
 141 #  define SEEK_END L_XTND
 142 # else /* L_SET */
 143 #  define SEEK_SET 0
 144 #  define SEEK_CUR 1
 145 #  define SEEK_END 2
 146 # endif /* L_SET */
 147 #endif /* !SEEK_SET */
 148
 149 /* Some machines (eg, FreeBSD 1.1.5) define CLK_TCK in limits.h
 150  * (ksh_limval.h assumes limits has been included, if available)
 151  */
 152 #ifdef HAVE_LIMITS_H
 153 # include <limits.h>
 154 #endif /* HAVE_LIMITS_H */
 155
 156 #include <signal.h>
 157 #ifdef  NSIG
 158 # define SIGNALS        NSIG
 159 #else
 160 # ifdef _MINIX
 161 #  define SIGNALS       (_NSIG+1) /* _NSIG is # of signals used, excluding 0. */
 162 # else
 163 #  ifdef _SIGMAX        /* QNX */
 164 #   define SIGNALS      _SIGMAX
 165 #  else /* _SIGMAX */
 166 #   define SIGNALS      32
 167 #  endif /* _SIGMAX */
 168 # endif /* _MINIX */
 169 #endif  /* NSIG */
 170 #ifndef SIGCHLD
 171 # define SIGCHLD SIGCLD
 172 #endif
 173 /* struct sigaction.sa_flags is set to KSH_SA_FLAGS.  Used to ensure
 174  * system calls are interrupted
 175  */
 176 #ifdef SA_INTERRUPT
 177 # define KSH_SA_FLAGS   SA_INTERRUPT
 178 #else /* SA_INTERRUPT */
 179 # define KSH_SA_FLAGS   0
 180 #endif /* SA_INTERRUPT */
 181
 182 typedef RETSIGTYPE (*handler_t) ARGS((int));    /* signal handler */
 183
 184 #ifdef USE_FAKE_SIGACT
 185 # include "sigact.h"                    /* use sjg's fake sigaction() */
 186 #endif
 187
 188 #ifdef HAVE_PATHS_H
 189 # include <paths.h>
 190 #endif /* HAVE_PATHS_H */
 191 #ifdef _PATH_DEFPATH
 192 # define DEFAULT__PATH _PATH_DEFPATH
 193 #else /* _PATH_DEFPATH */
 194 # define DEFAULT__PATH DEFAULT_PATH
 195 #endif /* _PATH_DEFPATH */
 196
 197 #ifndef offsetof
 198 # define offsetof(type,id) ((size_t)&((type*)NULL)->id)
 199 #endif
 200
 201 #ifndef HAVE_KILLPG
 202 # define killpg(p, s)   kill(-(p), (s))
 203 #endif /* !HAVE_KILLPG */
 204
 205 /* Special cases for execve(2) */
 206 #ifdef OS2
 207 extern int ksh_execve(char *cmd, char **args, char **env, int flags);
 208 #else /* OS2 */
 209 # if defined(OS_ISC) && defined(_POSIX_SOURCE)
 210 /* Kludge for ISC 3.2 (and other versions?) so programs will run correctly.  */
 211 #  define ksh_execve(p, av, ev, flags) \
 212                                 do { \
 213                                         __setostype(0); \
 214                                         execve(p, av, ev); \
 215                                         __setostype(1); \
 216                                 } while (0)
 217 # else /* OS_ISC && _POSIX */
 218 #  define ksh_execve(p, av, ev, flags)  execve(p, av, ev)
 219 # endif /* OS_ISC && _POSIX */
 220 #endif /* OS2 */
 221
 222 /* this is a hang-over from older versions of the os2 port */
 223 #define ksh_dupbase(fd, base) fcntl(fd, F_DUPFD, base)
 224
 225 #ifdef HAVE_SIGSETJMP
 226 # define ksh_sigsetjmp(env,sm)  sigsetjmp((env), (sm))
 227 # define ksh_siglongjmp(env,v)  siglongjmp((env), (v))
 228 # define ksh_jmp_buf            sigjmp_buf
 229 #else /* HAVE_SIGSETJMP */
 230 # ifdef HAVE__SETJMP
 231 #  define ksh_sigsetjmp(env,sm) _setjmp(env)
 232 #  define ksh_siglongjmp(env,v) _longjmp((env), (v))
 233 # else /* HAVE__SETJMP */
 234 #  define ksh_sigsetjmp(env,sm) setjmp(env)
 235 #  define ksh_siglongjmp(env,v) longjmp((env), (v))
 236 # endif /* HAVE__SETJMP */
 237 # define ksh_jmp_buf            jmp_buf
 238 #endif /* HAVE_SIGSETJMP */
 239
 240 #ifndef HAVE_DUP2
 241 extern int dup2 ARGS((int, int));
 242 #endif /* !HAVE_DUP2 */
 243
 244 /* Find a integer type that is at least 32 bits (or die) - SIZEOF_* defined
 245  * by autoconf (assumes an 8 bit byte, but I'm not concerned).
 246  * NOTE: INT32 may end up being more than 32 bits.
 247  */
 248 #if SIZEOF_INT >= 4
 249 # define INT32  int
 250 #else /* SIZEOF_INT */
 251 # if SIZEOF_LONG >= 4
 252 #  define INT32 long
 253 # else /* SIZEOF_LONG */
 254    #error cannot find 32 bit type...
 255 # endif /* SIZEOF_LONG */
 256 #endif /* SIZEOF_INT */
 257
 258 /* end of common headers */
 259
 260 /* Stop gcc and lint from complaining about possibly uninitialized variables */
 261 #if defined(__GNUC__) || defined(lint)
 262 # define UNINITIALIZED(var)     var = 0
 263 #else
 264 # define UNINITIALIZED(var)     var
 265 #endif /* GNUC || lint */
 266
 267 /* some useful #defines */
 268 #ifdef EXTERN
 269 # define I__(i) = i
 270 #else
 271 # define I__(i)
 272 # define EXTERN extern
 273 # define EXTERN_DEFINED
 274 #endif
 275
 276 #ifdef OS2
 277 # define inDOS() (!(_emx_env & 0x200))
 278 #endif
 279
 280 #ifndef EXECSHELL
 281 /* shell to exec scripts (see also $SHELL initialization in main.c) */
 282 # ifdef OS2
 283 #  define EXECSHELL     (inDOS() ? "c:\\command.com" : "c:\\os2\\cmd.exe")
 284 #  define EXECSHELL_STR (inDOS() ? "COMSPEC" : "OS2_SHELL")
 285 # else /* OS2 */
 286 #  define EXECSHELL     "/bin/sh"
 287 #  define EXECSHELL_STR "EXECSHELL"
 288 # endif /* OS2 */
 289 #endif
 290
 291 /* ISABSPATH() means path is fully and completely specified,
 292  * ISROOTEDPATH() means a .. as the first component is a no-op,
 293  * ISRELPATH() means $PWD can be tacked on to get an absolute path.
 294  *
 295  * OS           Path            ISABSPATH       ISROOTEDPATH    ISRELPATH
 296  * unix         /foo            yes             yes             no
 297  * unix         foo             no              no              yes
 298  * unix         ../foo          no              no              yes
 299  * os2+cyg      a:/foo          yes             yes             no
 300  * os2+cyg      a:foo           no              no              no
 301  * os2+cyg      /foo            no              yes             no
 302  * os2+cyg      foo             no              no              yes
 303  * os2+cyg      ../foo          no              no              yes
 304  * cyg          //foo           yes             yes             no
 305  */
 306 #ifdef OS2
 307 # define PATHSEP        ';'
 308 # define DIRSEP         '/'     /* even though \ is native */
 309 # define DIRSEPSTR      "\\"
 310 # define ISDIRSEP(c)    ((c) == '\\' || (c) == '/')
 311 # define ISABSPATH(s)   (((s)[0] && (s)[1] == ':' && ISDIRSEP((s)[2])))
 312 # define ISROOTEDPATH(s) (ISDIRSEP((s)[0]) || ISABSPATH(s))
 313 # define ISRELPATH(s)   (!(s)[0] || ((s)[1] != ':' && !ISDIRSEP((s)[0])))
 314 # define FILECHCONV(c)  (isascii(c) && isupper(c) ? tolower(c) : c)
 315 # define FILECMP(s1, s2) stricmp(s1, s2)
 316 # define FILENCMP(s1, s2, n) strnicmp(s1, s2, n)
 317 extern char *ksh_strchr_dirsep(const char *path);
 318 extern char *ksh_strrchr_dirsep(const char *path);
 319 # define chdir          _chdir2
 320 # define getcwd         _getcwd2
 321 #else
 322 # define PATHSEP        ':'
 323 # define DIRSEP         '/'
 324 # define DIRSEPSTR      "/"
 325 # define ISDIRSEP(c)    ((c) == '/')
 326 #ifdef __CYGWIN__
 327 #  define ISABSPATH(s) \
 328        (((s)[0] && (s)[1] == ':' && ISDIRSEP((s)[2])) || ISDIRSEP((s)[0]))
 329 #  define ISRELPATH(s) (!(s)[0] || ((s)[1] != ':' && !ISDIRSEP((s)[0])))
 330 #else /* __CYGWIN__ */
 331 # define ISABSPATH(s)   ISDIRSEP((s)[0])
 332 # define ISRELPATH(s)   (!ISABSPATH(s))
 333 #endif /* __CYGWIN__ */
 334 # define ISROOTEDPATH(s) ISABSPATH(s)
 335 # define FILECHCONV(c)  c
 336 # define FILECMP(s1, s2) strcmp(s1, s2)
 337 # define FILENCMP(s1, s2, n) strncmp(s1, s2, n)
 338 # define ksh_strchr_dirsep(p)   strchr(p, DIRSEP)
 339 # define ksh_strrchr_dirsep(p)  strrchr(p, DIRSEP)
 340 #endif
 341
 342 typedef int bool_t;
 343 #define FALSE   0
 344 #define TRUE    1
 345
 346 #define NELEM(a) (sizeof(a) / sizeof((a)[0]))
 347 #define sizeofN(type, n) (sizeof(type) * (n))
 348 #define BIT(i)  (1<<(i))        /* define bit in flag */
 349
 350 /* Table flag type - needs > 16 and < 32 bits */
 351 typedef INT32 Tflag;
 352
 353 #define NUFILE  32              /* Number of user-accessible files */
 354 #define FDBASE  10              /* First file usable by Shell */
 355
 356 /* you're not going to run setuid shell scripts, are you? */
 357 #define eaccess(path, mode)     access(path, mode)
 358
 359 /* Make MAGIC a char that might be printed to make bugs more obvious, but
 360  * not a char that is used often.  Also, can't use the high bit as it causes
 361  * portability problems (calling strchr(x, 0x80|'x') is error prone).
 362  */
 363 #define MAGIC           (7)     /* prefix for *?[!{,} during expand */
 364 #define ISMAGIC(c)      ((unsigned char)(c) == MAGIC)
 365 #define NOT             '!'     /* might use ^ (ie, [!...] vs [^..]) */
 366
 367 #define LINE    1024            /* input line size */
 368 #define PATH    1024            /* pathname size (todo: PATH_MAX/pathconf()) */
 369 #define ARRAYMAX 1023           /* max array index */
 370
 371 EXTERN  const char *kshname;    /* $0 */
 372 EXTERN  pid_t   kshpid;         /* $$, shell pid */
 373 EXTERN  pid_t   procpid;        /* pid of executing process */
 374 EXTERN  uid_t   ksheuid;        /* effective uid of shell */
 375 EXTERN  int     exstat;         /* exit status */
 376 EXTERN  int     subst_exstat;   /* exit status of last $(..)/`..` */
 377 EXTERN  const char *safe_prompt; /* safe prompt if PS1 substitution fails */
 378
 379 /*
 380  * Area-based allocation built on malloc/free
 381  */
 382 typedef struct Area {
 383         struct link *freelist;  /* free list */
 384 } Area;
 385
 386 EXTERN  Area    aperm;          /* permanent object space */
 387 #define APERM   &aperm
 388 #define ATEMP   &e->area
 389
 390 #ifdef MEM_DEBUG
 391 # include "chmem.h" /* a debugging front end for malloc et. al. */
 392 #endif /* MEM_DEBUG */
 393
 394 #ifdef KSH_DEBUG
 395 # define kshdebug_init()        kshdebug_init_()
 396 # define kshdebug_printf(a)     kshdebug_printf_ a
 397 # define kshdebug_dump(a)       kshdebug_dump_ a
 398 #else /* KSH_DEBUG */
 399 # define kshdebug_init()
 400 # define kshdebug_printf(a)
 401 # define kshdebug_dump(a)
 402 #endif /* KSH_DEBUG */
 403
 404 /*
 405  * parsing & execution environment
 406  */
 407 EXTERN  struct env {
 408         short   type;                   /* environment type - see below */
 409         short   flags;                  /* EF_* */
 410         Area    area;                   /* temporary allocation area */
 411         struct  block *loc;             /* local variables and functions */
 412         short  *savefd;                 /* original redirected fd's */
 413         struct  env *oenv;              /* link to previous environment */
 414         ksh_jmp_buf jbuf;               /* long jump back to env creator */
 415         struct temp *temps;             /* temp files */
 416 } *e;
 417
 418 /* struct env.type values */
 419 #define E_NONE  0               /* dummy environment */
 420 #define E_PARSE 1               /* parsing command # */
 421 #define E_FUNC  2               /* executing function # */
 422 #define E_INCL  3               /* including a file via . # */
 423 #define E_EXEC  4               /* executing command tree */
 424 #define E_LOOP  5               /* executing for/while # */
 425 #define E_ERRH  6               /* general error handler # */
 426 /* # indicates env has valid jbuf (see unwind()) */
 427
 428 /* struct env.flag values */
 429 #define EF_FUNC_PARSE   BIT(0)  /* function being parsed */
 430 #define EF_BRKCONT_PASS BIT(1)  /* set if E_LOOP must pass break/continue on */
 431 #define EF_FAKE_SIGDIE  BIT(2)  /* hack to get info from unwind to quitenv */
 432
 433 /* Do breaks/continues stop at env type e? */
 434 #define STOP_BRKCONT(t) ((t) == E_NONE || (t) == E_PARSE \
 435                          || (t) == E_FUNC || (t) == E_INCL)
 436 /* Do returns stop at env type e? */
 437 #define STOP_RETURN(t)  ((t) == E_FUNC || (t) == E_INCL)
 438
 439 /* values for ksh_siglongjmp(e->jbuf, 0) */
 440 #define LRETURN 1               /* return statement */
 441 #define LEXIT   2               /* exit statement */
 442 #define LERROR  3               /* errorf() called */
 443 #define LLEAVE  4               /* untrappable exit/error */
 444 #define LINTR   5               /* ^C noticed */
 445 #define LBREAK  6               /* break statement */
 446 #define LCONTIN 7               /* continue statement */
 447 #define LSHELL  8               /* return to interactive shell() */
 448 #define LAEXPR  9               /* error in arithmetic expression */
 449
 450 /* option processing */
 451 #define OF_CMDLINE      0x01    /* command line */
 452 #define OF_SET          0x02    /* set builtin */
 453 #define OF_SPECIAL      0x04    /* a special variable changing */
 454 #define OF_INTERNAL     0x08    /* set internally by shell */
 455 #define OF_ANY          (OF_CMDLINE | OF_SET | OF_SPECIAL | OF_INTERNAL)
 456
 457 struct option {
 458     const char  *name;  /* long name of option */
 459     char        c;      /* character flag (if any) */
 460     short       flags;  /* OF_* */
 461 };
 462 extern const struct option goptions[];
 463
 464 /*
 465  * flags (the order of these enums MUST match the order in misc.c(options[]))
 466  */
 467 enum sh_flag {
 468         FEXPORT = 0,    /* -a: export all */
 469 #ifdef BRACE_EXPAND
 470         FBRACEEXPAND,   /* enable {} globbing */
 471 #endif
 472         FBGNICE,        /* bgnice */
 473         FCOMMAND,       /* -c: (invocation) execute specified command */
 474 #ifdef EMACS
 475         FEMACS,         /* emacs command editing */
 476         FEMACSUSEMETA,  /* use 8th bit as meta */
 477 #endif
 478         FERREXIT,       /* -e: quit on error */
 479 #ifdef EMACS
 480         FGMACS,         /* gmacs command editing */
 481 #endif
 482         FIGNOREEOF,     /* eof does not exit */
 483         FTALKING,       /* -i: interactive */
 484         FKEYWORD,       /* -k: name=value anywhere */
 485         FLOGIN,         /* -l: a login shell */
 486         FMARKDIRS,      /* mark dirs with / in file name completion */
 487         FMONITOR,       /* -m: job control monitoring */
 488         FNOCLOBBER,     /* -C: don't overwrite existing files */
 489         FNOEXEC,        /* -n: don't execute any commands */
 490         FNOGLOB,        /* -f: don't do file globbing */
 491         FNOHUP,         /* -H: don't kill running jobs when login shell exits */
 492         FNOLOG,         /* don't save functions in history (ignored) */
 493 #ifdef  JOBS
 494         FNOTIFY,        /* -b: asynchronous job completion notification */
 495 #endif
 496         FNOUNSET,       /* -u: using an unset var is an error */
 497         FPHYSICAL,      /* -o physical: don't do logical cd's/pwd's */
 498         FPOSIX,         /* -o posix: be posixly correct */
 499         FPRIVILEGED,    /* -p: use suid_profile */
 500         FRESTRICTED,    /* -r: restricted shell */
 501         FSTDIN,         /* -s: (invocation) parse stdin */
 502         FTRACKALL,      /* -h: create tracked aliases for all commands */
 503         FVERBOSE,       /* -v: echo input */
 504 #ifdef VI
 505         FVI,            /* vi command editing */
 506         FVIRAW,         /* always read in raw mode (ignored) */
 507         FVISHOW8,       /* display chars with 8th bit set as is (versus M-) */
 508         FVITABCOMPLETE, /* enable tab as file name completion char */
 509         FVIESCCOMPLETE, /* enable ESC as file name completion in command mode */
 510 #endif
 511         FXTRACE,        /* -x: execution trace */
 512         FTALKING_I,     /* (internal): initial shell was interactive */
 513         FNFLAGS /* (place holder: how many flags are there) */
 514 };
 515
 516 #define Flag(f) (shell_flags[(int) (f)])
 517
 518 EXTERN  char shell_flags [FNFLAGS];
 519
 520 EXTERN  char    null [] I__("");        /* null value for variable */
 521 EXTERN  char    space [] I__(" ");
 522 EXTERN  char    newline [] I__("\n");
 523 EXTERN  char    slash [] I__("/");
 524
 525 enum temp_type {
 526     TT_HEREDOC_EXP,     /* expanded heredoc */
 527     TT_HIST_EDIT        /* temp file used for history editing (fc -e) */
 528 };
 529 typedef enum temp_type Temp_type;
 530 /* temp/heredoc files.  The file is removed when the struct is freed. */
 531 struct temp {
 532         struct temp     *next;
 533         struct shf      *shf;
 534         int             pid;            /* pid of process parsed here-doc */
 535         Temp_type       type;
 536         char            *name;
 537 };
 538
 539 /*
 540  * stdio and our IO routines
 541  */
 542
 543 #define shl_spare       (&shf_iob[0])   /* for c_read()/c_print() */
 544 #define shl_stdout      (&shf_iob[1])
 545 #define shl_out         (&shf_iob[2])
 546 EXTERN int shl_stdout_ok;
 547
 548 /*
 549  * trap handlers
 550  */
 551 typedef struct trap {
 552         int     signal;         /* signal number */
 553         const char *name;       /* short name */
 554         const char *mess;       /* descriptive name */
 555         char   *trap;           /* trap command */
 556         int     volatile set;   /* trap pending */
 557         int     flags;          /* TF_* */
 558         handler_t cursig;       /* current handler (valid if TF_ORIG_* set) */
 559         handler_t shtrap;       /* shell signal handler */
 560 } Trap;
 561
 562 /* values for Trap.flags */
 563 #define TF_SHELL_USES   BIT(0)  /* shell uses signal, user can't change */
 564 #define TF_USER_SET     BIT(1)  /* user has (tried to) set trap */
 565 #define TF_ORIG_IGN     BIT(2)  /* original action was SIG_IGN */
 566 #define TF_ORIG_DFL     BIT(3)  /* original action was SIG_DFL */
 567 #define TF_EXEC_IGN     BIT(4)  /* restore SIG_IGN just before exec */
 568 #define TF_EXEC_DFL     BIT(5)  /* restore SIG_DFL just before exec */
 569 #define TF_DFL_INTR     BIT(6)  /* when received, default action is LINTR */
 570 #define TF_TTY_INTR     BIT(7)  /* tty generated signal (see j_waitj) */
 571 #define TF_CHANGED      BIT(8)  /* used by runtrap() to detect trap changes */
 572 #define TF_FATAL        BIT(9)  /* causes termination if not trapped */
 573
 574 /* values for setsig()/setexecsig() flags argument */
 575 #define SS_RESTORE_MASK 0x3     /* how to restore a signal before an exec() */
 576 #define SS_RESTORE_CURR 0       /* leave current handler in place */
 577 #define SS_RESTORE_ORIG 1       /* restore original handler */
 578 #define SS_RESTORE_DFL  2       /* restore to SIG_DFL */
 579 #define SS_RESTORE_IGN  3       /* restore to SIG_IGN */
 580 #define SS_FORCE        BIT(3)  /* set signal even if original signal ignored */
 581 #define SS_USER         BIT(4)  /* user is doing the set (ie, trap command) */
 582 #define SS_SHTRAP       BIT(5)  /* trap for internal use (CHLD,ALRM,WINCH) */
 583
 584 #define SIGEXIT_        0       /* for trap EXIT */
 585 #define SIGERR_         SIGNALS /* for trap ERR */
 586
 587 EXTERN  int volatile trap;      /* traps pending? */
 588 EXTERN  int volatile intrsig;   /* pending trap interrupts executing command */
 589 EXTERN  int volatile fatal_trap;/* received a fatal signal */
 590 #ifndef FROM_TRAP_C
 591 /* Kludge to avoid bogus re-declaration of sigtraps[] error on AIX 3.2.5 */
 592 extern  Trap    sigtraps[SIGNALS+1];
 593 #endif /* !FROM_TRAP_C */
 594
 595 #ifdef KSH
 596 /*
 597  * TMOUT support
 598  */
 599 /* values for ksh_tmout_state */
 600 enum tmout_enum {
 601                 TMOUT_EXECUTING = 0,    /* executing commands */
 602                 TMOUT_READING,          /* waiting for input */
 603                 TMOUT_LEAVING           /* have timed out */
 604         };
 605 EXTERN unsigned int ksh_tmout;
 606 EXTERN enum tmout_enum ksh_tmout_state I__(TMOUT_EXECUTING);
 607 #endif /* KSH */
 608
 609 /* For "You have stopped jobs" message */
 610 EXTERN int really_exit;
 611
 612 /*
 613  * fast character classes
 614  */
 615 #define C_ALPHA  BIT(0)         /* a-z_A-Z */
 616 #define C_DIGIT  BIT(1)         /* 0-9 */
 617 #define C_LEX1   BIT(2)         /* \0 \t\n|&;<>() */
 618 #define C_VAR1   BIT(3)         /* *@#!$-? */
 619 #define C_IFSWS  BIT(4)         /* \t \n (IFS white space) */
 620 #define C_SUBOP1 BIT(5)         /* "=-+?" */
 621 #define C_SUBOP2 BIT(6)         /* "#%" */
 622 #define C_IFS    BIT(7)         /* $IFS */
 623 #define C_QUOTE  BIT(8)         /*  \n\t"#$&'()*;<>?[\`| (needing quoting) */
 624
 625 extern  short ctypes [];
 626
 627 #define ctype(c, t)     !!(ctypes[(unsigned char)(c)]&(t))
 628 #define letter(c)       ctype(c, C_ALPHA)
 629 #define digit(c)        ctype(c, C_DIGIT)
 630 #define letnum(c)       ctype(c, C_ALPHA|C_DIGIT)
 631
 632 EXTERN int ifs0 I__(' ');       /* for "$*" */
 633
 634 /* Argument parsing for built-in commands and getopts command */
 635
 636 /* Values for Getopt.flags */
 637 #define GF_ERROR        BIT(0)  /* call errorf() if there is an error */
 638 #define GF_PLUSOPT      BIT(1)  /* allow +c as an option */
 639 #define GF_NONAME       BIT(2)  /* don't print argv[0] in errors */
 640
 641 /* Values for Getopt.info */
 642 #define GI_MINUS        BIT(0)  /* an option started with -... */
 643 #define GI_PLUS         BIT(1)  /* an option started with +... */
 644 #define GI_MINUSMINUS   BIT(2)  /* arguments were ended with -- */
 645
 646 typedef struct {
 647         int             optind;
 648         int             uoptind;/* what user sees in $OPTIND */
 649         char            *optarg;
 650         int             flags;  /* see GF_* */
 651         int             info;   /* see GI_* */
 652         unsigned int    p;      /* 0 or index into argv[optind - 1] */
 653         char            buf[2]; /* for bad option OPTARG value */
 654 } Getopt;
 655
 656 EXTERN Getopt builtin_opt;      /* for shell builtin commands */
 657 EXTERN Getopt user_opt;         /* parsing state for getopts builtin command */
 658
 659 #ifdef KSH
 660 /* This for co-processes */
 661
 662 typedef INT32 Coproc_id; /* something that won't (realisticly) wrap */
 663 struct coproc {
 664         int     read;           /* pipe from co-process's stdout */
 665         int     readw;          /* other side of read (saved temporarily) */
 666         int     write;          /* pipe to co-process's stdin */
 667         Coproc_id id;           /* id of current output pipe */
 668         int     njobs;          /* number of live jobs using output pipe */
 669         void    *job;           /* 0 or job of co-process using input pipe */
 670 };
 671 EXTERN struct coproc coproc;
 672 #endif /* KSH */
 673
 674 /* Used in jobs.c and by coprocess stuff in exec.c */
 675 #ifdef JOB_SIGS
 676 EXTERN sigset_t         sm_default, sm_sigchld;
 677 #endif /* JOB_SIGS */
 678
 679 extern char ksh_version[];
 680
 681 /* name of called builtin function (used by error functions) */
 682 EXTERN char     *builtin_argv0;
 683 EXTERN Tflag    builtin_flag;   /* flags of called builtin (SPEC_BI, etc.) */
 684
 685 /* current working directory, and size of memory allocated for same */
 686 EXTERN char     *current_wd;
 687 EXTERN int      current_wd_size;
 688
 689 #ifdef EDIT
 690 /* Minimum required space to work with on a line - if the prompt leaves less
 691  * space than this on a line, the prompt is truncated.
 692  */
 693 # define MIN_EDIT_SPACE 7
 694 /* Minimum allowed value for x_cols: 2 for prompt, 3 for " < " at end of line
 695  */
 696 # define MIN_COLS       (2 + MIN_EDIT_SPACE + 3)
 697 EXTERN  int     x_cols I__(80); /* tty columns */
 698 #else
 699 # define x_cols 80              /* for pr_menu(exec.c) */
 700 #endif
 701
 702 /* These to avoid bracket matching problems */
 703 #define OPAREN  '('
 704 #define CPAREN  ')'
 705 #define OBRACK  '['
 706 #define CBRACK  ']'
 707 #define OBRACE  '{'
 708 #define CBRACE  '}'
 709
 710 /* Determine the location of the system (common) profile */
 711 #ifndef KSH_SYSTEM_PROFILE
 712 # ifdef __NeXT
 713 #  define KSH_SYSTEM_PROFILE "/etc/profile.std"
 714 # else /* __NeXT */
 715 #  define KSH_SYSTEM_PROFILE "/etc/profile"
 716 # endif /* __NeXT */
 717 #endif /* KSH_SYSTEM_PROFILE */
 718
 719 /* Used by v_evaluate() and setstr() to control action when error occurs */
 720 #define KSH_UNWIND_ERROR        0       /* unwind the stack (longjmp) */
 721 #define KSH_RETURN_ERROR        1       /* return 1/0 for success/failure */
 722
 723 #include "shf.h"
 724 #include "table.h"
 725 #include "tree.h"
 726 #include "expand.h"
 727 #include "lex.h"
 728 #include "proto.h"
 729
 730 /* be sure not to interfere with anyone else's idea about EXTERN */
 731 #ifdef EXTERN_DEFINED
 732 # undef EXTERN_DEFINED
 733 # undef EXTERN
 734 #endif
 735 #undef I__