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