1 /* $OpenBSD: sh.h,v 1.35 2015/09/10 22:48:58 nicm Exp $ */ 2 /* $OpenBSD: shf.h,v 1.6 2005/12/11 18:53:51 deraadt Exp $ */ 3 /* $OpenBSD: table.h,v 1.8 2012/02/19 07:52:30 otto Exp $ */ 4 /* $OpenBSD: tree.h,v 1.10 2005/03/28 21:28:22 deraadt Exp $ */ 5 /* $OpenBSD: expand.h,v 1.7 2015/09/01 13:12:31 tedu Exp $ */ 6 /* $OpenBSD: lex.h,v 1.13 2013/03/03 19:11:34 guenther Exp $ */ 7 /* $OpenBSD: proto.h,v 1.35 2013/09/04 15:49:19 millert Exp $ */ 8 /* $OpenBSD: c_test.h,v 1.4 2004/12/20 11:34:26 otto Exp $ */ 9 /* $OpenBSD: tty.h,v 1.5 2004/12/20 11:34:26 otto Exp $ */ 10 11 /*- 12 * Copyright © 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 13 * 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018 14 * mirabilos <m@mirbsd.org> 15 * 16 * Provided that these terms and disclaimer and all copyright notices 17 * are retained or reproduced in an accompanying document, permission 18 * is granted to deal in this work without restriction, including un‐ 19 * limited rights to use, publicly perform, distribute, sell, modify, 20 * merge, give away, or sublicence. 21 * 22 * This work is provided “AS IS” and WITHOUT WARRANTY of any kind, to 23 * the utmost extent permitted by applicable law, neither express nor 24 * implied; without malicious intent or gross negligence. In no event 25 * may a licensor, author or contributor be held liable for indirect, 26 * direct, other damage, loss, or other issues arising in any way out 27 * of dealing in the work, even if advised of the possibility of such 28 * damage or existence of a defect, except proven that it results out 29 * of said person’s immediate fault when using the work as intended. 30 */ 31 32 #ifdef __dietlibc__ 33 /* XXX imake style */ 34 #define _BSD_SOURCE /* live, BSD, live❣ */ 35 #endif 36 37 #if HAVE_SYS_PARAM_H 38 #include <sys/param.h> 39 #endif 40 #include <sys/types.h> 41 #if HAVE_BOTH_TIME_H 42 #include <sys/time.h> 43 #include <time.h> 44 #elif HAVE_SYS_TIME_H 45 #include <sys/time.h> 46 #elif HAVE_TIME_H 47 #include <time.h> 48 #endif 49 #include <sys/ioctl.h> 50 #if HAVE_SYS_SYSMACROS_H 51 #include <sys/sysmacros.h> 52 #endif 53 #if HAVE_SYS_MKDEV_H 54 #include <sys/mkdev.h> 55 #endif 56 #if HAVE_SYS_MMAN_H 57 #include <sys/mman.h> 58 #endif 59 #if HAVE_SYS_RESOURCE_H 60 #include <sys/resource.h> 61 #endif 62 #include <sys/stat.h> 63 #include <sys/wait.h> 64 #include <dirent.h> 65 #include <errno.h> 66 #include <fcntl.h> 67 #if HAVE_IO_H 68 #include <io.h> 69 #endif 70 #if HAVE_LIBGEN_H 71 #include <libgen.h> 72 #endif 73 #if HAVE_LIBUTIL_H 74 #include <libutil.h> 75 #endif 76 #include <limits.h> 77 #if HAVE_PATHS_H 78 #include <paths.h> 79 #endif 80 #include <pwd.h> 81 #include <setjmp.h> 82 #include <signal.h> 83 #include <stdarg.h> 84 #include <stddef.h> 85 #if HAVE_STDINT_H 86 #include <stdint.h> 87 #endif 88 #include <stdio.h> 89 #include <stdlib.h> 90 #include <string.h> 91 #if HAVE_STRINGS_H 92 #include <strings.h> 93 #endif 94 #if HAVE_TERMIOS_H 95 #include <termios.h> 96 #else 97 /* shudder… */ 98 #include <termio.h> 99 #endif 100 #ifdef _ISC_UNIX 101 /* XXX imake style */ 102 #include <sys/sioctl.h> 103 #endif 104 #if HAVE_ULIMIT_H 105 #include <ulimit.h> 106 #endif 107 #include <unistd.h> 108 #if HAVE_VALUES_H 109 #include <values.h> 110 #endif 111 #ifdef MIRBSD_BOOTFLOPPY 112 #include <wchar.h> 113 #endif 114 115 /* monkey-patch known-bad offsetof versions to quell a warning */ 116 #if (defined(__KLIBC__) || defined(__dietlibc__)) && \ 117 ((defined(__GNUC__) && (__GNUC__ > 3)) || defined(__NWCC__)) 118 #undef offsetof 119 #define offsetof(s, e) __builtin_offsetof(s, e) 120 #endif 121 122 #undef __attribute__ 123 #if HAVE_ATTRIBUTE_BOUNDED 124 #define MKSH_A_BOUNDED(x,y,z) __attribute__((__bounded__(x, y, z))) 125 #else 126 #define MKSH_A_BOUNDED(x,y,z) /* nothing */ 127 #endif 128 #if HAVE_ATTRIBUTE_FORMAT 129 #define MKSH_A_FORMAT(x,y,z) __attribute__((__format__(x, y, z))) 130 #else 131 #define MKSH_A_FORMAT(x,y,z) /* nothing */ 132 #endif 133 #if HAVE_ATTRIBUTE_NORETURN 134 #define MKSH_A_NORETURN __attribute__((__noreturn__)) 135 #else 136 #define MKSH_A_NORETURN /* nothing */ 137 #endif 138 #if HAVE_ATTRIBUTE_PURE 139 #define MKSH_A_PURE __attribute__((__pure__)) 140 #else 141 #define MKSH_A_PURE /* nothing */ 142 #endif 143 #if HAVE_ATTRIBUTE_UNUSED 144 #define MKSH_A_UNUSED __attribute__((__unused__)) 145 #else 146 #define MKSH_A_UNUSED /* nothing */ 147 #endif 148 #if HAVE_ATTRIBUTE_USED 149 #define MKSH_A_USED __attribute__((__used__)) 150 #else 151 #define MKSH_A_USED /* nothing */ 152 #endif 153 154 #if defined(MirBSD) && (MirBSD >= 0x09A1) && \ 155 defined(__ELF__) && defined(__GNUC__) && \ 156 !defined(__llvm__) && !defined(__NWCC__) 157 /* 158 * We got usable __IDSTRING __COPYRIGHT __RCSID __SCCSID macros 159 * which work for all cases; no need to redefine them using the 160 * "portable" macros from below when we might have the "better" 161 * gcc+ELF specific macros or other system dependent ones. 162 */ 163 #else 164 #undef __IDSTRING 165 #undef __IDSTRING_CONCAT 166 #undef __IDSTRING_EXPAND 167 #undef __COPYRIGHT 168 #undef __RCSID 169 #undef __SCCSID 170 #define __IDSTRING_CONCAT(l,p) __LINTED__ ## l ## _ ## p 171 #define __IDSTRING_EXPAND(l,p) __IDSTRING_CONCAT(l,p) 172 #ifdef MKSH_DONT_EMIT_IDSTRING 173 #define __IDSTRING(prefix, string) /* nothing */ 174 #else 175 #define __IDSTRING(prefix, string) \ 176 static const char __IDSTRING_EXPAND(__LINE__,prefix) [] \ 177 MKSH_A_USED = "@(""#)" #prefix ": " string 178 #endif 179 #define __COPYRIGHT(x) __IDSTRING(copyright,x) 180 #define __RCSID(x) __IDSTRING(rcsid,x) 181 #define __SCCSID(x) __IDSTRING(sccsid,x) 182 #endif 183 184 #ifdef EXTERN 185 __RCSID("$MirOS: src/bin/mksh/sh.h,v 1.858 2018/01/14 01:47:36 tg Exp $"); 186 #endif 187 #define MKSH_VERSION "R56 2018/01/14" 188 189 /* arithmetic types: C implementation */ 190 #if !HAVE_CAN_INTTYPES 191 #if !HAVE_CAN_UCBINTS 192 typedef signed int int32_t; 193 typedef unsigned int uint32_t; 194 #else 195 typedef u_int32_t uint32_t; 196 #endif 197 #endif 198 199 /* arithmetic types: shell arithmetics */ 200 #ifdef MKSH_LEGACY_MODE 201 /* 202 * POSIX demands these to be the C environment's long type 203 */ 204 typedef long mksh_ari_t; 205 typedef unsigned long mksh_uari_t; 206 #else 207 /* 208 * These types are exactly 32 bit wide; signed and unsigned 209 * integer wraparound, even across division and modulo, for 210 * any shell code using them, is guaranteed. 211 */ 212 typedef int32_t mksh_ari_t; 213 typedef uint32_t mksh_uari_t; 214 #endif 215 216 /* boolean type (no <stdbool.h> deliberately) */ 217 typedef unsigned char mksh_bool; 218 #undef bool 219 /* false MUST equal the same 0 as written by static storage initialisation */ 220 #undef false 221 #undef true 222 /* access macros for boolean type */ 223 #define bool mksh_bool 224 /* values must have identity mapping between mksh_bool and short */ 225 #define false 0 226 #define true 1 227 /* make any-type into bool or short */ 228 #define tobool(cond) ((cond) ? true : false) 229 230 /* char (octet) type: C implementation */ 231 #if !HAVE_CAN_INT8TYPE 232 #if !HAVE_CAN_UCBINT8 233 typedef unsigned char uint8_t; 234 #else 235 typedef u_int8_t uint8_t; 236 #endif 237 #endif 238 239 /* other standard types */ 240 241 #if !HAVE_RLIM_T 242 typedef unsigned long rlim_t; 243 #endif 244 245 #if !HAVE_SIG_T 246 #undef sig_t 247 typedef void (*sig_t)(int); 248 #endif 249 250 #ifdef MKSH_TYPEDEF_SIG_ATOMIC_T 251 typedef MKSH_TYPEDEF_SIG_ATOMIC_T sig_atomic_t; 252 #endif 253 254 #ifdef MKSH_TYPEDEF_SSIZE_T 255 typedef MKSH_TYPEDEF_SSIZE_T ssize_t; 256 #endif 257 258 /* un-do vendor damage */ 259 260 #undef BAD /* AIX defines that somewhere */ 261 #undef PRINT /* LynxOS defines that somewhere */ 262 #undef flock /* SCO UnixWare defines that to flock64 but ENOENT */ 263 264 265 #ifndef MKSH_INCLUDES_ONLY 266 267 /* EBCDIC fun */ 268 269 /* see the large comment in shf.c for an EBCDIC primer */ 270 271 #if defined(MKSH_FOR_Z_OS) && defined(__MVS__) && defined(__IBMC__) && defined(__CHARSET_LIB) 272 # if !__CHARSET_LIB && !defined(MKSH_EBCDIC) 273 # error "Please compile with Build.sh -E for EBCDIC!" 274 # endif 275 # if __CHARSET_LIB && defined(MKSH_EBCDIC) 276 # error "Please compile without -E argument to Build.sh for ASCII!" 277 # endif 278 # if __CHARSET_LIB && !defined(_ENHANCED_ASCII_EXT) 279 /* go all-out on ASCII */ 280 # define _ENHANCED_ASCII_EXT 0xFFFFFFFF 281 # endif 282 #endif 283 284 /* extra types */ 285 286 /* getrusage does not exist on OS/2 kLIBC */ 287 #if !HAVE_GETRUSAGE && !defined(__OS2__) 288 #undef rusage 289 #undef RUSAGE_SELF 290 #undef RUSAGE_CHILDREN 291 #define rusage mksh_rusage 292 #define RUSAGE_SELF 0 293 #define RUSAGE_CHILDREN -1 294 295 struct rusage { 296 struct timeval ru_utime; 297 struct timeval ru_stime; 298 }; 299 #endif 300 301 /* extra macros */ 302 303 #ifndef timerclear 304 #define timerclear(tvp) \ 305 do { \ 306 (tvp)->tv_sec = (tvp)->tv_usec = 0; \ 307 } while (/* CONSTCOND */ 0) 308 #endif 309 #ifndef timeradd 310 #define timeradd(tvp, uvp, vvp) \ 311 do { \ 312 (vvp)->tv_sec = (tvp)->tv_sec + (uvp)->tv_sec; \ 313 (vvp)->tv_usec = (tvp)->tv_usec + (uvp)->tv_usec; \ 314 if ((vvp)->tv_usec >= 1000000) { \ 315 (vvp)->tv_sec++; \ 316 (vvp)->tv_usec -= 1000000; \ 317 } \ 318 } while (/* CONSTCOND */ 0) 319 #endif 320 #ifndef timersub 321 #define timersub(tvp, uvp, vvp) \ 322 do { \ 323 (vvp)->tv_sec = (tvp)->tv_sec - (uvp)->tv_sec; \ 324 (vvp)->tv_usec = (tvp)->tv_usec - (uvp)->tv_usec; \ 325 if ((vvp)->tv_usec < 0) { \ 326 (vvp)->tv_sec--; \ 327 (vvp)->tv_usec += 1000000; \ 328 } \ 329 } while (/* CONSTCOND */ 0) 330 #endif 331 332 #ifdef MKSH__NO_PATH_MAX 333 #undef PATH_MAX 334 #else 335 #ifndef PATH_MAX 336 #ifdef MAXPATHLEN 337 #define PATH_MAX MAXPATHLEN 338 #else 339 #define PATH_MAX 1024 340 #endif 341 #endif 342 #endif 343 #ifndef SIZE_MAX 344 #ifdef SIZE_T_MAX 345 #define SIZE_MAX SIZE_T_MAX 346 #else 347 #define SIZE_MAX ((size_t)-1) 348 #endif 349 #endif 350 #ifndef S_ISLNK 351 #define S_ISLNK(m) ((m & 0170000) == 0120000) 352 #endif 353 #ifndef S_ISSOCK 354 #define S_ISSOCK(m) ((m & 0170000) == 0140000) 355 #endif 356 #if !defined(S_ISCDF) && defined(S_CDF) 357 #define S_ISCDF(m) (S_ISDIR(m) && ((m) & S_CDF)) 358 #endif 359 #ifndef DEFFILEMODE 360 #define DEFFILEMODE (S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH) 361 #endif 362 363 364 /* determine ksh_NSIG: first, use the traditional definitions */ 365 #undef ksh_NSIG 366 #if defined(NSIG) 367 #define ksh_NSIG (NSIG) 368 #elif defined(_NSIG) 369 #define ksh_NSIG (_NSIG) 370 #elif defined(SIGMAX) 371 #define ksh_NSIG (SIGMAX + 1) 372 #elif defined(_SIGMAX) 373 #define ksh_NSIG (_SIGMAX + 1) 374 #elif defined(NSIG_MAX) 375 #define ksh_NSIG (NSIG_MAX) 376 #elif defined(MKSH_FOR_Z_OS) 377 #define ksh_NSIG 40 378 #else 379 # error Please have your platform define NSIG. 380 #endif 381 /* range-check them */ 382 #if (ksh_NSIG < 1) 383 # error Your NSIG value is not positive. 384 #undef ksh_NSIG 385 #endif 386 /* second, see if the new POSIX definition is available */ 387 #ifdef NSIG_MAX 388 #if (NSIG_MAX < 2) 389 /* and usable */ 390 # error Your NSIG_MAX value is too small. 391 #undef NSIG_MAX 392 #elif (ksh_NSIG > NSIG_MAX) 393 /* and realistic */ 394 # error Your NSIG value is larger than your NSIG_MAX value. 395 #undef NSIG_MAX 396 #else 397 /* since it’s usable, prefer it */ 398 #undef ksh_NSIG 399 #define ksh_NSIG (NSIG_MAX) 400 #endif 401 /* if NSIG_MAX is now still defined, use sysconf(_SC_NSIG) at runtime */ 402 #endif 403 /* third, for cpp without the error directive, default */ 404 #ifndef ksh_NSIG 405 #define ksh_NSIG 64 406 #endif 407 408 #define ksh_sigmask(sig) (((sig) < 1 || (sig) > 127) ? 255 : 128 + (sig)) 409 410 411 /* OS-dependent additions (functions, variables, by OS) */ 412 413 #ifdef MKSH_EXE_EXT 414 #undef MKSH_EXE_EXT 415 #define MKSH_EXE_EXT ".exe" 416 #else 417 #define MKSH_EXE_EXT "" 418 #endif 419 420 #ifdef __OS2__ 421 #define MKSH_UNIXROOT "/@unixroot" 422 #else 423 #define MKSH_UNIXROOT "" 424 #endif 425 426 #ifdef MKSH_DOSPATH 427 #ifndef __GNUC__ 428 # error GCC extensions needed later on 429 #endif 430 #define MKSH_PATHSEPS ";" 431 #define MKSH_PATHSEPC ';' 432 #else 433 #define MKSH_PATHSEPS ":" 434 #define MKSH_PATHSEPC ':' 435 #endif 436 437 #if !HAVE_FLOCK_DECL 438 extern int flock(int, int); 439 #endif 440 441 #if !HAVE_GETTIMEOFDAY 442 #define mksh_TIME(tv) do { \ 443 (tv).tv_usec = 0; \ 444 (tv).tv_sec = time(NULL); \ 445 } while (/* CONSTCOND */ 0) 446 #else 447 #define mksh_TIME(tv) gettimeofday(&(tv), NULL) 448 #endif 449 450 #if !HAVE_GETRUSAGE 451 extern int getrusage(int, struct rusage *); 452 #endif 453 454 #if !HAVE_MEMMOVE 455 /* we assume either memmove or bcopy exist, at the moment */ 456 #define memmove(dst, src, len) bcopy((src), (dst), (len)) 457 #endif 458 459 #if !HAVE_REVOKE_DECL 460 extern int revoke(const char *); 461 #endif 462 463 #if defined(DEBUG) || !HAVE_STRERROR 464 #undef strerror 465 #define strerror /* poisoned */ dontuse_strerror 466 #define cstrerror /* replaced */ cstrerror 467 extern const char *cstrerror(int); 468 #else 469 #define cstrerror(errnum) ((const char *)strerror(errnum)) 470 #endif 471 472 #if !HAVE_STRLCPY 473 size_t strlcpy(char *, const char *, size_t); 474 #endif 475 476 #ifdef __INTERIX 477 /* XXX imake style */ 478 #define makedev mkdev 479 extern int __cdecl seteuid(uid_t); 480 extern int __cdecl setegid(gid_t); 481 #endif 482 483 #if defined(__COHERENT__) 484 #ifndef O_ACCMODE 485 /* this need not work everywhere, take care */ 486 #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) 487 #endif 488 #endif 489 490 #ifndef O_BINARY 491 #define O_BINARY 0 492 #endif 493 494 #ifdef MKSH__NO_SYMLINK 495 #undef S_ISLNK 496 #define S_ISLNK(m) (/* CONSTCOND */ 0) 497 #define mksh_lstat stat 498 #else 499 #define mksh_lstat lstat 500 #endif 501 502 #if HAVE_TERMIOS_H 503 #define mksh_ttyst struct termios 504 #define mksh_tcget(fd,st) tcgetattr((fd), (st)) 505 #define mksh_tcset(fd,st) tcsetattr((fd), TCSADRAIN, (st)) 506 #else 507 #define mksh_ttyst struct termio 508 #define mksh_tcget(fd,st) ioctl((fd), TCGETA, (st)) 509 #define mksh_tcset(fd,st) ioctl((fd), TCSETAW, (st)) 510 #endif 511 512 #ifndef ISTRIP 513 #define ISTRIP 0 514 #endif 515 516 #ifdef MKSH_EBCDIC 517 #define KSH_BEL '\a' 518 #define KSH_ESC 047 519 #define KSH_ESC_STRING "\047" 520 #define KSH_VTAB '\v' 521 #else 522 /* 523 * According to the comments in pdksh, \007 seems to be more portable 524 * than \a (HP-UX cc, Ultrix cc, old pcc, etc.) so we avoid the escape 525 * sequence if ASCII can be assumed. 526 */ 527 #define KSH_BEL 7 528 #define KSH_ESC 033 529 #define KSH_ESC_STRING "\033" 530 #define KSH_VTAB 11 531 #endif 532 533 534 /* some useful #defines */ 535 #ifdef EXTERN 536 # define E_INIT(i) = i 537 #else 538 # define E_INIT(i) 539 # define EXTERN extern 540 # define EXTERN_DEFINED 541 #endif 542 543 /* define bit in flag */ 544 #define BIT(i) (1U << (i)) 545 #define NELEM(a) (sizeof(a) / sizeof((a)[0])) 546 547 /* 548 * Make MAGIC a char that might be printed to make bugs more obvious, but 549 * not a char that is used often. Also, can't use the high bit as it causes 550 * portability problems (calling strchr(x, 0x80 | 'x') is error prone). 551 * 552 * MAGIC can be followed by MAGIC (to escape the octet itself) or one of: 553 * ' !)*,-?[]{|}' 0x80|' !*+?@' (probably… hysteric raisins abound) 554 * 555 * The |0x80 is likely unsafe on EBCDIC :( though the listed chars are 556 * low-bit7 at least on cp1047 so YMMV 557 */ 558 #define MAGIC KSH_BEL /* prefix for *?[!{,} during expand */ 559 #define ISMAGIC(c) (ord(c) == ORD(MAGIC)) 560 561 EXTERN const char *safe_prompt; /* safe prompt if PS1 substitution fails */ 562 563 #ifdef MKSH_LEGACY_MODE 564 #define KSH_VERSIONNAME_ISLEGACY "LEGACY" 565 #else 566 #define KSH_VERSIONNAME_ISLEGACY "MIRBSD" 567 #endif 568 #ifdef MKSH_WITH_TEXTMODE 569 #define KSH_VERSIONNAME_TEXTMODE " +TEXTMODE" 570 #else 571 #define KSH_VERSIONNAME_TEXTMODE "" 572 #endif 573 #ifdef MKSH_EBCDIC 574 #define KSH_VERSIONNAME_EBCDIC " +EBCDIC" 575 #else 576 #define KSH_VERSIONNAME_EBCDIC "" 577 #endif 578 #ifndef KSH_VERSIONNAME_VENDOR_EXT 579 #define KSH_VERSIONNAME_VENDOR_EXT "" 580 #endif 581 EXTERN const char initvsn[] E_INIT("KSH_VERSION=@(#)" KSH_VERSIONNAME_ISLEGACY \ 582 " KSH " MKSH_VERSION KSH_VERSIONNAME_EBCDIC KSH_VERSIONNAME_TEXTMODE \ 583 KSH_VERSIONNAME_VENDOR_EXT); 584 #define KSH_VERSION (initvsn + /* "KSH_VERSION=@(#)" */ 16) 585 586 EXTERN const char digits_uc[] E_INIT("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"); 587 EXTERN const char digits_lc[] E_INIT("0123456789abcdefghijklmnopqrstuvwxyz"); 588 589 /* 590 * Evil hack for const correctness due to API brokenness 591 */ 592 union mksh_cchack { 593 char *rw; 594 const char *ro; 595 }; 596 union mksh_ccphack { 597 char **rw; 598 const char **ro; 599 }; 600 601 /* 602 * Evil hack since casting uint to sint is implementation-defined 603 */ 604 typedef union { 605 mksh_ari_t i; 606 mksh_uari_t u; 607 } mksh_ari_u; 608 609 /* for const debugging */ 610 #if defined(DEBUG) && defined(__GNUC__) && !defined(__ICC) && \ 611 !defined(__INTEL_COMPILER) && !defined(__SUNPRO_C) 612 char *ucstrchr(char *, int); 613 char *ucstrstr(char *, const char *); 614 #undef strchr 615 #define strchr ucstrchr 616 #define strstr ucstrstr 617 #define cstrchr(s,c) ({ \ 618 union mksh_cchack in, out; \ 619 \ 620 in.ro = (s); \ 621 out.rw = ucstrchr(in.rw, (c)); \ 622 (out.ro); \ 623 }) 624 #define cstrstr(b,l) ({ \ 625 union mksh_cchack in, out; \ 626 \ 627 in.ro = (b); \ 628 out.rw = ucstrstr(in.rw, (l)); \ 629 (out.ro); \ 630 }) 631 #define vstrchr(s,c) (cstrchr((s), (c)) != NULL) 632 #define vstrstr(b,l) (cstrstr((b), (l)) != NULL) 633 #else /* !DEBUG, !gcc */ 634 #define cstrchr(s,c) ((const char *)strchr((s), (c))) 635 #define cstrstr(s,c) ((const char *)strstr((s), (c))) 636 #define vstrchr(s,c) (strchr((s), (c)) != NULL) 637 #define vstrstr(b,l) (strstr((b), (l)) != NULL) 638 #endif 639 640 #if defined(DEBUG) || defined(__COVERITY__) 641 #ifndef DEBUG_LEAKS 642 #define DEBUG_LEAKS 643 #endif 644 #endif 645 646 #if (!defined(MKSH_BUILDMAKEFILE4BSD) && !defined(MKSH_BUILDSH)) || (MKSH_BUILD_R != 563) 647 #error Must run Build.sh to compile this. 648 extern void thiswillneverbedefinedIhope(void); 649 int 650 im_sorry_dave(void) 651 { 652 /* I’m sorry, Dave. I’m afraid I can’t do that. */ 653 return (thiswillneverbedefinedIhope()); 654 } 655 #endif 656 657 /* use this ipv strchr(s, 0) but no side effects in s! */ 658 #define strnul(s) ((s) + strlen((const void *)s)) 659 660 #define utf_ptradjx(src, dst) do { \ 661 (dst) = (src) + utf_ptradj(src); \ 662 } while (/* CONSTCOND */ 0) 663 664 #if defined(MKSH_SMALL) && !defined(MKSH_SMALL_BUT_FAST) 665 #define strdupx(d, s, ap) do { \ 666 (d) = strdup_i((s), (ap)); \ 667 } while (/* CONSTCOND */ 0) 668 #define strndupx(d, s, n, ap) do { \ 669 (d) = strndup_i((s), (n), (ap)); \ 670 } while (/* CONSTCOND */ 0) 671 #else 672 /* be careful to evaluate arguments only once! */ 673 #define strdupx(d, s, ap) do { \ 674 const char *strdup_src = (const void *)(s); \ 675 char *strdup_dst = NULL; \ 676 \ 677 if (strdup_src != NULL) { \ 678 size_t strdup_len = strlen(strdup_src) + 1; \ 679 strdup_dst = alloc(strdup_len, (ap)); \ 680 memcpy(strdup_dst, strdup_src, strdup_len); \ 681 } \ 682 (d) = strdup_dst; \ 683 } while (/* CONSTCOND */ 0) 684 #define strndupx(d, s, n, ap) do { \ 685 const char *strdup_src = (const void *)(s); \ 686 char *strdup_dst = NULL; \ 687 \ 688 if (strdup_src != NULL) { \ 689 size_t strndup_len = (n); \ 690 strdup_dst = alloc(strndup_len + 1, (ap)); \ 691 memcpy(strdup_dst, strdup_src, strndup_len); \ 692 strdup_dst[strndup_len] = '\0'; \ 693 } \ 694 (d) = strdup_dst; \ 695 } while (/* CONSTCOND */ 0) 696 #endif 697 698 #ifdef MKSH_SMALL 699 #ifndef MKSH_NOPWNAM 700 #define MKSH_NOPWNAM /* defined */ 701 #endif 702 #ifndef MKSH_S_NOVI 703 #define MKSH_S_NOVI 1 704 #endif 705 #endif 706 707 #ifndef MKSH_S_NOVI 708 #define MKSH_S_NOVI 0 709 #endif 710 711 #if defined(MKSH_NOPROSPECTOFWORK) && !defined(MKSH_UNEMPLOYED) 712 #define MKSH_UNEMPLOYED 1 713 #endif 714 715 #define NUFILE 32 /* Number of user-accessible files */ 716 #define FDBASE 10 /* First file usable by Shell */ 717 718 /* 719 * simple grouping allocator 720 */ 721 722 723 /* 0. OS API: where to get memory from and how to free it (grouped) */ 724 725 /* malloc(3)/realloc(3) -> free(3) for use by the memory allocator */ 726 #define malloc_osi(sz) malloc(sz) 727 #define realloc_osi(p,sz) realloc((p), (sz)) 728 #define free_osimalloc(p) free(p) 729 730 /* malloc(3)/realloc(3) -> free(3) for use by mksh code */ 731 #define malloc_osfunc(sz) malloc(sz) 732 #define realloc_osfunc(p,sz) realloc((p), (sz)) 733 #define free_osfunc(p) free(p) 734 735 #if HAVE_MKNOD 736 /* setmode(3) -> free(3) */ 737 #define free_ossetmode(p) free(p) 738 #endif 739 740 #ifdef MKSH__NO_PATH_MAX 741 /* GNU libc: get_current_dir_name(3) -> free(3) */ 742 #define free_gnu_gcdn(p) free(p) 743 #endif 744 745 746 /* 1. internal structure */ 747 struct lalloc_common { 748 struct lalloc_common *next; 749 }; 750 751 #ifdef MKSH_ALLOC_CATCH_UNDERRUNS 752 struct lalloc_item { 753 struct lalloc_common *next; 754 size_t len; 755 char dummy[8192 - sizeof(struct lalloc_common *) - sizeof(size_t)]; 756 }; 757 #endif 758 759 /* 2. sizes */ 760 #ifdef MKSH_ALLOC_CATCH_UNDERRUNS 761 #define ALLOC_ITEM struct lalloc_item 762 #define ALLOC_OVERHEAD 0 763 #else 764 #define ALLOC_ITEM struct lalloc_common 765 #define ALLOC_OVERHEAD (sizeof(ALLOC_ITEM)) 766 #endif 767 768 /* 3. group structure */ 769 typedef struct lalloc_common Area; 770 771 772 EXTERN Area aperm; /* permanent object space */ 773 #define APERM &aperm 774 #define ATEMP &e->area 775 776 /* 777 * flags (the order of these enums MUST match the order in misc.c(options[])) 778 */ 779 enum sh_flag { 780 #define SHFLAGS_ENUMS 781 #include "sh_flags.gen" 782 FNFLAGS /* (place holder: how many flags are there) */ 783 }; 784 785 #define Flag(f) (shell_flags[(int)(f)]) 786 #define UTFMODE Flag(FUNICODE) 787 788 /* 789 * parsing & execution environment 790 * 791 * note that kshlongjmp MUST NOT be passed 0 as second argument! 792 */ 793 #ifdef MKSH_NO_SIGSETJMP 794 #define kshjmp_buf jmp_buf 795 #define kshsetjmp(jbuf) _setjmp(jbuf) 796 #define kshlongjmp _longjmp 797 #else 798 #define kshjmp_buf sigjmp_buf 799 #define kshsetjmp(jbuf) sigsetjmp((jbuf), 0) 800 #define kshlongjmp siglongjmp 801 #endif 802 803 struct sretrace_info; 804 struct yyrecursive_state; 805 806 EXTERN struct sretrace_info *retrace_info; 807 EXTERN unsigned int subshell_nesting_type; 808 809 extern struct env { 810 ALLOC_ITEM alloc_INT; /* internal, do not touch */ 811 Area area; /* temporary allocation area */ 812 struct env *oenv; /* link to previous environment */ 813 struct block *loc; /* local variables and functions */ 814 short *savefd; /* original redirected fds */ 815 struct temp *temps; /* temp files */ 816 /* saved parser recursion state */ 817 struct yyrecursive_state *yyrecursive_statep; 818 kshjmp_buf jbuf; /* long jump back to env creator */ 819 uint8_t type; /* environment type - see below */ 820 uint8_t flags; /* EF_* */ 821 } *e; 822 823 /* struct env.type values */ 824 #define E_NONE 0 /* dummy environment */ 825 #define E_PARSE 1 /* parsing command # */ 826 #define E_FUNC 2 /* executing function # */ 827 #define E_INCL 3 /* including a file via . # */ 828 #define E_EXEC 4 /* executing command tree */ 829 #define E_LOOP 5 /* executing for/while # */ 830 #define E_ERRH 6 /* general error handler # */ 831 #define E_GONE 7 /* hidden in child */ 832 #define E_EVAL 8 /* running eval # */ 833 /* # indicates env has valid jbuf (see unwind()) */ 834 835 /* struct env.flag values */ 836 #define EF_BRKCONT_PASS BIT(1) /* set if E_LOOP must pass break/continue on */ 837 #define EF_FAKE_SIGDIE BIT(2) /* hack to get info from unwind to quitenv */ 838 839 /* Do breaks/continues stop at env type e? */ 840 #define STOP_BRKCONT(t) ((t) == E_NONE || (t) == E_PARSE || \ 841 (t) == E_FUNC || (t) == E_INCL) 842 /* Do returns stop at env type e? */ 843 #define STOP_RETURN(t) ((t) == E_FUNC || (t) == E_INCL) 844 845 /* values for kshlongjmp(e->jbuf, i) */ 846 /* note that i MUST NOT be zero */ 847 #define LRETURN 1 /* return statement */ 848 #define LEXIT 2 /* exit statement */ 849 #define LERROR 3 /* errorf() called */ 850 #define LLEAVE 4 /* untrappable exit/error */ 851 #define LINTR 5 /* ^C noticed */ 852 #define LBREAK 6 /* break statement */ 853 #define LCONTIN 7 /* continue statement */ 854 #define LSHELL 8 /* return to interactive shell() */ 855 #define LAEXPR 9 /* error in arithmetic expression */ 856 857 /* sort of shell global state */ 858 EXTERN pid_t procpid; /* PID of executing process */ 859 EXTERN int exstat; /* exit status */ 860 EXTERN int subst_exstat; /* exit status of last $(..)/`..` */ 861 EXTERN struct tbl *vp_pipest; /* global PIPESTATUS array */ 862 EXTERN short trap_exstat; /* exit status before running a trap */ 863 EXTERN uint8_t trap_nested; /* running nested traps */ 864 EXTERN uint8_t shell_flags[FNFLAGS]; 865 EXTERN const char *kshname; /* $0 */ 866 EXTERN struct { 867 uid_t kshuid_v; /* real UID of shell */ 868 uid_t ksheuid_v; /* effective UID of shell */ 869 gid_t kshgid_v; /* real GID of shell */ 870 gid_t kshegid_v; /* effective GID of shell */ 871 pid_t kshpgrp_v; /* process group of shell */ 872 pid_t kshppid_v; /* PID of parent of shell */ 873 pid_t kshpid_v; /* $$, shell PID */ 874 } rndsetupstate; 875 876 #define kshpid rndsetupstate.kshpid_v 877 #define kshpgrp rndsetupstate.kshpgrp_v 878 #define kshuid rndsetupstate.kshuid_v 879 #define ksheuid rndsetupstate.ksheuid_v 880 #define kshgid rndsetupstate.kshgid_v 881 #define kshegid rndsetupstate.kshegid_v 882 #define kshppid rndsetupstate.kshppid_v 883 884 885 /* option processing */ 886 #define OF_CMDLINE 0x01 /* command line */ 887 #define OF_SET 0x02 /* set builtin */ 888 #define OF_SPECIAL 0x04 /* a special variable changing */ 889 #define OF_INTERNAL 0x08 /* set internally by shell */ 890 #define OF_FIRSTTIME 0x10 /* as early as possible, once */ 891 #define OF_ANY (OF_CMDLINE | OF_SET | OF_SPECIAL | OF_INTERNAL) 892 893 /* null value for variable; comparison pointer for unset */ 894 EXTERN char null[] E_INIT(""); 895 896 /* string pooling: do we rely on the compiler? */ 897 #ifndef HAVE_STRING_POOLING 898 /* no, we use our own, saves quite some space */ 899 #elif HAVE_STRING_POOLING == 2 900 /* “on demand” */ 901 #ifdef __GNUC__ 902 /* only for GCC 4 or later, older ones can get by without */ 903 #if __GNUC__ < 4 904 #undef HAVE_STRING_POOLING 905 #endif 906 #else 907 /* not GCC, default to on */ 908 #endif 909 #elif HAVE_STRING_POOLING == 0 910 /* default to on, unless explicitly set to 0 */ 911 #undef HAVE_STRING_POOLING 912 #endif 913 914 #ifndef HAVE_STRING_POOLING /* helpers for pooled strings */ 915 EXTERN const char T4spaces[] E_INIT(" "); 916 #define T1space (Treal_sp2 + 5) 917 #define Tcolsp (Tf_sD_ + 2) 918 #define TC_IFSWS (TinitIFS + 4) 919 EXTERN const char TinitIFS[] E_INIT("IFS= \t\n"); 920 EXTERN const char TFCEDIT_dollaru[] E_INIT("${FCEDIT:-/bin/ed} $_"); 921 #define Tspdollaru (TFCEDIT_dollaru + 18) 922 EXTERN const char Tsgdot[] E_INIT("*=."); 923 EXTERN const char Taugo[] E_INIT("augo"); 924 EXTERN const char Tbracket[] E_INIT("["); 925 #define Tdot (Tsgdot + 2) 926 #define Talias (Tunalias + 2) 927 EXTERN const char Tbadnum[] E_INIT("bad number"); 928 #define Tbadsubst (Tfg_badsubst + 10) 929 EXTERN const char Tbg[] E_INIT("bg"); 930 EXTERN const char Tbad_bsize[] E_INIT("bad shf/buf/bsize"); 931 #define Tbsize (Tbad_bsize + 12) 932 EXTERN const char Tbad_sig_ss[] E_INIT("%s: bad signal '%s'"); 933 #define Tbad_sig_s (Tbad_sig_ss + 4) 934 EXTERN const char Tsgbreak[] E_INIT("*=break"); 935 #define Tbreak (Tsgbreak + 2) 936 EXTERN const char T__builtin[] E_INIT("-\\builtin"); 937 #define T_builtin (T__builtin + 1) 938 #define Tbuiltin (T__builtin + 2) 939 EXTERN const char Toomem[] E_INIT("can't allocate %zu data bytes"); 940 EXTERN const char Tcant_cd[] E_INIT("restricted shell - can't cd"); 941 EXTERN const char Tcant_find[] E_INIT("can't find"); 942 EXTERN const char Tcant_open[] E_INIT("can't open"); 943 #define Tbytes (Toomem + 24) 944 EXTERN const char Tbcat[] E_INIT("!cat"); 945 #define Tcat (Tbcat + 1) 946 #define Tcd (Tcant_cd + 25) 947 #define T_command (T_funny_command + 9) 948 #define Tcommand (T_funny_command + 10) 949 EXTERN const char Tsgcontinue[] E_INIT("*=continue"); 950 #define Tcontinue (Tsgcontinue + 2) 951 EXTERN const char Tcreate[] E_INIT("create"); 952 EXTERN const char TELIF_unexpected[] E_INIT("TELIF unexpected"); 953 EXTERN const char TEXECSHELL[] E_INIT("EXECSHELL"); 954 EXTERN const char Tdsgexport[] E_INIT("^*=export"); 955 #define Texport (Tdsgexport + 3) 956 #ifdef __OS2__ 957 EXTERN const char Textproc[] E_INIT("extproc"); 958 #endif 959 EXTERN const char Tfalse[] E_INIT("false"); 960 EXTERN const char Tfg[] E_INIT("fg"); 961 EXTERN const char Tfg_badsubst[] E_INIT("fileglob: bad substitution"); 962 #define Tfile (Tfile_fd + 20) 963 EXTERN const char Tfile_fd[] E_INIT("function definition file"); 964 EXTERN const char TFPATH[] E_INIT("FPATH"); 965 EXTERN const char T_function[] E_INIT(" function"); 966 #define Tfunction (T_function + 1) 967 EXTERN const char T_funny_command[] E_INIT("funny $()-command"); 968 EXTERN const char Tgetopts[] E_INIT("getopts"); 969 #define Thistory (Tnot_in_history + 7) 970 EXTERN const char Tintovfl[] E_INIT("integer overflow %zu %c %zu prevented"); 971 EXTERN const char Tinvname[] E_INIT("%s: invalid %s name"); 972 EXTERN const char Tjobs[] E_INIT("jobs"); 973 EXTERN const char Tjob_not_started[] E_INIT("job not started"); 974 EXTERN const char Tmksh[] E_INIT("mksh"); 975 #define Tname (Tinvname + 15) 976 EXTERN const char Tno_args[] E_INIT("missing argument"); 977 EXTERN const char Tno_OLDPWD[] E_INIT("no OLDPWD"); 978 EXTERN const char Tnot_ident[] E_INIT("is not an identifier"); 979 EXTERN const char Tnot_in_history[] E_INIT("not in history"); 980 EXTERN const char Tnot_found_s[] E_INIT("%s not found"); 981 #define Tnot_found (Tnot_found_s + 3) 982 #define Tnot_started (Tjob_not_started + 4) 983 #define TOLDPWD (Tno_OLDPWD + 3) 984 #define Topen (Tcant_open + 6) 985 #define TPATH (TFPATH + 1) 986 #define Tpv (TpVv + 1) 987 EXTERN const char TpVv[] E_INIT("Vpv"); 988 #define TPWD (Tno_OLDPWD + 6) 989 #define Tread (Tshf_read + 4) 990 EXTERN const char Tdsgreadonly[] E_INIT("^*=readonly"); 991 #define Treadonly (Tdsgreadonly + 3) 992 EXTERN const char Tredirection_dup[] E_INIT("can't finish (dup) redirection"); 993 #define Tredirection (Tredirection_dup + 19) 994 #define Treal_sp1 (Treal_sp2 + 1) 995 EXTERN const char Treal_sp2[] E_INIT(" real "); 996 EXTERN const char Treq_arg[] E_INIT("requires an argument"); 997 EXTERN const char Tselect[] E_INIT("select"); 998 EXTERN const char Tsgset[] E_INIT("*=set"); 999 #define Tset (Tf_parm + 18) 1000 #define Tsh (Tmksh + 2) 1001 #define TSHELL (TEXECSHELL + 4) 1002 #define Tshell (Ttoo_many_files + 23) 1003 EXTERN const char Tshf_read[] E_INIT("shf_read"); 1004 EXTERN const char Tshf_write[] E_INIT("shf_write"); 1005 EXTERN const char Tgsource[] E_INIT("=source"); 1006 #define Tsource (Tgsource + 1) 1007 EXTERN const char Tj_suspend[] E_INIT("j_suspend"); 1008 #define Tsuspend (Tj_suspend + 2) 1009 EXTERN const char Tsynerr[] E_INIT("syntax error"); 1010 EXTERN const char Ttime[] E_INIT("time"); 1011 EXTERN const char Ttoo_many_args[] E_INIT("too many arguments"); 1012 EXTERN const char Ttoo_many_files[] E_INIT("too many open files in shell"); 1013 EXTERN const char Ttrue[] E_INIT("true"); 1014 EXTERN const char Ttty_fd_dupof[] E_INIT("dup of tty fd"); 1015 #define Ttty_fd (Ttty_fd_dupof + 7) 1016 EXTERN const char Tdgtypeset[] E_INIT("^=typeset"); 1017 #define Ttypeset (Tdgtypeset + 2) 1018 #define Tugo (Taugo + 1) 1019 EXTERN const char Tunalias[] E_INIT("unalias"); 1020 #define Tunexpected (TELIF_unexpected + 6) 1021 EXTERN const char Tunexpected_type[] E_INIT("%s: unexpected %s type %d"); 1022 EXTERN const char Tunknown_option[] E_INIT("unknown option"); 1023 EXTERN const char Tunwind[] E_INIT("unwind"); 1024 #define Tuser_sp1 (Tuser_sp2 + 1) 1025 EXTERN const char Tuser_sp2[] E_INIT(" user "); 1026 #define Twrite (Tshf_write + 4) 1027 EXTERN const char Tf__S[] E_INIT(" %S"); 1028 #define Tf__d (Tunexpected_type + 22) 1029 EXTERN const char Tf__ss[] E_INIT(" %s%s"); 1030 #define Tf__sN (Tf_s_s_sN + 5) 1031 EXTERN const char Tf_sSs[] E_INIT("%s/%s"); 1032 #define Tf_T (Tf_s_T + 3) 1033 EXTERN const char Tf_dN[] E_INIT("%d\n"); 1034 EXTERN const char Tf_s_[] E_INIT("%s "); 1035 EXTERN const char Tf_s_T[] E_INIT("%s %T"); 1036 EXTERN const char Tf_s_s_sN[] E_INIT("%s %s %s\n"); 1037 #define Tf_s_s (Tf_sD_s_s + 4) 1038 #define Tf_s_sD_s (Tf_cant_ss_s + 6) 1039 EXTERN const char Tf_optfoo[] E_INIT("%s%s-%c: %s"); 1040 EXTERN const char Tf_sD_[] E_INIT("%s: "); 1041 EXTERN const char Tf_szs[] E_INIT("%s: %zd %s"); 1042 EXTERN const char Tf_parm[] E_INIT("%s: parameter not set"); 1043 EXTERN const char Tf_coproc[] E_INIT("-p: %s"); 1044 EXTERN const char Tf_cant_s[] E_INIT("%s: can't %s"); 1045 EXTERN const char Tf_cant_ss_s[] E_INIT("can't %s %s: %s"); 1046 EXTERN const char Tf_heredoc[] E_INIT("here document '%s' unclosed"); 1047 #if HAVE_MKNOD 1048 EXTERN const char Tf_nonnum[] E_INIT("non-numeric %s %s '%s'"); 1049 #endif 1050 EXTERN const char Tf_S_[] E_INIT("%S "); 1051 #define Tf_S (Tf__S + 1) 1052 #define Tf_lu (Tf_toolarge + 17) 1053 EXTERN const char Tf_toolarge[] E_INIT("%s %s too large: %lu"); 1054 EXTERN const char Tf_ldfailed[] E_INIT("%s %s(%d, %ld) failed: %s"); 1055 #define Tf_ss (Tf_sss + 2) 1056 EXTERN const char Tf_sss[] E_INIT("%s%s%s"); 1057 EXTERN const char Tf_sD_s_sD_s[] E_INIT("%s: %s %s: %s"); 1058 EXTERN const char Tf_toomany[] E_INIT("too many %ss"); 1059 EXTERN const char Tf_sd[] E_INIT("%s %d"); 1060 #define Tf_s (Tf_temp + 28) 1061 EXTERN const char Tft_end[] E_INIT("%;"); 1062 EXTERN const char Tft_R[] E_INIT("%R"); 1063 #define Tf_d (Tunexpected_type + 23) 1064 EXTERN const char Tf_sD_s_qs[] E_INIT("%s: %s '%s'"); 1065 EXTERN const char Tf_ro[] E_INIT("read-only: %s"); 1066 EXTERN const char Tf_flags[] E_INIT("%s: flags 0x%X"); 1067 EXTERN const char Tf_temp[] E_INIT("can't %s temporary file %s: %s"); 1068 EXTERN const char Tf_ssfaileds[] E_INIT("%s: %s failed: %s"); 1069 EXTERN const char Tf_sD_sD_s[] E_INIT("%s: %s: %s"); 1070 EXTERN const char Tf__c_[] E_INIT("-%c "); 1071 EXTERN const char Tf_sD_s_s[] E_INIT("%s: %s %s"); 1072 #define Tf_sN (Tf_s_s_sN + 6) 1073 #define Tf_sD_s (Tf_temp + 24) 1074 EXTERN const char T_devtty[] E_INIT("/dev/tty"); 1075 #else /* helpers for string pooling */ 1076 #define T4spaces " " 1077 #define T1space " " 1078 #define Tcolsp ": " 1079 #define TC_IFSWS " \t\n" 1080 #define TinitIFS "IFS= \t\n" 1081 #define TFCEDIT_dollaru "${FCEDIT:-/bin/ed} $_" 1082 #define Tspdollaru " $_" 1083 #define Tsgdot "*=." 1084 #define Taugo "augo" 1085 #define Tbracket "[" 1086 #define Tdot "." 1087 #define Talias "alias" 1088 #define Tbadnum "bad number" 1089 #define Tbadsubst "bad substitution" 1090 #define Tbg "bg" 1091 #define Tbad_bsize "bad shf/buf/bsize" 1092 #define Tbsize "bsize" 1093 #define Tbad_sig_ss "%s: bad signal '%s'" 1094 #define Tbad_sig_s "bad signal '%s'" 1095 #define Tsgbreak "*=break" 1096 #define Tbreak "break" 1097 #define T__builtin "-\\builtin" 1098 #define T_builtin "\\builtin" 1099 #define Tbuiltin "builtin" 1100 #define Toomem "can't allocate %zu data bytes" 1101 #define Tcant_cd "restricted shell - can't cd" 1102 #define Tcant_find "can't find" 1103 #define Tcant_open "can't open" 1104 #define Tbytes "bytes" 1105 #define Tbcat "!cat" 1106 #define Tcat "cat" 1107 #define Tcd "cd" 1108 #define T_command "-command" 1109 #define Tcommand "command" 1110 #define Tsgcontinue "*=continue" 1111 #define Tcontinue "continue" 1112 #define Tcreate "create" 1113 #define TELIF_unexpected "TELIF unexpected" 1114 #define TEXECSHELL "EXECSHELL" 1115 #define Tdsgexport "^*=export" 1116 #define Texport "export" 1117 #ifdef __OS2__ 1118 #define Textproc "extproc" 1119 #endif 1120 #define Tfalse "false" 1121 #define Tfg "fg" 1122 #define Tfg_badsubst "fileglob: bad substitution" 1123 #define Tfile "file" 1124 #define Tfile_fd "function definition file" 1125 #define TFPATH "FPATH" 1126 #define T_function " function" 1127 #define Tfunction "function" 1128 #define T_funny_command "funny $()-command" 1129 #define Tgetopts "getopts" 1130 #define Thistory "history" 1131 #define Tintovfl "integer overflow %zu %c %zu prevented" 1132 #define Tinvname "%s: invalid %s name" 1133 #define Tjobs "jobs" 1134 #define Tjob_not_started "job not started" 1135 #define Tmksh "mksh" 1136 #define Tname "name" 1137 #define Tno_args "missing argument" 1138 #define Tno_OLDPWD "no OLDPWD" 1139 #define Tnot_ident "is not an identifier" 1140 #define Tnot_in_history "not in history" 1141 #define Tnot_found_s "%s not found" 1142 #define Tnot_found "not found" 1143 #define Tnot_started "not started" 1144 #define TOLDPWD "OLDPWD" 1145 #define Topen "open" 1146 #define TPATH "PATH" 1147 #define Tpv "pv" 1148 #define TpVv "Vpv" 1149 #define TPWD "PWD" 1150 #define Tread "read" 1151 #define Tdsgreadonly "^*=readonly" 1152 #define Treadonly "readonly" 1153 #define Tredirection_dup "can't finish (dup) redirection" 1154 #define Tredirection "redirection" 1155 #define Treal_sp1 "real " 1156 #define Treal_sp2 " real " 1157 #define Treq_arg "requires an argument" 1158 #define Tselect "select" 1159 #define Tsgset "*=set" 1160 #define Tset "set" 1161 #define Tsh "sh" 1162 #define TSHELL "SHELL" 1163 #define Tshell "shell" 1164 #define Tshf_read "shf_read" 1165 #define Tshf_write "shf_write" 1166 #define Tgsource "=source" 1167 #define Tsource "source" 1168 #define Tj_suspend "j_suspend" 1169 #define Tsuspend "suspend" 1170 #define Tsynerr "syntax error" 1171 #define Ttime "time" 1172 #define Ttoo_many_args "too many arguments" 1173 #define Ttoo_many_files "too many open files in shell" 1174 #define Ttrue "true" 1175 #define Ttty_fd_dupof "dup of tty fd" 1176 #define Ttty_fd "tty fd" 1177 #define Tdgtypeset "^=typeset" 1178 #define Ttypeset "typeset" 1179 #define Tugo "ugo" 1180 #define Tunalias "unalias" 1181 #define Tunexpected "unexpected" 1182 #define Tunexpected_type "%s: unexpected %s type %d" 1183 #define Tunknown_option "unknown option" 1184 #define Tunwind "unwind" 1185 #define Tuser_sp1 "user " 1186 #define Tuser_sp2 " user " 1187 #define Twrite "write" 1188 #define Tf__S " %S" 1189 #define Tf__d " %d" 1190 #define Tf__ss " %s%s" 1191 #define Tf__sN " %s\n" 1192 #define Tf_sSs "%s/%s" 1193 #define Tf_T "%T" 1194 #define Tf_dN "%d\n" 1195 #define Tf_s_ "%s " 1196 #define Tf_s_T "%s %T" 1197 #define Tf_s_s_sN "%s %s %s\n" 1198 #define Tf_s_s "%s %s" 1199 #define Tf_s_sD_s "%s %s: %s" 1200 #define Tf_optfoo "%s%s-%c: %s" 1201 #define Tf_sD_ "%s: " 1202 #define Tf_szs "%s: %zd %s" 1203 #define Tf_parm "%s: parameter not set" 1204 #define Tf_coproc "-p: %s" 1205 #define Tf_cant_s "%s: can't %s" 1206 #define Tf_cant_ss_s "can't %s %s: %s" 1207 #define Tf_heredoc "here document '%s' unclosed" 1208 #if HAVE_MKNOD 1209 #define Tf_nonnum "non-numeric %s %s '%s'" 1210 #endif 1211 #define Tf_S_ "%S " 1212 #define Tf_S "%S" 1213 #define Tf_lu "%lu" 1214 #define Tf_toolarge "%s %s too large: %lu" 1215 #define Tf_ldfailed "%s %s(%d, %ld) failed: %s" 1216 #define Tf_ss "%s%s" 1217 #define Tf_sss "%s%s%s" 1218 #define Tf_sD_s_sD_s "%s: %s %s: %s" 1219 #define Tf_toomany "too many %ss" 1220 #define Tf_sd "%s %d" 1221 #define Tf_s "%s" 1222 #define Tft_end "%;" 1223 #define Tft_R "%R" 1224 #define Tf_d "%d" 1225 #define Tf_sD_s_qs "%s: %s '%s'" 1226 #define Tf_ro "read-only: %s" 1227 #define Tf_flags "%s: flags 0x%X" 1228 #define Tf_temp "can't %s temporary file %s: %s" 1229 #define Tf_ssfaileds "%s: %s failed: %s" 1230 #define Tf_sD_sD_s "%s: %s: %s" 1231 #define Tf__c_ "-%c " 1232 #define Tf_sD_s_s "%s: %s %s" 1233 #define Tf_sN "%s\n" 1234 #define Tf_sD_s "%s: %s" 1235 #define T_devtty "/dev/tty" 1236 #endif /* end of string pooling */ 1237 1238 typedef uint8_t Temp_type; 1239 /* expanded heredoc */ 1240 #define TT_HEREDOC_EXP 0 1241 /* temporary file used for history editing (fc -e) */ 1242 #define TT_HIST_EDIT 1 1243 /* temporary file used during in-situ command substitution */ 1244 #define TT_FUNSUB 2 1245 1246 /* temp/heredoc files. The file is removed when the struct is freed. */ 1247 struct temp { 1248 struct temp *next; 1249 struct shf *shf; 1250 /* pid of process parsed here-doc */ 1251 pid_t pid; 1252 Temp_type type; 1253 /* actually longer: name (variable length) */ 1254 char tffn[3]; 1255 }; 1256 1257 /* 1258 * stdio and our IO routines 1259 */ 1260 1261 #define shl_xtrace (&shf_iob[0]) /* for set -x */ 1262 #define shl_stdout (&shf_iob[1]) 1263 #define shl_out (&shf_iob[2]) 1264 #ifdef DF 1265 #define shl_dbg (&shf_iob[3]) /* for DF() */ 1266 #endif 1267 EXTERN bool shl_stdout_ok; 1268 1269 /* 1270 * trap handlers 1271 */ 1272 typedef struct trap { 1273 const char *name; /* short name */ 1274 const char *mess; /* descriptive name */ 1275 char *trap; /* trap command */ 1276 sig_t cursig; /* current handler (valid if TF_ORIG_* set) */ 1277 sig_t shtrap; /* shell signal handler */ 1278 int signal; /* signal number */ 1279 int flags; /* TF_* */ 1280 volatile sig_atomic_t set; /* trap pending */ 1281 } Trap; 1282 1283 /* values for Trap.flags */ 1284 #define TF_SHELL_USES BIT(0) /* shell uses signal, user can't change */ 1285 #define TF_USER_SET BIT(1) /* user has (tried to) set trap */ 1286 #define TF_ORIG_IGN BIT(2) /* original action was SIG_IGN */ 1287 #define TF_ORIG_DFL BIT(3) /* original action was SIG_DFL */ 1288 #define TF_EXEC_IGN BIT(4) /* restore SIG_IGN just before exec */ 1289 #define TF_EXEC_DFL BIT(5) /* restore SIG_DFL just before exec */ 1290 #define TF_DFL_INTR BIT(6) /* when received, default action is LINTR */ 1291 #define TF_TTY_INTR BIT(7) /* tty generated signal (see j_waitj) */ 1292 #define TF_CHANGED BIT(8) /* used by runtrap() to detect trap changes */ 1293 #define TF_FATAL BIT(9) /* causes termination if not trapped */ 1294 1295 /* values for setsig()/setexecsig() flags argument */ 1296 #define SS_RESTORE_MASK 0x3 /* how to restore a signal before an exec() */ 1297 #define SS_RESTORE_CURR 0 /* leave current handler in place */ 1298 #define SS_RESTORE_ORIG 1 /* restore original handler */ 1299 #define SS_RESTORE_DFL 2 /* restore to SIG_DFL */ 1300 #define SS_RESTORE_IGN 3 /* restore to SIG_IGN */ 1301 #define SS_FORCE BIT(3) /* set signal even if original signal ignored */ 1302 #define SS_USER BIT(4) /* user is doing the set (ie, trap command) */ 1303 #define SS_SHTRAP BIT(5) /* trap for internal use (ALRM, CHLD, WINCH) */ 1304 1305 #define ksh_SIGEXIT 0 /* for trap EXIT */ 1306 #define ksh_SIGERR ksh_NSIG /* for trap ERR */ 1307 1308 EXTERN volatile sig_atomic_t trap; /* traps pending? */ 1309 EXTERN volatile sig_atomic_t intrsig; /* pending trap interrupts command */ 1310 EXTERN volatile sig_atomic_t fatal_trap; /* received a fatal signal */ 1311 extern Trap sigtraps[ksh_NSIG + 1]; 1312 1313 /* got_winch = 1 when we need to re-adjust the window size */ 1314 #ifdef SIGWINCH 1315 EXTERN volatile sig_atomic_t got_winch E_INIT(1); 1316 #else 1317 #define got_winch true 1318 #endif 1319 1320 /* 1321 * TMOUT support 1322 */ 1323 /* values for ksh_tmout_state */ 1324 enum tmout_enum { 1325 TMOUT_EXECUTING = 0, /* executing commands */ 1326 TMOUT_READING, /* waiting for input */ 1327 TMOUT_LEAVING /* have timed out */ 1328 }; 1329 EXTERN unsigned int ksh_tmout; 1330 EXTERN enum tmout_enum ksh_tmout_state; 1331 1332 /* For "You have stopped jobs" message */ 1333 EXTERN bool really_exit; 1334 1335 /* 1336 * fast character classes 1337 */ 1338 1339 /* internal types, do not reference */ 1340 1341 /* initially empty — filled at runtime from $IFS */ 1342 #define CiIFS BIT(0) 1343 #define CiCNTRL BIT(1) /* \x01‥\x08\x0E‥\x1F\x7F */ 1344 #define CiUPPER BIT(2) /* A‥Z */ 1345 #define CiLOWER BIT(3) /* a‥z */ 1346 #define CiHEXLT BIT(4) /* A‥Fa‥f */ 1347 #define CiOCTAL BIT(5) /* 0‥7 */ 1348 #define CiQCL BIT(6) /* &();| */ 1349 #define CiALIAS BIT(7) /* !,.@ */ 1350 #define CiQCX BIT(8) /* *[\\ */ 1351 #define CiVAR1 BIT(9) /* !*@ */ 1352 #define CiQCM BIT(10) /* /^~ */ 1353 #define CiDIGIT BIT(11) /* 89 */ 1354 #define CiQC BIT(12) /* "' */ 1355 #define CiSPX BIT(13) /* \x0B\x0C */ 1356 #define CiCURLY BIT(14) /* {} */ 1357 #define CiANGLE BIT(15) /* <> */ 1358 #define CiNUL BIT(16) /* \x00 */ 1359 #define CiTAB BIT(17) /* \x09 */ 1360 #define CiNL BIT(18) /* \x0A */ 1361 #define CiCR BIT(19) /* \x0D */ 1362 #define CiSP BIT(20) /* \x20 */ 1363 #define CiHASH BIT(21) /* # */ 1364 #define CiSS BIT(22) /* $ */ 1365 #define CiPERCT BIT(23) /* % */ 1366 #define CiPLUS BIT(24) /* + */ 1367 #define CiMINUS BIT(25) /* - */ 1368 #define CiCOLON BIT(26) /* : */ 1369 #define CiEQUAL BIT(27) /* = */ 1370 #define CiQUEST BIT(28) /* ? */ 1371 #define CiBRACK BIT(29) /* ] */ 1372 #define CiUNDER BIT(30) /* _ */ 1373 #define CiGRAVE BIT(31) /* ` */ 1374 /* out of space, but one for *@ would make sense, possibly others */ 1375 1376 /* compile-time initialised, ASCII only */ 1377 extern const uint32_t tpl_ctypes[128]; 1378 /* run-time, contains C_IFS as well, full 2⁸ octet range */ 1379 EXTERN uint32_t ksh_ctypes[256]; 1380 /* first octet of $IFS, for concatenating "$*" */ 1381 EXTERN char ifs0; 1382 1383 /* external types */ 1384 1385 /* !%,-.0‥9:@A‥Z[]_a‥z valid characters in alias names */ 1386 #define C_ALIAS (CiALIAS | CiBRACK | CiCOLON | CiDIGIT | CiLOWER | CiMINUS | CiOCTAL | CiPERCT | CiUNDER | CiUPPER) 1387 /* 0‥9A‥Za‥z alphanumerical */ 1388 #define C_ALNUM (CiDIGIT | CiLOWER | CiOCTAL | CiUPPER) 1389 /* 0‥9A‥Z_a‥z alphanumerical plus underscore (“word character”) */ 1390 #define C_ALNUX (CiDIGIT | CiLOWER | CiOCTAL | CiUNDER | CiUPPER) 1391 /* A‥Za‥z alphabetical (upper plus lower) */ 1392 #define C_ALPHA (CiLOWER | CiUPPER) 1393 /* A‥Z_a‥z alphabetical plus underscore (identifier lead) */ 1394 #define C_ALPHX (CiLOWER | CiUNDER | CiUPPER) 1395 /* \x01‥\x7F 7-bit ASCII except NUL */ 1396 #define C_ASCII (CiALIAS | CiANGLE | CiBRACK | CiCNTRL | CiCOLON | CiCR | CiCURLY | CiDIGIT | CiEQUAL | CiGRAVE | CiHASH | CiLOWER | CiMINUS | CiNL | CiOCTAL | CiPERCT | CiPLUS | CiQC | CiQCL | CiQCM | CiQCX | CiQUEST | CiSP | CiSPX | CiSS | CiTAB | CiUNDER | CiUPPER) 1397 /* \x09\x20 tab and space */ 1398 #define C_BLANK (CiSP | CiTAB) 1399 /* \x09\x20"' separator for completion */ 1400 #define C_CFS (CiQC | CiSP | CiTAB) 1401 /* \x00‥\x1F\x7F POSIX control characters */ 1402 #define C_CNTRL (CiCNTRL | CiCR | CiNL | CiNUL | CiSPX | CiTAB) 1403 /* 0‥9 decimal digits */ 1404 #define C_DIGIT (CiDIGIT | CiOCTAL) 1405 /* &();`| editor x_locate_word() command */ 1406 #define C_EDCMD (CiGRAVE | CiQCL) 1407 /* \x09\x0A\x20"&'():;<=>`| editor non-word characters */ 1408 #define C_EDNWC (CiANGLE | CiCOLON | CiEQUAL | CiGRAVE | CiNL | CiQC | CiQCL | CiSP | CiTAB) 1409 /* "#$&'()*:;<=>?[\\`{|} editor quotes for tab completion */ 1410 #define C_EDQ (CiANGLE | CiCOLON | CiCURLY | CiEQUAL | CiGRAVE | CiHASH | CiQC | CiQCL | CiQCX | CiQUEST | CiSS) 1411 /* !‥~ POSIX graphical (alphanumerical plus punctuation) */ 1412 #define C_GRAPH (C_PUNCT | CiDIGIT | CiLOWER | CiOCTAL | CiUPPER) 1413 /* A‥Fa‥f hex letter */ 1414 #define C_HEXLT CiHEXLT 1415 /* \x00 + $IFS IFS whitespace, IFS non-whitespace, NUL */ 1416 #define C_IFS (CiIFS | CiNUL) 1417 /* \x09\x0A\x20 IFS whitespace */ 1418 #define C_IFSWS (CiNL | CiSP | CiTAB) 1419 /* \x09\x0A\x20&();<>| (for the lexer) */ 1420 #define C_LEX1 (CiANGLE | CiNL | CiQCL | CiSP | CiTAB) 1421 /* a‥z lowercase letters */ 1422 #define C_LOWER CiLOWER 1423 /* not alnux or dollar separator for motion */ 1424 #define C_MFS (CiALIAS | CiANGLE | CiBRACK | CiCNTRL | CiCOLON | CiCR | CiCURLY | CiEQUAL | CiGRAVE | CiHASH | CiMINUS | CiNL | CiNUL | CiPERCT | CiPLUS | CiQC | CiQCL | CiQCM | CiQCX | CiQUEST | CiSP | CiSPX | CiTAB) 1425 /* 0‥7 octal digit */ 1426 #define C_OCTAL CiOCTAL 1427 /* !*+?@ pattern magical operator, except space */ 1428 #define C_PATMO (CiPLUS | CiQUEST | CiVAR1) 1429 /* \x20‥~ POSIX printable characters (graph plus space) */ 1430 #define C_PRINT (C_GRAPH | CiSP) 1431 /* !"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~ POSIX punctuation */ 1432 #define C_PUNCT (CiALIAS | CiANGLE | CiBRACK | CiCOLON | CiCURLY | CiEQUAL | CiGRAVE | CiHASH | CiMINUS | CiPERCT | CiPLUS | CiQC | CiQCL | CiQCM | CiQCX | CiQUEST | CiSS | CiUNDER) 1433 /* \x09\x0A"#$&'()*;<=>?[\\]`| characters requiring quoting, minus space */ 1434 #define C_QUOTE (CiANGLE | CiBRACK | CiEQUAL | CiGRAVE | CiHASH | CiNL | CiQC | CiQCL | CiQCX | CiQUEST | CiSS | CiTAB) 1435 /* 0‥9A‥Fa‥f hexadecimal digit */ 1436 #define C_SEDEC (CiDIGIT | CiHEXLT | CiOCTAL) 1437 /* \x09‥\x0D\x20 POSIX space class */ 1438 #define C_SPACE (CiCR | CiNL | CiSP | CiSPX | CiTAB) 1439 /* +-=? substitution operations with word */ 1440 #define C_SUB1 (CiEQUAL | CiMINUS | CiPLUS | CiQUEST) 1441 /* #% substitution operations with pattern */ 1442 #define C_SUB2 (CiHASH | CiPERCT) 1443 /* A‥Z uppercase letters */ 1444 #define C_UPPER CiUPPER 1445 /* !#$*-?@ substitution parameters, other than positional */ 1446 #define C_VAR1 (CiHASH | CiMINUS | CiQUEST | CiSS | CiVAR1) 1447 1448 /* individual chars you might like */ 1449 #define C_ANGLE CiANGLE /* <> angle brackets */ 1450 #define C_COLON CiCOLON /* : colon */ 1451 #define C_CR CiCR /* \x0D ASCII carriage return */ 1452 #define C_DOLAR CiSS /* $ dollar sign */ 1453 #define C_EQUAL CiEQUAL /* = equals sign */ 1454 #define C_GRAVE CiGRAVE /* ` accent gravis */ 1455 #define C_HASH CiHASH /* # hash sign */ 1456 #define C_LF CiNL /* \x0A ASCII line feed */ 1457 #define C_MINUS CiMINUS /* - hyphen-minus */ 1458 #ifdef MKSH_WITH_TEXTMODE 1459 #define C_NL (CiNL | CiCR) /* CR or LF under OS/2 TEXTMODE */ 1460 #else 1461 #define C_NL CiNL /* LF only like under Unix */ 1462 #endif 1463 #define C_NUL CiNUL /* \x00 ASCII NUL */ 1464 #define C_PLUS CiPLUS /* + plus sign */ 1465 #define C_QC CiQC /* "' quote characters */ 1466 #define C_QUEST CiQUEST /* ? question mark */ 1467 #define C_SPC CiSP /* \x20 ASCII space */ 1468 #define C_TAB CiTAB /* \x09 ASCII horizontal tabulator */ 1469 #define C_UNDER CiUNDER /* _ underscore */ 1470 1471 /* identity transform of octet */ 1472 #if defined(DEBUG) && defined(__GNUC__) && !defined(__ICC) && \ 1473 !defined(__INTEL_COMPILER) && !defined(__SUNPRO_C) 1474 extern unsigned int eek_ord; 1475 #define ORD(c) ((size_t)(c) > 0xFF ? eek_ord : \ 1476 ((unsigned int)(unsigned char)(c))) 1477 #define ord(c) __builtin_choose_expr( \ 1478 __builtin_types_compatible_p(__typeof__(c), char) || \ 1479 __builtin_types_compatible_p(__typeof__(c), unsigned char), \ 1480 ((unsigned int)(unsigned char)(c)), ({ \ 1481 size_t ord_c = (c); \ 1482 \ 1483 if (ord_c > (size_t)0xFFU) \ 1484 internal_errorf("%s:%d:ord(%zX)", \ 1485 __FILE__, __LINE__, ord_c); \ 1486 ((unsigned int)(unsigned char)(ord_c)); \ 1487 })) 1488 #else 1489 #define ord(c) ((unsigned int)(unsigned char)(c)) 1490 #define ORD(c) ord(c) /* may evaluate arguments twice */ 1491 #endif 1492 #if defined(MKSH_EBCDIC) || defined(MKSH_FAUX_EBCDIC) 1493 EXTERN unsigned short ebcdic_map[256]; 1494 EXTERN unsigned char ebcdic_rtt_toascii[256]; 1495 EXTERN unsigned char ebcdic_rtt_fromascii[256]; 1496 extern void ebcdic_init(void); 1497 /* one-way to-ascii-or-high conversion, for POSIX locale ordering */ 1498 #define asciibetical(c) ((unsigned int)ebcdic_map[(unsigned char)(c)]) 1499 /* two-way round-trip conversion, for general use */ 1500 #define rtt2asc(c) ebcdic_rtt_toascii[(unsigned char)(c)] 1501 #define asc2rtt(c) ebcdic_rtt_fromascii[(unsigned char)(c)] 1502 /* case-independent char comparison */ 1503 #define ksh_eq(c,u,l) (ord(c) == ord(u) || ord(c) == ord(l)) 1504 #else 1505 #define asciibetical(c) ord(c) 1506 #define rtt2asc(c) ((unsigned char)(c)) 1507 #define asc2rtt(c) ((unsigned char)(c)) 1508 #define ksh_eq(c,u,l) ((ord(c) | 0x20) == ord(l)) 1509 #endif 1510 /* control character foo */ 1511 #ifdef MKSH_EBCDIC 1512 #define ksh_isctrl(c) (ord(c) < 0x40 || ord(c) == 0xFF) 1513 #else 1514 #define ksh_isctrl(c) ((ord(c) & 0x7F) < 0x20 || ord(c) == 0x7F) 1515 #endif 1516 /* new fast character classes */ 1517 #define ctype(c,t) tobool(ksh_ctypes[ord(c)] & (t)) 1518 #define cinttype(c,t) ((c) >= 0 && (c) <= 0xFF ? \ 1519 tobool(ksh_ctypes[(unsigned char)(c)] & (t)) : false) 1520 /* helper functions */ 1521 #define ksh_isdash(s) tobool(ord((s)[0]) == '-' && ord((s)[1]) == '\0') 1522 /* invariant distance even in EBCDIC */ 1523 #define ksh_tolower(c) (ctype(c, C_UPPER) ? (c) - 'A' + 'a' : (c)) 1524 #define ksh_toupper(c) (ctype(c, C_LOWER) ? (c) - 'a' + 'A' : (c)) 1525 /* strictly speaking rtt2asc() here, but this works even in EBCDIC */ 1526 #define ksh_numdig(c) (ord(c) - ORD('0')) 1527 #define ksh_numuc(c) (rtt2asc(c) - rtt2asc('A')) 1528 #define ksh_numlc(c) (rtt2asc(c) - rtt2asc('a')) 1529 #define ksh_toctrl(c) asc2rtt(ord(c) == ORD('?') ? 0x7F : rtt2asc(c) & 0x9F) 1530 #define ksh_unctrl(c) asc2rtt(rtt2asc(c) ^ 0x40U) 1531 1532 /* Argument parsing for built-in commands and getopts command */ 1533 1534 /* Values for Getopt.flags */ 1535 #define GF_ERROR BIT(0) /* call errorf() if there is an error */ 1536 #define GF_PLUSOPT BIT(1) /* allow +c as an option */ 1537 #define GF_NONAME BIT(2) /* don't print argv[0] in errors */ 1538 1539 /* Values for Getopt.info */ 1540 #define GI_MINUS BIT(0) /* an option started with -... */ 1541 #define GI_PLUS BIT(1) /* an option started with +... */ 1542 #define GI_MINUSMINUS BIT(2) /* arguments were ended with -- */ 1543 1544 /* in case some OS defines these */ 1545 #undef optarg 1546 #undef optind 1547 1548 typedef struct { 1549 const char *optarg; 1550 int optind; 1551 int uoptind; /* what user sees in $OPTIND */ 1552 int flags; /* see GF_* */ 1553 int info; /* see GI_* */ 1554 unsigned int p; /* 0 or index into argv[optind - 1] */ 1555 char buf[2]; /* for bad option OPTARG value */ 1556 } Getopt; 1557 1558 EXTERN Getopt builtin_opt; /* for shell builtin commands */ 1559 EXTERN Getopt user_opt; /* parsing state for getopts builtin command */ 1560 1561 /* This for co-processes */ 1562 1563 /* something that won't (realisticly) wrap */ 1564 typedef int Coproc_id; 1565 1566 struct coproc { 1567 void *job; /* 0 or job of co-process using input pipe */ 1568 int read; /* pipe from co-process's stdout */ 1569 int readw; /* other side of read (saved temporarily) */ 1570 int write; /* pipe to co-process's stdin */ 1571 int njobs; /* number of live jobs using output pipe */ 1572 Coproc_id id; /* id of current output pipe */ 1573 }; 1574 EXTERN struct coproc coproc; 1575 1576 #ifndef MKSH_NOPROSPECTOFWORK 1577 /* used in jobs.c and by coprocess stuff in exec.c and select() calls */ 1578 EXTERN sigset_t sm_default, sm_sigchld; 1579 #endif 1580 1581 /* name of called builtin function (used by error functions) */ 1582 EXTERN const char *builtin_argv0; 1583 /* is called builtin a POSIX special builtin? (error functions only) */ 1584 EXTERN bool builtin_spec; 1585 1586 /* current working directory */ 1587 EXTERN char *current_wd; 1588 1589 /* input line size */ 1590 #ifdef MKSH_SMALL 1591 #define LINE (4096 - ALLOC_OVERHEAD) 1592 #else 1593 #define LINE (16384 - ALLOC_OVERHEAD) 1594 #endif 1595 /* columns and lines of the tty */ 1596 EXTERN mksh_ari_t x_cols E_INIT(80); 1597 EXTERN mksh_ari_t x_lins E_INIT(24); 1598 1599 1600 /* Determine the location of the system (common) profile */ 1601 1602 #ifndef MKSH_DEFAULT_PROFILEDIR 1603 #define MKSH_DEFAULT_PROFILEDIR MKSH_UNIXROOT "/etc" 1604 #endif 1605 1606 #define MKSH_SYSTEM_PROFILE MKSH_DEFAULT_PROFILEDIR "/profile" 1607 #define MKSH_SUID_PROFILE MKSH_DEFAULT_PROFILEDIR "/suid_profile" 1608 1609 1610 /* Used by v_evaluate() and setstr() to control action when error occurs */ 1611 #define KSH_UNWIND_ERROR 0 /* unwind the stack (kshlongjmp) */ 1612 #define KSH_RETURN_ERROR 1 /* return 1/0 for success/failure */ 1613 1614 /* 1615 * Shell file I/O routines 1616 */ 1617 1618 #define SHF_BSIZE 512 1619 1620 #define shf_fileno(shf) ((shf)->fd) 1621 #define shf_setfileno(shf,nfd) ((shf)->fd = (nfd)) 1622 #define shf_getc_i(shf) ((shf)->rnleft > 0 ? \ 1623 (shf)->rnleft--, (int)ord(*(shf)->rp++) : \ 1624 shf_getchar(shf)) 1625 #define shf_putc_i(c, shf) ((shf)->wnleft == 0 ? \ 1626 shf_putchar((uint8_t)(c), (shf)) : \ 1627 ((shf)->wnleft--, *(shf)->wp++ = (c))) 1628 #define shf_eof(shf) ((shf)->flags & SHF_EOF) 1629 #define shf_error(shf) ((shf)->flags & SHF_ERROR) 1630 #define shf_errno(shf) ((shf)->errnosv) 1631 #define shf_clearerr(shf) ((shf)->flags &= ~(SHF_EOF | SHF_ERROR)) 1632 1633 /* Flags passed to shf_*open() */ 1634 #define SHF_RD 0x0001 1635 #define SHF_WR 0x0002 1636 #define SHF_RDWR (SHF_RD|SHF_WR) 1637 #define SHF_ACCMODE 0x0003 /* mask */ 1638 #define SHF_GETFL 0x0004 /* use fcntl() to figure RD/WR flags */ 1639 #define SHF_UNBUF 0x0008 /* unbuffered I/O */ 1640 #define SHF_CLEXEC 0x0010 /* set close on exec flag */ 1641 #define SHF_MAPHI 0x0020 /* make fd > FDBASE (and close orig) 1642 * (shf_open() only) */ 1643 #define SHF_DYNAMIC 0x0040 /* string: increase buffer as needed */ 1644 #define SHF_INTERRUPT 0x0080 /* EINTR in read/write causes error */ 1645 /* Flags used internally */ 1646 #define SHF_STRING 0x0100 /* a string, not a file */ 1647 #define SHF_ALLOCS 0x0200 /* shf and shf->buf were alloc()ed */ 1648 #define SHF_ALLOCB 0x0400 /* shf->buf was alloc()ed */ 1649 #define SHF_ERROR 0x0800 /* read()/write() error */ 1650 #define SHF_EOF 0x1000 /* read eof (sticky) */ 1651 #define SHF_READING 0x2000 /* currently reading: rnleft,rp valid */ 1652 #define SHF_WRITING 0x4000 /* currently writing: wnleft,wp valid */ 1653 1654 1655 struct shf { 1656 Area *areap; /* area shf/buf were allocated in */ 1657 unsigned char *rp; /* read: current position in buffer */ 1658 unsigned char *wp; /* write: current position in buffer */ 1659 unsigned char *buf; /* buffer */ 1660 ssize_t bsize; /* actual size of buf */ 1661 ssize_t rbsize; /* size of buffer (1 if SHF_UNBUF) */ 1662 ssize_t rnleft; /* read: how much data left in buffer */ 1663 ssize_t wbsize; /* size of buffer (0 if SHF_UNBUF) */ 1664 ssize_t wnleft; /* write: how much space left in buffer */ 1665 int flags; /* see SHF_* */ 1666 int fd; /* file descriptor */ 1667 int errnosv; /* saved value of errno after error */ 1668 }; 1669 1670 extern struct shf shf_iob[]; 1671 1672 struct table { 1673 Area *areap; /* area to allocate entries */ 1674 struct tbl **tbls; /* hashed table items */ 1675 size_t nfree; /* free table entries */ 1676 uint8_t tshift; /* table size (2^tshift) */ 1677 }; 1678 1679 /* table item */ 1680 struct tbl { 1681 /* Area to allocate from */ 1682 Area *areap; 1683 /* value */ 1684 union { 1685 char *s; /* string */ 1686 mksh_ari_t i; /* integer */ 1687 mksh_uari_t u; /* unsigned integer */ 1688 int (*f)(const char **); /* built-in command */ 1689 struct op *t; /* "function" tree */ 1690 } val; 1691 union { 1692 struct tbl *array; /* array values */ 1693 const char *fpath; /* temporary path to undef function */ 1694 } u; 1695 union { 1696 int field; /* field with for -L/-R/-Z */ 1697 int errnov; /* CEXEC/CTALIAS */ 1698 } u2; 1699 union { 1700 uint32_t hval; /* hash(name) */ 1701 uint32_t index; /* index for an array */ 1702 } ua; 1703 /* 1704 * command type (see below), base (if INTEGER), 1705 * offset from val.s of value (if EXPORT) 1706 */ 1707 int type; 1708 /* flags (see below) */ 1709 uint32_t flag; 1710 1711 /* actually longer: name (variable length) */ 1712 char name[4]; 1713 }; 1714 1715 EXTERN struct tbl *vtemp; 1716 /* set by isglobal(), global() and local() */ 1717 EXTERN bool last_lookup_was_array; 1718 1719 /* common flag bits */ 1720 #define ALLOC BIT(0) /* val.s has been allocated */ 1721 #define DEFINED BIT(1) /* is defined in block */ 1722 #define ISSET BIT(2) /* has value, vp->val.[si] */ 1723 #define EXPORT BIT(3) /* exported variable/function */ 1724 #define TRACE BIT(4) /* var: user flagged, func: execution tracing */ 1725 /* (start non-common flags at 8) */ 1726 /* flag bits used for variables */ 1727 #define SPECIAL BIT(8) /* PATH, IFS, SECONDS, etc */ 1728 #define INTEGER BIT(9) /* val.i contains integer value */ 1729 #define RDONLY BIT(10) /* read-only variable */ 1730 #define LOCAL BIT(11) /* for local typeset() */ 1731 #define ARRAY BIT(13) /* array */ 1732 #define LJUST BIT(14) /* left justify */ 1733 #define RJUST BIT(15) /* right justify */ 1734 #define ZEROFIL BIT(16) /* 0 filled if RJUSTIFY, strip 0s if LJUSTIFY */ 1735 #define LCASEV BIT(17) /* convert to lower case */ 1736 #define UCASEV_AL BIT(18) /* convert to upper case / autoload function */ 1737 #define INT_U BIT(19) /* unsigned integer */ 1738 #define INT_L BIT(20) /* long integer (no-op but used as magic) */ 1739 #define IMPORT BIT(21) /* flag to typeset(): no arrays, must have = */ 1740 #define LOCAL_COPY BIT(22) /* with LOCAL - copy attrs from existing var */ 1741 #define EXPRINEVAL BIT(23) /* contents currently being evaluated */ 1742 #define EXPRLVALUE BIT(24) /* useable as lvalue (temp flag) */ 1743 #define AINDEX BIT(25) /* array index >0 = ua.index filled in */ 1744 #define ASSOC BIT(26) /* ARRAY ? associative : reference */ 1745 /* flag bits used for taliases/builtins/aliases/keywords/functions */ 1746 #define KEEPASN BIT(8) /* keep command assignments (eg, var=x cmd) */ 1747 #define FINUSE BIT(9) /* function being executed */ 1748 #define FDELETE BIT(10) /* function deleted while it was executing */ 1749 #define FKSH BIT(11) /* function defined with function x (vs x()) */ 1750 #define SPEC_BI BIT(12) /* a POSIX special builtin */ 1751 #define LOWER_BI BIT(13) /* (with LOW_BI) override even w/o flags */ 1752 #define LOW_BI BIT(14) /* external utility overrides built-in one */ 1753 #define DECL_UTIL BIT(15) /* is declaration utility */ 1754 #define DECL_FWDR BIT(16) /* is declaration utility forwarder */ 1755 1756 /* 1757 * Attributes that can be set by the user (used to decide if an unset 1758 * param should be repoted by set/typeset). Does not include ARRAY or 1759 * LOCAL. 1760 */ 1761 #define USERATTRIB (EXPORT|INTEGER|RDONLY|LJUST|RJUST|ZEROFIL|\ 1762 LCASEV|UCASEV_AL|INT_U|INT_L) 1763 1764 #define arrayindex(vp) ((unsigned long)((vp)->flag & AINDEX ? \ 1765 (vp)->ua.index : 0)) 1766 1767 enum namerefflag { 1768 SRF_NOP, 1769 SRF_ENABLE, 1770 SRF_DISABLE 1771 }; 1772 1773 /* command types */ 1774 #define CNONE 0 /* undefined */ 1775 #define CSHELL 1 /* built-in */ 1776 #define CFUNC 2 /* function */ 1777 #define CEXEC 4 /* executable command */ 1778 #define CALIAS 5 /* alias */ 1779 #define CKEYWD 6 /* keyword */ 1780 #define CTALIAS 7 /* tracked alias */ 1781 1782 /* Flags for findcom()/comexec() */ 1783 #define FC_SPECBI BIT(0) /* special builtin */ 1784 #define FC_FUNC BIT(1) /* function */ 1785 #define FC_NORMBI BIT(2) /* not special builtin */ 1786 #define FC_BI (FC_SPECBI | FC_NORMBI) 1787 #define FC_PATH BIT(3) /* do path search */ 1788 #define FC_DEFPATH BIT(4) /* use default path in path search */ 1789 #define FC_WHENCE BIT(5) /* for use by command and whence */ 1790 1791 #define AF_ARGV_ALLOC 0x1 /* argv[] array allocated */ 1792 #define AF_ARGS_ALLOCED 0x2 /* argument strings allocated */ 1793 #define AI_ARGV(a, i) ((i) == 0 ? (a).argv[0] : (a).argv[(i) - (a).skip]) 1794 #define AI_ARGC(a) ((a).ai_argc - (a).skip) 1795 1796 /* Argument info. Used for $#, $* for shell, functions, includes, etc. */ 1797 struct arg_info { 1798 const char **argv; 1799 int flags; /* AF_* */ 1800 int ai_argc; 1801 int skip; /* first arg is argv[0], second is argv[1 + skip] */ 1802 }; 1803 1804 /* 1805 * activation record for function blocks 1806 */ 1807 struct block { 1808 Area area; /* area to allocate things */ 1809 const char **argv; 1810 char *error; /* error handler */ 1811 char *exit; /* exit handler */ 1812 struct block *next; /* enclosing block */ 1813 struct table vars; /* local variables */ 1814 struct table funs; /* local functions */ 1815 Getopt getopts_state; 1816 int argc; 1817 int flags; /* see BF_* */ 1818 }; 1819 1820 /* Values for struct block.flags */ 1821 #define BF_DOGETOPTS BIT(0) /* save/restore getopts state */ 1822 #define BF_STOPENV BIT(1) /* do not export further */ 1823 1824 /* 1825 * Used by ktwalk() and ktnext() routines. 1826 */ 1827 struct tstate { 1828 struct tbl **next; 1829 ssize_t left; 1830 }; 1831 1832 EXTERN struct table taliases; /* tracked aliases */ 1833 EXTERN struct table builtins; /* built-in commands */ 1834 EXTERN struct table aliases; /* aliases */ 1835 EXTERN struct table keywords; /* keywords */ 1836 #ifndef MKSH_NOPWNAM 1837 EXTERN struct table homedirs; /* homedir() cache */ 1838 #endif 1839 1840 struct builtin { 1841 const char *name; 1842 int (*func)(const char **); 1843 }; 1844 1845 extern const struct builtin mkshbuiltins[]; 1846 1847 /* values for set_prompt() */ 1848 #define PS1 0 /* command */ 1849 #define PS2 1 /* command continuation */ 1850 1851 EXTERN char *path; /* copy of either PATH or def_path */ 1852 EXTERN const char *def_path; /* path to use if PATH not set */ 1853 EXTERN char *tmpdir; /* TMPDIR value */ 1854 EXTERN const char *prompt; 1855 EXTERN uint8_t cur_prompt; /* PS1 or PS2 */ 1856 EXTERN int current_lineno; /* LINENO value */ 1857 1858 /* 1859 * Description of a command or an operation on commands. 1860 */ 1861 struct op { 1862 const char **args; /* arguments to a command */ 1863 char **vars; /* variable assignments */ 1864 struct ioword **ioact; /* IO actions (eg, < > >>) */ 1865 struct op *left, *right; /* descendents */ 1866 char *str; /* word for case; identifier for for, 1867 * select, and functions; 1868 * path to execute for TEXEC; 1869 * time hook for TCOM. 1870 */ 1871 int lineno; /* TCOM/TFUNC: LINENO for this */ 1872 short type; /* operation type, see below */ 1873 /* WARNING: newtp(), tcopy() use evalflags = 0 to clear union */ 1874 union { 1875 /* TCOM: arg expansion eval() flags */ 1876 short evalflags; 1877 /* TFUNC: function x (vs x()) */ 1878 short ksh_func; 1879 /* TPAT: termination character */ 1880 char charflag; 1881 } u; 1882 }; 1883 1884 /* Tree.type values */ 1885 #define TEOF 0 1886 #define TCOM 1 /* command */ 1887 #define TPAREN 2 /* (c-list) */ 1888 #define TPIPE 3 /* a | b */ 1889 #define TLIST 4 /* a ; b */ 1890 #define TOR 5 /* || */ 1891 #define TAND 6 /* && */ 1892 #define TBANG 7 /* ! */ 1893 #define TDBRACKET 8 /* [[ .. ]] */ 1894 #define TFOR 9 1895 #define TSELECT 10 1896 #define TCASE 11 1897 #define TIF 12 1898 #define TWHILE 13 1899 #define TUNTIL 14 1900 #define TELIF 15 1901 #define TPAT 16 /* pattern in case */ 1902 #define TBRACE 17 /* {c-list} */ 1903 #define TASYNC 18 /* c & */ 1904 #define TFUNCT 19 /* function name { command; } */ 1905 #define TTIME 20 /* time pipeline */ 1906 #define TEXEC 21 /* fork/exec eval'd TCOM */ 1907 #define TCOPROC 22 /* coprocess |& */ 1908 1909 /* 1910 * prefix codes for words in command tree 1911 */ 1912 #define EOS 0 /* end of string */ 1913 #define CHAR 1 /* unquoted character */ 1914 #define QCHAR 2 /* quoted character */ 1915 #define COMSUB 3 /* $() substitution (0 terminated) */ 1916 #define EXPRSUB 4 /* $(()) substitution (0 terminated) */ 1917 #define OQUOTE 5 /* opening " or ' */ 1918 #define CQUOTE 6 /* closing " or ' */ 1919 #define OSUBST 7 /* opening ${ subst (followed by { or X) */ 1920 #define CSUBST 8 /* closing } of above (followed by } or X) */ 1921 #define OPAT 9 /* open pattern: *(, @(, etc. */ 1922 #define SPAT 10 /* separate pattern: | */ 1923 #define CPAT 11 /* close pattern: ) */ 1924 #define ADELIM 12 /* arbitrary delimiter: ${foo:2:3} ${foo/bar/baz} */ 1925 #define FUNSUB 14 /* ${ foo;} substitution (NUL terminated) */ 1926 #define VALSUB 15 /* ${|foo;} substitution (NUL terminated) */ 1927 #define COMASUB 16 /* `…` substitution (COMSUB but expand aliases) */ 1928 #define FUNASUB 17 /* function substitution but expand aliases */ 1929 1930 /* 1931 * IO redirection 1932 */ 1933 struct ioword { 1934 char *ioname; /* filename (unused if heredoc) */ 1935 char *delim; /* delimiter for <<, <<- */ 1936 char *heredoc; /* content of heredoc */ 1937 unsigned short ioflag; /* action (below) */ 1938 short unit; /* unit (fd) affected */ 1939 }; 1940 1941 /* ioword.flag - type of redirection */ 1942 #define IOTYPE 0xF /* type: bits 0:3 */ 1943 #define IOREAD 0x1 /* < */ 1944 #define IOWRITE 0x2 /* > */ 1945 #define IORDWR 0x3 /* <>: todo */ 1946 #define IOHERE 0x4 /* << (here file) */ 1947 #define IOCAT 0x5 /* >> */ 1948 #define IODUP 0x6 /* <&/>& */ 1949 #define IOEVAL BIT(4) /* expand in << */ 1950 #define IOSKIP BIT(5) /* <<-, skip ^\t* */ 1951 #define IOCLOB BIT(6) /* >|, override -o noclobber */ 1952 #define IORDUP BIT(7) /* x<&y (as opposed to x>&y) */ 1953 #define IONAMEXP BIT(8) /* name has been expanded */ 1954 #define IOBASH BIT(9) /* &> etc. */ 1955 #define IOHERESTR BIT(10) /* <<< (here string) */ 1956 #define IONDELIM BIT(11) /* null delimiter (<<) */ 1957 1958 /* execute/exchild flags */ 1959 #define XEXEC BIT(0) /* execute without forking */ 1960 #define XFORK BIT(1) /* fork before executing */ 1961 #define XBGND BIT(2) /* command & */ 1962 #define XPIPEI BIT(3) /* input is pipe */ 1963 #define XPIPEO BIT(4) /* output is pipe */ 1964 #define XXCOM BIT(5) /* `...` command */ 1965 #define XPCLOSE BIT(6) /* exchild: close close_fd in parent */ 1966 #define XCCLOSE BIT(7) /* exchild: close close_fd in child */ 1967 #define XERROK BIT(8) /* non-zero exit ok (for set -e) */ 1968 #define XCOPROC BIT(9) /* starting a co-process */ 1969 #define XTIME BIT(10) /* timing TCOM command */ 1970 #define XPIPEST BIT(11) /* want PIPESTATUS */ 1971 1972 /* 1973 * flags to control expansion of words (assumed by t->evalflags to fit 1974 * in a short) 1975 */ 1976 #define DOBLANK BIT(0) /* perform blank interpretation */ 1977 #define DOGLOB BIT(1) /* expand [?* */ 1978 #define DOPAT BIT(2) /* quote *?[ */ 1979 #define DOTILDE BIT(3) /* normal ~ expansion (first char) */ 1980 #define DONTRUNCOMMAND BIT(4) /* do not run $(command) things */ 1981 #define DOASNTILDE BIT(5) /* assignment ~ expansion (after =, :) */ 1982 #define DOBRACE BIT(6) /* used by expand(): do brace expansion */ 1983 #define DOMAGIC BIT(7) /* used by expand(): string contains MAGIC */ 1984 #define DOTEMP BIT(8) /* dito: in word part of ${..[%#=?]..} */ 1985 #define DOVACHECK BIT(9) /* var assign check (for typeset, set, etc) */ 1986 #define DOMARKDIRS BIT(10) /* force markdirs behaviour */ 1987 #define DOTCOMEXEC BIT(11) /* not an eval flag, used by sh -c hack */ 1988 #define DOSCALAR BIT(12) /* change field handling to non-list context */ 1989 #define DOHEREDOC BIT(13) /* change scalar handling to heredoc body */ 1990 #define DOHERESTR BIT(14) /* append a newline char */ 1991 1992 #define X_EXTRA 20 /* this many extra bytes in X string */ 1993 1994 typedef struct XString { 1995 /* beginning of string */ 1996 char *beg; 1997 /* length of allocated area, minus safety margin */ 1998 size_t len; 1999 /* end of string */ 2000 char *end; 2001 /* memory area used */ 2002 Area *areap; 2003 } XString; 2004 2005 /* initialise expandable string */ 2006 #define XinitN(xs, length, area) do { \ 2007 (xs).len = (length); \ 2008 (xs).areap = (area); \ 2009 (xs).beg = alloc((xs).len + X_EXTRA, (xs).areap); \ 2010 (xs).end = (xs).beg + (xs).len; \ 2011 } while (/* CONSTCOND */ 0) 2012 #define Xinit(xs, xp, length, area) do { \ 2013 XinitN((xs), (length), (area)); \ 2014 (xp) = (xs).beg; \ 2015 } while (/* CONSTCOND */ 0) 2016 2017 /* stuff char into string */ 2018 #define Xput(xs, xp, c) (*xp++ = (c)) 2019 2020 /* check if there are at least n bytes left */ 2021 #define XcheckN(xs, xp, n) do { \ 2022 ssize_t more = ((xp) + (n)) - (xs).end; \ 2023 if (more > 0) \ 2024 (xp) = Xcheck_grow(&(xs), (xp), (size_t)more); \ 2025 } while (/* CONSTCOND */ 0) 2026 2027 /* check for overflow, expand string */ 2028 #define Xcheck(xs, xp) XcheckN((xs), (xp), 1) 2029 2030 /* free string */ 2031 #define Xfree(xs, xp) afree((xs).beg, (xs).areap) 2032 2033 /* close, return string */ 2034 #define Xclose(xs, xp) aresize((xs).beg, (xp) - (xs).beg, (xs).areap) 2035 2036 /* beginning of string */ 2037 #define Xstring(xs, xp) ((xs).beg) 2038 2039 #define Xnleft(xs, xp) ((xs).end - (xp)) /* may be less than 0 */ 2040 #define Xlength(xs, xp) ((xp) - (xs).beg) 2041 #define Xsize(xs, xp) ((xs).end - (xs).beg) 2042 #define Xsavepos(xs, xp) ((xp) - (xs).beg) 2043 #define Xrestpos(xs, xp, n) ((xs).beg + (n)) 2044 2045 char *Xcheck_grow(XString *, const char *, size_t); 2046 2047 /* 2048 * expandable vector of generic pointers 2049 */ 2050 2051 typedef struct { 2052 /* beginning of allocated area */ 2053 void **beg; 2054 /* currently used number of entries */ 2055 size_t len; 2056 /* allocated number of entries */ 2057 size_t siz; 2058 } XPtrV; 2059 2060 #define XPinit(x, n) do { \ 2061 (x).siz = (n); \ 2062 (x).len = 0; \ 2063 (x).beg = alloc2((x).siz, sizeof(void *), ATEMP); \ 2064 } while (/* CONSTCOND */ 0) \ 2065 2066 #define XPput(x, p) do { \ 2067 if ((x).len == (x).siz) { \ 2068 (x).beg = aresize2((x).beg, (x).siz, \ 2069 2 * sizeof(void *), ATEMP); \ 2070 (x).siz <<= 1; \ 2071 } \ 2072 (x).beg[(x).len++] = (p); \ 2073 } while (/* CONSTCOND */ 0) 2074 2075 #define XPptrv(x) ((x).beg) 2076 #define XPsize(x) ((x).len) 2077 #define XPclose(x) aresize2((x).beg, XPsize(x), sizeof(void *), ATEMP) 2078 #define XPfree(x) afree((x).beg, ATEMP) 2079 2080 /* for print_columns */ 2081 2082 struct columnise_opts { 2083 struct shf *shf; 2084 char linesep; 2085 bool do_last; 2086 bool prefcol; 2087 }; 2088 2089 /* 2090 * Lexer internals 2091 */ 2092 2093 typedef struct source Source; 2094 struct source { 2095 /* input buffer */ 2096 XString xs; 2097 /* memory area, also checked in reclaim() */ 2098 Area *areap; 2099 /* stacked source */ 2100 Source *next; 2101 /* input pointer */ 2102 const char *str; 2103 /* start of current buffer */ 2104 const char *start; 2105 /* input file name */ 2106 const char *file; 2107 /* extra data */ 2108 union { 2109 /* string[] */ 2110 const char **strv; 2111 /* shell file */ 2112 struct shf *shf; 2113 /* alias (SF_HASALIAS) */ 2114 struct tbl *tblp; 2115 /* (also for SREREAD) */ 2116 char *freeme; 2117 } u; 2118 /* flags */ 2119 int flags; 2120 /* input type */ 2121 int type; 2122 /* line number */ 2123 int line; 2124 /* line the error occurred on (0 if not set) */ 2125 int errline; 2126 /* buffer for ungetsc() (SREREAD) and alias (SALIAS) */ 2127 char ugbuf[2]; 2128 }; 2129 2130 /* Source.type values */ 2131 #define SEOF 0 /* input EOF */ 2132 #define SFILE 1 /* file input */ 2133 #define SSTDIN 2 /* read stdin */ 2134 #define SSTRING 3 /* string */ 2135 #define SWSTR 4 /* string without \n */ 2136 #define SWORDS 5 /* string[] */ 2137 #define SWORDSEP 6 /* string[] separator */ 2138 #define SALIAS 7 /* alias expansion */ 2139 #define SREREAD 8 /* read ahead to be re-scanned */ 2140 #define SSTRINGCMDLINE 9 /* string from "mksh -c ..." */ 2141 2142 /* Source.flags values */ 2143 #define SF_ECHO BIT(0) /* echo input to shlout */ 2144 #define SF_ALIAS BIT(1) /* faking space at end of alias */ 2145 #define SF_ALIASEND BIT(2) /* faking space at end of alias */ 2146 #define SF_TTY BIT(3) /* type == SSTDIN & it is a tty */ 2147 #define SF_HASALIAS BIT(4) /* u.tblp valid (SALIAS, SEOF) */ 2148 #define SF_MAYEXEC BIT(5) /* special sh -c optimisation hack */ 2149 2150 typedef union { 2151 int i; 2152 char *cp; 2153 char **wp; 2154 struct op *o; 2155 struct ioword *iop; 2156 } YYSTYPE; 2157 2158 /* If something is added here, add it to tokentab[] in syn.c as well */ 2159 #define LWORD 256 2160 #define LOGAND 257 /* && */ 2161 #define LOGOR 258 /* || */ 2162 #define BREAK 259 /* ;; */ 2163 #define IF 260 2164 #define THEN 261 2165 #define ELSE 262 2166 #define ELIF 263 2167 #define FI 264 2168 #define CASE 265 2169 #define ESAC 266 2170 #define FOR 267 2171 #define SELECT 268 2172 #define WHILE 269 2173 #define UNTIL 270 2174 #define DO 271 2175 #define DONE 272 2176 #define IN 273 2177 #define FUNCTION 274 2178 #define TIME 275 2179 #define REDIR 276 2180 #define MDPAREN 277 /* (( )) */ 2181 #define BANG 278 /* ! */ 2182 #define DBRACKET 279 /* [[ .. ]] */ 2183 #define COPROC 280 /* |& */ 2184 #define BRKEV 281 /* ;| */ 2185 #define BRKFT 282 /* ;& */ 2186 #define YYERRCODE 300 2187 2188 /* flags to yylex */ 2189 #define CONTIN BIT(0) /* skip new lines to complete command */ 2190 #define ONEWORD BIT(1) /* single word for substitute() */ 2191 #define ALIAS BIT(2) /* recognise alias */ 2192 #define KEYWORD BIT(3) /* recognise keywords */ 2193 #define LETEXPR BIT(4) /* get expression inside (( )) */ 2194 #define CMDASN BIT(5) /* parse x[1 & 2] as one word, for typeset */ 2195 #define HEREDOC BIT(6) /* parsing a here document body */ 2196 #define ESACONLY BIT(7) /* only accept esac keyword */ 2197 #define CMDWORD BIT(8) /* parsing simple command (alias related) */ 2198 #define HEREDELIM BIT(9) /* parsing <<,<<- delimiter */ 2199 #define LQCHAR BIT(10) /* source string contains QCHAR */ 2200 2201 #define HERES 10 /* max number of << in line */ 2202 2203 #ifdef MKSH_EBCDIC 2204 #define CTRL_AT (0x00U) 2205 #define CTRL_A (0x01U) 2206 #define CTRL_B (0x02U) 2207 #define CTRL_C (0x03U) 2208 #define CTRL_D (0x37U) 2209 #define CTRL_E (0x2DU) 2210 #define CTRL_F (0x2EU) 2211 #define CTRL_G (0x2FU) 2212 #define CTRL_H (0x16U) 2213 #define CTRL_I (0x05U) 2214 #define CTRL_J (0x15U) 2215 #define CTRL_K (0x0BU) 2216 #define CTRL_L (0x0CU) 2217 #define CTRL_M (0x0DU) 2218 #define CTRL_N (0x0EU) 2219 #define CTRL_O (0x0FU) 2220 #define CTRL_P (0x10U) 2221 #define CTRL_Q (0x11U) 2222 #define CTRL_R (0x12U) 2223 #define CTRL_S (0x13U) 2224 #define CTRL_T (0x3CU) 2225 #define CTRL_U (0x3DU) 2226 #define CTRL_V (0x32U) 2227 #define CTRL_W (0x26U) 2228 #define CTRL_X (0x18U) 2229 #define CTRL_Y (0x19U) 2230 #define CTRL_Z (0x3FU) 2231 #define CTRL_BO (0x27U) 2232 #define CTRL_BK (0x1CU) 2233 #define CTRL_BC (0x1DU) 2234 #define CTRL_CA (0x1EU) 2235 #define CTRL_US (0x1FU) 2236 #define CTRL_QM (0x07U) 2237 #else 2238 #define CTRL_AT (0x00U) 2239 #define CTRL_A (0x01U) 2240 #define CTRL_B (0x02U) 2241 #define CTRL_C (0x03U) 2242 #define CTRL_D (0x04U) 2243 #define CTRL_E (0x05U) 2244 #define CTRL_F (0x06U) 2245 #define CTRL_G (0x07U) 2246 #define CTRL_H (0x08U) 2247 #define CTRL_I (0x09U) 2248 #define CTRL_J (0x0AU) 2249 #define CTRL_K (0x0BU) 2250 #define CTRL_L (0x0CU) 2251 #define CTRL_M (0x0DU) 2252 #define CTRL_N (0x0EU) 2253 #define CTRL_O (0x0FU) 2254 #define CTRL_P (0x10U) 2255 #define CTRL_Q (0x11U) 2256 #define CTRL_R (0x12U) 2257 #define CTRL_S (0x13U) 2258 #define CTRL_T (0x14U) 2259 #define CTRL_U (0x15U) 2260 #define CTRL_V (0x16U) 2261 #define CTRL_W (0x17U) 2262 #define CTRL_X (0x18U) 2263 #define CTRL_Y (0x19U) 2264 #define CTRL_Z (0x1AU) 2265 #define CTRL_BO (0x1BU) 2266 #define CTRL_BK (0x1CU) 2267 #define CTRL_BC (0x1DU) 2268 #define CTRL_CA (0x1EU) 2269 #define CTRL_US (0x1FU) 2270 #define CTRL_QM (0x7FU) 2271 #endif 2272 2273 #define IDENT 64 2274 2275 EXTERN Source *source; /* yyparse/yylex source */ 2276 EXTERN YYSTYPE yylval; /* result from yylex */ 2277 EXTERN struct ioword *heres[HERES], **herep; 2278 EXTERN char ident[IDENT + 1]; 2279 2280 EXTERN char **history; /* saved commands */ 2281 EXTERN char **histptr; /* last history item */ 2282 EXTERN mksh_ari_t histsize; /* history size */ 2283 2284 /* flags to histsave */ 2285 #define HIST_FLUSH 0 2286 #define HIST_QUEUE 1 2287 #define HIST_APPEND 2 2288 #define HIST_STORE 3 2289 #define HIST_NOTE 4 2290 2291 /* user and system time of last j_waitjed job */ 2292 EXTERN struct timeval j_usrtime, j_systime; 2293 2294 #define notok2mul(max, val, c) (((val) != 0) && ((c) != 0) && \ 2295 (((max) / (c)) < (val))) 2296 #define notok2add(max, val, c) ((val) > ((max) - (c))) 2297 #define notoktomul(val, cnst) notok2mul(SIZE_MAX, (val), (cnst)) 2298 #define notoktoadd(val, cnst) notok2add(SIZE_MAX, (val), (cnst)) 2299 #define checkoktoadd(val, cnst) do { \ 2300 if (notoktoadd((val), (cnst))) \ 2301 internal_errorf(Tintovfl, (size_t)(val), \ 2302 '+', (size_t)(cnst)); \ 2303 } while (/* CONSTCOND */ 0) 2304 2305 2306 /* lalloc.c */ 2307 void ainit(Area *); 2308 void afreeall(Area *); 2309 /* these cannot fail and can take NULL (not for ap) */ 2310 #define alloc(n, ap) aresize(NULL, (n), (ap)) 2311 #define alloc2(m, n, ap) aresize2(NULL, (m), (n), (ap)) 2312 void *aresize(void *, size_t, Area *); 2313 void *aresize2(void *, size_t, size_t, Area *); 2314 void afree(void *, Area *); /* can take NULL */ 2315 /* edit.c */ 2316 #ifndef MKSH_NO_CMDLINE_EDITING 2317 #ifndef MKSH_SMALL 2318 int x_bind(const char *, const char *, bool, bool); 2319 #else 2320 int x_bind(const char *, const char *, bool); 2321 #endif 2322 void x_init(void); 2323 #ifdef DEBUG_LEAKS 2324 void x_done(void); 2325 #endif 2326 int x_read(char *); 2327 #endif 2328 void x_mkraw(int, mksh_ttyst *, bool); 2329 void x_initterm(const char *); 2330 /* eval.c */ 2331 char *substitute(const char *, int); 2332 char **eval(const char **, int); 2333 char *evalstr(const char *cp, int); 2334 char *evalonestr(const char *cp, int); 2335 char *debunk(char *, const char *, size_t); 2336 void expand(const char *, XPtrV *, int); 2337 int glob_str(char *, XPtrV *, bool); 2338 char *do_tilde(char *); 2339 /* exec.c */ 2340 int execute(struct op * volatile, volatile int, volatile int * volatile); 2341 int c_builtin(const char **); 2342 struct tbl *get_builtin(const char *); 2343 struct tbl *findfunc(const char *, uint32_t, bool); 2344 int define(const char *, struct op *); 2345 const char *builtin(const char *, int (*)(const char **)); 2346 struct tbl *findcom(const char *, int); 2347 void flushcom(bool); 2348 int search_access(const char *, int); 2349 const char *search_path(const char *, const char *, int, int *); 2350 void pr_menu(const char * const *); 2351 void pr_list(struct columnise_opts *, char * const *); 2352 int herein(struct ioword *, char **); 2353 /* expr.c */ 2354 int evaluate(const char *, mksh_ari_t *, int, bool); 2355 int v_evaluate(struct tbl *, const char *, volatile int, bool); 2356 /* UTF-8 stuff */ 2357 size_t utf_mbtowc(unsigned int *, const char *); 2358 size_t utf_wctomb(char *, unsigned int); 2359 int utf_widthadj(const char *, const char **); 2360 size_t utf_mbswidth(const char *) MKSH_A_PURE; 2361 const char *utf_skipcols(const char *, int, int *); 2362 size_t utf_ptradj(const char *) MKSH_A_PURE; 2363 #ifdef MIRBSD_BOOTFLOPPY 2364 #define utf_wcwidth(i) wcwidth((wchar_t)(i)) 2365 #else 2366 int utf_wcwidth(unsigned int) MKSH_A_PURE; 2367 #endif 2368 int ksh_access(const char *, int); 2369 struct tbl *tempvar(const char *); 2370 /* funcs.c */ 2371 int c_hash(const char **); 2372 int c_pwd(const char **); 2373 int c_print(const char **); 2374 #ifdef MKSH_PRINTF_BUILTIN 2375 int c_printf(const char **); 2376 #endif 2377 int c_whence(const char **); 2378 int c_command(const char **); 2379 int c_typeset(const char **); 2380 bool valid_alias_name(const char *); 2381 int c_alias(const char **); 2382 int c_unalias(const char **); 2383 int c_let(const char **); 2384 int c_jobs(const char **); 2385 #ifndef MKSH_UNEMPLOYED 2386 int c_fgbg(const char **); 2387 #endif 2388 int c_kill(const char **); 2389 void getopts_reset(int); 2390 int c_getopts(const char **); 2391 #ifndef MKSH_NO_CMDLINE_EDITING 2392 int c_bind(const char **); 2393 #endif 2394 int c_shift(const char **); 2395 int c_umask(const char **); 2396 int c_dot(const char **); 2397 int c_wait(const char **); 2398 int c_read(const char **); 2399 int c_eval(const char **); 2400 int c_trap(const char **); 2401 int c_brkcont(const char **); 2402 int c_exitreturn(const char **); 2403 int c_set(const char **); 2404 int c_unset(const char **); 2405 int c_ulimit(const char **); 2406 int c_times(const char **); 2407 int timex(struct op *, int, volatile int *); 2408 void timex_hook(struct op *, char ** volatile *); 2409 int c_exec(const char **); 2410 int c_test(const char **); 2411 #if HAVE_MKNOD 2412 int c_mknod(const char **); 2413 #endif 2414 int c_realpath(const char **); 2415 int c_rename(const char **); 2416 int c_cat(const char **); 2417 int c_sleep(const char **); 2418 /* histrap.c */ 2419 void init_histvec(void); 2420 void hist_init(Source *); 2421 #if HAVE_PERSISTENT_HISTORY 2422 void hist_finish(void); 2423 #endif 2424 void histsave(int *, const char *, int, bool); 2425 #if !defined(MKSH_SMALL) && HAVE_PERSISTENT_HISTORY 2426 bool histsync(void); 2427 #endif 2428 int c_fc(const char **); 2429 void sethistsize(mksh_ari_t); 2430 #if HAVE_PERSISTENT_HISTORY 2431 void sethistfile(const char *); 2432 #endif 2433 #if !defined(MKSH_NO_CMDLINE_EDITING) && !MKSH_S_NOVI 2434 char **histpos(void) MKSH_A_PURE; 2435 int histnum(int); 2436 #endif 2437 int findhist(int, int, const char *, bool) MKSH_A_PURE; 2438 char **hist_get_newest(bool); 2439 void inittraps(void); 2440 void alarm_init(void); 2441 Trap *gettrap(const char *, bool, bool); 2442 void trapsig(int); 2443 void intrcheck(void); 2444 int fatal_trap_check(void); 2445 int trap_pending(void); 2446 void runtraps(int intr); 2447 void runtrap(Trap *, bool); 2448 void cleartraps(void); 2449 void restoresigs(void); 2450 void settrap(Trap *, const char *); 2451 bool block_pipe(void); 2452 void restore_pipe(void); 2453 int setsig(Trap *, sig_t, int); 2454 void setexecsig(Trap *, int); 2455 #if HAVE_FLOCK || HAVE_LOCK_FCNTL 2456 void mksh_lockfd(int); 2457 void mksh_unlkfd(int); 2458 #endif 2459 /* jobs.c */ 2460 void j_init(void); 2461 void j_exit(void); 2462 #ifndef MKSH_UNEMPLOYED 2463 void j_change(void); 2464 #endif 2465 int exchild(struct op *, int, volatile int *, int); 2466 void startlast(void); 2467 int waitlast(void); 2468 int waitfor(const char *, int *); 2469 int j_kill(const char *, int); 2470 #ifndef MKSH_UNEMPLOYED 2471 int j_resume(const char *, int); 2472 #endif 2473 #if !defined(MKSH_UNEMPLOYED) && HAVE_GETSID 2474 void j_suspend(void); 2475 #endif 2476 int j_jobs(const char *, int, int); 2477 void j_notify(void); 2478 pid_t j_async(void); 2479 int j_stopped_running(void); 2480 /* lex.c */ 2481 int yylex(int); 2482 void yyskiputf8bom(void); 2483 void yyerror(const char *, ...) 2484 MKSH_A_NORETURN 2485 MKSH_A_FORMAT(__printf__, 1, 2); 2486 Source *pushs(int, Area *); 2487 void set_prompt(int, Source *); 2488 int pprompt(const char *, int); 2489 /* main.c */ 2490 int include(const char *, int, const char **, bool); 2491 int command(const char *, int); 2492 int shell(Source * volatile, volatile int); 2493 /* argument MUST NOT be 0 */ 2494 void unwind(int) MKSH_A_NORETURN; 2495 void newenv(int); 2496 void quitenv(struct shf *); 2497 void cleanup_parents_env(void); 2498 void cleanup_proc_env(void); 2499 void errorf(const char *, ...) 2500 MKSH_A_NORETURN 2501 MKSH_A_FORMAT(__printf__, 1, 2); 2502 void errorfx(int, const char *, ...) 2503 MKSH_A_NORETURN 2504 MKSH_A_FORMAT(__printf__, 2, 3); 2505 void warningf(bool, const char *, ...) 2506 MKSH_A_FORMAT(__printf__, 2, 3); 2507 void bi_errorf(const char *, ...) 2508 MKSH_A_FORMAT(__printf__, 1, 2); 2509 #define errorfz() errorf(NULL) 2510 #define errorfxz(rc) errorfx((rc), NULL) 2511 #define bi_errorfz() bi_errorf(NULL) 2512 void internal_errorf(const char *, ...) 2513 MKSH_A_NORETURN 2514 MKSH_A_FORMAT(__printf__, 1, 2); 2515 void internal_warningf(const char *, ...) 2516 MKSH_A_FORMAT(__printf__, 1, 2); 2517 void error_prefix(bool); 2518 void shellf(const char *, ...) 2519 MKSH_A_FORMAT(__printf__, 1, 2); 2520 void shprintf(const char *, ...) 2521 MKSH_A_FORMAT(__printf__, 1, 2); 2522 int can_seek(int); 2523 void initio(void); 2524 void recheck_ctype(void); 2525 int ksh_dup2(int, int, bool); 2526 short savefd(int); 2527 void restfd(int, int); 2528 void openpipe(int *); 2529 void closepipe(int *); 2530 int check_fd(const char *, int, const char **); 2531 void coproc_init(void); 2532 void coproc_read_close(int); 2533 void coproc_readw_close(int); 2534 void coproc_write_close(int); 2535 int coproc_getfd(int, const char **); 2536 void coproc_cleanup(int); 2537 struct temp *maketemp(Area *, Temp_type, struct temp **); 2538 void ktinit(Area *, struct table *, uint8_t); 2539 struct tbl *ktscan(struct table *, const char *, uint32_t, struct tbl ***); 2540 /* table, name (key) to search for, hash(n) */ 2541 #define ktsearch(tp, s, h) ktscan((tp), (s), (h), NULL) 2542 struct tbl *ktenter(struct table *, const char *, uint32_t); 2543 #define ktdelete(p) do { p->flag = 0; } while (/* CONSTCOND */ 0) 2544 void ktwalk(struct tstate *, struct table *); 2545 struct tbl *ktnext(struct tstate *); 2546 struct tbl **ktsort(struct table *); 2547 #ifdef DF 2548 void DF(const char *, ...) 2549 MKSH_A_FORMAT(__printf__, 1, 2); 2550 #endif 2551 /* misc.c */ 2552 size_t option(const char *) MKSH_A_PURE; 2553 char *getoptions(void); 2554 void change_flag(enum sh_flag, int, bool); 2555 void change_xtrace(unsigned char, bool); 2556 int parse_args(const char **, int, bool *); 2557 int getn(const char *, int *); 2558 int gmatchx(const char *, const char *, bool); 2559 bool has_globbing(const char *) MKSH_A_PURE; 2560 int ascstrcmp(const void *, const void *) MKSH_A_PURE; 2561 int ascpstrcmp(const void *, const void *) MKSH_A_PURE; 2562 void ksh_getopt_reset(Getopt *, int); 2563 int ksh_getopt(const char **, Getopt *, const char *); 2564 void print_value_quoted(struct shf *, const char *); 2565 char *quote_value(const char *); 2566 void print_columns(struct columnise_opts *, unsigned int, 2567 void (*)(char *, size_t, unsigned int, const void *), 2568 const void *, size_t, size_t); 2569 void strip_nuls(char *, size_t) 2570 MKSH_A_BOUNDED(__string__, 1, 2); 2571 ssize_t blocking_read(int, char *, size_t) 2572 MKSH_A_BOUNDED(__buffer__, 2, 3); 2573 int reset_nonblock(int); 2574 char *ksh_get_wd(void); 2575 char *do_realpath(const char *); 2576 void simplify_path(char *); 2577 void set_current_wd(const char *); 2578 int c_cd(const char **); 2579 #if defined(MKSH_SMALL) && !defined(MKSH_SMALL_BUT_FAST) 2580 char *strdup_i(const char *, Area *); 2581 char *strndup_i(const char *, size_t, Area *); 2582 #endif 2583 int unbksl(bool, int (*)(void), void (*)(int)); 2584 #ifdef __OS2__ 2585 /* os2.c */ 2586 void os2_init(int *, const char ***); 2587 void setextlibpath(const char *, const char *); 2588 int access_ex(int (*)(const char *, int), const char *, int); 2589 int stat_ex(const char *, struct stat *); 2590 const char *real_exec_name(const char *); 2591 #endif 2592 /* shf.c */ 2593 struct shf *shf_open(const char *, int, int, int); 2594 struct shf *shf_fdopen(int, int, struct shf *); 2595 struct shf *shf_reopen(int, int, struct shf *); 2596 struct shf *shf_sopen(char *, ssize_t, int, struct shf *); 2597 int shf_close(struct shf *); 2598 int shf_fdclose(struct shf *); 2599 char *shf_sclose(struct shf *); 2600 int shf_flush(struct shf *); 2601 ssize_t shf_read(char *, ssize_t, struct shf *); 2602 char *shf_getse(char *, ssize_t, struct shf *); 2603 int shf_getchar(struct shf *s); 2604 int shf_ungetc(int, struct shf *); 2605 #if defined(MKSH_SMALL) && !defined(MKSH_SMALL_BUT_FAST) 2606 int shf_getc(struct shf *); 2607 int shf_putc(int, struct shf *); 2608 #else 2609 #define shf_getc shf_getc_i 2610 #define shf_putc shf_putc_i 2611 #endif 2612 int shf_putchar(int, struct shf *); 2613 ssize_t shf_puts(const char *, struct shf *); 2614 ssize_t shf_write(const char *, ssize_t, struct shf *); 2615 ssize_t shf_fprintf(struct shf *, const char *, ...) 2616 MKSH_A_FORMAT(__printf__, 2, 3); 2617 ssize_t shf_snprintf(char *, ssize_t, const char *, ...) 2618 MKSH_A_FORMAT(__printf__, 3, 4) 2619 MKSH_A_BOUNDED(__string__, 1, 2); 2620 char *shf_smprintf(const char *, ...) 2621 MKSH_A_FORMAT(__printf__, 1, 2); 2622 ssize_t shf_vfprintf(struct shf *, const char *, va_list) 2623 MKSH_A_FORMAT(__printf__, 2, 0); 2624 void set_ifs(const char *); 2625 /* syn.c */ 2626 void initkeywords(void); 2627 struct op *compile(Source *, bool, bool); 2628 bool parse_usec(const char *, struct timeval *); 2629 char *yyrecursive(int); 2630 void yyrecursive_pop(bool); 2631 /* tree.c */ 2632 void fptreef(struct shf *, int, const char *, ...); 2633 char *snptreef(char *, ssize_t, const char *, ...); 2634 struct op *tcopy(struct op *, Area *); 2635 char *wdcopy(const char *, Area *); 2636 const char *wdscan(const char *, int); 2637 #define WDS_TPUTS BIT(0) /* tputS (dumpwdvar) mode */ 2638 char *wdstrip(const char *, int); 2639 void tfree(struct op *, Area *); 2640 void dumpchar(struct shf *, int); 2641 void dumptree(struct shf *, struct op *); 2642 void dumpwdvar(struct shf *, const char *); 2643 void dumpioact(struct shf *shf, struct op *t); 2644 void vistree(char *, size_t, struct op *) 2645 MKSH_A_BOUNDED(__string__, 1, 2); 2646 void fpFUNCTf(struct shf *, int, bool, const char *, struct op *); 2647 /* var.c */ 2648 void newblock(void); 2649 void popblock(void); 2650 void initvar(void); 2651 struct block *varsearch(struct block *, struct tbl **, const char *, uint32_t); 2652 struct tbl *global(const char *); 2653 struct tbl *isglobal(const char *, bool); 2654 struct tbl *local(const char *, bool); 2655 char *str_val(struct tbl *); 2656 int setstr(struct tbl *, const char *, int); 2657 struct tbl *setint_v(struct tbl *, struct tbl *, bool); 2658 void setint(struct tbl *, mksh_ari_t); 2659 void setint_n(struct tbl *, mksh_ari_t, int); 2660 struct tbl *typeset(const char *, uint32_t, uint32_t, int, int); 2661 void unset(struct tbl *, int); 2662 const char *skip_varname(const char *, bool) MKSH_A_PURE; 2663 const char *skip_wdvarname(const char *, bool) MKSH_A_PURE; 2664 int is_wdvarname(const char *, bool) MKSH_A_PURE; 2665 int is_wdvarassign(const char *) MKSH_A_PURE; 2666 struct tbl *arraysearch(struct tbl *, uint32_t); 2667 char **makenv(void); 2668 void change_winsz(void); 2669 size_t array_ref_len(const char *) MKSH_A_PURE; 2670 char *arrayname(const char *); 2671 mksh_uari_t set_array(const char *, bool, const char **); 2672 uint32_t hash(const void *) MKSH_A_PURE; 2673 uint32_t chvt_rndsetup(const void *, size_t) MKSH_A_PURE; 2674 mksh_ari_t rndget(void); 2675 void rndset(unsigned long); 2676 void rndpush(const void *); 2677 void record_match(const char *); 2678 2679 enum Test_op { 2680 /* non-operator */ 2681 TO_NONOP = 0, 2682 /* unary operators */ 2683 TO_STNZE, TO_STZER, TO_ISSET, TO_OPTION, 2684 TO_FILAXST, 2685 TO_FILEXST, 2686 TO_FILREG, TO_FILBDEV, TO_FILCDEV, TO_FILSYM, TO_FILFIFO, TO_FILSOCK, 2687 TO_FILCDF, TO_FILID, TO_FILGID, TO_FILSETG, TO_FILSTCK, TO_FILUID, 2688 TO_FILRD, TO_FILGZ, TO_FILTT, TO_FILSETU, TO_FILWR, TO_FILEX, 2689 /* binary operators */ 2690 TO_STEQL, TO_STNEQ, TO_STLT, TO_STGT, TO_INTEQ, TO_INTNE, TO_INTGT, 2691 TO_INTGE, TO_INTLT, TO_INTLE, TO_FILEQ, TO_FILNT, TO_FILOT, 2692 /* not an operator */ 2693 TO_NONNULL /* !TO_NONOP */ 2694 }; 2695 typedef enum Test_op Test_op; 2696 2697 /* Used by Test_env.isa() (order important - used to index *_tokens[] arrays) */ 2698 enum Test_meta { 2699 TM_OR, /* -o or || */ 2700 TM_AND, /* -a or && */ 2701 TM_NOT, /* ! */ 2702 TM_OPAREN, /* ( */ 2703 TM_CPAREN, /* ) */ 2704 TM_UNOP, /* unary operator */ 2705 TM_BINOP, /* binary operator */ 2706 TM_END /* end of input */ 2707 }; 2708 typedef enum Test_meta Test_meta; 2709 2710 #define TEF_ERROR BIT(0) /* set if we've hit an error */ 2711 #define TEF_DBRACKET BIT(1) /* set if [[ .. ]] test */ 2712 2713 typedef struct test_env { 2714 union { 2715 const char **wp; /* used by ptest_* */ 2716 XPtrV *av; /* used by dbtestp_* */ 2717 } pos; 2718 const char **wp_end; /* used by ptest_* */ 2719 Test_op (*isa)(struct test_env *, Test_meta); 2720 const char *(*getopnd) (struct test_env *, Test_op, bool); 2721 int (*eval)(struct test_env *, Test_op, const char *, const char *, bool); 2722 void (*error)(struct test_env *, int, const char *); 2723 int flags; /* TEF_* */ 2724 } Test_env; 2725 2726 extern const char * const dbtest_tokens[]; 2727 2728 Test_op test_isop(Test_meta, const char *) MKSH_A_PURE; 2729 int test_eval(Test_env *, Test_op, const char *, const char *, bool); 2730 int test_parse(Test_env *); 2731 2732 /* tty_fd is not opened O_BINARY, it's thus never read/written */ 2733 EXTERN int tty_fd E_INIT(-1); /* dup'd tty file descriptor */ 2734 EXTERN bool tty_devtty; /* true if tty_fd is from /dev/tty */ 2735 EXTERN mksh_ttyst tty_state; /* saved tty state */ 2736 EXTERN bool tty_hasstate; /* true if tty_state is valid */ 2737 2738 extern int tty_init_fd(void); /* initialise tty_fd, tty_devtty */ 2739 2740 #ifdef __OS2__ 2741 #define binopen2(path,flags) __extension__({ \ 2742 int binopen2_fd = open((path), (flags) | O_BINARY); \ 2743 if (binopen2_fd >= 0) \ 2744 setmode(binopen2_fd, O_BINARY); \ 2745 (binopen2_fd); \ 2746 }) 2747 #define binopen3(path,flags,mode) __extension__({ \ 2748 int binopen3_fd = open((path), (flags) | O_BINARY, (mode)); \ 2749 if (binopen3_fd >= 0) \ 2750 setmode(binopen3_fd, O_BINARY); \ 2751 (binopen3_fd); \ 2752 }) 2753 #else 2754 #define binopen2(path,flags) open((path), (flags) | O_BINARY) 2755 #define binopen3(path,flags,mode) open((path), (flags) | O_BINARY, (mode)) 2756 #endif 2757 2758 #ifdef MKSH_DOSPATH 2759 #define mksh_drvltr(s) __extension__({ \ 2760 const char *mksh_drvltr_s = (s); \ 2761 (ctype(mksh_drvltr_s[0], C_ALPHA) && mksh_drvltr_s[1] == ':'); \ 2762 }) 2763 #define mksh_abspath(s) __extension__({ \ 2764 const char *mksh_abspath_s = (s); \ 2765 (mksh_cdirsep(mksh_abspath_s[0]) || \ 2766 (mksh_drvltr(mksh_abspath_s) && \ 2767 mksh_cdirsep(mksh_abspath_s[2]))); \ 2768 }) 2769 #define mksh_cdirsep(c) __extension__({ \ 2770 char mksh_cdirsep_c = (c); \ 2771 (mksh_cdirsep_c == '/' || mksh_cdirsep_c == '\\'); \ 2772 }) 2773 #define mksh_sdirsep(s) strpbrk((s), "/\\") 2774 #define mksh_vdirsep(s) __extension__({ \ 2775 const char *mksh_vdirsep_s = (s); \ 2776 (((mksh_drvltr(mksh_vdirsep_s) && \ 2777 !mksh_cdirsep(mksh_vdirsep_s[2])) ? (!0) : \ 2778 (mksh_sdirsep(mksh_vdirsep_s) != NULL)) && \ 2779 (strcmp(mksh_vdirsep_s, T_builtin) != 0)); \ 2780 }) 2781 int getdrvwd(char **, unsigned int); 2782 #else 2783 #define mksh_abspath(s) (ord((s)[0]) == ORD('/')) 2784 #define mksh_cdirsep(c) (ord(c) == ORD('/')) 2785 #define mksh_sdirsep(s) strchr((s), '/') 2786 #define mksh_vdirsep(s) vstrchr((s), '/') 2787 #endif 2788 2789 /* be sure not to interfere with anyone else's idea about EXTERN */ 2790 #ifdef EXTERN_DEFINED 2791 # undef EXTERN_DEFINED 2792 # undef EXTERN 2793 #endif 2794 #undef E_INIT 2795 2796 #endif /* !MKSH_INCLUDES_ONLY */ 2797