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