[821] | 1 | /* vi: set sw=4 ts=4: */
|
---|
| 2 | /*
|
---|
| 3 | * sh.c -- a prototype Bourne shell grammar parser
|
---|
| 4 | * Intended to follow the original Thompson and Ritchie
|
---|
| 5 | * "small and simple is beautiful" philosophy, which
|
---|
| 6 | * incidentally is a good match to today's BusyBox.
|
---|
| 7 | *
|
---|
| 8 | * Copyright (C) 2000,2001 Larry Doolittle <larry@doolittle.boa.org>
|
---|
| 9 | *
|
---|
| 10 | * Credits:
|
---|
| 11 | * The parser routines proper are all original material, first
|
---|
| 12 | * written Dec 2000 and Jan 2001 by Larry Doolittle. The
|
---|
| 13 | * execution engine, the builtins, and much of the underlying
|
---|
| 14 | * support has been adapted from busybox-0.49pre's lash, which is
|
---|
| 15 | * Copyright (C) 1999-2004 by Erik Andersen <andersen@codepoet.org>
|
---|
| 16 | * written by Erik Andersen <andersen@codepoet.org>. That, in turn,
|
---|
| 17 | * is based in part on ladsh.c, by Michael K. Johnson and Erik W.
|
---|
| 18 | * Troan, which they placed in the public domain. I don't know
|
---|
| 19 | * how much of the Johnson/Troan code has survived the repeated
|
---|
| 20 | * rewrites.
|
---|
| 21 | *
|
---|
| 22 | * Other credits:
|
---|
| 23 | * b_addchr() derived from similar w_addchar function in glibc-2.2
|
---|
| 24 | * setup_redirect(), redirect_opt_num(), and big chunks of main()
|
---|
[1765] | 25 | * and many builtins derived from contributions by Erik Andersen
|
---|
[821] | 26 | * miscellaneous bugfixes from Matt Kraai
|
---|
| 27 | *
|
---|
| 28 | * There are two big (and related) architecture differences between
|
---|
| 29 | * this parser and the lash parser. One is that this version is
|
---|
| 30 | * actually designed from the ground up to understand nearly all
|
---|
| 31 | * of the Bourne grammar. The second, consequential change is that
|
---|
| 32 | * the parser and input reader have been turned inside out. Now,
|
---|
| 33 | * the parser is in control, and asks for input as needed. The old
|
---|
| 34 | * way had the input reader in control, and it asked for parsing to
|
---|
| 35 | * take place as needed. The new way makes it much easier to properly
|
---|
| 36 | * handle the recursion implicit in the various substitutions, especially
|
---|
| 37 | * across continuation lines.
|
---|
| 38 | *
|
---|
| 39 | * Bash grammar not implemented: (how many of these were in original sh?)
|
---|
| 40 | * $_
|
---|
| 41 | * ! negation operator for pipes
|
---|
| 42 | * &> and >& redirection of stdout+stderr
|
---|
| 43 | * Brace Expansion
|
---|
| 44 | * Tilde Expansion
|
---|
| 45 | * fancy forms of Parameter Expansion
|
---|
| 46 | * aliases
|
---|
| 47 | * Arithmetic Expansion
|
---|
| 48 | * <(list) and >(list) Process Substitution
|
---|
| 49 | * reserved words: case, esac, select, function
|
---|
| 50 | * Here Documents ( << word )
|
---|
| 51 | * Functions
|
---|
| 52 | * Major bugs:
|
---|
[1765] | 53 | * job handling woefully incomplete and buggy (improved --vda)
|
---|
[821] | 54 | * reserved word execution woefully incomplete and buggy
|
---|
| 55 | * to-do:
|
---|
| 56 | * port selected bugfixes from post-0.49 busybox lash - done?
|
---|
| 57 | * finish implementing reserved words: for, while, until, do, done
|
---|
| 58 | * change { and } from special chars to reserved words
|
---|
| 59 | * builtins: break, continue, eval, return, set, trap, ulimit
|
---|
| 60 | * test magic exec
|
---|
| 61 | * handle children going into background
|
---|
| 62 | * clean up recognition of null pipes
|
---|
| 63 | * check setting of global_argc and global_argv
|
---|
| 64 | * control-C handling, probably with longjmp
|
---|
| 65 | * follow IFS rules more precisely, including update semantics
|
---|
| 66 | * figure out what to do with backslash-newline
|
---|
| 67 | * explain why we use signal instead of sigaction
|
---|
| 68 | * propagate syntax errors, die on resource errors?
|
---|
| 69 | * continuation lines, both explicit and implicit - done?
|
---|
| 70 | * memory leak finding and plugging - done?
|
---|
| 71 | * more testing, especially quoting rules and redirection
|
---|
| 72 | * document how quoting rules not precisely followed for variable assignments
|
---|
[1765] | 73 | * maybe change charmap[] to use 2-bit entries
|
---|
[821] | 74 | * (eventually) remove all the printf's
|
---|
| 75 | *
|
---|
| 76 | * Licensed under the GPL v2 or later, see the file LICENSE in this tarball.
|
---|
| 77 | */
|
---|
| 78 |
|
---|
[1765] | 79 |
|
---|
[821] | 80 | #include <glob.h> /* glob, of course */
|
---|
| 81 | #include <getopt.h> /* should be pretty obvious */
|
---|
[1765] | 82 | /* #include <dmalloc.h> */
|
---|
[821] | 83 |
|
---|
[1765] | 84 | extern char **environ; /* This is in <unistd.h>, but protected with __USE_GNU */
|
---|
[821] | 85 |
|
---|
[1765] | 86 | #include "busybox.h" /* for struct bb_applet */
|
---|
[821] | 87 |
|
---|
[1765] | 88 |
|
---|
| 89 | /* If you comment out one of these below, it will be #defined later
|
---|
| 90 | * to perform debug printfs to stderr: */
|
---|
| 91 | #define debug_printf(...) do {} while (0)
|
---|
| 92 | /* Finer-grained debug switches */
|
---|
| 93 | #define debug_printf_parse(...) do {} while (0)
|
---|
| 94 | #define debug_print_tree(a, b) do {} while (0)
|
---|
| 95 | #define debug_printf_exec(...) do {} while (0)
|
---|
| 96 | #define debug_printf_jobs(...) do {} while (0)
|
---|
| 97 | #define debug_printf_expand(...) do {} while (0)
|
---|
| 98 | #define debug_printf_clean(...) do {} while (0)
|
---|
| 99 |
|
---|
| 100 | #ifndef debug_printf
|
---|
| 101 | #define debug_printf(...) fprintf(stderr, __VA_ARGS__)
|
---|
[821] | 102 | #endif
|
---|
| 103 |
|
---|
[1765] | 104 | #ifndef debug_printf_parse
|
---|
| 105 | #define debug_printf_parse(...) fprintf(stderr, __VA_ARGS__)
|
---|
| 106 | #endif
|
---|
| 107 |
|
---|
| 108 | #ifndef debug_printf_exec
|
---|
| 109 | #define debug_printf_exec(...) fprintf(stderr, __VA_ARGS__)
|
---|
| 110 | #endif
|
---|
| 111 |
|
---|
| 112 | #ifndef debug_printf_jobs
|
---|
| 113 | #define debug_printf_jobs(...) fprintf(stderr, __VA_ARGS__)
|
---|
| 114 | #define DEBUG_SHELL_JOBS 1
|
---|
| 115 | #endif
|
---|
| 116 |
|
---|
| 117 | #ifndef debug_printf_expand
|
---|
| 118 | #define debug_printf_expand(...) fprintf(stderr, __VA_ARGS__)
|
---|
| 119 | #define DEBUG_EXPAND 1
|
---|
| 120 | #endif
|
---|
| 121 |
|
---|
| 122 | /* Keep unconditionally on for now */
|
---|
| 123 | #define ENABLE_HUSH_DEBUG 1
|
---|
| 124 |
|
---|
| 125 | #ifndef debug_printf_clean
|
---|
| 126 | /* broken, of course, but OK for testing */
|
---|
| 127 | static const char *indenter(int i)
|
---|
| 128 | {
|
---|
| 129 | static const char blanks[] ALIGN1 =
|
---|
| 130 | " ";
|
---|
| 131 | return &blanks[sizeof(blanks) - i - 1];
|
---|
| 132 | }
|
---|
| 133 | #define debug_printf_clean(...) fprintf(stderr, __VA_ARGS__)
|
---|
| 134 | #define DEBUG_CLEAN 1
|
---|
| 135 | #endif
|
---|
| 136 |
|
---|
| 137 |
|
---|
| 138 | #if !ENABLE_HUSH_INTERACTIVE
|
---|
| 139 | #undef ENABLE_FEATURE_EDITING
|
---|
| 140 | #define ENABLE_FEATURE_EDITING 0
|
---|
| 141 | #undef ENABLE_FEATURE_EDITING_FANCY_PROMPT
|
---|
| 142 | #define ENABLE_FEATURE_EDITING_FANCY_PROMPT 0
|
---|
| 143 | #endif
|
---|
| 144 |
|
---|
| 145 | #define SPECIAL_VAR_SYMBOL 3
|
---|
| 146 |
|
---|
| 147 | #define PARSEFLAG_EXIT_FROM_LOOP 1
|
---|
| 148 | #define PARSEFLAG_SEMICOLON (1 << 1) /* symbol ';' is special for parser */
|
---|
| 149 | #define PARSEFLAG_REPARSING (1 << 2) /* >= 2nd pass */
|
---|
| 150 |
|
---|
[821] | 151 | typedef enum {
|
---|
| 152 | REDIRECT_INPUT = 1,
|
---|
| 153 | REDIRECT_OVERWRITE = 2,
|
---|
| 154 | REDIRECT_APPEND = 3,
|
---|
| 155 | REDIRECT_HEREIS = 4,
|
---|
| 156 | REDIRECT_IO = 5
|
---|
| 157 | } redir_type;
|
---|
| 158 |
|
---|
| 159 | /* The descrip member of this structure is only used to make debugging
|
---|
| 160 | * output pretty */
|
---|
[1765] | 161 | static const struct {
|
---|
| 162 | int mode;
|
---|
| 163 | signed char default_fd;
|
---|
| 164 | char descrip[3];
|
---|
| 165 | } redir_table[] = {
|
---|
[821] | 166 | { 0, 0, "()" },
|
---|
| 167 | { O_RDONLY, 0, "<" },
|
---|
| 168 | { O_CREAT|O_TRUNC|O_WRONLY, 1, ">" },
|
---|
| 169 | { O_CREAT|O_APPEND|O_WRONLY, 1, ">>" },
|
---|
| 170 | { O_RDONLY, -1, "<<" },
|
---|
| 171 | { O_RDWR, 1, "<>" }
|
---|
| 172 | };
|
---|
| 173 |
|
---|
| 174 | typedef enum {
|
---|
| 175 | PIPE_SEQ = 1,
|
---|
| 176 | PIPE_AND = 2,
|
---|
| 177 | PIPE_OR = 3,
|
---|
| 178 | PIPE_BG = 4,
|
---|
| 179 | } pipe_style;
|
---|
| 180 |
|
---|
| 181 | /* might eventually control execution */
|
---|
| 182 | typedef enum {
|
---|
| 183 | RES_NONE = 0,
|
---|
[1765] | 184 | #if ENABLE_HUSH_IF
|
---|
[821] | 185 | RES_IF = 1,
|
---|
| 186 | RES_THEN = 2,
|
---|
| 187 | RES_ELIF = 3,
|
---|
| 188 | RES_ELSE = 4,
|
---|
| 189 | RES_FI = 5,
|
---|
[1765] | 190 | #endif
|
---|
| 191 | #if ENABLE_HUSH_LOOPS
|
---|
[821] | 192 | RES_FOR = 6,
|
---|
| 193 | RES_WHILE = 7,
|
---|
| 194 | RES_UNTIL = 8,
|
---|
| 195 | RES_DO = 9,
|
---|
| 196 | RES_DONE = 10,
|
---|
[1765] | 197 | RES_IN = 11,
|
---|
| 198 | #endif
|
---|
| 199 | RES_XXXX = 12,
|
---|
[821] | 200 | RES_SNTX = 13
|
---|
| 201 | } reserved_style;
|
---|
[1765] | 202 | enum {
|
---|
| 203 | FLAG_END = (1 << RES_NONE ),
|
---|
| 204 | #if ENABLE_HUSH_IF
|
---|
| 205 | FLAG_IF = (1 << RES_IF ),
|
---|
| 206 | FLAG_THEN = (1 << RES_THEN ),
|
---|
| 207 | FLAG_ELIF = (1 << RES_ELIF ),
|
---|
| 208 | FLAG_ELSE = (1 << RES_ELSE ),
|
---|
| 209 | FLAG_FI = (1 << RES_FI ),
|
---|
| 210 | #endif
|
---|
| 211 | #if ENABLE_HUSH_LOOPS
|
---|
| 212 | FLAG_FOR = (1 << RES_FOR ),
|
---|
| 213 | FLAG_WHILE = (1 << RES_WHILE),
|
---|
| 214 | FLAG_UNTIL = (1 << RES_UNTIL),
|
---|
| 215 | FLAG_DO = (1 << RES_DO ),
|
---|
| 216 | FLAG_DONE = (1 << RES_DONE ),
|
---|
| 217 | FLAG_IN = (1 << RES_IN ),
|
---|
| 218 | #endif
|
---|
| 219 | FLAG_START = (1 << RES_XXXX ),
|
---|
| 220 | };
|
---|
[821] | 221 |
|
---|
| 222 | /* This holds pointers to the various results of parsing */
|
---|
| 223 | struct p_context {
|
---|
| 224 | struct child_prog *child;
|
---|
| 225 | struct pipe *list_head;
|
---|
| 226 | struct pipe *pipe;
|
---|
| 227 | struct redir_struct *pending_redirect;
|
---|
[1765] | 228 | smallint res_w;
|
---|
| 229 | smallint parse_type; /* bitmask of PARSEFLAG_xxx, defines type of parser : ";$" common or special symbol */
|
---|
| 230 | int old_flag; /* bitmask of FLAG_xxx, for figuring out valid reserved words */
|
---|
[821] | 231 | struct p_context *stack;
|
---|
| 232 | /* How about quoting status? */
|
---|
| 233 | };
|
---|
| 234 |
|
---|
| 235 | struct redir_struct {
|
---|
[1765] | 236 | struct redir_struct *next; /* pointer to the next redirect in the list */
|
---|
| 237 | redir_type type; /* type of redirection */
|
---|
| 238 | int fd; /* file descriptor being redirected */
|
---|
| 239 | int dup; /* -1, or file descriptor being duplicated */
|
---|
| 240 | glob_t word; /* *word.gl_pathv is the filename */
|
---|
[821] | 241 | };
|
---|
| 242 |
|
---|
| 243 | struct child_prog {
|
---|
[1765] | 244 | pid_t pid; /* 0 if exited */
|
---|
| 245 | char **argv; /* program name and arguments */
|
---|
| 246 | struct pipe *group; /* if non-NULL, first in group or subshell */
|
---|
| 247 | smallint subshell; /* flag, non-zero if group must be forked */
|
---|
| 248 | smallint is_stopped; /* is the program currently running? */
|
---|
| 249 | struct redir_struct *redirects; /* I/O redirections */
|
---|
| 250 | glob_t glob_result; /* result of parameter globbing */
|
---|
| 251 | struct pipe *family; /* pointer back to the child's parent pipe */
|
---|
| 252 | //sp counting seems to be broken... so commented out, grep for '//sp:'
|
---|
| 253 | //sp: int sp; /* number of SPECIAL_VAR_SYMBOL */
|
---|
| 254 | //seems to be unused, grep for '//pt:'
|
---|
| 255 | //pt: int parse_type;
|
---|
[821] | 256 | };
|
---|
[1765] | 257 | /* argv vector may contain variable references (^Cvar^C, ^C0^C etc)
|
---|
| 258 | * and on execution these are substituted with their values.
|
---|
| 259 | * Substitution can make _several_ words out of one argv[n]!
|
---|
| 260 | * Example: argv[0]=='.^C*^C.' here: echo .$*.
|
---|
| 261 | */
|
---|
[821] | 262 |
|
---|
| 263 | struct pipe {
|
---|
[1765] | 264 | struct pipe *next;
|
---|
| 265 | int num_progs; /* total number of programs in job */
|
---|
| 266 | int running_progs; /* number of programs running (not exited) */
|
---|
| 267 | int stopped_progs; /* number of programs alive, but stopped */
|
---|
| 268 | #if ENABLE_HUSH_JOB
|
---|
| 269 | int jobid; /* job number */
|
---|
| 270 | pid_t pgrp; /* process group ID for the job */
|
---|
| 271 | char *cmdtext; /* name of job */
|
---|
| 272 | #endif
|
---|
| 273 | char *cmdbuf; /* buffer various argv's point into */
|
---|
| 274 | struct child_prog *progs; /* array of commands in pipe */
|
---|
| 275 | int job_context; /* bitmask defining current context */
|
---|
| 276 | smallint followup; /* PIPE_BG, PIPE_SEQ, PIPE_OR, PIPE_AND */
|
---|
| 277 | smallint res_word; /* needed for if, for, while, until... */
|
---|
[821] | 278 | };
|
---|
| 279 |
|
---|
| 280 | struct close_me {
|
---|
[1765] | 281 | struct close_me *next;
|
---|
[821] | 282 | int fd;
|
---|
| 283 | };
|
---|
| 284 |
|
---|
[1765] | 285 | /* On program start, environ points to initial environment.
|
---|
| 286 | * putenv adds new pointers into it, unsetenv removes them.
|
---|
| 287 | * Neither of these (de)allocates the strings.
|
---|
| 288 | * setenv allocates new strings in malloc space and does putenv,
|
---|
| 289 | * and thus setenv is unusable (leaky) for shell's purposes */
|
---|
| 290 | #define setenv(...) setenv_is_leaky_dont_use()
|
---|
| 291 | struct variable {
|
---|
| 292 | struct variable *next;
|
---|
| 293 | char *varstr; /* points to "name=" portion */
|
---|
| 294 | int max_len; /* if > 0, name is part of initial env; else name is malloced */
|
---|
| 295 | smallint flg_export; /* putenv should be done on this var */
|
---|
| 296 | smallint flg_read_only;
|
---|
[821] | 297 | };
|
---|
| 298 |
|
---|
| 299 | typedef struct {
|
---|
| 300 | char *data;
|
---|
| 301 | int length;
|
---|
| 302 | int maxlen;
|
---|
| 303 | int quote;
|
---|
| 304 | int nonnull;
|
---|
| 305 | } o_string;
|
---|
| 306 | #define NULL_O_STRING {NULL,0,0,0,0}
|
---|
[1765] | 307 | /* used for initialization: o_string foo = NULL_O_STRING; */
|
---|
[821] | 308 |
|
---|
| 309 | /* I can almost use ordinary FILE *. Is open_memstream() universally
|
---|
| 310 | * available? Where is it documented? */
|
---|
| 311 | struct in_str {
|
---|
| 312 | const char *p;
|
---|
[1765] | 313 | /* eof_flag=1: last char in ->p is really an EOF */
|
---|
| 314 | char eof_flag; /* meaningless if ->p == NULL */
|
---|
[821] | 315 | char peek_buf[2];
|
---|
[1765] | 316 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 317 | smallint promptme;
|
---|
| 318 | smallint promptmode; /* 0: PS1, 1: PS2 */
|
---|
| 319 | #endif
|
---|
[821] | 320 | FILE *file;
|
---|
| 321 | int (*get) (struct in_str *);
|
---|
| 322 | int (*peek) (struct in_str *);
|
---|
| 323 | };
|
---|
| 324 | #define b_getch(input) ((input)->get(input))
|
---|
| 325 | #define b_peek(input) ((input)->peek(input))
|
---|
| 326 |
|
---|
[1765] | 327 | enum {
|
---|
| 328 | CHAR_ORDINARY = 0,
|
---|
| 329 | CHAR_ORDINARY_IF_QUOTED = 1, /* example: *, # */
|
---|
| 330 | CHAR_IFS = 2, /* treated as ordinary if quoted */
|
---|
| 331 | CHAR_SPECIAL = 3, /* example: $ */
|
---|
| 332 | };
|
---|
[821] | 333 |
|
---|
[1765] | 334 | #define HUSH_VER_STR "0.02"
|
---|
| 335 |
|
---|
| 336 | /* "Globals" within this file */
|
---|
| 337 |
|
---|
| 338 | /* Sorted roughly by size (smaller offsets == smaller code) */
|
---|
| 339 | struct globals {
|
---|
| 340 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 341 | /* 'interactive_fd' is a fd# open to ctty, if we have one
|
---|
| 342 | * _AND_ if we decided to act interactively */
|
---|
| 343 | int interactive_fd;
|
---|
| 344 | const char *PS1;
|
---|
| 345 | const char *PS2;
|
---|
| 346 | #endif
|
---|
| 347 | #if ENABLE_FEATURE_EDITING
|
---|
| 348 | line_input_t *line_input_state;
|
---|
| 349 | #endif
|
---|
| 350 | #if ENABLE_HUSH_JOB
|
---|
| 351 | int run_list_level;
|
---|
| 352 | pid_t saved_task_pgrp;
|
---|
| 353 | pid_t saved_tty_pgrp;
|
---|
| 354 | int last_jobid;
|
---|
| 355 | struct pipe *job_list;
|
---|
| 356 | struct pipe *toplevel_list;
|
---|
| 357 | smallint ctrl_z_flag;
|
---|
| 358 | #endif
|
---|
| 359 | smallint fake_mode;
|
---|
| 360 | /* these three support $?, $#, and $1 */
|
---|
| 361 | char **global_argv;
|
---|
| 362 | int global_argc;
|
---|
| 363 | int last_return_code;
|
---|
| 364 | const char *ifs;
|
---|
| 365 | struct close_me *close_me_head;
|
---|
| 366 | const char *cwd;
|
---|
| 367 | unsigned last_bg_pid;
|
---|
| 368 | struct variable *top_var; /* = &shell_ver (set in main()) */
|
---|
| 369 | struct variable shell_ver;
|
---|
| 370 | #if ENABLE_FEATURE_SH_STANDALONE
|
---|
| 371 | struct nofork_save_area nofork_save;
|
---|
| 372 | #endif
|
---|
| 373 | #if ENABLE_HUSH_JOB
|
---|
| 374 | sigjmp_buf toplevel_jb;
|
---|
| 375 | #endif
|
---|
| 376 | unsigned char charmap[256];
|
---|
| 377 | char user_input_buf[ENABLE_FEATURE_EDITING ? BUFSIZ : 2];
|
---|
[821] | 378 | };
|
---|
| 379 |
|
---|
[1765] | 380 | #define G (*ptr_to_globals)
|
---|
[821] | 381 |
|
---|
[1765] | 382 | #if !ENABLE_HUSH_INTERACTIVE
|
---|
| 383 | enum { interactive_fd = 0 };
|
---|
| 384 | #endif
|
---|
| 385 | #if !ENABLE_HUSH_JOB
|
---|
| 386 | enum { run_list_level = 0 };
|
---|
| 387 | #endif
|
---|
| 388 |
|
---|
| 389 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 390 | #define interactive_fd (G.interactive_fd )
|
---|
| 391 | #define PS1 (G.PS1 )
|
---|
| 392 | #define PS2 (G.PS2 )
|
---|
| 393 | #endif
|
---|
| 394 | #if ENABLE_FEATURE_EDITING
|
---|
| 395 | #define line_input_state (G.line_input_state)
|
---|
| 396 | #endif
|
---|
| 397 | #if ENABLE_HUSH_JOB
|
---|
| 398 | #define run_list_level (G.run_list_level )
|
---|
| 399 | #define saved_task_pgrp (G.saved_task_pgrp )
|
---|
| 400 | #define saved_tty_pgrp (G.saved_tty_pgrp )
|
---|
| 401 | #define last_jobid (G.last_jobid )
|
---|
| 402 | #define job_list (G.job_list )
|
---|
| 403 | #define toplevel_list (G.toplevel_list )
|
---|
| 404 | #define toplevel_jb (G.toplevel_jb )
|
---|
| 405 | #define ctrl_z_flag (G.ctrl_z_flag )
|
---|
| 406 | #endif /* JOB */
|
---|
| 407 | #define global_argv (G.global_argv )
|
---|
| 408 | #define global_argc (G.global_argc )
|
---|
| 409 | #define last_return_code (G.last_return_code)
|
---|
| 410 | #define ifs (G.ifs )
|
---|
| 411 | #define fake_mode (G.fake_mode )
|
---|
| 412 | #define close_me_head (G.close_me_head )
|
---|
| 413 | #define cwd (G.cwd )
|
---|
| 414 | #define last_bg_pid (G.last_bg_pid )
|
---|
| 415 | #define top_var (G.top_var )
|
---|
| 416 | #define shell_ver (G.shell_ver )
|
---|
| 417 | #if ENABLE_FEATURE_SH_STANDALONE
|
---|
| 418 | #define nofork_save (G.nofork_save )
|
---|
| 419 | #endif
|
---|
| 420 | #if ENABLE_HUSH_JOB
|
---|
| 421 | #define toplevel_jb (G.toplevel_jb )
|
---|
| 422 | #endif
|
---|
| 423 | #define charmap (G.charmap )
|
---|
| 424 | #define user_input_buf (G.user_input_buf )
|
---|
| 425 |
|
---|
| 426 |
|
---|
| 427 | #define B_CHUNK 100
|
---|
| 428 | #define B_NOSPAC 1
|
---|
| 429 | #define JOB_STATUS_FORMAT "[%d] %-22s %.40s\n"
|
---|
| 430 |
|
---|
| 431 | #if 1
|
---|
| 432 | /* Normal */
|
---|
| 433 | static void syntax(const char *msg)
|
---|
[821] | 434 | {
|
---|
[1765] | 435 | /* Was using fancy stuff:
|
---|
| 436 | * (interactive_fd ? bb_error_msg : bb_error_msg_and_die)(...params...)
|
---|
| 437 | * but it SEGVs. ?! Oh well... explicit temp ptr works around that */
|
---|
| 438 | void (*fp)(const char *s, ...);
|
---|
| 439 |
|
---|
| 440 | fp = (interactive_fd ? bb_error_msg : bb_error_msg_and_die);
|
---|
| 441 | fp(msg ? "%s: %s" : "syntax error", "syntax error", msg);
|
---|
[821] | 442 | }
|
---|
[1765] | 443 |
|
---|
[821] | 444 | #else
|
---|
[1765] | 445 | /* Debug */
|
---|
| 446 | static void syntax_lineno(int line)
|
---|
| 447 | {
|
---|
| 448 | void (*fp)(const char *s, ...);
|
---|
[821] | 449 |
|
---|
[1765] | 450 | fp = (interactive_fd ? bb_error_msg : bb_error_msg_and_die);
|
---|
| 451 | fp("syntax error hush.c:%d", line);
|
---|
[821] | 452 | }
|
---|
[1765] | 453 | #define syntax(str) syntax_lineno(__LINE__)
|
---|
| 454 | #endif
|
---|
[821] | 455 |
|
---|
| 456 | /* Index of subroutines: */
|
---|
| 457 | /* function prototypes for builtins */
|
---|
[1765] | 458 | static int builtin_cd(char **argv);
|
---|
| 459 | static int builtin_eval(char **argv);
|
---|
| 460 | static int builtin_exec(char **argv);
|
---|
| 461 | static int builtin_exit(char **argv);
|
---|
| 462 | static int builtin_export(char **argv);
|
---|
| 463 | #if ENABLE_HUSH_JOB
|
---|
| 464 | static int builtin_fg_bg(char **argv);
|
---|
| 465 | static int builtin_jobs(char **argv);
|
---|
| 466 | #endif
|
---|
| 467 | #if ENABLE_HUSH_HELP
|
---|
| 468 | static int builtin_help(char **argv);
|
---|
| 469 | #endif
|
---|
| 470 | static int builtin_pwd(char **argv);
|
---|
| 471 | static int builtin_read(char **argv);
|
---|
| 472 | static int builtin_set(char **argv);
|
---|
| 473 | static int builtin_shift(char **argv);
|
---|
| 474 | static int builtin_source(char **argv);
|
---|
| 475 | static int builtin_umask(char **argv);
|
---|
| 476 | static int builtin_unset(char **argv);
|
---|
| 477 | //static int builtin_not_written(char **argv);
|
---|
[821] | 478 | /* o_string manipulation: */
|
---|
| 479 | static int b_check_space(o_string *o, int len);
|
---|
| 480 | static int b_addchr(o_string *o, int ch);
|
---|
| 481 | static void b_reset(o_string *o);
|
---|
| 482 | static int b_addqchr(o_string *o, int ch, int quote);
|
---|
| 483 | /* in_str manipulations: */
|
---|
| 484 | static int static_get(struct in_str *i);
|
---|
| 485 | static int static_peek(struct in_str *i);
|
---|
| 486 | static int file_get(struct in_str *i);
|
---|
| 487 | static int file_peek(struct in_str *i);
|
---|
| 488 | static void setup_file_in_str(struct in_str *i, FILE *f);
|
---|
| 489 | static void setup_string_in_str(struct in_str *i, const char *s);
|
---|
| 490 | /* close_me manipulations: */
|
---|
| 491 | static void mark_open(int fd);
|
---|
| 492 | static void mark_closed(int fd);
|
---|
| 493 | static void close_all(void);
|
---|
| 494 | /* "run" the final data structures: */
|
---|
[1765] | 495 | #if !defined(DEBUG_CLEAN)
|
---|
| 496 | #define free_pipe_list(head, indent) free_pipe_list(head)
|
---|
| 497 | #define free_pipe(pi, indent) free_pipe(pi)
|
---|
| 498 | #endif
|
---|
[821] | 499 | static int free_pipe_list(struct pipe *head, int indent);
|
---|
| 500 | static int free_pipe(struct pipe *pi, int indent);
|
---|
| 501 | /* really run the final data structures: */
|
---|
| 502 | static int setup_redirects(struct child_prog *prog, int squirrel[]);
|
---|
| 503 | static int run_list_real(struct pipe *pi);
|
---|
[1765] | 504 | static void pseudo_exec_argv(char **argv) ATTRIBUTE_NORETURN;
|
---|
[821] | 505 | static void pseudo_exec(struct child_prog *child) ATTRIBUTE_NORETURN;
|
---|
| 506 | static int run_pipe_real(struct pipe *pi);
|
---|
| 507 | /* extended glob support: */
|
---|
| 508 | static int globhack(const char *src, int flags, glob_t *pglob);
|
---|
| 509 | static int glob_needed(const char *s);
|
---|
| 510 | static int xglob(o_string *dest, int flags, glob_t *pglob);
|
---|
| 511 | /* variable assignment: */
|
---|
| 512 | static int is_assignment(const char *s);
|
---|
| 513 | /* data structure manipulation: */
|
---|
| 514 | static int setup_redirect(struct p_context *ctx, int fd, redir_type style, struct in_str *input);
|
---|
| 515 | static void initialize_context(struct p_context *ctx);
|
---|
| 516 | static int done_word(o_string *dest, struct p_context *ctx);
|
---|
| 517 | static int done_command(struct p_context *ctx);
|
---|
| 518 | static int done_pipe(struct p_context *ctx, pipe_style type);
|
---|
| 519 | /* primary string parsing: */
|
---|
| 520 | static int redirect_dup_num(struct in_str *input);
|
---|
| 521 | static int redirect_opt_num(o_string *o);
|
---|
[1765] | 522 | #if ENABLE_HUSH_TICK
|
---|
| 523 | static int process_command_subs(o_string *dest, struct p_context *ctx, struct in_str *input, const char *subst_end);
|
---|
| 524 | #endif
|
---|
[821] | 525 | static int parse_group(o_string *dest, struct p_context *ctx, struct in_str *input, int ch);
|
---|
[1765] | 526 | static const char *lookup_param(const char *src);
|
---|
[821] | 527 | static int handle_dollar(o_string *dest, struct p_context *ctx, struct in_str *input);
|
---|
[1765] | 528 | static int parse_stream(o_string *dest, struct p_context *ctx, struct in_str *input0, const char *end_trigger);
|
---|
[821] | 529 | /* setup: */
|
---|
[1765] | 530 | static int parse_and_run_stream(struct in_str *inp, int parse_flag);
|
---|
| 531 | static int parse_and_run_string(const char *s, int parse_flag);
|
---|
| 532 | static int parse_and_run_file(FILE *f);
|
---|
[821] | 533 | /* job management: */
|
---|
| 534 | static int checkjobs(struct pipe* fg_pipe);
|
---|
[1765] | 535 | #if ENABLE_HUSH_JOB
|
---|
| 536 | static int checkjobs_and_fg_shell(struct pipe* fg_pipe);
|
---|
[821] | 537 | static void insert_bg_job(struct pipe *pi);
|
---|
| 538 | static void remove_bg_job(struct pipe *pi);
|
---|
[1765] | 539 | static void delete_finished_bg_job(struct pipe *pi);
|
---|
| 540 | #else
|
---|
| 541 | int checkjobs_and_fg_shell(struct pipe* fg_pipe); /* never called */
|
---|
| 542 | #endif
|
---|
[821] | 543 | /* local variable support */
|
---|
[1765] | 544 | static char **expand_strvec_to_strvec(char **argv);
|
---|
| 545 | /* used for eval */
|
---|
| 546 | static char *expand_strvec_to_string(char **argv);
|
---|
| 547 | /* used for expansion of right hand of assignments */
|
---|
| 548 | static char *expand_string_to_string(const char *str);
|
---|
| 549 | static struct variable *get_local_var(const char *name);
|
---|
| 550 | static int set_local_var(char *str, int flg_export);
|
---|
| 551 | static void unset_local_var(const char *name);
|
---|
[821] | 552 |
|
---|
| 553 | /* Table of built-in functions. They can be forked or not, depending on
|
---|
| 554 | * context: within pipes, they fork. As simple commands, they do not.
|
---|
| 555 | * When used in non-forking context, they can change global variables
|
---|
[1765] | 556 | * in the parent shell process. If forked, of course they cannot.
|
---|
[821] | 557 | * For example, 'unset foo | whatever' will parse and run, but foo will
|
---|
| 558 | * still be set at the end. */
|
---|
[1765] | 559 | struct built_in_command {
|
---|
| 560 | const char *cmd; /* name */
|
---|
| 561 | int (*function) (char **argv); /* function ptr */
|
---|
| 562 | #if ENABLE_HUSH_HELP
|
---|
| 563 | const char *descr; /* description */
|
---|
| 564 | #define BLTIN(cmd, func, help) { cmd, func, help }
|
---|
| 565 | #else
|
---|
| 566 | #define BLTIN(cmd, func, help) { cmd, func }
|
---|
| 567 | #endif
|
---|
| 568 | };
|
---|
| 569 |
|
---|
[821] | 570 | static const struct built_in_command bltins[] = {
|
---|
[1765] | 571 | #if ENABLE_HUSH_JOB
|
---|
| 572 | BLTIN("bg" , builtin_fg_bg, "Resume a job in the background"),
|
---|
| 573 | #endif
|
---|
| 574 | // BLTIN("break" , builtin_not_written, "Exit for, while or until loop"),
|
---|
| 575 | BLTIN("cd" , builtin_cd, "Change working directory"),
|
---|
| 576 | // BLTIN("continue", builtin_not_written, "Continue for, while or until loop"),
|
---|
| 577 | BLTIN("eval" , builtin_eval, "Construct and run shell command"),
|
---|
| 578 | BLTIN("exec" , builtin_exec, "Exec command, replacing this shell with the exec'd process"),
|
---|
| 579 | BLTIN("exit" , builtin_exit, "Exit from shell"),
|
---|
| 580 | BLTIN("export", builtin_export, "Set environment variable"),
|
---|
| 581 | #if ENABLE_HUSH_JOB
|
---|
| 582 | BLTIN("fg" , builtin_fg_bg, "Bring job into the foreground"),
|
---|
| 583 | BLTIN("jobs" , builtin_jobs, "Lists the active jobs"),
|
---|
| 584 | #endif
|
---|
| 585 | // TODO: remove pwd? we have it as an applet...
|
---|
| 586 | BLTIN("pwd" , builtin_pwd, "Print current directory"),
|
---|
| 587 | BLTIN("read" , builtin_read, "Input environment variable"),
|
---|
| 588 | // BLTIN("return", builtin_not_written, "Return from a function"),
|
---|
| 589 | BLTIN("set" , builtin_set, "Set/unset shell local variables"),
|
---|
| 590 | BLTIN("shift" , builtin_shift, "Shift positional parameters"),
|
---|
| 591 | // BLTIN("trap" , builtin_not_written, "Trap signals"),
|
---|
| 592 | // BLTIN("ulimit", builtin_not_written, "Controls resource limits"),
|
---|
| 593 | BLTIN("umask" , builtin_umask, "Sets file creation mask"),
|
---|
| 594 | BLTIN("unset" , builtin_unset, "Unset environment variable"),
|
---|
| 595 | BLTIN("." , builtin_source, "Source-in and run commands in a file"),
|
---|
| 596 | #if ENABLE_HUSH_HELP
|
---|
| 597 | BLTIN("help" , builtin_help, "List shell built-in commands"),
|
---|
| 598 | #endif
|
---|
| 599 | BLTIN(NULL, NULL, NULL)
|
---|
[821] | 600 | };
|
---|
| 601 |
|
---|
[1765] | 602 | #if ENABLE_HUSH_JOB
|
---|
| 603 |
|
---|
| 604 | /* move to libbb? */
|
---|
| 605 | static void signal_SA_RESTART(int sig, void (*handler)(int))
|
---|
| 606 | {
|
---|
| 607 | struct sigaction sa;
|
---|
| 608 | sa.sa_handler = handler;
|
---|
| 609 | sa.sa_flags = SA_RESTART;
|
---|
| 610 | sigemptyset(&sa.sa_mask);
|
---|
| 611 | sigaction(sig, &sa, NULL);
|
---|
| 612 | }
|
---|
| 613 |
|
---|
| 614 | /* Signals are grouped, we handle them in batches */
|
---|
| 615 | static void set_fatal_sighandler(void (*handler)(int))
|
---|
| 616 | {
|
---|
| 617 | signal(SIGILL , handler);
|
---|
| 618 | signal(SIGTRAP, handler);
|
---|
| 619 | signal(SIGABRT, handler);
|
---|
| 620 | signal(SIGFPE , handler);
|
---|
| 621 | signal(SIGBUS , handler);
|
---|
| 622 | signal(SIGSEGV, handler);
|
---|
| 623 | /* bash 3.2 seems to handle these just like 'fatal' ones */
|
---|
| 624 | signal(SIGHUP , handler);
|
---|
| 625 | signal(SIGPIPE, handler);
|
---|
| 626 | signal(SIGALRM, handler);
|
---|
| 627 | }
|
---|
| 628 | static void set_jobctrl_sighandler(void (*handler)(int))
|
---|
| 629 | {
|
---|
| 630 | signal(SIGTSTP, handler);
|
---|
| 631 | signal(SIGTTIN, handler);
|
---|
| 632 | signal(SIGTTOU, handler);
|
---|
| 633 | }
|
---|
| 634 | static void set_misc_sighandler(void (*handler)(int))
|
---|
| 635 | {
|
---|
| 636 | signal(SIGINT , handler);
|
---|
| 637 | signal(SIGQUIT, handler);
|
---|
| 638 | signal(SIGTERM, handler);
|
---|
| 639 | }
|
---|
| 640 | /* SIGCHLD is special and handled separately */
|
---|
| 641 |
|
---|
| 642 | static void set_every_sighandler(void (*handler)(int))
|
---|
| 643 | {
|
---|
| 644 | set_fatal_sighandler(handler);
|
---|
| 645 | set_jobctrl_sighandler(handler);
|
---|
| 646 | set_misc_sighandler(handler);
|
---|
| 647 | signal(SIGCHLD, handler);
|
---|
| 648 | }
|
---|
| 649 |
|
---|
| 650 | static void handler_ctrl_c(int sig)
|
---|
| 651 | {
|
---|
| 652 | debug_printf_jobs("got sig %d\n", sig);
|
---|
| 653 | // as usual we can have all kinds of nasty problems with leaked malloc data here
|
---|
| 654 | siglongjmp(toplevel_jb, 1);
|
---|
| 655 | }
|
---|
| 656 |
|
---|
| 657 | static void handler_ctrl_z(int sig)
|
---|
| 658 | {
|
---|
| 659 | pid_t pid;
|
---|
| 660 |
|
---|
| 661 | debug_printf_jobs("got tty sig %d in pid %d\n", sig, getpid());
|
---|
| 662 | pid = fork();
|
---|
| 663 | if (pid < 0) /* can't fork. Pretend there was no ctrl-Z */
|
---|
| 664 | return;
|
---|
| 665 | ctrl_z_flag = 1;
|
---|
| 666 | if (!pid) { /* child */
|
---|
| 667 | setpgrp();
|
---|
| 668 | debug_printf_jobs("set pgrp for child %d ok\n", getpid());
|
---|
| 669 | set_every_sighandler(SIG_DFL);
|
---|
| 670 | raise(SIGTSTP); /* resend TSTP so that child will be stopped */
|
---|
| 671 | debug_printf_jobs("returning in child\n");
|
---|
| 672 | /* return to nofork, it will eventually exit now,
|
---|
| 673 | * not return back to shell */
|
---|
| 674 | return;
|
---|
| 675 | }
|
---|
| 676 | /* parent */
|
---|
| 677 | /* finish filling up pipe info */
|
---|
| 678 | toplevel_list->pgrp = pid; /* child is in its own pgrp */
|
---|
| 679 | toplevel_list->progs[0].pid = pid;
|
---|
| 680 | /* parent needs to longjmp out of running nofork.
|
---|
| 681 | * we will "return" exitcode 0, with child put in background */
|
---|
| 682 | // as usual we can have all kinds of nasty problems with leaked malloc data here
|
---|
| 683 | debug_printf_jobs("siglongjmp in parent\n");
|
---|
| 684 | siglongjmp(toplevel_jb, 1);
|
---|
| 685 | }
|
---|
| 686 |
|
---|
| 687 | /* Restores tty foreground process group, and exits.
|
---|
| 688 | * May be called as signal handler for fatal signal
|
---|
| 689 | * (will faithfully resend signal to itself, producing correct exit state)
|
---|
| 690 | * or called directly with -EXITCODE.
|
---|
| 691 | * We also call it if xfunc is exiting. */
|
---|
| 692 | static void sigexit(int sig) ATTRIBUTE_NORETURN;
|
---|
| 693 | static void sigexit(int sig)
|
---|
| 694 | {
|
---|
| 695 | sigset_t block_all;
|
---|
| 696 |
|
---|
| 697 | /* Disable all signals: job control, SIGPIPE, etc. */
|
---|
| 698 | sigfillset(&block_all);
|
---|
| 699 | sigprocmask(SIG_SETMASK, &block_all, NULL);
|
---|
| 700 |
|
---|
| 701 | if (interactive_fd)
|
---|
| 702 | tcsetpgrp(interactive_fd, saved_tty_pgrp);
|
---|
| 703 |
|
---|
| 704 | /* Not a signal, just exit */
|
---|
| 705 | if (sig <= 0)
|
---|
| 706 | _exit(- sig);
|
---|
| 707 |
|
---|
| 708 | /* Enable only this sig and kill ourself with it */
|
---|
| 709 | signal(sig, SIG_DFL);
|
---|
| 710 | sigdelset(&block_all, sig);
|
---|
| 711 | sigprocmask(SIG_SETMASK, &block_all, NULL);
|
---|
| 712 | raise(sig);
|
---|
| 713 | _exit(1); /* Should not reach it */
|
---|
| 714 | }
|
---|
| 715 |
|
---|
| 716 | /* Restores tty foreground process group, and exits. */
|
---|
| 717 | static void hush_exit(int exitcode) ATTRIBUTE_NORETURN;
|
---|
| 718 | static void hush_exit(int exitcode)
|
---|
| 719 | {
|
---|
| 720 | fflush(NULL); /* flush all streams */
|
---|
| 721 | sigexit(- (exitcode & 0xff));
|
---|
| 722 | }
|
---|
| 723 |
|
---|
| 724 | #else /* !JOB */
|
---|
| 725 |
|
---|
| 726 | #define set_fatal_sighandler(handler) ((void)0)
|
---|
| 727 | #define set_jobctrl_sighandler(handler) ((void)0)
|
---|
| 728 | #define set_misc_sighandler(handler) ((void)0)
|
---|
| 729 | #define hush_exit(e) exit(e)
|
---|
| 730 |
|
---|
| 731 | #endif /* JOB */
|
---|
| 732 |
|
---|
| 733 |
|
---|
[821] | 734 | static const char *set_cwd(void)
|
---|
| 735 | {
|
---|
[1765] | 736 | if (cwd == bb_msg_unknown)
|
---|
| 737 | cwd = NULL; /* xrealloc_getcwd_or_warn(arg) calls free(arg)! */
|
---|
| 738 | cwd = xrealloc_getcwd_or_warn((char *)cwd);
|
---|
[821] | 739 | if (!cwd)
|
---|
| 740 | cwd = bb_msg_unknown;
|
---|
| 741 | return cwd;
|
---|
| 742 | }
|
---|
| 743 |
|
---|
| 744 | /* built-in 'eval' handler */
|
---|
[1765] | 745 | static int builtin_eval(char **argv)
|
---|
[821] | 746 | {
|
---|
| 747 | int rcode = EXIT_SUCCESS;
|
---|
| 748 |
|
---|
[1765] | 749 | if (argv[1]) {
|
---|
| 750 | char *str = expand_strvec_to_string(argv + 1);
|
---|
| 751 | parse_and_run_string(str, PARSEFLAG_EXIT_FROM_LOOP |
|
---|
| 752 | PARSEFLAG_SEMICOLON);
|
---|
[821] | 753 | free(str);
|
---|
| 754 | rcode = last_return_code;
|
---|
| 755 | }
|
---|
| 756 | return rcode;
|
---|
| 757 | }
|
---|
| 758 |
|
---|
| 759 | /* built-in 'cd <path>' handler */
|
---|
[1765] | 760 | static int builtin_cd(char **argv)
|
---|
[821] | 761 | {
|
---|
[1765] | 762 | const char *newdir;
|
---|
| 763 | if (argv[1] == NULL)
|
---|
| 764 | newdir = getenv("HOME") ? : "/";
|
---|
[821] | 765 | else
|
---|
[1765] | 766 | newdir = argv[1];
|
---|
[821] | 767 | if (chdir(newdir)) {
|
---|
| 768 | printf("cd: %s: %s\n", newdir, strerror(errno));
|
---|
| 769 | return EXIT_FAILURE;
|
---|
| 770 | }
|
---|
| 771 | set_cwd();
|
---|
| 772 | return EXIT_SUCCESS;
|
---|
| 773 | }
|
---|
| 774 |
|
---|
| 775 | /* built-in 'exec' handler */
|
---|
[1765] | 776 | static int builtin_exec(char **argv)
|
---|
[821] | 777 | {
|
---|
[1765] | 778 | if (argv[1] == NULL)
|
---|
[821] | 779 | return EXIT_SUCCESS; /* Really? */
|
---|
[1765] | 780 | pseudo_exec_argv(argv + 1);
|
---|
[821] | 781 | /* never returns */
|
---|
| 782 | }
|
---|
| 783 |
|
---|
| 784 | /* built-in 'exit' handler */
|
---|
[1765] | 785 | static int builtin_exit(char **argv)
|
---|
[821] | 786 | {
|
---|
[1765] | 787 | // TODO: bash does it ONLY on top-level sh exit (+interacive only?)
|
---|
| 788 | //puts("exit"); /* bash does it */
|
---|
| 789 | // TODO: warn if we have background jobs: "There are stopped jobs"
|
---|
| 790 | // On second consecutive 'exit', exit anyway.
|
---|
| 791 |
|
---|
| 792 | if (argv[1] == NULL)
|
---|
| 793 | hush_exit(last_return_code);
|
---|
| 794 | /* mimic bash: exit 123abc == exit 255 + error msg */
|
---|
| 795 | xfunc_error_retval = 255;
|
---|
| 796 | /* bash: exit -2 == exit 254, no error msg */
|
---|
| 797 | hush_exit(xatoi(argv[1]) & 0xff);
|
---|
[821] | 798 | }
|
---|
| 799 |
|
---|
| 800 | /* built-in 'export VAR=value' handler */
|
---|
[1765] | 801 | static int builtin_export(char **argv)
|
---|
[821] | 802 | {
|
---|
[1765] | 803 | const char *value;
|
---|
| 804 | char *name = argv[1];
|
---|
[821] | 805 |
|
---|
| 806 | if (name == NULL) {
|
---|
[1765] | 807 | // TODO:
|
---|
| 808 | // ash emits: export VAR='VAL'
|
---|
| 809 | // bash: declare -x VAR="VAL"
|
---|
| 810 | // (both also escape as needed (quotes, $, etc))
|
---|
| 811 | char **e = environ;
|
---|
| 812 | if (e)
|
---|
| 813 | while (*e)
|
---|
| 814 | puts(*e++);
|
---|
| 815 | return EXIT_SUCCESS;
|
---|
[821] | 816 | }
|
---|
| 817 |
|
---|
[1765] | 818 | value = strchr(name, '=');
|
---|
| 819 | if (!value) {
|
---|
| 820 | /* They are exporting something without a =VALUE */
|
---|
| 821 | struct variable *var;
|
---|
[821] | 822 |
|
---|
[1765] | 823 | var = get_local_var(name);
|
---|
| 824 | if (var) {
|
---|
| 825 | var->flg_export = 1;
|
---|
| 826 | putenv(var->varstr);
|
---|
[821] | 827 | }
|
---|
[1765] | 828 | /* bash does not return an error when trying to export
|
---|
| 829 | * an undefined variable. Do likewise. */
|
---|
| 830 | return EXIT_SUCCESS;
|
---|
[821] | 831 | }
|
---|
[1765] | 832 |
|
---|
| 833 | set_local_var(xstrdup(name), 1);
|
---|
| 834 | return EXIT_SUCCESS;
|
---|
[821] | 835 | }
|
---|
| 836 |
|
---|
[1765] | 837 | #if ENABLE_HUSH_JOB
|
---|
[821] | 838 | /* built-in 'fg' and 'bg' handler */
|
---|
[1765] | 839 | static int builtin_fg_bg(char **argv)
|
---|
[821] | 840 | {
|
---|
| 841 | int i, jobnum;
|
---|
[1765] | 842 | struct pipe *pi;
|
---|
[821] | 843 |
|
---|
[1765] | 844 | if (!interactive_fd)
|
---|
[821] | 845 | return EXIT_FAILURE;
|
---|
| 846 | /* If they gave us no args, assume they want the last backgrounded task */
|
---|
[1765] | 847 | if (!argv[1]) {
|
---|
[821] | 848 | for (pi = job_list; pi; pi = pi->next) {
|
---|
| 849 | if (pi->jobid == last_jobid) {
|
---|
[1765] | 850 | goto found;
|
---|
[821] | 851 | }
|
---|
| 852 | }
|
---|
[1765] | 853 | bb_error_msg("%s: no current job", argv[0]);
|
---|
| 854 | return EXIT_FAILURE;
|
---|
| 855 | }
|
---|
| 856 | if (sscanf(argv[1], "%%%d", &jobnum) != 1) {
|
---|
| 857 | bb_error_msg("%s: bad argument '%s'", argv[0], argv[1]);
|
---|
| 858 | return EXIT_FAILURE;
|
---|
| 859 | }
|
---|
| 860 | for (pi = job_list; pi; pi = pi->next) {
|
---|
| 861 | if (pi->jobid == jobnum) {
|
---|
| 862 | goto found;
|
---|
[821] | 863 | }
|
---|
| 864 | }
|
---|
[1765] | 865 | bb_error_msg("%s: %d: no such job", argv[0], jobnum);
|
---|
| 866 | return EXIT_FAILURE;
|
---|
| 867 | found:
|
---|
| 868 | // TODO: bash prints a string representation
|
---|
| 869 | // of job being foregrounded (like "sleep 1 | cat")
|
---|
| 870 | if (*argv[0] == 'f') {
|
---|
[821] | 871 | /* Put the job into the foreground. */
|
---|
[1765] | 872 | tcsetpgrp(interactive_fd, pi->pgrp);
|
---|
[821] | 873 | }
|
---|
| 874 |
|
---|
| 875 | /* Restart the processes in the job */
|
---|
[1765] | 876 | debug_printf_jobs("reviving %d procs, pgrp %d\n", pi->num_progs, pi->pgrp);
|
---|
| 877 | for (i = 0; i < pi->num_progs; i++) {
|
---|
| 878 | debug_printf_jobs("reviving pid %d\n", pi->progs[i].pid);
|
---|
[821] | 879 | pi->progs[i].is_stopped = 0;
|
---|
[1765] | 880 | }
|
---|
| 881 | pi->stopped_progs = 0;
|
---|
[821] | 882 |
|
---|
[1765] | 883 | i = kill(- pi->pgrp, SIGCONT);
|
---|
| 884 | if (i < 0) {
|
---|
| 885 | if (errno == ESRCH) {
|
---|
| 886 | delete_finished_bg_job(pi);
|
---|
| 887 | return EXIT_SUCCESS;
|
---|
[821] | 888 | } else {
|
---|
| 889 | bb_perror_msg("kill (SIGCONT)");
|
---|
| 890 | }
|
---|
| 891 | }
|
---|
| 892 |
|
---|
[1765] | 893 | if (*argv[0] == 'f') {
|
---|
| 894 | remove_bg_job(pi);
|
---|
| 895 | return checkjobs_and_fg_shell(pi);
|
---|
| 896 | }
|
---|
[821] | 897 | return EXIT_SUCCESS;
|
---|
| 898 | }
|
---|
[1765] | 899 | #endif
|
---|
[821] | 900 |
|
---|
| 901 | /* built-in 'help' handler */
|
---|
[1765] | 902 | #if ENABLE_HUSH_HELP
|
---|
| 903 | static int builtin_help(char **argv ATTRIBUTE_UNUSED)
|
---|
[821] | 904 | {
|
---|
| 905 | const struct built_in_command *x;
|
---|
| 906 |
|
---|
| 907 | printf("\nBuilt-in commands:\n");
|
---|
| 908 | printf("-------------------\n");
|
---|
| 909 | for (x = bltins; x->cmd; x++) {
|
---|
| 910 | printf("%s\t%s\n", x->cmd, x->descr);
|
---|
| 911 | }
|
---|
| 912 | printf("\n\n");
|
---|
| 913 | return EXIT_SUCCESS;
|
---|
| 914 | }
|
---|
[1765] | 915 | #endif
|
---|
[821] | 916 |
|
---|
[1765] | 917 | #if ENABLE_HUSH_JOB
|
---|
[821] | 918 | /* built-in 'jobs' handler */
|
---|
[1765] | 919 | static int builtin_jobs(char **argv ATTRIBUTE_UNUSED)
|
---|
[821] | 920 | {
|
---|
| 921 | struct pipe *job;
|
---|
[1765] | 922 | const char *status_string;
|
---|
[821] | 923 |
|
---|
| 924 | for (job = job_list; job; job = job->next) {
|
---|
| 925 | if (job->running_progs == job->stopped_progs)
|
---|
| 926 | status_string = "Stopped";
|
---|
| 927 | else
|
---|
| 928 | status_string = "Running";
|
---|
| 929 |
|
---|
[1765] | 930 | printf(JOB_STATUS_FORMAT, job->jobid, status_string, job->cmdtext);
|
---|
[821] | 931 | }
|
---|
| 932 | return EXIT_SUCCESS;
|
---|
| 933 | }
|
---|
[1765] | 934 | #endif
|
---|
[821] | 935 |
|
---|
| 936 | /* built-in 'pwd' handler */
|
---|
[1765] | 937 | static int builtin_pwd(char **argv ATTRIBUTE_UNUSED)
|
---|
[821] | 938 | {
|
---|
| 939 | puts(set_cwd());
|
---|
| 940 | return EXIT_SUCCESS;
|
---|
| 941 | }
|
---|
| 942 |
|
---|
| 943 | /* built-in 'read VAR' handler */
|
---|
[1765] | 944 | static int builtin_read(char **argv)
|
---|
[821] | 945 | {
|
---|
[1765] | 946 | char *string;
|
---|
| 947 | const char *name = argv[1] ? argv[1] : "REPLY";
|
---|
[821] | 948 |
|
---|
[1765] | 949 | string = xmalloc_reads(STDIN_FILENO, xasprintf("%s=", name));
|
---|
| 950 | return set_local_var(string, 0);
|
---|
[821] | 951 | }
|
---|
| 952 |
|
---|
[1765] | 953 | /* built-in 'set [VAR=value]' handler */
|
---|
| 954 | static int builtin_set(char **argv)
|
---|
[821] | 955 | {
|
---|
[1765] | 956 | char *temp = argv[1];
|
---|
| 957 | struct variable *e;
|
---|
[821] | 958 |
|
---|
| 959 | if (temp == NULL)
|
---|
[1765] | 960 | for (e = top_var; e; e = e->next)
|
---|
| 961 | puts(e->varstr);
|
---|
[821] | 962 | else
|
---|
[1765] | 963 | set_local_var(xstrdup(temp), 0);
|
---|
[821] | 964 |
|
---|
[1765] | 965 | return EXIT_SUCCESS;
|
---|
[821] | 966 | }
|
---|
| 967 |
|
---|
| 968 |
|
---|
| 969 | /* Built-in 'shift' handler */
|
---|
[1765] | 970 | static int builtin_shift(char **argv)
|
---|
[821] | 971 | {
|
---|
[1765] | 972 | int n = 1;
|
---|
| 973 | if (argv[1]) {
|
---|
| 974 | n = atoi(argv[1]);
|
---|
[821] | 975 | }
|
---|
[1765] | 976 | if (n >= 0 && n < global_argc) {
|
---|
| 977 | global_argv[n] = global_argv[0];
|
---|
[821] | 978 | global_argc -= n;
|
---|
| 979 | global_argv += n;
|
---|
| 980 | return EXIT_SUCCESS;
|
---|
| 981 | }
|
---|
[1765] | 982 | return EXIT_FAILURE;
|
---|
[821] | 983 | }
|
---|
| 984 |
|
---|
| 985 | /* Built-in '.' handler (read-in and execute commands from file) */
|
---|
[1765] | 986 | static int builtin_source(char **argv)
|
---|
[821] | 987 | {
|
---|
| 988 | FILE *input;
|
---|
| 989 | int status;
|
---|
| 990 |
|
---|
[1765] | 991 | if (argv[1] == NULL)
|
---|
[821] | 992 | return EXIT_FAILURE;
|
---|
| 993 |
|
---|
| 994 | /* XXX search through $PATH is missing */
|
---|
[1765] | 995 | input = fopen(argv[1], "r");
|
---|
[821] | 996 | if (!input) {
|
---|
[1765] | 997 | bb_error_msg("cannot open '%s'", argv[1]);
|
---|
[821] | 998 | return EXIT_FAILURE;
|
---|
| 999 | }
|
---|
| 1000 |
|
---|
| 1001 | /* Now run the file */
|
---|
| 1002 | /* XXX argv and argc are broken; need to save old global_argv
|
---|
| 1003 | * (pointer only is OK!) on this stack frame,
|
---|
[1765] | 1004 | * set global_argv=argv+1, recurse, and restore. */
|
---|
[821] | 1005 | mark_open(fileno(input));
|
---|
[1765] | 1006 | status = parse_and_run_file(input);
|
---|
[821] | 1007 | mark_closed(fileno(input));
|
---|
| 1008 | fclose(input);
|
---|
[1765] | 1009 | return status;
|
---|
[821] | 1010 | }
|
---|
| 1011 |
|
---|
[1765] | 1012 | static int builtin_umask(char **argv)
|
---|
[821] | 1013 | {
|
---|
| 1014 | mode_t new_umask;
|
---|
[1765] | 1015 | const char *arg = argv[1];
|
---|
[821] | 1016 | char *end;
|
---|
| 1017 | if (arg) {
|
---|
[1765] | 1018 | new_umask = strtoul(arg, &end, 8);
|
---|
| 1019 | if (*end != '\0' || end == arg) {
|
---|
[821] | 1020 | return EXIT_FAILURE;
|
---|
| 1021 | }
|
---|
| 1022 | } else {
|
---|
[1765] | 1023 | new_umask = umask(0);
|
---|
| 1024 | printf("%.3o\n", (unsigned) new_umask);
|
---|
[821] | 1025 | }
|
---|
| 1026 | umask(new_umask);
|
---|
| 1027 | return EXIT_SUCCESS;
|
---|
| 1028 | }
|
---|
| 1029 |
|
---|
| 1030 | /* built-in 'unset VAR' handler */
|
---|
[1765] | 1031 | static int builtin_unset(char **argv)
|
---|
[821] | 1032 | {
|
---|
[1765] | 1033 | /* bash always returns true */
|
---|
| 1034 | unset_local_var(argv[1]);
|
---|
[821] | 1035 | return EXIT_SUCCESS;
|
---|
| 1036 | }
|
---|
| 1037 |
|
---|
[1765] | 1038 | //static int builtin_not_written(char **argv)
|
---|
| 1039 | //{
|
---|
| 1040 | // printf("builtin_%s not written\n", argv[0]);
|
---|
| 1041 | // return EXIT_FAILURE;
|
---|
| 1042 | //}
|
---|
[821] | 1043 |
|
---|
| 1044 | static int b_check_space(o_string *o, int len)
|
---|
| 1045 | {
|
---|
| 1046 | /* It would be easy to drop a more restrictive policy
|
---|
| 1047 | * in here, such as setting a maximum string length */
|
---|
| 1048 | if (o->length + len > o->maxlen) {
|
---|
[1765] | 1049 | /* assert(data == NULL || o->maxlen != 0); */
|
---|
| 1050 | o->maxlen += (2*len > B_CHUNK ? 2*len : B_CHUNK);
|
---|
| 1051 | o->data = xrealloc(o->data, 1 + o->maxlen);
|
---|
[821] | 1052 | }
|
---|
| 1053 | return o->data == NULL;
|
---|
| 1054 | }
|
---|
| 1055 |
|
---|
| 1056 | static int b_addchr(o_string *o, int ch)
|
---|
| 1057 | {
|
---|
[1765] | 1058 | debug_printf("b_addchr: '%c' o->length=%d o=%p\n", ch, o->length, o);
|
---|
| 1059 | if (b_check_space(o, 1))
|
---|
| 1060 | return B_NOSPAC;
|
---|
[821] | 1061 | o->data[o->length] = ch;
|
---|
| 1062 | o->length++;
|
---|
| 1063 | o->data[o->length] = '\0';
|
---|
| 1064 | return 0;
|
---|
| 1065 | }
|
---|
| 1066 |
|
---|
| 1067 | static void b_reset(o_string *o)
|
---|
| 1068 | {
|
---|
| 1069 | o->length = 0;
|
---|
| 1070 | o->nonnull = 0;
|
---|
[1765] | 1071 | if (o->data != NULL)
|
---|
| 1072 | *o->data = '\0';
|
---|
[821] | 1073 | }
|
---|
| 1074 |
|
---|
| 1075 | static void b_free(o_string *o)
|
---|
| 1076 | {
|
---|
| 1077 | b_reset(o);
|
---|
| 1078 | free(o->data);
|
---|
| 1079 | o->data = NULL;
|
---|
| 1080 | o->maxlen = 0;
|
---|
| 1081 | }
|
---|
| 1082 |
|
---|
| 1083 | /* My analysis of quoting semantics tells me that state information
|
---|
| 1084 | * is associated with a destination, not a source.
|
---|
| 1085 | */
|
---|
| 1086 | static int b_addqchr(o_string *o, int ch, int quote)
|
---|
| 1087 | {
|
---|
[1765] | 1088 | if (quote && strchr("*?[\\", ch)) {
|
---|
[821] | 1089 | int rc;
|
---|
| 1090 | rc = b_addchr(o, '\\');
|
---|
[1765] | 1091 | if (rc)
|
---|
| 1092 | return rc;
|
---|
[821] | 1093 | }
|
---|
| 1094 | return b_addchr(o, ch);
|
---|
| 1095 | }
|
---|
| 1096 |
|
---|
| 1097 | static int static_get(struct in_str *i)
|
---|
| 1098 | {
|
---|
[1765] | 1099 | int ch = *i->p++;
|
---|
| 1100 | if (ch == '\0') return EOF;
|
---|
[821] | 1101 | return ch;
|
---|
| 1102 | }
|
---|
| 1103 |
|
---|
| 1104 | static int static_peek(struct in_str *i)
|
---|
| 1105 | {
|
---|
| 1106 | return *i->p;
|
---|
| 1107 | }
|
---|
| 1108 |
|
---|
[1765] | 1109 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 1110 | #if ENABLE_FEATURE_EDITING
|
---|
| 1111 | static void cmdedit_set_initial_prompt(void)
|
---|
[821] | 1112 | {
|
---|
[1765] | 1113 | #if !ENABLE_FEATURE_EDITING_FANCY_PROMPT
|
---|
[821] | 1114 | PS1 = NULL;
|
---|
| 1115 | #else
|
---|
| 1116 | PS1 = getenv("PS1");
|
---|
[1765] | 1117 | if (PS1 == NULL)
|
---|
[821] | 1118 | PS1 = "\\w \\$ ";
|
---|
| 1119 | #endif
|
---|
| 1120 | }
|
---|
[1765] | 1121 | #endif /* EDITING */
|
---|
[821] | 1122 |
|
---|
[1765] | 1123 | static const char* setup_prompt_string(int promptmode)
|
---|
[821] | 1124 | {
|
---|
[1765] | 1125 | const char *prompt_str;
|
---|
| 1126 | debug_printf("setup_prompt_string %d ", promptmode);
|
---|
| 1127 | #if !ENABLE_FEATURE_EDITING_FANCY_PROMPT
|
---|
[821] | 1128 | /* Set up the prompt */
|
---|
[1765] | 1129 | if (promptmode == 0) { /* PS1 */
|
---|
| 1130 | free((char*)PS1);
|
---|
| 1131 | PS1 = xasprintf("%s %c ", cwd, (geteuid() != 0) ? '$' : '#');
|
---|
| 1132 | prompt_str = PS1;
|
---|
[821] | 1133 | } else {
|
---|
[1765] | 1134 | prompt_str = PS2;
|
---|
[821] | 1135 | }
|
---|
| 1136 | #else
|
---|
[1765] | 1137 | prompt_str = (promptmode == 0) ? PS1 : PS2;
|
---|
[821] | 1138 | #endif
|
---|
[1765] | 1139 | debug_printf("result '%s'\n", prompt_str);
|
---|
| 1140 | return prompt_str;
|
---|
[821] | 1141 | }
|
---|
| 1142 |
|
---|
| 1143 | static void get_user_input(struct in_str *i)
|
---|
| 1144 | {
|
---|
[1765] | 1145 | int r;
|
---|
| 1146 | const char *prompt_str;
|
---|
[821] | 1147 |
|
---|
[1765] | 1148 | prompt_str = setup_prompt_string(i->promptmode);
|
---|
| 1149 | #if ENABLE_FEATURE_EDITING
|
---|
| 1150 | /* Enable command line editing only while a command line
|
---|
| 1151 | * is actually being read; otherwise, we'll end up bequeathing
|
---|
| 1152 | * atexit() handlers and other unwanted stuff to our
|
---|
| 1153 | * child processes (rob@sysgo.de) */
|
---|
| 1154 | r = read_line_input(prompt_str, user_input_buf, BUFSIZ-1, line_input_state);
|
---|
| 1155 | i->eof_flag = (r < 0);
|
---|
| 1156 | if (i->eof_flag) { /* EOF/error detected */
|
---|
| 1157 | user_input_buf[0] = EOF; /* yes, it will be truncated, it's ok */
|
---|
| 1158 | user_input_buf[1] = '\0';
|
---|
| 1159 | }
|
---|
[821] | 1160 | #else
|
---|
| 1161 | fputs(prompt_str, stdout);
|
---|
| 1162 | fflush(stdout);
|
---|
[1765] | 1163 | user_input_buf[0] = r = fgetc(i->file);
|
---|
| 1164 | /*user_input_buf[1] = '\0'; - already is and never changed */
|
---|
| 1165 | i->eof_flag = (r == EOF);
|
---|
[821] | 1166 | #endif
|
---|
[1765] | 1167 | i->p = user_input_buf;
|
---|
[821] | 1168 | }
|
---|
[1765] | 1169 | #endif /* INTERACTIVE */
|
---|
[821] | 1170 |
|
---|
| 1171 | /* This is the magic location that prints prompts
|
---|
| 1172 | * and gets data back from the user */
|
---|
| 1173 | static int file_get(struct in_str *i)
|
---|
| 1174 | {
|
---|
| 1175 | int ch;
|
---|
| 1176 |
|
---|
| 1177 | /* If there is data waiting, eat it up */
|
---|
| 1178 | if (i->p && *i->p) {
|
---|
[1765] | 1179 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 1180 | take_cached:
|
---|
| 1181 | #endif
|
---|
| 1182 | ch = *i->p++;
|
---|
| 1183 | if (i->eof_flag && !*i->p)
|
---|
| 1184 | ch = EOF;
|
---|
[821] | 1185 | } else {
|
---|
| 1186 | /* need to double check i->file because we might be doing something
|
---|
| 1187 | * more complicated by now, like sourcing or substituting. */
|
---|
[1765] | 1188 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 1189 | if (interactive_fd && i->promptme && i->file == stdin) {
|
---|
| 1190 | do {
|
---|
[821] | 1191 | get_user_input(i);
|
---|
[1765] | 1192 | } while (!*i->p); /* need non-empty line */
|
---|
| 1193 | i->promptmode = 1; /* PS2 */
|
---|
| 1194 | i->promptme = 0;
|
---|
| 1195 | goto take_cached;
|
---|
[821] | 1196 | }
|
---|
[1765] | 1197 | #endif
|
---|
| 1198 | ch = fgetc(i->file);
|
---|
[821] | 1199 | }
|
---|
[1765] | 1200 | debug_printf("file_get: got a '%c' %d\n", ch, ch);
|
---|
| 1201 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 1202 | if (ch == '\n')
|
---|
| 1203 | i->promptme = 1;
|
---|
| 1204 | #endif
|
---|
[821] | 1205 | return ch;
|
---|
| 1206 | }
|
---|
| 1207 |
|
---|
| 1208 | /* All the callers guarantee this routine will never be
|
---|
| 1209 | * used right after a newline, so prompting is not needed.
|
---|
| 1210 | */
|
---|
| 1211 | static int file_peek(struct in_str *i)
|
---|
| 1212 | {
|
---|
[1765] | 1213 | int ch;
|
---|
[821] | 1214 | if (i->p && *i->p) {
|
---|
[1765] | 1215 | if (i->eof_flag && !i->p[1])
|
---|
| 1216 | return EOF;
|
---|
[821] | 1217 | return *i->p;
|
---|
| 1218 | }
|
---|
[1765] | 1219 | ch = fgetc(i->file);
|
---|
| 1220 | i->eof_flag = (ch == EOF);
|
---|
| 1221 | i->peek_buf[0] = ch;
|
---|
| 1222 | i->peek_buf[1] = '\0';
|
---|
| 1223 | i->p = i->peek_buf;
|
---|
| 1224 | debug_printf("file_peek: got a '%c' %d\n", *i->p, *i->p);
|
---|
| 1225 | return ch;
|
---|
[821] | 1226 | }
|
---|
| 1227 |
|
---|
| 1228 | static void setup_file_in_str(struct in_str *i, FILE *f)
|
---|
| 1229 | {
|
---|
| 1230 | i->peek = file_peek;
|
---|
| 1231 | i->get = file_get;
|
---|
[1765] | 1232 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 1233 | i->promptme = 1;
|
---|
| 1234 | i->promptmode = 0; /* PS1 */
|
---|
| 1235 | #endif
|
---|
[821] | 1236 | i->file = f;
|
---|
| 1237 | i->p = NULL;
|
---|
| 1238 | }
|
---|
| 1239 |
|
---|
| 1240 | static void setup_string_in_str(struct in_str *i, const char *s)
|
---|
| 1241 | {
|
---|
| 1242 | i->peek = static_peek;
|
---|
| 1243 | i->get = static_get;
|
---|
[1765] | 1244 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 1245 | i->promptme = 1;
|
---|
| 1246 | i->promptmode = 0; /* PS1 */
|
---|
| 1247 | #endif
|
---|
[821] | 1248 | i->p = s;
|
---|
[1765] | 1249 | i->eof_flag = 0;
|
---|
[821] | 1250 | }
|
---|
| 1251 |
|
---|
| 1252 | static void mark_open(int fd)
|
---|
| 1253 | {
|
---|
| 1254 | struct close_me *new = xmalloc(sizeof(struct close_me));
|
---|
| 1255 | new->fd = fd;
|
---|
| 1256 | new->next = close_me_head;
|
---|
| 1257 | close_me_head = new;
|
---|
| 1258 | }
|
---|
| 1259 |
|
---|
| 1260 | static void mark_closed(int fd)
|
---|
| 1261 | {
|
---|
| 1262 | struct close_me *tmp;
|
---|
| 1263 | if (close_me_head == NULL || close_me_head->fd != fd)
|
---|
| 1264 | bb_error_msg_and_die("corrupt close_me");
|
---|
| 1265 | tmp = close_me_head;
|
---|
| 1266 | close_me_head = close_me_head->next;
|
---|
| 1267 | free(tmp);
|
---|
| 1268 | }
|
---|
| 1269 |
|
---|
| 1270 | static void close_all(void)
|
---|
| 1271 | {
|
---|
| 1272 | struct close_me *c;
|
---|
[1765] | 1273 | for (c = close_me_head; c; c = c->next) {
|
---|
[821] | 1274 | close(c->fd);
|
---|
| 1275 | }
|
---|
| 1276 | close_me_head = NULL;
|
---|
| 1277 | }
|
---|
| 1278 |
|
---|
| 1279 | /* squirrel != NULL means we squirrel away copies of stdin, stdout,
|
---|
| 1280 | * and stderr if they are redirected. */
|
---|
| 1281 | static int setup_redirects(struct child_prog *prog, int squirrel[])
|
---|
| 1282 | {
|
---|
| 1283 | int openfd, mode;
|
---|
| 1284 | struct redir_struct *redir;
|
---|
| 1285 |
|
---|
[1765] | 1286 | for (redir = prog->redirects; redir; redir = redir->next) {
|
---|
[821] | 1287 | if (redir->dup == -1 && redir->word.gl_pathv == NULL) {
|
---|
| 1288 | /* something went wrong in the parse. Pretend it didn't happen */
|
---|
| 1289 | continue;
|
---|
| 1290 | }
|
---|
| 1291 | if (redir->dup == -1) {
|
---|
[1765] | 1292 | mode = redir_table[redir->type].mode;
|
---|
| 1293 | openfd = open_or_warn(redir->word.gl_pathv[0], mode);
|
---|
[821] | 1294 | if (openfd < 0) {
|
---|
| 1295 | /* this could get lost if stderr has been redirected, but
|
---|
| 1296 | bash and ash both lose it as well (though zsh doesn't!) */
|
---|
| 1297 | return 1;
|
---|
| 1298 | }
|
---|
| 1299 | } else {
|
---|
| 1300 | openfd = redir->dup;
|
---|
| 1301 | }
|
---|
| 1302 |
|
---|
| 1303 | if (openfd != redir->fd) {
|
---|
| 1304 | if (squirrel && redir->fd < 3) {
|
---|
| 1305 | squirrel[redir->fd] = dup(redir->fd);
|
---|
| 1306 | }
|
---|
| 1307 | if (openfd == -3) {
|
---|
| 1308 | close(openfd);
|
---|
| 1309 | } else {
|
---|
| 1310 | dup2(openfd, redir->fd);
|
---|
| 1311 | if (redir->dup == -1)
|
---|
[1765] | 1312 | close(openfd);
|
---|
[821] | 1313 | }
|
---|
| 1314 | }
|
---|
| 1315 | }
|
---|
| 1316 | return 0;
|
---|
| 1317 | }
|
---|
| 1318 |
|
---|
| 1319 | static void restore_redirects(int squirrel[])
|
---|
| 1320 | {
|
---|
| 1321 | int i, fd;
|
---|
[1765] | 1322 | for (i = 0; i < 3; i++) {
|
---|
[821] | 1323 | fd = squirrel[i];
|
---|
| 1324 | if (fd != -1) {
|
---|
[1765] | 1325 | /* We simply die on error */
|
---|
| 1326 | xmove_fd(fd, i);
|
---|
[821] | 1327 | }
|
---|
| 1328 | }
|
---|
| 1329 | }
|
---|
| 1330 |
|
---|
| 1331 | /* never returns */
|
---|
| 1332 | /* XXX no exit() here. If you don't exec, use _exit instead.
|
---|
| 1333 | * The at_exit handlers apparently confuse the calling process,
|
---|
[1765] | 1334 | * in particular stdin handling. Not sure why? -- because of vfork! (vda) */
|
---|
| 1335 | static void pseudo_exec_argv(char **argv)
|
---|
[821] | 1336 | {
|
---|
| 1337 | int i, rcode;
|
---|
| 1338 | char *p;
|
---|
| 1339 | const struct built_in_command *x;
|
---|
[1765] | 1340 |
|
---|
| 1341 | for (i = 0; is_assignment(argv[i]); i++) {
|
---|
| 1342 | debug_printf_exec("pid %d environment modification: %s\n",
|
---|
| 1343 | getpid(), argv[i]);
|
---|
| 1344 | // FIXME: vfork case??
|
---|
| 1345 | p = expand_string_to_string(argv[i]);
|
---|
| 1346 | putenv(p);
|
---|
| 1347 | }
|
---|
| 1348 | argv += i;
|
---|
| 1349 | /* If a variable is assigned in a forest, and nobody listens,
|
---|
| 1350 | * was it ever really set?
|
---|
| 1351 | */
|
---|
| 1352 | if (argv[0] == NULL) {
|
---|
| 1353 | _exit(EXIT_SUCCESS);
|
---|
| 1354 | }
|
---|
| 1355 |
|
---|
| 1356 | argv = expand_strvec_to_strvec(argv);
|
---|
| 1357 |
|
---|
| 1358 | /*
|
---|
| 1359 | * Check if the command matches any of the builtins.
|
---|
| 1360 | * Depending on context, this might be redundant. But it's
|
---|
| 1361 | * easier to waste a few CPU cycles than it is to figure out
|
---|
| 1362 | * if this is one of those cases.
|
---|
| 1363 | */
|
---|
| 1364 | for (x = bltins; x->cmd; x++) {
|
---|
| 1365 | if (strcmp(argv[0], x->cmd) == 0) {
|
---|
| 1366 | debug_printf_exec("running builtin '%s'\n", argv[0]);
|
---|
| 1367 | rcode = x->function(argv);
|
---|
| 1368 | fflush(stdout);
|
---|
| 1369 | _exit(rcode);
|
---|
[821] | 1370 | }
|
---|
[1765] | 1371 | }
|
---|
[821] | 1372 |
|
---|
[1765] | 1373 | /* Check if the command matches any busybox applets */
|
---|
| 1374 | #if ENABLE_FEATURE_SH_STANDALONE
|
---|
| 1375 | if (strchr(argv[0], '/') == NULL) {
|
---|
| 1376 | const struct bb_applet *a = find_applet_by_name(argv[0]);
|
---|
| 1377 | if (a) {
|
---|
| 1378 | if (a->noexec) {
|
---|
| 1379 | current_applet = a;
|
---|
| 1380 | debug_printf_exec("running applet '%s'\n", argv[0]);
|
---|
| 1381 | // is it ok that run_current_applet_and_exit() does exit(), not _exit()?
|
---|
| 1382 | run_current_applet_and_exit(argv);
|
---|
[821] | 1383 | }
|
---|
[1765] | 1384 | /* re-exec ourselves with the new arguments */
|
---|
| 1385 | debug_printf_exec("re-execing applet '%s'\n", argv[0]);
|
---|
| 1386 | execvp(bb_busybox_exec_path, argv);
|
---|
| 1387 | /* If they called chroot or otherwise made the binary no longer
|
---|
| 1388 | * executable, fall through */
|
---|
[821] | 1389 | }
|
---|
[1765] | 1390 | }
|
---|
| 1391 | #endif
|
---|
[821] | 1392 |
|
---|
[1765] | 1393 | debug_printf_exec("execing '%s'\n", argv[0]);
|
---|
| 1394 | execvp(argv[0], argv);
|
---|
| 1395 | bb_perror_msg("cannot exec '%s'", argv[0]);
|
---|
| 1396 | _exit(1);
|
---|
| 1397 | }
|
---|
[821] | 1398 |
|
---|
[1765] | 1399 | static void pseudo_exec(struct child_prog *child)
|
---|
| 1400 | {
|
---|
| 1401 | // FIXME: buggy wrt NOMMU! Must not modify any global data
|
---|
| 1402 | // until it does exec/_exit, but currently it does.
|
---|
| 1403 | int rcode;
|
---|
| 1404 |
|
---|
| 1405 | if (child->argv) {
|
---|
| 1406 | pseudo_exec_argv(child->argv);
|
---|
| 1407 | }
|
---|
| 1408 |
|
---|
| 1409 | if (child->group) {
|
---|
| 1410 | // FIXME: do not modify globals! Think vfork!
|
---|
| 1411 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 1412 | debug_printf_exec("pseudo_exec: setting interactive_fd=0\n");
|
---|
| 1413 | interactive_fd = 0; /* crucial!!!! */
|
---|
[821] | 1414 | #endif
|
---|
[1765] | 1415 | debug_printf_exec("pseudo_exec: run_list_real\n");
|
---|
[821] | 1416 | rcode = run_list_real(child->group);
|
---|
| 1417 | /* OK to leak memory by not calling free_pipe_list,
|
---|
| 1418 | * since this process is about to exit */
|
---|
| 1419 | _exit(rcode);
|
---|
| 1420 | }
|
---|
[1765] | 1421 |
|
---|
| 1422 | /* Can happen. See what bash does with ">foo" by itself. */
|
---|
| 1423 | debug_printf("trying to pseudo_exec null command\n");
|
---|
| 1424 | _exit(EXIT_SUCCESS);
|
---|
[821] | 1425 | }
|
---|
| 1426 |
|
---|
[1765] | 1427 | #if ENABLE_HUSH_JOB
|
---|
| 1428 | static const char *get_cmdtext(struct pipe *pi)
|
---|
| 1429 | {
|
---|
| 1430 | char **argv;
|
---|
| 1431 | char *p;
|
---|
| 1432 | int len;
|
---|
| 1433 |
|
---|
| 1434 | /* This is subtle. ->cmdtext is created only on first backgrounding.
|
---|
| 1435 | * (Think "cat, <ctrl-z>, fg, <ctrl-z>, fg, <ctrl-z>...." here...)
|
---|
| 1436 | * On subsequent bg argv is trashed, but we won't use it */
|
---|
| 1437 | if (pi->cmdtext)
|
---|
| 1438 | return pi->cmdtext;
|
---|
| 1439 | argv = pi->progs[0].argv;
|
---|
| 1440 | if (!argv || !argv[0])
|
---|
| 1441 | return (pi->cmdtext = xzalloc(1));
|
---|
| 1442 |
|
---|
| 1443 | len = 0;
|
---|
| 1444 | do len += strlen(*argv) + 1; while (*++argv);
|
---|
| 1445 | pi->cmdtext = p = xmalloc(len);
|
---|
| 1446 | argv = pi->progs[0].argv;
|
---|
| 1447 | do {
|
---|
| 1448 | len = strlen(*argv);
|
---|
| 1449 | memcpy(p, *argv, len);
|
---|
| 1450 | p += len;
|
---|
| 1451 | *p++ = ' ';
|
---|
| 1452 | } while (*++argv);
|
---|
| 1453 | p[-1] = '\0';
|
---|
| 1454 | return pi->cmdtext;
|
---|
| 1455 | }
|
---|
| 1456 |
|
---|
[821] | 1457 | static void insert_bg_job(struct pipe *pi)
|
---|
| 1458 | {
|
---|
| 1459 | struct pipe *thejob;
|
---|
[1765] | 1460 | int i;
|
---|
[821] | 1461 |
|
---|
| 1462 | /* Linear search for the ID of the job to use */
|
---|
| 1463 | pi->jobid = 1;
|
---|
| 1464 | for (thejob = job_list; thejob; thejob = thejob->next)
|
---|
| 1465 | if (thejob->jobid >= pi->jobid)
|
---|
| 1466 | pi->jobid = thejob->jobid + 1;
|
---|
| 1467 |
|
---|
[1765] | 1468 | /* Add thejob to the list of running jobs */
|
---|
[821] | 1469 | if (!job_list) {
|
---|
| 1470 | thejob = job_list = xmalloc(sizeof(*thejob));
|
---|
| 1471 | } else {
|
---|
[1765] | 1472 | for (thejob = job_list; thejob->next; thejob = thejob->next)
|
---|
| 1473 | continue;
|
---|
[821] | 1474 | thejob->next = xmalloc(sizeof(*thejob));
|
---|
| 1475 | thejob = thejob->next;
|
---|
| 1476 | }
|
---|
| 1477 |
|
---|
[1765] | 1478 | /* Physically copy the struct job */
|
---|
[821] | 1479 | memcpy(thejob, pi, sizeof(struct pipe));
|
---|
[1765] | 1480 | thejob->progs = xzalloc(sizeof(pi->progs[0]) * pi->num_progs);
|
---|
| 1481 | /* We cannot copy entire pi->progs[] vector! Double free()s will happen */
|
---|
| 1482 | for (i = 0; i < pi->num_progs; i++) {
|
---|
| 1483 | // TODO: do we really need to have so many fields which are just dead weight
|
---|
| 1484 | // at execution stage?
|
---|
| 1485 | thejob->progs[i].pid = pi->progs[i].pid;
|
---|
| 1486 | /* all other fields are not used and stay zero */
|
---|
| 1487 | }
|
---|
[821] | 1488 | thejob->next = NULL;
|
---|
[1765] | 1489 | thejob->cmdtext = xstrdup(get_cmdtext(pi));
|
---|
[821] | 1490 |
|
---|
[1765] | 1491 | /* We don't wait for background thejobs to return -- append it
|
---|
[821] | 1492 | to the list of backgrounded thejobs and leave it alone */
|
---|
[1765] | 1493 | printf("[%d] %d %s\n", thejob->jobid, thejob->progs[0].pid, thejob->cmdtext);
|
---|
[821] | 1494 | last_bg_pid = thejob->progs[0].pid;
|
---|
| 1495 | last_jobid = thejob->jobid;
|
---|
| 1496 | }
|
---|
| 1497 |
|
---|
| 1498 | static void remove_bg_job(struct pipe *pi)
|
---|
| 1499 | {
|
---|
| 1500 | struct pipe *prev_pipe;
|
---|
| 1501 |
|
---|
| 1502 | if (pi == job_list) {
|
---|
| 1503 | job_list = pi->next;
|
---|
| 1504 | } else {
|
---|
| 1505 | prev_pipe = job_list;
|
---|
| 1506 | while (prev_pipe->next != pi)
|
---|
| 1507 | prev_pipe = prev_pipe->next;
|
---|
| 1508 | prev_pipe->next = pi->next;
|
---|
| 1509 | }
|
---|
| 1510 | if (job_list)
|
---|
| 1511 | last_jobid = job_list->jobid;
|
---|
| 1512 | else
|
---|
| 1513 | last_jobid = 0;
|
---|
[1765] | 1514 | }
|
---|
[821] | 1515 |
|
---|
[1765] | 1516 | /* remove a backgrounded job */
|
---|
| 1517 | static void delete_finished_bg_job(struct pipe *pi)
|
---|
| 1518 | {
|
---|
| 1519 | remove_bg_job(pi);
|
---|
[821] | 1520 | pi->stopped_progs = 0;
|
---|
| 1521 | free_pipe(pi, 0);
|
---|
| 1522 | free(pi);
|
---|
| 1523 | }
|
---|
[1765] | 1524 | #endif /* JOB */
|
---|
[821] | 1525 |
|
---|
| 1526 | /* Checks to see if any processes have exited -- if they
|
---|
| 1527 | have, figure out why and see if a job has completed */
|
---|
| 1528 | static int checkjobs(struct pipe* fg_pipe)
|
---|
| 1529 | {
|
---|
| 1530 | int attributes;
|
---|
| 1531 | int status;
|
---|
[1765] | 1532 | #if ENABLE_HUSH_JOB
|
---|
[821] | 1533 | int prognum = 0;
|
---|
| 1534 | struct pipe *pi;
|
---|
[1765] | 1535 | #endif
|
---|
[821] | 1536 | pid_t childpid;
|
---|
[1765] | 1537 | int rcode = 0;
|
---|
[821] | 1538 |
|
---|
| 1539 | attributes = WUNTRACED;
|
---|
[1765] | 1540 | if (fg_pipe == NULL) {
|
---|
[821] | 1541 | attributes |= WNOHANG;
|
---|
| 1542 | }
|
---|
| 1543 |
|
---|
[1765] | 1544 | /* Do we do this right?
|
---|
| 1545 | * bash-3.00# sleep 20 | false
|
---|
| 1546 | * <ctrl-Z pressed>
|
---|
| 1547 | * [3]+ Stopped sleep 20 | false
|
---|
| 1548 | * bash-3.00# echo $?
|
---|
| 1549 | * 1 <========== bg pipe is not fully done, but exitcode is already known!
|
---|
| 1550 | */
|
---|
| 1551 |
|
---|
| 1552 | //FIXME: non-interactive bash does not continue even if all processes in fg pipe
|
---|
| 1553 | //are stopped. Testcase: "cat | cat" in a script (not on command line)
|
---|
| 1554 | // + killall -STOP cat
|
---|
| 1555 |
|
---|
| 1556 | wait_more:
|
---|
[821] | 1557 | while ((childpid = waitpid(-1, &status, attributes)) > 0) {
|
---|
[1765] | 1558 | const int dead = WIFEXITED(status) || WIFSIGNALED(status);
|
---|
| 1559 |
|
---|
| 1560 | #ifdef DEBUG_SHELL_JOBS
|
---|
| 1561 | if (WIFSTOPPED(status))
|
---|
| 1562 | debug_printf_jobs("pid %d stopped by sig %d (exitcode %d)\n",
|
---|
| 1563 | childpid, WSTOPSIG(status), WEXITSTATUS(status));
|
---|
| 1564 | if (WIFSIGNALED(status))
|
---|
| 1565 | debug_printf_jobs("pid %d killed by sig %d (exitcode %d)\n",
|
---|
| 1566 | childpid, WTERMSIG(status), WEXITSTATUS(status));
|
---|
| 1567 | if (WIFEXITED(status))
|
---|
| 1568 | debug_printf_jobs("pid %d exited, exitcode %d\n",
|
---|
| 1569 | childpid, WEXITSTATUS(status));
|
---|
| 1570 | #endif
|
---|
| 1571 | /* Were we asked to wait for fg pipe? */
|
---|
[821] | 1572 | if (fg_pipe) {
|
---|
[1765] | 1573 | int i;
|
---|
| 1574 | for (i = 0; i < fg_pipe->num_progs; i++) {
|
---|
| 1575 | debug_printf_jobs("check pid %d\n", fg_pipe->progs[i].pid);
|
---|
[821] | 1576 | if (fg_pipe->progs[i].pid == childpid) {
|
---|
[1765] | 1577 | /* printf("process %d exit %d\n", i, WEXITSTATUS(status)); */
|
---|
| 1578 | if (dead) {
|
---|
| 1579 | fg_pipe->progs[i].pid = 0;
|
---|
| 1580 | fg_pipe->running_progs--;
|
---|
| 1581 | if (i == fg_pipe->num_progs-1)
|
---|
| 1582 | /* last process gives overall exitstatus */
|
---|
| 1583 | rcode = WEXITSTATUS(status);
|
---|
| 1584 | } else {
|
---|
| 1585 | fg_pipe->progs[i].is_stopped = 1;
|
---|
| 1586 | fg_pipe->stopped_progs++;
|
---|
| 1587 | }
|
---|
| 1588 | debug_printf_jobs("fg_pipe: running_progs %d stopped_progs %d\n",
|
---|
| 1589 | fg_pipe->running_progs, fg_pipe->stopped_progs);
|
---|
| 1590 | if (fg_pipe->running_progs - fg_pipe->stopped_progs <= 0) {
|
---|
| 1591 | /* All processes in fg pipe have exited/stopped */
|
---|
| 1592 | #if ENABLE_HUSH_JOB
|
---|
| 1593 | if (fg_pipe->running_progs)
|
---|
| 1594 | insert_bg_job(fg_pipe);
|
---|
| 1595 | #endif
|
---|
| 1596 | return rcode;
|
---|
| 1597 | }
|
---|
| 1598 | /* There are still running processes in the fg pipe */
|
---|
| 1599 | goto wait_more;
|
---|
[821] | 1600 | }
|
---|
| 1601 | }
|
---|
[1765] | 1602 | /* fall through to searching process in bg pipes */
|
---|
[821] | 1603 | }
|
---|
| 1604 |
|
---|
[1765] | 1605 | #if ENABLE_HUSH_JOB
|
---|
| 1606 | /* We asked to wait for bg or orphaned children */
|
---|
| 1607 | /* No need to remember exitcode in this case */
|
---|
[821] | 1608 | for (pi = job_list; pi; pi = pi->next) {
|
---|
| 1609 | prognum = 0;
|
---|
[1765] | 1610 | while (prognum < pi->num_progs) {
|
---|
| 1611 | if (pi->progs[prognum].pid == childpid)
|
---|
| 1612 | goto found_pi_and_prognum;
|
---|
[821] | 1613 | prognum++;
|
---|
| 1614 | }
|
---|
| 1615 | }
|
---|
[1765] | 1616 | #endif
|
---|
[821] | 1617 |
|
---|
[1765] | 1618 | /* Happens when shell is used as init process (init=/bin/sh) */
|
---|
| 1619 | debug_printf("checkjobs: pid %d was not in our list!\n", childpid);
|
---|
| 1620 | goto wait_more;
|
---|
[821] | 1621 |
|
---|
[1765] | 1622 | #if ENABLE_HUSH_JOB
|
---|
| 1623 | found_pi_and_prognum:
|
---|
| 1624 | if (dead) {
|
---|
[821] | 1625 | /* child exited */
|
---|
[1765] | 1626 | pi->progs[prognum].pid = 0;
|
---|
[821] | 1627 | pi->running_progs--;
|
---|
| 1628 | if (!pi->running_progs) {
|
---|
[1765] | 1629 | printf(JOB_STATUS_FORMAT, pi->jobid,
|
---|
| 1630 | "Done", pi->cmdtext);
|
---|
| 1631 | delete_finished_bg_job(pi);
|
---|
[821] | 1632 | }
|
---|
| 1633 | } else {
|
---|
| 1634 | /* child stopped */
|
---|
| 1635 | pi->stopped_progs++;
|
---|
| 1636 | pi->progs[prognum].is_stopped = 1;
|
---|
[1765] | 1637 | }
|
---|
[821] | 1638 | #endif
|
---|
| 1639 | }
|
---|
| 1640 |
|
---|
[1765] | 1641 | /* wait found no children or failed */
|
---|
| 1642 |
|
---|
| 1643 | if (childpid && errno != ECHILD)
|
---|
[821] | 1644 | bb_perror_msg("waitpid");
|
---|
[1765] | 1645 | return rcode;
|
---|
[821] | 1646 | }
|
---|
| 1647 |
|
---|
[1765] | 1648 | #if ENABLE_HUSH_JOB
|
---|
| 1649 | static int checkjobs_and_fg_shell(struct pipe* fg_pipe)
|
---|
[821] | 1650 | {
|
---|
[1765] | 1651 | pid_t p;
|
---|
| 1652 | int rcode = checkjobs(fg_pipe);
|
---|
| 1653 | /* Job finished, move the shell to the foreground */
|
---|
| 1654 | p = getpgid(0); /* pgid of our process */
|
---|
| 1655 | debug_printf_jobs("fg'ing ourself: getpgid(0)=%d\n", (int)p);
|
---|
| 1656 | if (tcsetpgrp(interactive_fd, p) && errno != ENOTTY)
|
---|
| 1657 | bb_perror_msg("tcsetpgrp-4a");
|
---|
| 1658 | return rcode;
|
---|
[821] | 1659 | }
|
---|
| 1660 | #endif
|
---|
| 1661 |
|
---|
| 1662 | /* run_pipe_real() starts all the jobs, but doesn't wait for anything
|
---|
| 1663 | * to finish. See checkjobs().
|
---|
| 1664 | *
|
---|
| 1665 | * return code is normally -1, when the caller has to wait for children
|
---|
| 1666 | * to finish to determine the exit status of the pipe. If the pipe
|
---|
| 1667 | * is a simple builtin command, however, the action is done by the
|
---|
| 1668 | * time run_pipe_real returns, and the exit code is provided as the
|
---|
| 1669 | * return value.
|
---|
| 1670 | *
|
---|
| 1671 | * The input of the pipe is always stdin, the output is always
|
---|
| 1672 | * stdout. The outpipe[] mechanism in BusyBox-0.48 lash is bogus,
|
---|
| 1673 | * because it tries to avoid running the command substitution in
|
---|
| 1674 | * subshell, when that is in fact necessary. The subshell process
|
---|
| 1675 | * now has its stdout directed to the input of the appropriate pipe,
|
---|
| 1676 | * so this routine is noticeably simpler.
|
---|
[1765] | 1677 | *
|
---|
| 1678 | * Returns -1 only if started some children. IOW: we have to
|
---|
| 1679 | * mask out retvals of builtins etc with 0xff!
|
---|
[821] | 1680 | */
|
---|
| 1681 | static int run_pipe_real(struct pipe *pi)
|
---|
| 1682 | {
|
---|
| 1683 | int i;
|
---|
| 1684 | int nextin, nextout;
|
---|
| 1685 | int pipefds[2]; /* pipefds[0] is for reading */
|
---|
| 1686 | struct child_prog *child;
|
---|
| 1687 | const struct built_in_command *x;
|
---|
| 1688 | char *p;
|
---|
[1765] | 1689 | /* it is not always needed, but we aim to smaller code */
|
---|
| 1690 | int squirrel[] = { -1, -1, -1 };
|
---|
| 1691 | int rcode;
|
---|
| 1692 | const int single_fg = (pi->num_progs == 1 && pi->followup != PIPE_BG);
|
---|
[821] | 1693 |
|
---|
[1765] | 1694 | debug_printf_exec("run_pipe_real start: single_fg=%d\n", single_fg);
|
---|
| 1695 |
|
---|
[821] | 1696 | nextin = 0;
|
---|
[1765] | 1697 | #if ENABLE_HUSH_JOB
|
---|
[821] | 1698 | pi->pgrp = -1;
|
---|
[1765] | 1699 | #endif
|
---|
| 1700 | pi->running_progs = 1;
|
---|
| 1701 | pi->stopped_progs = 0;
|
---|
[821] | 1702 |
|
---|
| 1703 | /* Check if this is a simple builtin (not part of a pipe).
|
---|
| 1704 | * Builtins within pipes have to fork anyway, and are handled in
|
---|
| 1705 | * pseudo_exec. "echo foo | read bar" doesn't work on bash, either.
|
---|
| 1706 | */
|
---|
[1765] | 1707 | child = &(pi->progs[0]);
|
---|
| 1708 | if (single_fg && child->group && child->subshell == 0) {
|
---|
[821] | 1709 | debug_printf("non-subshell grouping\n");
|
---|
| 1710 | setup_redirects(child, squirrel);
|
---|
[1765] | 1711 | debug_printf_exec(": run_list_real\n");
|
---|
[821] | 1712 | rcode = run_list_real(child->group);
|
---|
| 1713 | restore_redirects(squirrel);
|
---|
[1765] | 1714 | debug_printf_exec("run_pipe_real return %d\n", rcode);
|
---|
| 1715 | return rcode; // do we need to add '... & 0xff' ?
|
---|
| 1716 | }
|
---|
| 1717 |
|
---|
| 1718 | if (single_fg && child->argv != NULL) {
|
---|
| 1719 | char **argv_expanded;
|
---|
| 1720 | char **argv = child->argv;
|
---|
| 1721 |
|
---|
| 1722 | for (i = 0; is_assignment(argv[i]); i++)
|
---|
| 1723 | continue;
|
---|
| 1724 | if (i != 0 && argv[i] == NULL) {
|
---|
[821] | 1725 | /* assignments, but no command: set the local environment */
|
---|
[1765] | 1726 | for (i = 0; argv[i] != NULL; i++) {
|
---|
| 1727 | debug_printf("local environment set: %s\n", argv[i]);
|
---|
| 1728 | p = expand_string_to_string(argv[i]);
|
---|
| 1729 | set_local_var(p, 0);
|
---|
[821] | 1730 | }
|
---|
| 1731 | return EXIT_SUCCESS; /* don't worry about errors in set_local_var() yet */
|
---|
| 1732 | }
|
---|
[1765] | 1733 | for (i = 0; is_assignment(argv[i]); i++) {
|
---|
| 1734 | p = expand_string_to_string(argv[i]);
|
---|
| 1735 | //sp: child->sp--;
|
---|
| 1736 | putenv(p);
|
---|
[821] | 1737 | }
|
---|
| 1738 | for (x = bltins; x->cmd; x++) {
|
---|
[1765] | 1739 | if (strcmp(argv[i], x->cmd) == 0) {
|
---|
| 1740 | if (x->function == builtin_exec && argv[i+1] == NULL) {
|
---|
[821] | 1741 | debug_printf("magic exec\n");
|
---|
[1765] | 1742 | setup_redirects(child, NULL);
|
---|
[821] | 1743 | return EXIT_SUCCESS;
|
---|
| 1744 | }
|
---|
[1765] | 1745 | debug_printf("builtin inline %s\n", argv[0]);
|
---|
[821] | 1746 | /* XXX setup_redirects acts on file descriptors, not FILEs.
|
---|
| 1747 | * This is perfect for work that comes after exec().
|
---|
| 1748 | * Is it really safe for inline use? Experimentally,
|
---|
| 1749 | * things seem to work with glibc. */
|
---|
| 1750 | setup_redirects(child, squirrel);
|
---|
[1765] | 1751 | debug_printf_exec(": builtin '%s' '%s'...\n", x->cmd, argv[i+1]);
|
---|
| 1752 | //sp: if (child->sp) /* btw we can do it unconditionally... */
|
---|
| 1753 | argv_expanded = expand_strvec_to_strvec(argv + i);
|
---|
| 1754 | rcode = x->function(argv_expanded) & 0xff;
|
---|
| 1755 | free(argv_expanded);
|
---|
[821] | 1756 | restore_redirects(squirrel);
|
---|
[1765] | 1757 | debug_printf_exec("run_pipe_real return %d\n", rcode);
|
---|
[821] | 1758 | return rcode;
|
---|
| 1759 | }
|
---|
| 1760 | }
|
---|
[1765] | 1761 | #if ENABLE_FEATURE_SH_STANDALONE
|
---|
| 1762 | {
|
---|
| 1763 | const struct bb_applet *a = find_applet_by_name(argv[i]);
|
---|
| 1764 | if (a && a->nofork) {
|
---|
| 1765 | setup_redirects(child, squirrel);
|
---|
| 1766 | save_nofork_data(&nofork_save);
|
---|
| 1767 | argv_expanded = argv + i;
|
---|
| 1768 | //sp: if (child->sp)
|
---|
| 1769 | argv_expanded = expand_strvec_to_strvec(argv + i);
|
---|
| 1770 | debug_printf_exec(": run_nofork_applet '%s' '%s'...\n", argv_expanded[0], argv_expanded[1]);
|
---|
| 1771 | rcode = run_nofork_applet_prime(&nofork_save, a, argv_expanded) & 0xff;
|
---|
| 1772 | free(argv_expanded);
|
---|
| 1773 | restore_redirects(squirrel);
|
---|
| 1774 | debug_printf_exec("run_pipe_real return %d\n", rcode);
|
---|
| 1775 | return rcode;
|
---|
| 1776 | }
|
---|
| 1777 | }
|
---|
| 1778 | #endif
|
---|
[821] | 1779 | }
|
---|
| 1780 |
|
---|
[1765] | 1781 | /* Going to fork a child per each pipe member */
|
---|
| 1782 | pi->running_progs = 0;
|
---|
| 1783 |
|
---|
| 1784 | /* Disable job control signals for shell (parent) and
|
---|
| 1785 | * for initial child code after fork */
|
---|
| 1786 | set_jobctrl_sighandler(SIG_IGN);
|
---|
| 1787 |
|
---|
[821] | 1788 | for (i = 0; i < pi->num_progs; i++) {
|
---|
[1765] | 1789 | child = &(pi->progs[i]);
|
---|
| 1790 | if (child->argv)
|
---|
| 1791 | debug_printf_exec(": pipe member '%s' '%s'...\n", child->argv[0], child->argv[1]);
|
---|
| 1792 | else
|
---|
| 1793 | debug_printf_exec(": pipe member with no argv\n");
|
---|
[821] | 1794 |
|
---|
| 1795 | /* pipes are inserted between pairs of commands */
|
---|
| 1796 | if ((i + 1) < pi->num_progs) {
|
---|
[1765] | 1797 | pipe(pipefds);
|
---|
[821] | 1798 | nextout = pipefds[1];
|
---|
| 1799 | } else {
|
---|
[1765] | 1800 | nextout = 1;
|
---|
[821] | 1801 | pipefds[0] = -1;
|
---|
| 1802 | }
|
---|
| 1803 |
|
---|
| 1804 | /* XXX test for failed fork()? */
|
---|
[1765] | 1805 | #if BB_MMU
|
---|
| 1806 | child->pid = fork();
|
---|
[821] | 1807 | #else
|
---|
[1765] | 1808 | child->pid = vfork();
|
---|
[821] | 1809 | #endif
|
---|
[1765] | 1810 | if (!child->pid) { /* child */
|
---|
| 1811 | /* Every child adds itself to new process group
|
---|
| 1812 | * with pgid == pid of first child in pipe */
|
---|
| 1813 | #if ENABLE_HUSH_JOB
|
---|
| 1814 | if (run_list_level == 1 && interactive_fd) {
|
---|
| 1815 | /* Don't do pgrp restore anymore on fatal signals */
|
---|
| 1816 | set_fatal_sighandler(SIG_DFL);
|
---|
| 1817 | if (pi->pgrp < 0) /* true for 1st process only */
|
---|
| 1818 | pi->pgrp = getpid();
|
---|
| 1819 | if (setpgid(0, pi->pgrp) == 0 && pi->followup != PIPE_BG) {
|
---|
| 1820 | /* We do it in *every* child, not just first,
|
---|
| 1821 | * to avoid races */
|
---|
| 1822 | tcsetpgrp(interactive_fd, pi->pgrp);
|
---|
| 1823 | }
|
---|
| 1824 | }
|
---|
| 1825 | #endif
|
---|
| 1826 | /* in non-interactive case fatal sigs are already SIG_DFL */
|
---|
[821] | 1827 | close_all();
|
---|
| 1828 | if (nextin != 0) {
|
---|
| 1829 | dup2(nextin, 0);
|
---|
| 1830 | close(nextin);
|
---|
| 1831 | }
|
---|
| 1832 | if (nextout != 1) {
|
---|
| 1833 | dup2(nextout, 1);
|
---|
| 1834 | close(nextout);
|
---|
| 1835 | }
|
---|
[1765] | 1836 | if (pipefds[0] != -1) {
|
---|
[821] | 1837 | close(pipefds[0]); /* opposite end of our output pipe */
|
---|
| 1838 | }
|
---|
| 1839 | /* Like bash, explicit redirects override pipes,
|
---|
| 1840 | * and the pipe fd is available for dup'ing. */
|
---|
[1765] | 1841 | setup_redirects(child, NULL);
|
---|
[821] | 1842 |
|
---|
[1765] | 1843 | /* Restore default handlers just prior to exec */
|
---|
| 1844 | set_jobctrl_sighandler(SIG_DFL);
|
---|
| 1845 | set_misc_sighandler(SIG_DFL);
|
---|
| 1846 | signal(SIGCHLD, SIG_DFL);
|
---|
[821] | 1847 | pseudo_exec(child);
|
---|
| 1848 | }
|
---|
| 1849 |
|
---|
[1765] | 1850 | pi->running_progs++;
|
---|
[821] | 1851 |
|
---|
[1765] | 1852 | #if ENABLE_HUSH_JOB
|
---|
| 1853 | /* Second and next children need to know pid of first one */
|
---|
| 1854 | if (pi->pgrp < 0)
|
---|
[821] | 1855 | pi->pgrp = child->pid;
|
---|
[1765] | 1856 | #endif
|
---|
[821] | 1857 | if (nextin != 0)
|
---|
| 1858 | close(nextin);
|
---|
| 1859 | if (nextout != 1)
|
---|
| 1860 | close(nextout);
|
---|
| 1861 |
|
---|
| 1862 | /* If there isn't another process, nextin is garbage
|
---|
| 1863 | but it doesn't matter */
|
---|
| 1864 | nextin = pipefds[0];
|
---|
| 1865 | }
|
---|
[1765] | 1866 | debug_printf_exec("run_pipe_real return -1\n");
|
---|
[821] | 1867 | return -1;
|
---|
| 1868 | }
|
---|
| 1869 |
|
---|
[1765] | 1870 | #ifndef debug_print_tree
|
---|
| 1871 | static void debug_print_tree(struct pipe *pi, int lvl)
|
---|
| 1872 | {
|
---|
| 1873 | static const char *PIPE[] = {
|
---|
| 1874 | [PIPE_SEQ] = "SEQ",
|
---|
| 1875 | [PIPE_AND] = "AND",
|
---|
| 1876 | [PIPE_OR ] = "OR" ,
|
---|
| 1877 | [PIPE_BG ] = "BG" ,
|
---|
| 1878 | };
|
---|
| 1879 | static const char *RES[] = {
|
---|
| 1880 | [RES_NONE ] = "NONE" ,
|
---|
| 1881 | #if ENABLE_HUSH_IF
|
---|
| 1882 | [RES_IF ] = "IF" ,
|
---|
| 1883 | [RES_THEN ] = "THEN" ,
|
---|
| 1884 | [RES_ELIF ] = "ELIF" ,
|
---|
| 1885 | [RES_ELSE ] = "ELSE" ,
|
---|
| 1886 | [RES_FI ] = "FI" ,
|
---|
| 1887 | #endif
|
---|
| 1888 | #if ENABLE_HUSH_LOOPS
|
---|
| 1889 | [RES_FOR ] = "FOR" ,
|
---|
| 1890 | [RES_WHILE] = "WHILE",
|
---|
| 1891 | [RES_UNTIL] = "UNTIL",
|
---|
| 1892 | [RES_DO ] = "DO" ,
|
---|
| 1893 | [RES_DONE ] = "DONE" ,
|
---|
| 1894 | [RES_IN ] = "IN" ,
|
---|
| 1895 | #endif
|
---|
| 1896 | [RES_XXXX ] = "XXXX" ,
|
---|
| 1897 | [RES_SNTX ] = "SNTX" ,
|
---|
| 1898 | };
|
---|
| 1899 |
|
---|
| 1900 | int pin, prn;
|
---|
| 1901 |
|
---|
| 1902 | pin = 0;
|
---|
| 1903 | while (pi) {
|
---|
| 1904 | fprintf(stderr, "%*spipe %d res_word=%s followup=%d %s\n", lvl*2, "",
|
---|
| 1905 | pin, RES[pi->res_word], pi->followup, PIPE[pi->followup]);
|
---|
| 1906 | prn = 0;
|
---|
| 1907 | while (prn < pi->num_progs) {
|
---|
| 1908 | struct child_prog *child = &pi->progs[prn];
|
---|
| 1909 | char **argv = child->argv;
|
---|
| 1910 |
|
---|
| 1911 | fprintf(stderr, "%*s prog %d", lvl*2, "", prn);
|
---|
| 1912 | if (child->group) {
|
---|
| 1913 | fprintf(stderr, " group %s: (argv=%p)\n",
|
---|
| 1914 | (child->subshell ? "()" : "{}"),
|
---|
| 1915 | argv);
|
---|
| 1916 | debug_print_tree(child->group, lvl+1);
|
---|
| 1917 | prn++;
|
---|
| 1918 | continue;
|
---|
| 1919 | }
|
---|
| 1920 | if (argv) while (*argv) {
|
---|
| 1921 | fprintf(stderr, " '%s'", *argv);
|
---|
| 1922 | argv++;
|
---|
| 1923 | }
|
---|
| 1924 | fprintf(stderr, "\n");
|
---|
| 1925 | prn++;
|
---|
| 1926 | }
|
---|
| 1927 | pi = pi->next;
|
---|
| 1928 | pin++;
|
---|
| 1929 | }
|
---|
| 1930 | }
|
---|
| 1931 | #endif
|
---|
| 1932 |
|
---|
| 1933 | /* NB: called by pseudo_exec, and therefore must not modify any
|
---|
| 1934 | * global data until exec/_exit (we can be a child after vfork!) */
|
---|
[821] | 1935 | static int run_list_real(struct pipe *pi)
|
---|
| 1936 | {
|
---|
| 1937 | struct pipe *rpipe;
|
---|
[1765] | 1938 | #if ENABLE_HUSH_LOOPS
|
---|
| 1939 | char *for_varname = NULL;
|
---|
| 1940 | char **for_lcur = NULL;
|
---|
| 1941 | char **for_list = NULL;
|
---|
[821] | 1942 | int flag_rep = 0;
|
---|
[1765] | 1943 | #endif
|
---|
[821] | 1944 | int save_num_progs;
|
---|
[1765] | 1945 | int flag_skip = 1;
|
---|
| 1946 | int rcode = 0; /* probably for gcc only */
|
---|
[821] | 1947 | int flag_restore = 0;
|
---|
[1765] | 1948 | #if ENABLE_HUSH_IF
|
---|
| 1949 | int if_code = 0, next_if_code = 0; /* need double-buffer to handle elif */
|
---|
| 1950 | #else
|
---|
| 1951 | enum { if_code = 0, next_if_code = 0 };
|
---|
| 1952 | #endif
|
---|
| 1953 | reserved_style rword;
|
---|
| 1954 | reserved_style skip_more_for_this_rword = RES_XXXX;
|
---|
| 1955 |
|
---|
| 1956 | debug_printf_exec("run_list_real start lvl %d\n", run_list_level + 1);
|
---|
| 1957 |
|
---|
| 1958 | #if ENABLE_HUSH_LOOPS
|
---|
[821] | 1959 | /* check syntax for "for" */
|
---|
| 1960 | for (rpipe = pi; rpipe; rpipe = rpipe->next) {
|
---|
[1765] | 1961 | if ((rpipe->res_word == RES_IN || rpipe->res_word == RES_FOR)
|
---|
| 1962 | && (rpipe->next == NULL)
|
---|
| 1963 | ) {
|
---|
| 1964 | syntax("malformed for"); /* no IN or no commands after IN */
|
---|
| 1965 | debug_printf_exec("run_list_real lvl %d return 1\n", run_list_level);
|
---|
| 1966 | return 1;
|
---|
[821] | 1967 | }
|
---|
[1765] | 1968 | if ((rpipe->res_word == RES_IN && rpipe->next->res_word == RES_IN && rpipe->next->progs[0].argv != NULL)
|
---|
| 1969 | || (rpipe->res_word == RES_FOR && rpipe->next->res_word != RES_IN)
|
---|
| 1970 | ) {
|
---|
| 1971 | /* TODO: what is tested in the first condition? */
|
---|
| 1972 | syntax("malformed for"); /* 2nd condition: not followed by IN */
|
---|
| 1973 | debug_printf_exec("run_list_real lvl %d return 1\n", run_list_level);
|
---|
| 1974 | return 1;
|
---|
[821] | 1975 | }
|
---|
| 1976 | }
|
---|
[1765] | 1977 | #else
|
---|
| 1978 | rpipe = NULL;
|
---|
| 1979 | #endif
|
---|
| 1980 |
|
---|
| 1981 | #if ENABLE_HUSH_JOB
|
---|
| 1982 | /* Example of nested list: "while true; do { sleep 1 | exit 2; } done".
|
---|
| 1983 | * We are saving state before entering outermost list ("while...done")
|
---|
| 1984 | * so that ctrl-Z will correctly background _entire_ outermost list,
|
---|
| 1985 | * not just a part of it (like "sleep 1 | exit 2") */
|
---|
| 1986 | if (++run_list_level == 1 && interactive_fd) {
|
---|
| 1987 | if (sigsetjmp(toplevel_jb, 1)) {
|
---|
| 1988 | /* ctrl-Z forked and we are parent; or ctrl-C.
|
---|
| 1989 | * Sighandler has longjmped us here */
|
---|
| 1990 | signal(SIGINT, SIG_IGN);
|
---|
| 1991 | signal(SIGTSTP, SIG_IGN);
|
---|
| 1992 | /* Restore level (we can be coming from deep inside
|
---|
| 1993 | * nested levels) */
|
---|
| 1994 | run_list_level = 1;
|
---|
| 1995 | #if ENABLE_FEATURE_SH_STANDALONE
|
---|
| 1996 | if (nofork_save.saved) { /* if save area is valid */
|
---|
| 1997 | debug_printf_jobs("exiting nofork early\n");
|
---|
| 1998 | restore_nofork_data(&nofork_save);
|
---|
| 1999 | }
|
---|
| 2000 | #endif
|
---|
| 2001 | if (ctrl_z_flag) {
|
---|
| 2002 | /* ctrl-Z has forked and stored pid of the child in pi->pid.
|
---|
| 2003 | * Remember this child as background job */
|
---|
| 2004 | insert_bg_job(pi);
|
---|
| 2005 | } else {
|
---|
| 2006 | /* ctrl-C. We just stop doing whatever we were doing */
|
---|
| 2007 | putchar('\n');
|
---|
| 2008 | }
|
---|
| 2009 | rcode = 0;
|
---|
| 2010 | goto ret;
|
---|
[821] | 2011 | }
|
---|
[1765] | 2012 | /* ctrl-Z handler will store pid etc in pi */
|
---|
| 2013 | toplevel_list = pi;
|
---|
| 2014 | ctrl_z_flag = 0;
|
---|
| 2015 | #if ENABLE_FEATURE_SH_STANDALONE
|
---|
| 2016 | nofork_save.saved = 0; /* in case we will run a nofork later */
|
---|
| 2017 | #endif
|
---|
| 2018 | signal_SA_RESTART(SIGTSTP, handler_ctrl_z);
|
---|
| 2019 | signal(SIGINT, handler_ctrl_c);
|
---|
| 2020 | }
|
---|
| 2021 | #endif
|
---|
| 2022 |
|
---|
| 2023 | for (; pi; pi = flag_restore ? rpipe : pi->next) {
|
---|
| 2024 | rword = pi->res_word;
|
---|
| 2025 | #if ENABLE_HUSH_LOOPS
|
---|
| 2026 | if (rword == RES_WHILE || rword == RES_UNTIL || rword == RES_FOR) {
|
---|
| 2027 | flag_restore = 0;
|
---|
| 2028 | if (!rpipe) {
|
---|
| 2029 | flag_rep = 0;
|
---|
| 2030 | rpipe = pi;
|
---|
| 2031 | }
|
---|
| 2032 | }
|
---|
| 2033 | #endif
|
---|
| 2034 | debug_printf_exec(": rword=%d if_code=%d next_if_code=%d skip_more=%d\n",
|
---|
| 2035 | rword, if_code, next_if_code, skip_more_for_this_rword);
|
---|
| 2036 | if (rword == skip_more_for_this_rword && flag_skip) {
|
---|
| 2037 | if (pi->followup == PIPE_SEQ)
|
---|
| 2038 | flag_skip = 0;
|
---|
[821] | 2039 | continue;
|
---|
| 2040 | }
|
---|
| 2041 | flag_skip = 1;
|
---|
[1765] | 2042 | skip_more_for_this_rword = RES_XXXX;
|
---|
| 2043 | #if ENABLE_HUSH_IF
|
---|
| 2044 | if (rword == RES_THEN || rword == RES_ELSE)
|
---|
| 2045 | if_code = next_if_code;
|
---|
| 2046 | if (rword == RES_THEN && if_code)
|
---|
| 2047 | continue;
|
---|
| 2048 | if (rword == RES_ELSE && !if_code)
|
---|
| 2049 | continue;
|
---|
| 2050 | if (rword == RES_ELIF && !if_code)
|
---|
| 2051 | break;
|
---|
| 2052 | #endif
|
---|
| 2053 | #if ENABLE_HUSH_LOOPS
|
---|
| 2054 | if (rword == RES_FOR && pi->num_progs) {
|
---|
| 2055 | if (!for_lcur) {
|
---|
[821] | 2056 | /* if no variable values after "in" we skip "for" */
|
---|
[1765] | 2057 | if (!pi->next->progs->argv)
|
---|
| 2058 | continue;
|
---|
[821] | 2059 | /* create list of variable values */
|
---|
[1765] | 2060 | for_list = expand_strvec_to_strvec(pi->next->progs->argv);
|
---|
| 2061 | for_lcur = for_list;
|
---|
| 2062 | for_varname = pi->progs->argv[0];
|
---|
[821] | 2063 | pi->progs->argv[0] = NULL;
|
---|
| 2064 | flag_rep = 1;
|
---|
| 2065 | }
|
---|
[1765] | 2066 | free(pi->progs->argv[0]);
|
---|
| 2067 | if (!*for_lcur) {
|
---|
| 2068 | free(for_list);
|
---|
| 2069 | for_lcur = NULL;
|
---|
[821] | 2070 | flag_rep = 0;
|
---|
[1765] | 2071 | pi->progs->argv[0] = for_varname;
|
---|
| 2072 | pi->progs->glob_result.gl_pathv[0] = pi->progs->argv[0];
|
---|
[821] | 2073 | continue;
|
---|
| 2074 | }
|
---|
[1765] | 2075 | /* insert next value from for_lcur */
|
---|
| 2076 | /* vda: does it need escaping? */
|
---|
| 2077 | pi->progs->argv[0] = xasprintf("%s=%s", for_varname, *for_lcur++);
|
---|
| 2078 | pi->progs->glob_result.gl_pathv[0] = pi->progs->argv[0];
|
---|
[821] | 2079 | }
|
---|
[1765] | 2080 | if (rword == RES_IN)
|
---|
| 2081 | continue;
|
---|
| 2082 | if (rword == RES_DO) {
|
---|
| 2083 | if (!flag_rep)
|
---|
| 2084 | continue;
|
---|
[821] | 2085 | }
|
---|
[1765] | 2086 | if (rword == RES_DONE) {
|
---|
[821] | 2087 | if (flag_rep) {
|
---|
| 2088 | flag_restore = 1;
|
---|
| 2089 | } else {
|
---|
| 2090 | rpipe = NULL;
|
---|
| 2091 | }
|
---|
| 2092 | }
|
---|
[1765] | 2093 | #endif
|
---|
| 2094 | if (pi->num_progs == 0)
|
---|
| 2095 | continue;
|
---|
[821] | 2096 | save_num_progs = pi->num_progs; /* save number of programs */
|
---|
[1765] | 2097 | debug_printf_exec(": run_pipe_real with %d members\n", pi->num_progs);
|
---|
[821] | 2098 | rcode = run_pipe_real(pi);
|
---|
[1765] | 2099 | if (rcode != -1) {
|
---|
[821] | 2100 | /* We only ran a builtin: rcode was set by the return value
|
---|
| 2101 | * of run_pipe_real(), and we don't need to wait for anything. */
|
---|
[1765] | 2102 | } else if (pi->followup == PIPE_BG) {
|
---|
| 2103 | /* What does bash do with attempts to background builtins? */
|
---|
| 2104 | /* Even bash 3.2 doesn't do that well with nested bg:
|
---|
| 2105 | * try "{ { sleep 10; echo DEEP; } & echo HERE; } &".
|
---|
| 2106 | * I'm NOT treating inner &'s as jobs */
|
---|
| 2107 | #if ENABLE_HUSH_JOB
|
---|
| 2108 | if (run_list_level == 1)
|
---|
| 2109 | insert_bg_job(pi);
|
---|
| 2110 | #endif
|
---|
[821] | 2111 | rcode = EXIT_SUCCESS;
|
---|
| 2112 | } else {
|
---|
[1765] | 2113 | #if ENABLE_HUSH_JOB
|
---|
| 2114 | /* Paranoia, just "interactive_fd" should be enough? */
|
---|
| 2115 | if (run_list_level == 1 && interactive_fd) {
|
---|
| 2116 | /* waits for completion, then fg's main shell */
|
---|
| 2117 | rcode = checkjobs_and_fg_shell(pi);
|
---|
| 2118 | } else
|
---|
| 2119 | #endif
|
---|
| 2120 | {
|
---|
| 2121 | /* this one just waits for completion */
|
---|
[821] | 2122 | rcode = checkjobs(pi);
|
---|
| 2123 | }
|
---|
[1765] | 2124 | debug_printf_exec(": checkjobs returned %d\n", rcode);
|
---|
[821] | 2125 | }
|
---|
[1765] | 2126 | debug_printf_exec(": setting last_return_code=%d\n", rcode);
|
---|
| 2127 | last_return_code = rcode;
|
---|
[821] | 2128 | pi->num_progs = save_num_progs; /* restore number of programs */
|
---|
[1765] | 2129 | #if ENABLE_HUSH_IF
|
---|
| 2130 | if (rword == RES_IF || rword == RES_ELIF)
|
---|
| 2131 | next_if_code = rcode; /* can be overwritten a number of times */
|
---|
| 2132 | #endif
|
---|
| 2133 | #if ENABLE_HUSH_LOOPS
|
---|
| 2134 | if (rword == RES_WHILE)
|
---|
[821] | 2135 | flag_rep = !last_return_code;
|
---|
[1765] | 2136 | if (rword == RES_UNTIL)
|
---|
[821] | 2137 | flag_rep = last_return_code;
|
---|
[1765] | 2138 | #endif
|
---|
| 2139 | if ((rcode == EXIT_SUCCESS && pi->followup == PIPE_OR)
|
---|
| 2140 | || (rcode != EXIT_SUCCESS && pi->followup == PIPE_AND)
|
---|
| 2141 | ) {
|
---|
| 2142 | skip_more_for_this_rword = rword;
|
---|
| 2143 | }
|
---|
[821] | 2144 | checkjobs(NULL);
|
---|
| 2145 | }
|
---|
[1765] | 2146 |
|
---|
| 2147 | #if ENABLE_HUSH_JOB
|
---|
| 2148 | if (ctrl_z_flag) {
|
---|
| 2149 | /* ctrl-Z forked somewhere in the past, we are the child,
|
---|
| 2150 | * and now we completed running the list. Exit. */
|
---|
| 2151 | exit(rcode);
|
---|
| 2152 | }
|
---|
| 2153 | ret:
|
---|
| 2154 | if (!--run_list_level && interactive_fd) {
|
---|
| 2155 | signal(SIGTSTP, SIG_IGN);
|
---|
| 2156 | signal(SIGINT, SIG_IGN);
|
---|
| 2157 | }
|
---|
| 2158 | #endif
|
---|
| 2159 | debug_printf_exec("run_list_real lvl %d return %d\n", run_list_level + 1, rcode);
|
---|
[821] | 2160 | return rcode;
|
---|
| 2161 | }
|
---|
| 2162 |
|
---|
| 2163 | /* return code is the exit status of the pipe */
|
---|
| 2164 | static int free_pipe(struct pipe *pi, int indent)
|
---|
| 2165 | {
|
---|
| 2166 | char **p;
|
---|
| 2167 | struct child_prog *child;
|
---|
| 2168 | struct redir_struct *r, *rnext;
|
---|
[1765] | 2169 | int a, i, ret_code = 0;
|
---|
[821] | 2170 |
|
---|
| 2171 | if (pi->stopped_progs > 0)
|
---|
| 2172 | return ret_code;
|
---|
[1765] | 2173 | debug_printf_clean("%s run pipe: (pid %d)\n", indenter(indent), getpid());
|
---|
| 2174 | for (i = 0; i < pi->num_progs; i++) {
|
---|
[821] | 2175 | child = &pi->progs[i];
|
---|
[1765] | 2176 | debug_printf_clean("%s command %d:\n", indenter(indent), i);
|
---|
[821] | 2177 | if (child->argv) {
|
---|
[1765] | 2178 | for (a = 0, p = child->argv; *p; a++, p++) {
|
---|
| 2179 | debug_printf_clean("%s argv[%d] = %s\n", indenter(indent), a, *p);
|
---|
[821] | 2180 | }
|
---|
| 2181 | globfree(&child->glob_result);
|
---|
[1765] | 2182 | child->argv = NULL;
|
---|
[821] | 2183 | } else if (child->group) {
|
---|
[1765] | 2184 | debug_printf_clean("%s begin group (subshell:%d)\n", indenter(indent), child->subshell);
|
---|
| 2185 | ret_code = free_pipe_list(child->group, indent+3);
|
---|
| 2186 | debug_printf_clean("%s end group\n", indenter(indent));
|
---|
[821] | 2187 | } else {
|
---|
[1765] | 2188 | debug_printf_clean("%s (nil)\n", indenter(indent));
|
---|
[821] | 2189 | }
|
---|
[1765] | 2190 | for (r = child->redirects; r; r = rnext) {
|
---|
| 2191 | debug_printf_clean("%s redirect %d%s", indenter(indent), r->fd, redir_table[r->type].descrip);
|
---|
[821] | 2192 | if (r->dup == -1) {
|
---|
| 2193 | /* guard against the case >$FOO, where foo is unset or blank */
|
---|
| 2194 | if (r->word.gl_pathv) {
|
---|
[1765] | 2195 | debug_printf_clean(" %s\n", *r->word.gl_pathv);
|
---|
[821] | 2196 | globfree(&r->word);
|
---|
| 2197 | }
|
---|
| 2198 | } else {
|
---|
[1765] | 2199 | debug_printf_clean("&%d\n", r->dup);
|
---|
[821] | 2200 | }
|
---|
[1765] | 2201 | rnext = r->next;
|
---|
[821] | 2202 | free(r);
|
---|
| 2203 | }
|
---|
[1765] | 2204 | child->redirects = NULL;
|
---|
[821] | 2205 | }
|
---|
| 2206 | free(pi->progs); /* children are an array, they get freed all at once */
|
---|
[1765] | 2207 | pi->progs = NULL;
|
---|
| 2208 | #if ENABLE_HUSH_JOB
|
---|
| 2209 | free(pi->cmdtext);
|
---|
| 2210 | pi->cmdtext = NULL;
|
---|
| 2211 | #endif
|
---|
[821] | 2212 | return ret_code;
|
---|
| 2213 | }
|
---|
| 2214 |
|
---|
| 2215 | static int free_pipe_list(struct pipe *head, int indent)
|
---|
| 2216 | {
|
---|
[1765] | 2217 | int rcode = 0; /* if list has no members */
|
---|
[821] | 2218 | struct pipe *pi, *next;
|
---|
[1765] | 2219 |
|
---|
| 2220 | for (pi = head; pi; pi = next) {
|
---|
| 2221 | debug_printf_clean("%s pipe reserved mode %d\n", indenter(indent), pi->res_word);
|
---|
[821] | 2222 | rcode = free_pipe(pi, indent);
|
---|
[1765] | 2223 | debug_printf_clean("%s pipe followup code %d\n", indenter(indent), pi->followup);
|
---|
| 2224 | next = pi->next;
|
---|
| 2225 | /*pi->next = NULL;*/
|
---|
[821] | 2226 | free(pi);
|
---|
| 2227 | }
|
---|
| 2228 | return rcode;
|
---|
| 2229 | }
|
---|
| 2230 |
|
---|
| 2231 | /* Select which version we will use */
|
---|
| 2232 | static int run_list(struct pipe *pi)
|
---|
| 2233 | {
|
---|
[1765] | 2234 | int rcode = 0;
|
---|
| 2235 | debug_printf_exec("run_list entered\n");
|
---|
| 2236 | if (fake_mode == 0) {
|
---|
| 2237 | debug_printf_exec(": run_list_real with %d members\n", pi->num_progs);
|
---|
[821] | 2238 | rcode = run_list_real(pi);
|
---|
| 2239 | }
|
---|
[1765] | 2240 | /* free_pipe_list has the side effect of clearing memory.
|
---|
[821] | 2241 | * In the long run that function can be merged with run_list_real,
|
---|
| 2242 | * but doing that now would hobble the debugging effort. */
|
---|
[1765] | 2243 | free_pipe_list(pi, 0);
|
---|
| 2244 | debug_printf_exec("run_list return %d\n", rcode);
|
---|
[821] | 2245 | return rcode;
|
---|
| 2246 | }
|
---|
| 2247 |
|
---|
| 2248 | /* The API for glob is arguably broken. This routine pushes a non-matching
|
---|
| 2249 | * string into the output structure, removing non-backslashed backslashes.
|
---|
| 2250 | * If someone can prove me wrong, by performing this function within the
|
---|
| 2251 | * original glob(3) api, feel free to rewrite this routine into oblivion.
|
---|
| 2252 | * Return code (0 vs. GLOB_NOSPACE) matches glob(3).
|
---|
| 2253 | * XXX broken if the last character is '\\', check that before calling.
|
---|
| 2254 | */
|
---|
| 2255 | static int globhack(const char *src, int flags, glob_t *pglob)
|
---|
| 2256 | {
|
---|
[1765] | 2257 | int cnt = 0, pathc;
|
---|
[821] | 2258 | const char *s;
|
---|
| 2259 | char *dest;
|
---|
[1765] | 2260 | for (cnt = 1, s = src; s && *s; s++) {
|
---|
[821] | 2261 | if (*s == '\\') s++;
|
---|
| 2262 | cnt++;
|
---|
| 2263 | }
|
---|
[1765] | 2264 | dest = xmalloc(cnt);
|
---|
[821] | 2265 | if (!(flags & GLOB_APPEND)) {
|
---|
[1765] | 2266 | pglob->gl_pathv = NULL;
|
---|
| 2267 | pglob->gl_pathc = 0;
|
---|
| 2268 | pglob->gl_offs = 0;
|
---|
| 2269 | pglob->gl_offs = 0;
|
---|
[821] | 2270 | }
|
---|
| 2271 | pathc = ++pglob->gl_pathc;
|
---|
[1765] | 2272 | pglob->gl_pathv = xrealloc(pglob->gl_pathv, (pathc+1) * sizeof(*pglob->gl_pathv));
|
---|
| 2273 | pglob->gl_pathv[pathc-1] = dest;
|
---|
| 2274 | pglob->gl_pathv[pathc] = NULL;
|
---|
| 2275 | for (s = src; s && *s; s++, dest++) {
|
---|
[821] | 2276 | if (*s == '\\') s++;
|
---|
| 2277 | *dest = *s;
|
---|
| 2278 | }
|
---|
[1765] | 2279 | *dest = '\0';
|
---|
[821] | 2280 | return 0;
|
---|
| 2281 | }
|
---|
| 2282 |
|
---|
| 2283 | /* XXX broken if the last character is '\\', check that before calling */
|
---|
| 2284 | static int glob_needed(const char *s)
|
---|
| 2285 | {
|
---|
| 2286 | for (; *s; s++) {
|
---|
| 2287 | if (*s == '\\') s++;
|
---|
[1765] | 2288 | if (strchr("*[?", *s)) return 1;
|
---|
[821] | 2289 | }
|
---|
| 2290 | return 0;
|
---|
| 2291 | }
|
---|
| 2292 |
|
---|
| 2293 | static int xglob(o_string *dest, int flags, glob_t *pglob)
|
---|
| 2294 | {
|
---|
| 2295 | int gr;
|
---|
| 2296 |
|
---|
| 2297 | /* short-circuit for null word */
|
---|
| 2298 | /* we can code this better when the debug_printf's are gone */
|
---|
| 2299 | if (dest->length == 0) {
|
---|
| 2300 | if (dest->nonnull) {
|
---|
| 2301 | /* bash man page calls this an "explicit" null */
|
---|
| 2302 | gr = globhack(dest->data, flags, pglob);
|
---|
[1765] | 2303 | debug_printf("globhack returned %d\n", gr);
|
---|
[821] | 2304 | } else {
|
---|
| 2305 | return 0;
|
---|
| 2306 | }
|
---|
| 2307 | } else if (glob_needed(dest->data)) {
|
---|
| 2308 | gr = glob(dest->data, flags, NULL, pglob);
|
---|
[1765] | 2309 | debug_printf("glob returned %d\n", gr);
|
---|
[821] | 2310 | if (gr == GLOB_NOMATCH) {
|
---|
| 2311 | /* quote removal, or more accurately, backslash removal */
|
---|
| 2312 | gr = globhack(dest->data, flags, pglob);
|
---|
[1765] | 2313 | debug_printf("globhack returned %d\n", gr);
|
---|
[821] | 2314 | }
|
---|
| 2315 | } else {
|
---|
| 2316 | gr = globhack(dest->data, flags, pglob);
|
---|
[1765] | 2317 | debug_printf("globhack returned %d\n", gr);
|
---|
[821] | 2318 | }
|
---|
| 2319 | if (gr == GLOB_NOSPACE)
|
---|
| 2320 | bb_error_msg_and_die("out of memory during glob");
|
---|
| 2321 | if (gr != 0) { /* GLOB_ABORTED ? */
|
---|
[1765] | 2322 | bb_error_msg("glob(3) error %d", gr);
|
---|
[821] | 2323 | }
|
---|
| 2324 | /* globprint(glob_target); */
|
---|
| 2325 | return gr;
|
---|
| 2326 | }
|
---|
| 2327 |
|
---|
[1765] | 2328 | /* expand_strvec_to_strvec() takes a list of strings, expands
|
---|
| 2329 | * all variable references within and returns a pointer to
|
---|
| 2330 | * a list of expanded strings, possibly with larger number
|
---|
| 2331 | * of strings. (Think VAR="a b"; echo $VAR).
|
---|
| 2332 | * This new list is allocated as a single malloc block.
|
---|
| 2333 | * NULL-terminated list of char* pointers is at the beginning of it,
|
---|
| 2334 | * followed by strings themself.
|
---|
| 2335 | * Caller can deallocate entire list by single free(list). */
|
---|
| 2336 |
|
---|
| 2337 | /* Helpers first:
|
---|
| 2338 | * count_XXX estimates size of the block we need. It's okay
|
---|
| 2339 | * to over-estimate sizes a bit, if it makes code simpler */
|
---|
| 2340 | static int count_ifs(const char *str)
|
---|
[821] | 2341 | {
|
---|
[1765] | 2342 | int cnt = 0;
|
---|
| 2343 | debug_printf_expand("count_ifs('%s') ifs='%s'", str, ifs);
|
---|
| 2344 | while (1) {
|
---|
| 2345 | str += strcspn(str, ifs);
|
---|
| 2346 | if (!*str) break;
|
---|
| 2347 | str++; /* str += strspn(str, ifs); */
|
---|
| 2348 | cnt++; /* cnt += strspn(str, ifs); - but this code is larger */
|
---|
| 2349 | }
|
---|
| 2350 | debug_printf_expand(" return %d\n", cnt);
|
---|
| 2351 | return cnt;
|
---|
[821] | 2352 | }
|
---|
| 2353 |
|
---|
[1765] | 2354 | static void count_var_expansion_space(int *countp, int *lenp, char *arg)
|
---|
[821] | 2355 | {
|
---|
[1765] | 2356 | char first_ch;
|
---|
| 2357 | int i;
|
---|
| 2358 | int len = *lenp;
|
---|
| 2359 | int count = *countp;
|
---|
| 2360 | const char *val;
|
---|
| 2361 | char *p;
|
---|
[821] | 2362 |
|
---|
[1765] | 2363 | while ((p = strchr(arg, SPECIAL_VAR_SYMBOL))) {
|
---|
| 2364 | len += p - arg;
|
---|
| 2365 | arg = ++p;
|
---|
| 2366 | p = strchr(p, SPECIAL_VAR_SYMBOL);
|
---|
| 2367 | first_ch = arg[0];
|
---|
[821] | 2368 |
|
---|
[1765] | 2369 | switch (first_ch & 0x7f) {
|
---|
| 2370 | /* high bit in 1st_ch indicates that var is double-quoted */
|
---|
| 2371 | case '$': /* pid */
|
---|
| 2372 | case '!': /* bg pid */
|
---|
| 2373 | case '?': /* exitcode */
|
---|
| 2374 | case '#': /* argc */
|
---|
| 2375 | len += sizeof(int)*3 + 1; /* enough for int */
|
---|
| 2376 | break;
|
---|
| 2377 | case '*':
|
---|
| 2378 | case '@':
|
---|
| 2379 | for (i = 1; i < global_argc; i++) {
|
---|
| 2380 | len += strlen(global_argv[i]) + 1;
|
---|
| 2381 | count++;
|
---|
| 2382 | if (!(first_ch & 0x80))
|
---|
| 2383 | count += count_ifs(global_argv[i]);
|
---|
| 2384 | }
|
---|
| 2385 | break;
|
---|
| 2386 | default:
|
---|
| 2387 | *p = '\0';
|
---|
| 2388 | arg[0] = first_ch & 0x7f;
|
---|
| 2389 | if (isdigit(arg[0])) {
|
---|
| 2390 | i = xatoi_u(arg);
|
---|
| 2391 | val = NULL;
|
---|
| 2392 | if (i < global_argc)
|
---|
| 2393 | val = global_argv[i];
|
---|
| 2394 | } else
|
---|
| 2395 | val = lookup_param(arg);
|
---|
| 2396 | arg[0] = first_ch;
|
---|
| 2397 | *p = SPECIAL_VAR_SYMBOL;
|
---|
| 2398 |
|
---|
| 2399 | if (val) {
|
---|
| 2400 | len += strlen(val) + 1;
|
---|
| 2401 | if (!(first_ch & 0x80))
|
---|
| 2402 | count += count_ifs(val);
|
---|
| 2403 | }
|
---|
| 2404 | }
|
---|
| 2405 | arg = ++p;
|
---|
[821] | 2406 | }
|
---|
| 2407 |
|
---|
[1765] | 2408 | len += strlen(arg) + 1;
|
---|
| 2409 | count++;
|
---|
| 2410 | *lenp = len;
|
---|
| 2411 | *countp = count;
|
---|
| 2412 | }
|
---|
| 2413 |
|
---|
| 2414 | /* Store given string, finalizing the word and starting new one whenever
|
---|
| 2415 | * we encounter ifs char(s). This is used for expanding variable values.
|
---|
| 2416 | * End-of-string does NOT finalize word: think about 'echo -$VAR-' */
|
---|
| 2417 | static int expand_on_ifs(char **list, int n, char **posp, const char *str)
|
---|
| 2418 | {
|
---|
| 2419 | char *pos = *posp;
|
---|
| 2420 | while (1) {
|
---|
| 2421 | int word_len = strcspn(str, ifs);
|
---|
| 2422 | if (word_len) {
|
---|
| 2423 | memcpy(pos, str, word_len); /* store non-ifs chars */
|
---|
| 2424 | pos += word_len;
|
---|
| 2425 | str += word_len;
|
---|
| 2426 | }
|
---|
| 2427 | if (!*str) /* EOL - do not finalize word */
|
---|
[821] | 2428 | break;
|
---|
[1765] | 2429 | *pos++ = '\0';
|
---|
| 2430 | if (n) debug_printf_expand("expand_on_ifs finalized list[%d]=%p '%s' "
|
---|
| 2431 | "strlen=%d next=%p pos=%p\n", n-1, list[n-1], list[n-1],
|
---|
| 2432 | strlen(list[n-1]), list[n-1] + strlen(list[n-1]) + 1, pos);
|
---|
| 2433 | list[n++] = pos;
|
---|
| 2434 | str += strspn(str, ifs); /* skip ifs chars */
|
---|
[821] | 2435 | }
|
---|
[1765] | 2436 | *posp = pos;
|
---|
| 2437 | return n;
|
---|
| 2438 | }
|
---|
[821] | 2439 |
|
---|
[1765] | 2440 | /* Expand all variable references in given string, adding words to list[]
|
---|
| 2441 | * at n, n+1,... positions. Return updated n (so that list[n] is next one
|
---|
| 2442 | * to be filled). This routine is extremely tricky: has to deal with
|
---|
| 2443 | * variables/parameters with whitespace, $* and $@, and constructs like
|
---|
| 2444 | * 'echo -$*-'. If you play here, you must run testsuite afterwards! */
|
---|
| 2445 | /* NB: another bug is that we cannot detect empty strings yet:
|
---|
| 2446 | * "" or $empty"" expands to zero words, has to expand to empty word */
|
---|
| 2447 | static int expand_vars_to_list(char **list, int n, char **posp, char *arg, char or_mask)
|
---|
| 2448 | {
|
---|
| 2449 | /* or_mask is either 0 (normal case) or 0x80
|
---|
| 2450 | * (expansion of right-hand side of assignment == 1-element expand) */
|
---|
[821] | 2451 |
|
---|
[1765] | 2452 | char first_ch, ored_ch;
|
---|
| 2453 | int i;
|
---|
| 2454 | const char *val;
|
---|
| 2455 | char *p;
|
---|
| 2456 | char *pos = *posp;
|
---|
| 2457 |
|
---|
| 2458 | ored_ch = 0;
|
---|
| 2459 |
|
---|
| 2460 | if (n) debug_printf_expand("expand_vars_to_list finalized list[%d]=%p '%s' "
|
---|
| 2461 | "strlen=%d next=%p pos=%p\n", n-1, list[n-1], list[n-1],
|
---|
| 2462 | strlen(list[n-1]), list[n-1] + strlen(list[n-1]) + 1, pos);
|
---|
| 2463 | list[n++] = pos;
|
---|
| 2464 |
|
---|
| 2465 | while ((p = strchr(arg, SPECIAL_VAR_SYMBOL))) {
|
---|
| 2466 | memcpy(pos, arg, p - arg);
|
---|
| 2467 | pos += (p - arg);
|
---|
| 2468 | arg = ++p;
|
---|
| 2469 | p = strchr(p, SPECIAL_VAR_SYMBOL);
|
---|
| 2470 |
|
---|
| 2471 | first_ch = arg[0] | or_mask; /* forced to "quoted" if or_mask = 0x80 */
|
---|
| 2472 | ored_ch |= first_ch;
|
---|
| 2473 | val = NULL;
|
---|
| 2474 | switch (first_ch & 0x7f) {
|
---|
| 2475 | /* Highest bit in first_ch indicates that var is double-quoted */
|
---|
| 2476 | case '$': /* pid */
|
---|
| 2477 | /* FIXME: (echo $$) should still print pid of main shell */
|
---|
| 2478 | val = utoa(getpid());
|
---|
| 2479 | break;
|
---|
| 2480 | case '!': /* bg pid */
|
---|
| 2481 | val = last_bg_pid ? utoa(last_bg_pid) : (char*)"";
|
---|
| 2482 | break;
|
---|
| 2483 | case '?': /* exitcode */
|
---|
| 2484 | val = utoa(last_return_code);
|
---|
| 2485 | break;
|
---|
| 2486 | case '#': /* argc */
|
---|
| 2487 | val = utoa(global_argc ? global_argc-1 : 0);
|
---|
| 2488 | break;
|
---|
| 2489 | case '*':
|
---|
| 2490 | case '@':
|
---|
| 2491 | i = 1;
|
---|
| 2492 | if (!(first_ch & 0x80)) { /* unquoted $* or $@ */
|
---|
| 2493 | while (i < global_argc) {
|
---|
| 2494 | n = expand_on_ifs(list, n, &pos, global_argv[i]);
|
---|
| 2495 | debug_printf_expand("expand_vars_to_list: argv %d (last %d)\n", i, global_argc-1);
|
---|
| 2496 | if (global_argv[i++][0] && i < global_argc) {
|
---|
| 2497 | /* this argv[] is not empty and not last:
|
---|
| 2498 | * put terminating NUL, start new word */
|
---|
| 2499 | *pos++ = '\0';
|
---|
| 2500 | if (n) debug_printf_expand("expand_vars_to_list 2 finalized list[%d]=%p '%s' "
|
---|
| 2501 | "strlen=%d next=%p pos=%p\n", n-1, list[n-1], list[n-1],
|
---|
| 2502 | strlen(list[n-1]), list[n-1] + strlen(list[n-1]) + 1, pos);
|
---|
| 2503 | list[n++] = pos;
|
---|
| 2504 | }
|
---|
| 2505 | }
|
---|
| 2506 | } else
|
---|
| 2507 | /* If or_mask is nonzero, we handle assignment 'a=....$@.....'
|
---|
| 2508 | * and in this case should theat it like '$*' */
|
---|
| 2509 | if (first_ch == ('@'|0x80) && !or_mask) { /* quoted $@ */
|
---|
| 2510 | while (1) {
|
---|
| 2511 | strcpy(pos, global_argv[i]);
|
---|
| 2512 | pos += strlen(global_argv[i]);
|
---|
| 2513 | if (++i >= global_argc)
|
---|
| 2514 | break;
|
---|
| 2515 | *pos++ = '\0';
|
---|
| 2516 | if (n) debug_printf_expand("expand_vars_to_list 3 finalized list[%d]=%p '%s' "
|
---|
| 2517 | "strlen=%d next=%p pos=%p\n", n-1, list[n-1], list[n-1],
|
---|
| 2518 | strlen(list[n-1]), list[n-1] + strlen(list[n-1]) + 1, pos);
|
---|
| 2519 | list[n++] = pos;
|
---|
| 2520 | }
|
---|
| 2521 | } else { /* quoted $*: add as one word */
|
---|
| 2522 | while (1) {
|
---|
| 2523 | strcpy(pos, global_argv[i]);
|
---|
| 2524 | pos += strlen(global_argv[i]);
|
---|
| 2525 | if (++i >= global_argc)
|
---|
| 2526 | break;
|
---|
| 2527 | if (ifs[0])
|
---|
| 2528 | *pos++ = ifs[0];
|
---|
| 2529 | }
|
---|
[821] | 2530 | }
|
---|
[1765] | 2531 | break;
|
---|
| 2532 | default:
|
---|
| 2533 | *p = '\0';
|
---|
| 2534 | arg[0] = first_ch & 0x7f;
|
---|
| 2535 | if (isdigit(arg[0])) {
|
---|
| 2536 | i = xatoi_u(arg);
|
---|
| 2537 | val = NULL;
|
---|
| 2538 | if (i < global_argc)
|
---|
| 2539 | val = global_argv[i];
|
---|
| 2540 | } else
|
---|
| 2541 | val = lookup_param(arg);
|
---|
| 2542 | arg[0] = first_ch;
|
---|
| 2543 | *p = SPECIAL_VAR_SYMBOL;
|
---|
| 2544 | if (!(first_ch & 0x80)) { /* unquoted $VAR */
|
---|
| 2545 | if (val) {
|
---|
| 2546 | n = expand_on_ifs(list, n, &pos, val);
|
---|
| 2547 | val = NULL;
|
---|
| 2548 | }
|
---|
| 2549 | } /* else: quoted $VAR, val will be appended at pos */
|
---|
[821] | 2550 | }
|
---|
[1765] | 2551 | if (val) {
|
---|
| 2552 | strcpy(pos, val);
|
---|
| 2553 | pos += strlen(val);
|
---|
[821] | 2554 | }
|
---|
[1765] | 2555 | arg = ++p;
|
---|
[821] | 2556 | }
|
---|
[1765] | 2557 | debug_printf_expand("expand_vars_to_list adding tail '%s' at %p\n", arg, pos);
|
---|
| 2558 | strcpy(pos, arg);
|
---|
| 2559 | pos += strlen(arg) + 1;
|
---|
| 2560 | if (pos == list[n-1] + 1) { /* expansion is empty */
|
---|
| 2561 | if (!(ored_ch & 0x80)) { /* all vars were not quoted... */
|
---|
| 2562 | debug_printf_expand("expand_vars_to_list list[%d] empty, going back\n", n);
|
---|
| 2563 | pos--;
|
---|
| 2564 | n--;
|
---|
| 2565 | }
|
---|
| 2566 | }
|
---|
[821] | 2567 |
|
---|
[1765] | 2568 | *posp = pos;
|
---|
| 2569 | return n;
|
---|
| 2570 | }
|
---|
| 2571 |
|
---|
| 2572 | static char **expand_variables(char **argv, char or_mask)
|
---|
| 2573 | {
|
---|
| 2574 | int n;
|
---|
| 2575 | int count = 1;
|
---|
| 2576 | int len = 0;
|
---|
| 2577 | char *pos, **v, **list;
|
---|
| 2578 |
|
---|
| 2579 | v = argv;
|
---|
| 2580 | if (!*v) debug_printf_expand("count_var_expansion_space: "
|
---|
| 2581 | "argv[0]=NULL count=%d len=%d alloc_space=%d\n",
|
---|
| 2582 | count, len, sizeof(char*) * count + len);
|
---|
| 2583 | while (*v) {
|
---|
| 2584 | count_var_expansion_space(&count, &len, *v);
|
---|
| 2585 | debug_printf_expand("count_var_expansion_space: "
|
---|
| 2586 | "'%s' count=%d len=%d alloc_space=%d\n",
|
---|
| 2587 | *v, count, len, sizeof(char*) * count + len);
|
---|
| 2588 | v++;
|
---|
[821] | 2589 | }
|
---|
[1765] | 2590 | len += sizeof(char*) * count; /* total to alloc */
|
---|
| 2591 | list = xmalloc(len);
|
---|
| 2592 | pos = (char*)(list + count);
|
---|
| 2593 | debug_printf_expand("list=%p, list[0] should be %p\n", list, pos);
|
---|
| 2594 | n = 0;
|
---|
| 2595 | v = argv;
|
---|
| 2596 | while (*v)
|
---|
| 2597 | n = expand_vars_to_list(list, n, &pos, *v++, or_mask);
|
---|
| 2598 |
|
---|
| 2599 | if (n) debug_printf_expand("finalized list[%d]=%p '%s' "
|
---|
| 2600 | "strlen=%d next=%p pos=%p\n", n-1, list[n-1], list[n-1],
|
---|
| 2601 | strlen(list[n-1]), list[n-1] + strlen(list[n-1]) + 1, pos);
|
---|
| 2602 | list[n] = NULL;
|
---|
| 2603 |
|
---|
| 2604 | #ifdef DEBUG_EXPAND
|
---|
| 2605 | {
|
---|
| 2606 | int m = 0;
|
---|
| 2607 | while (m <= n) {
|
---|
| 2608 | debug_printf_expand("list[%d]=%p '%s'\n", m, list[m], list[m]);
|
---|
| 2609 | m++;
|
---|
| 2610 | }
|
---|
| 2611 | debug_printf_expand("used_space=%d\n", pos - (char*)list);
|
---|
| 2612 | }
|
---|
| 2613 | #endif
|
---|
| 2614 | if (ENABLE_HUSH_DEBUG)
|
---|
| 2615 | if (pos - (char*)list > len)
|
---|
| 2616 | bb_error_msg_and_die("BUG in varexp");
|
---|
| 2617 | return list;
|
---|
[821] | 2618 | }
|
---|
| 2619 |
|
---|
[1765] | 2620 | static char **expand_strvec_to_strvec(char **argv)
|
---|
[821] | 2621 | {
|
---|
[1765] | 2622 | return expand_variables(argv, 0);
|
---|
| 2623 | }
|
---|
[821] | 2624 |
|
---|
[1765] | 2625 | static char *expand_string_to_string(const char *str)
|
---|
| 2626 | {
|
---|
| 2627 | char *argv[2], **list;
|
---|
| 2628 |
|
---|
| 2629 | argv[0] = (char*)str;
|
---|
| 2630 | argv[1] = NULL;
|
---|
| 2631 | list = expand_variables(argv, 0x80); /* 0x80: make one-element expansion */
|
---|
| 2632 | if (ENABLE_HUSH_DEBUG)
|
---|
| 2633 | if (!list[0] || list[1])
|
---|
| 2634 | bb_error_msg_and_die("BUG in varexp2");
|
---|
| 2635 | /* actually, just move string 2*sizeof(char*) bytes back */
|
---|
| 2636 | strcpy((char*)list, list[0]);
|
---|
| 2637 | debug_printf_expand("string_to_string='%s'\n", (char*)list);
|
---|
| 2638 | return (char*)list;
|
---|
| 2639 | }
|
---|
| 2640 |
|
---|
| 2641 | static char* expand_strvec_to_string(char **argv)
|
---|
| 2642 | {
|
---|
| 2643 | char **list;
|
---|
| 2644 |
|
---|
| 2645 | list = expand_variables(argv, 0x80);
|
---|
| 2646 | /* Convert all NULs to spaces */
|
---|
| 2647 | if (list[0]) {
|
---|
| 2648 | int n = 1;
|
---|
| 2649 | while (list[n]) {
|
---|
| 2650 | if (ENABLE_HUSH_DEBUG)
|
---|
| 2651 | if (list[n-1] + strlen(list[n-1]) + 1 != list[n])
|
---|
| 2652 | bb_error_msg_and_die("BUG in varexp3");
|
---|
| 2653 | list[n][-1] = ' '; /* TODO: or to ifs[0]? */
|
---|
| 2654 | n++;
|
---|
| 2655 | }
|
---|
| 2656 | }
|
---|
| 2657 | strcpy((char*)list, list[0]);
|
---|
| 2658 | debug_printf_expand("strvec_to_string='%s'\n", (char*)list);
|
---|
| 2659 | return (char*)list;
|
---|
| 2660 | }
|
---|
| 2661 |
|
---|
| 2662 | /* This is used to get/check local shell variables */
|
---|
| 2663 | static struct variable *get_local_var(const char *name)
|
---|
| 2664 | {
|
---|
| 2665 | struct variable *cur;
|
---|
| 2666 | int len;
|
---|
| 2667 |
|
---|
| 2668 | if (!name)
|
---|
| 2669 | return NULL;
|
---|
| 2670 | len = strlen(name);
|
---|
| 2671 | for (cur = top_var; cur; cur = cur->next) {
|
---|
| 2672 | if (strncmp(cur->varstr, name, len) == 0 && cur->varstr[len] == '=')
|
---|
| 2673 | return cur;
|
---|
| 2674 | }
|
---|
| 2675 | return NULL;
|
---|
| 2676 | }
|
---|
| 2677 |
|
---|
| 2678 | /* str holds "NAME=VAL" and is expected to be malloced.
|
---|
| 2679 | * We take ownership of it. */
|
---|
| 2680 | static int set_local_var(char *str, int flg_export)
|
---|
| 2681 | {
|
---|
| 2682 | struct variable *cur;
|
---|
| 2683 | char *value;
|
---|
| 2684 | int name_len;
|
---|
| 2685 |
|
---|
| 2686 | value = strchr(str, '=');
|
---|
| 2687 | if (!value) { /* not expected to ever happen? */
|
---|
| 2688 | free(str);
|
---|
| 2689 | return -1;
|
---|
| 2690 | }
|
---|
| 2691 |
|
---|
| 2692 | name_len = value - str + 1; /* including '=' */
|
---|
| 2693 | cur = top_var; /* cannot be NULL (we have HUSH_VERSION and it's RO) */
|
---|
| 2694 | while (1) {
|
---|
| 2695 | if (strncmp(cur->varstr, str, name_len) != 0) {
|
---|
| 2696 | if (!cur->next) {
|
---|
| 2697 | /* Bail out. Note that now cur points
|
---|
| 2698 | * to last var in linked list */
|
---|
[821] | 2699 | break;
|
---|
[1765] | 2700 | }
|
---|
| 2701 | cur = cur->next;
|
---|
| 2702 | continue;
|
---|
[821] | 2703 | }
|
---|
[1765] | 2704 | /* We found an existing var with this name */
|
---|
| 2705 | *value = '\0';
|
---|
| 2706 | if (cur->flg_read_only) {
|
---|
| 2707 | bb_error_msg("%s: readonly variable", str);
|
---|
| 2708 | free(str);
|
---|
| 2709 | return -1;
|
---|
| 2710 | }
|
---|
| 2711 | unsetenv(str); /* just in case */
|
---|
| 2712 | *value = '=';
|
---|
| 2713 | if (strcmp(cur->varstr, str) == 0) {
|
---|
| 2714 | free_and_exp:
|
---|
| 2715 | free(str);
|
---|
| 2716 | goto exp;
|
---|
| 2717 | }
|
---|
| 2718 | if (cur->max_len >= strlen(str)) {
|
---|
| 2719 | /* This one is from startup env, reuse space */
|
---|
| 2720 | strcpy(cur->varstr, str);
|
---|
| 2721 | goto free_and_exp;
|
---|
| 2722 | }
|
---|
| 2723 | /* max_len == 0 signifies "malloced" var, which we can
|
---|
| 2724 | * (and has to) free */
|
---|
| 2725 | if (!cur->max_len)
|
---|
| 2726 | free(cur->varstr);
|
---|
| 2727 | cur->max_len = 0;
|
---|
| 2728 | goto set_str_and_exp;
|
---|
| 2729 | }
|
---|
| 2730 |
|
---|
| 2731 | /* Not found - create next variable struct */
|
---|
| 2732 | cur->next = xzalloc(sizeof(*cur));
|
---|
| 2733 | cur = cur->next;
|
---|
| 2734 |
|
---|
| 2735 | set_str_and_exp:
|
---|
| 2736 | cur->varstr = str;
|
---|
| 2737 | exp:
|
---|
| 2738 | if (flg_export)
|
---|
| 2739 | cur->flg_export = 1;
|
---|
| 2740 | if (cur->flg_export)
|
---|
| 2741 | return putenv(cur->varstr);
|
---|
| 2742 | return 0;
|
---|
| 2743 | }
|
---|
| 2744 |
|
---|
| 2745 | static void unset_local_var(const char *name)
|
---|
| 2746 | {
|
---|
| 2747 | struct variable *cur;
|
---|
| 2748 | struct variable *prev = prev; /* for gcc */
|
---|
| 2749 | int name_len;
|
---|
| 2750 |
|
---|
| 2751 | if (!name)
|
---|
| 2752 | return;
|
---|
| 2753 | name_len = strlen(name);
|
---|
| 2754 | cur = top_var;
|
---|
| 2755 | while (cur) {
|
---|
| 2756 | if (strncmp(cur->varstr, name, name_len) == 0 && cur->varstr[name_len] == '=') {
|
---|
| 2757 | if (cur->flg_read_only) {
|
---|
[821] | 2758 | bb_error_msg("%s: readonly variable", name);
|
---|
| 2759 | return;
|
---|
| 2760 | }
|
---|
[1765] | 2761 | /* prev is ok to use here because 1st variable, HUSH_VERSION,
|
---|
| 2762 | * is ro, and we cannot reach this code on the 1st pass */
|
---|
| 2763 | prev->next = cur->next;
|
---|
| 2764 | unsetenv(cur->varstr);
|
---|
| 2765 | if (!cur->max_len)
|
---|
| 2766 | free(cur->varstr);
|
---|
[821] | 2767 | free(cur);
|
---|
[1765] | 2768 | return;
|
---|
[821] | 2769 | }
|
---|
[1765] | 2770 | prev = cur;
|
---|
| 2771 | cur = cur->next;
|
---|
[821] | 2772 | }
|
---|
| 2773 | }
|
---|
| 2774 |
|
---|
| 2775 | static int is_assignment(const char *s)
|
---|
| 2776 | {
|
---|
[1765] | 2777 | if (!s || !isalpha(*s))
|
---|
| 2778 | return 0;
|
---|
| 2779 | s++;
|
---|
| 2780 | while (isalnum(*s) || *s == '_')
|
---|
| 2781 | s++;
|
---|
| 2782 | return *s == '=';
|
---|
[821] | 2783 | }
|
---|
| 2784 |
|
---|
| 2785 | /* the src parameter allows us to peek forward to a possible &n syntax
|
---|
| 2786 | * for file descriptor duplication, e.g., "2>&1".
|
---|
| 2787 | * Return code is 0 normally, 1 if a syntax error is detected in src.
|
---|
| 2788 | * Resource errors (in xmalloc) cause the process to exit */
|
---|
| 2789 | static int setup_redirect(struct p_context *ctx, int fd, redir_type style,
|
---|
| 2790 | struct in_str *input)
|
---|
| 2791 | {
|
---|
[1765] | 2792 | struct child_prog *child = ctx->child;
|
---|
[821] | 2793 | struct redir_struct *redir = child->redirects;
|
---|
[1765] | 2794 | struct redir_struct *last_redir = NULL;
|
---|
[821] | 2795 |
|
---|
| 2796 | /* Create a new redir_struct and drop it onto the end of the linked list */
|
---|
[1765] | 2797 | while (redir) {
|
---|
| 2798 | last_redir = redir;
|
---|
| 2799 | redir = redir->next;
|
---|
[821] | 2800 | }
|
---|
| 2801 | redir = xmalloc(sizeof(struct redir_struct));
|
---|
[1765] | 2802 | redir->next = NULL;
|
---|
| 2803 | redir->word.gl_pathv = NULL;
|
---|
[821] | 2804 | if (last_redir) {
|
---|
[1765] | 2805 | last_redir->next = redir;
|
---|
[821] | 2806 | } else {
|
---|
[1765] | 2807 | child->redirects = redir;
|
---|
[821] | 2808 | }
|
---|
| 2809 |
|
---|
[1765] | 2810 | redir->type = style;
|
---|
| 2811 | redir->fd = (fd == -1) ? redir_table[style].default_fd : fd;
|
---|
[821] | 2812 |
|
---|
| 2813 | debug_printf("Redirect type %d%s\n", redir->fd, redir_table[style].descrip);
|
---|
| 2814 |
|
---|
| 2815 | /* Check for a '2>&1' type redirect */
|
---|
| 2816 | redir->dup = redirect_dup_num(input);
|
---|
| 2817 | if (redir->dup == -2) return 1; /* syntax error */
|
---|
| 2818 | if (redir->dup != -1) {
|
---|
| 2819 | /* Erik had a check here that the file descriptor in question
|
---|
| 2820 | * is legit; I postpone that to "run time"
|
---|
| 2821 | * A "-" representation of "close me" shows up as a -3 here */
|
---|
| 2822 | debug_printf("Duplicating redirect '%d>&%d'\n", redir->fd, redir->dup);
|
---|
| 2823 | } else {
|
---|
| 2824 | /* We do _not_ try to open the file that src points to,
|
---|
| 2825 | * since we need to return and let src be expanded first.
|
---|
| 2826 | * Set ctx->pending_redirect, so we know what to do at the
|
---|
[1765] | 2827 | * end of the next parsed word. */
|
---|
[821] | 2828 | ctx->pending_redirect = redir;
|
---|
| 2829 | }
|
---|
| 2830 | return 0;
|
---|
| 2831 | }
|
---|
| 2832 |
|
---|
[1765] | 2833 | static struct pipe *new_pipe(void)
|
---|
| 2834 | {
|
---|
[821] | 2835 | struct pipe *pi;
|
---|
[1765] | 2836 | pi = xzalloc(sizeof(struct pipe));
|
---|
| 2837 | /*pi->num_progs = 0;*/
|
---|
| 2838 | /*pi->progs = NULL;*/
|
---|
| 2839 | /*pi->next = NULL;*/
|
---|
| 2840 | /*pi->followup = 0; invalid */
|
---|
| 2841 | if (RES_NONE)
|
---|
| 2842 | pi->res_word = RES_NONE;
|
---|
[821] | 2843 | return pi;
|
---|
| 2844 | }
|
---|
| 2845 |
|
---|
| 2846 | static void initialize_context(struct p_context *ctx)
|
---|
| 2847 | {
|
---|
[1765] | 2848 | ctx->child = NULL;
|
---|
| 2849 | ctx->pipe = ctx->list_head = new_pipe();
|
---|
| 2850 | ctx->pending_redirect = NULL;
|
---|
| 2851 | ctx->res_w = RES_NONE;
|
---|
| 2852 | //only ctx->parse_type is not touched... is this intentional?
|
---|
| 2853 | ctx->old_flag = 0;
|
---|
| 2854 | ctx->stack = NULL;
|
---|
[821] | 2855 | done_command(ctx); /* creates the memory for working child */
|
---|
| 2856 | }
|
---|
| 2857 |
|
---|
| 2858 | /* normal return is 0
|
---|
| 2859 | * if a reserved word is found, and processed, return 1
|
---|
| 2860 | * should handle if, then, elif, else, fi, for, while, until, do, done.
|
---|
| 2861 | * case, function, and select are obnoxious, save those for later.
|
---|
| 2862 | */
|
---|
[1765] | 2863 | #if ENABLE_HUSH_IF || ENABLE_HUSH_LOOPS
|
---|
[821] | 2864 | static int reserved_word(o_string *dest, struct p_context *ctx)
|
---|
| 2865 | {
|
---|
| 2866 | struct reserved_combo {
|
---|
[1765] | 2867 | char literal[7];
|
---|
| 2868 | unsigned char code;
|
---|
| 2869 | int flag;
|
---|
[821] | 2870 | };
|
---|
| 2871 | /* Mostly a list of accepted follow-up reserved words.
|
---|
| 2872 | * FLAG_END means we are done with the sequence, and are ready
|
---|
| 2873 | * to turn the compound list into a command.
|
---|
| 2874 | * FLAG_START means the word must start a new compound list.
|
---|
| 2875 | */
|
---|
[1765] | 2876 | static const struct reserved_combo reserved_list[] = {
|
---|
| 2877 | #if ENABLE_HUSH_IF
|
---|
[821] | 2878 | { "if", RES_IF, FLAG_THEN | FLAG_START },
|
---|
| 2879 | { "then", RES_THEN, FLAG_ELIF | FLAG_ELSE | FLAG_FI },
|
---|
| 2880 | { "elif", RES_ELIF, FLAG_THEN },
|
---|
| 2881 | { "else", RES_ELSE, FLAG_FI },
|
---|
| 2882 | { "fi", RES_FI, FLAG_END },
|
---|
[1765] | 2883 | #endif
|
---|
| 2884 | #if ENABLE_HUSH_LOOPS
|
---|
[821] | 2885 | { "for", RES_FOR, FLAG_IN | FLAG_START },
|
---|
| 2886 | { "while", RES_WHILE, FLAG_DO | FLAG_START },
|
---|
| 2887 | { "until", RES_UNTIL, FLAG_DO | FLAG_START },
|
---|
| 2888 | { "in", RES_IN, FLAG_DO },
|
---|
| 2889 | { "do", RES_DO, FLAG_DONE },
|
---|
| 2890 | { "done", RES_DONE, FLAG_END }
|
---|
[1765] | 2891 | #endif
|
---|
[821] | 2892 | };
|
---|
[1765] | 2893 |
|
---|
| 2894 | const struct reserved_combo *r;
|
---|
| 2895 |
|
---|
| 2896 | for (r = reserved_list; r < reserved_list + ARRAY_SIZE(reserved_list); r++) {
|
---|
| 2897 | if (strcmp(dest->data, r->literal) != 0)
|
---|
| 2898 | continue;
|
---|
| 2899 | debug_printf("found reserved word %s, code %d\n", r->literal, r->code);
|
---|
| 2900 | if (r->flag & FLAG_START) {
|
---|
| 2901 | struct p_context *new;
|
---|
| 2902 | debug_printf("push stack\n");
|
---|
| 2903 | #if ENABLE_HUSH_LOOPS
|
---|
| 2904 | if (ctx->res_w == RES_IN || ctx->res_w == RES_FOR) {
|
---|
| 2905 | syntax("malformed for"); /* example: 'for if' */
|
---|
| 2906 | ctx->res_w = RES_SNTX;
|
---|
[821] | 2907 | b_reset(dest);
|
---|
| 2908 | return 1;
|
---|
| 2909 | }
|
---|
[1765] | 2910 | #endif
|
---|
| 2911 | new = xmalloc(sizeof(*new));
|
---|
| 2912 | *new = *ctx; /* physical copy */
|
---|
| 2913 | initialize_context(ctx);
|
---|
| 2914 | ctx->stack = new;
|
---|
| 2915 | } else if (ctx->res_w == RES_NONE || !(ctx->old_flag & (1 << r->code))) {
|
---|
| 2916 | syntax(NULL);
|
---|
| 2917 | ctx->res_w = RES_SNTX;
|
---|
| 2918 | b_reset(dest);
|
---|
[821] | 2919 | return 1;
|
---|
| 2920 | }
|
---|
[1765] | 2921 | ctx->res_w = r->code;
|
---|
| 2922 | ctx->old_flag = r->flag;
|
---|
| 2923 | if (ctx->old_flag & FLAG_END) {
|
---|
| 2924 | struct p_context *old;
|
---|
| 2925 | debug_printf("pop stack\n");
|
---|
| 2926 | done_pipe(ctx, PIPE_SEQ);
|
---|
| 2927 | old = ctx->stack;
|
---|
| 2928 | old->child->group = ctx->list_head;
|
---|
| 2929 | old->child->subshell = 0;
|
---|
| 2930 | *ctx = *old; /* physical copy */
|
---|
| 2931 | free(old);
|
---|
| 2932 | }
|
---|
| 2933 | b_reset(dest);
|
---|
| 2934 | return 1;
|
---|
[821] | 2935 | }
|
---|
| 2936 | return 0;
|
---|
| 2937 | }
|
---|
[1765] | 2938 | #else
|
---|
| 2939 | #define reserved_word(dest, ctx) ((int)0)
|
---|
| 2940 | #endif
|
---|
[821] | 2941 |
|
---|
[1765] | 2942 | /* Normal return is 0.
|
---|
[821] | 2943 | * Syntax or xglob errors return 1. */
|
---|
| 2944 | static int done_word(o_string *dest, struct p_context *ctx)
|
---|
| 2945 | {
|
---|
[1765] | 2946 | struct child_prog *child = ctx->child;
|
---|
[821] | 2947 | glob_t *glob_target;
|
---|
| 2948 | int gr, flags = 0;
|
---|
| 2949 |
|
---|
[1765] | 2950 | debug_printf_parse("done_word entered: '%s' %p\n", dest->data, child);
|
---|
[821] | 2951 | if (dest->length == 0 && !dest->nonnull) {
|
---|
[1765] | 2952 | debug_printf_parse("done_word return 0: true null, ignored\n");
|
---|
[821] | 2953 | return 0;
|
---|
| 2954 | }
|
---|
| 2955 | if (ctx->pending_redirect) {
|
---|
| 2956 | glob_target = &ctx->pending_redirect->word;
|
---|
| 2957 | } else {
|
---|
| 2958 | if (child->group) {
|
---|
[1765] | 2959 | syntax(NULL);
|
---|
| 2960 | debug_printf_parse("done_word return 1: syntax error, groups and arglists don't mix\n");
|
---|
| 2961 | return 1;
|
---|
[821] | 2962 | }
|
---|
[1765] | 2963 | if (!child->argv && (ctx->parse_type & PARSEFLAG_SEMICOLON)) {
|
---|
| 2964 | debug_printf_parse(": checking '%s' for reserved-ness\n", dest->data);
|
---|
| 2965 | if (reserved_word(dest, ctx)) {
|
---|
| 2966 | debug_printf_parse("done_word return %d\n", (ctx->res_w == RES_SNTX));
|
---|
| 2967 | return (ctx->res_w == RES_SNTX);
|
---|
| 2968 | }
|
---|
[821] | 2969 | }
|
---|
| 2970 | glob_target = &child->glob_result;
|
---|
[1765] | 2971 | if (child->argv)
|
---|
| 2972 | flags |= GLOB_APPEND;
|
---|
[821] | 2973 | }
|
---|
| 2974 | gr = xglob(dest, flags, glob_target);
|
---|
[1765] | 2975 | if (gr != 0) {
|
---|
| 2976 | debug_printf_parse("done_word return 1: xglob returned %d\n", gr);
|
---|
| 2977 | return 1;
|
---|
| 2978 | }
|
---|
[821] | 2979 |
|
---|
| 2980 | b_reset(dest);
|
---|
| 2981 | if (ctx->pending_redirect) {
|
---|
[1765] | 2982 | ctx->pending_redirect = NULL;
|
---|
[821] | 2983 | if (glob_target->gl_pathc != 1) {
|
---|
| 2984 | bb_error_msg("ambiguous redirect");
|
---|
[1765] | 2985 | debug_printf_parse("done_word return 1: ambiguous redirect\n");
|
---|
[821] | 2986 | return 1;
|
---|
| 2987 | }
|
---|
| 2988 | } else {
|
---|
| 2989 | child->argv = glob_target->gl_pathv;
|
---|
| 2990 | }
|
---|
[1765] | 2991 | #if ENABLE_HUSH_LOOPS
|
---|
| 2992 | if (ctx->res_w == RES_FOR) {
|
---|
| 2993 | done_word(dest, ctx);
|
---|
| 2994 | done_pipe(ctx, PIPE_SEQ);
|
---|
[821] | 2995 | }
|
---|
[1765] | 2996 | #endif
|
---|
| 2997 | debug_printf_parse("done_word return 0\n");
|
---|
[821] | 2998 | return 0;
|
---|
| 2999 | }
|
---|
| 3000 |
|
---|
| 3001 | /* The only possible error here is out of memory, in which case
|
---|
| 3002 | * xmalloc exits. */
|
---|
| 3003 | static int done_command(struct p_context *ctx)
|
---|
| 3004 | {
|
---|
| 3005 | /* The child is really already in the pipe structure, so
|
---|
[1765] | 3006 | * advance the pipe counter and make a new, null child. */
|
---|
| 3007 | struct pipe *pi = ctx->pipe;
|
---|
| 3008 | struct child_prog *child = ctx->child;
|
---|
[821] | 3009 |
|
---|
[1765] | 3010 | if (child) {
|
---|
| 3011 | if (child->group == NULL
|
---|
| 3012 | && child->argv == NULL
|
---|
| 3013 | && child->redirects == NULL
|
---|
| 3014 | ) {
|
---|
| 3015 | debug_printf_parse("done_command: skipping null cmd, num_progs=%d\n", pi->num_progs);
|
---|
| 3016 | return pi->num_progs;
|
---|
| 3017 | }
|
---|
[821] | 3018 | pi->num_progs++;
|
---|
[1765] | 3019 | debug_printf_parse("done_command: ++num_progs=%d\n", pi->num_progs);
|
---|
[821] | 3020 | } else {
|
---|
[1765] | 3021 | debug_printf_parse("done_command: initializing, num_progs=%d\n", pi->num_progs);
|
---|
[821] | 3022 | }
|
---|
[1765] | 3023 |
|
---|
| 3024 | /* Only real trickiness here is that the uncommitted
|
---|
| 3025 | * child structure is not counted in pi->num_progs. */
|
---|
[821] | 3026 | pi->progs = xrealloc(pi->progs, sizeof(*pi->progs) * (pi->num_progs+1));
|
---|
[1765] | 3027 | child = &pi->progs[pi->num_progs];
|
---|
[821] | 3028 |
|
---|
[1765] | 3029 | memset(child, 0, sizeof(*child));
|
---|
| 3030 | /*child->redirects = NULL;*/
|
---|
| 3031 | /*child->argv = NULL;*/
|
---|
| 3032 | /*child->is_stopped = 0;*/
|
---|
| 3033 | /*child->group = NULL;*/
|
---|
| 3034 | /*child->glob_result.gl_pathv = NULL;*/
|
---|
| 3035 | child->family = pi;
|
---|
| 3036 | //sp: /*child->sp = 0;*/
|
---|
| 3037 | //pt: child->parse_type = ctx->parse_type;
|
---|
[821] | 3038 |
|
---|
[1765] | 3039 | ctx->child = child;
|
---|
[821] | 3040 | /* but ctx->pipe and ctx->list_head remain unchanged */
|
---|
[1765] | 3041 |
|
---|
| 3042 | return pi->num_progs; /* used only for 0/nonzero check */
|
---|
[821] | 3043 | }
|
---|
| 3044 |
|
---|
| 3045 | static int done_pipe(struct p_context *ctx, pipe_style type)
|
---|
| 3046 | {
|
---|
| 3047 | struct pipe *new_p;
|
---|
[1765] | 3048 | int not_null;
|
---|
| 3049 |
|
---|
| 3050 | debug_printf_parse("done_pipe entered, followup %d\n", type);
|
---|
| 3051 | not_null = done_command(ctx); /* implicit closure of previous command */
|
---|
[821] | 3052 | ctx->pipe->followup = type;
|
---|
[1765] | 3053 | ctx->pipe->res_word = ctx->res_w;
|
---|
| 3054 | /* Without this check, even just <enter> on command line generates
|
---|
| 3055 | * tree of three NOPs (!). Which is harmless but annoying.
|
---|
| 3056 | * IOW: it is safe to do it unconditionally. */
|
---|
| 3057 | if (not_null) {
|
---|
| 3058 | new_p = new_pipe();
|
---|
| 3059 | ctx->pipe->next = new_p;
|
---|
| 3060 | ctx->pipe = new_p;
|
---|
| 3061 | ctx->child = NULL;
|
---|
| 3062 | done_command(ctx); /* set up new pipe to accept commands */
|
---|
| 3063 | }
|
---|
| 3064 | debug_printf_parse("done_pipe return 0\n");
|
---|
[821] | 3065 | return 0;
|
---|
| 3066 | }
|
---|
| 3067 |
|
---|
| 3068 | /* peek ahead in the in_str to find out if we have a "&n" construct,
|
---|
| 3069 | * as in "2>&1", that represents duplicating a file descriptor.
|
---|
| 3070 | * returns either -2 (syntax error), -1 (no &), or the number found.
|
---|
| 3071 | */
|
---|
| 3072 | static int redirect_dup_num(struct in_str *input)
|
---|
| 3073 | {
|
---|
[1765] | 3074 | int ch, d = 0, ok = 0;
|
---|
[821] | 3075 | ch = b_peek(input);
|
---|
| 3076 | if (ch != '&') return -1;
|
---|
| 3077 |
|
---|
| 3078 | b_getch(input); /* get the & */
|
---|
[1765] | 3079 | ch = b_peek(input);
|
---|
[821] | 3080 | if (ch == '-') {
|
---|
| 3081 | b_getch(input);
|
---|
| 3082 | return -3; /* "-" represents "close me" */
|
---|
| 3083 | }
|
---|
| 3084 | while (isdigit(ch)) {
|
---|
[1765] | 3085 | d = d*10 + (ch-'0');
|
---|
| 3086 | ok = 1;
|
---|
[821] | 3087 | b_getch(input);
|
---|
| 3088 | ch = b_peek(input);
|
---|
| 3089 | }
|
---|
| 3090 | if (ok) return d;
|
---|
| 3091 |
|
---|
| 3092 | bb_error_msg("ambiguous redirect");
|
---|
| 3093 | return -2;
|
---|
| 3094 | }
|
---|
| 3095 |
|
---|
| 3096 | /* If a redirect is immediately preceded by a number, that number is
|
---|
| 3097 | * supposed to tell which file descriptor to redirect. This routine
|
---|
| 3098 | * looks for such preceding numbers. In an ideal world this routine
|
---|
| 3099 | * needs to handle all the following classes of redirects...
|
---|
| 3100 | * echo 2>foo # redirects fd 2 to file "foo", nothing passed to echo
|
---|
| 3101 | * echo 49>foo # redirects fd 49 to file "foo", nothing passed to echo
|
---|
| 3102 | * echo -2>foo # redirects fd 1 to file "foo", "-2" passed to echo
|
---|
| 3103 | * echo 49x>foo # redirects fd 1 to file "foo", "49x" passed to echo
|
---|
| 3104 | * A -1 output from this program means no valid number was found, so the
|
---|
| 3105 | * caller should use the appropriate default for this redirection.
|
---|
| 3106 | */
|
---|
| 3107 | static int redirect_opt_num(o_string *o)
|
---|
| 3108 | {
|
---|
| 3109 | int num;
|
---|
| 3110 |
|
---|
[1765] | 3111 | if (o->length == 0)
|
---|
| 3112 | return -1;
|
---|
| 3113 | for (num = 0; num < o->length; num++) {
|
---|
| 3114 | if (!isdigit(*(o->data + num))) {
|
---|
[821] | 3115 | return -1;
|
---|
| 3116 | }
|
---|
| 3117 | }
|
---|
| 3118 | /* reuse num (and save an int) */
|
---|
[1765] | 3119 | num = atoi(o->data);
|
---|
[821] | 3120 | b_reset(o);
|
---|
| 3121 | return num;
|
---|
| 3122 | }
|
---|
| 3123 |
|
---|
[1765] | 3124 | #if ENABLE_HUSH_TICK
|
---|
[821] | 3125 | static FILE *generate_stream_from_list(struct pipe *head)
|
---|
| 3126 | {
|
---|
| 3127 | FILE *pf;
|
---|
| 3128 | int pid, channel[2];
|
---|
[1765] | 3129 |
|
---|
| 3130 | xpipe(channel);
|
---|
| 3131 | #if BB_MMU
|
---|
| 3132 | pid = fork();
|
---|
[821] | 3133 | #else
|
---|
[1765] | 3134 | pid = vfork();
|
---|
[821] | 3135 | #endif
|
---|
[1765] | 3136 | if (pid < 0) {
|
---|
[821] | 3137 | bb_perror_msg_and_die("fork");
|
---|
[1765] | 3138 | } else if (pid == 0) {
|
---|
[821] | 3139 | close(channel[0]);
|
---|
| 3140 | if (channel[1] != 1) {
|
---|
[1765] | 3141 | dup2(channel[1], 1);
|
---|
[821] | 3142 | close(channel[1]);
|
---|
| 3143 | }
|
---|
[1765] | 3144 | /* Prevent it from trying to handle ctrl-z etc */
|
---|
| 3145 | #if ENABLE_HUSH_JOB
|
---|
| 3146 | run_list_level = 1;
|
---|
| 3147 | #endif
|
---|
| 3148 | /* Process substitution is not considered to be usual
|
---|
| 3149 | * 'command execution'.
|
---|
| 3150 | * SUSv3 says ctrl-Z should be ignored, ctrl-C should not. */
|
---|
| 3151 | /* Not needed, we are relying on it being disabled
|
---|
| 3152 | * everywhere outside actual command execution. */
|
---|
| 3153 | /*set_jobctrl_sighandler(SIG_IGN);*/
|
---|
| 3154 | set_misc_sighandler(SIG_DFL);
|
---|
[821] | 3155 | _exit(run_list_real(head)); /* leaks memory */
|
---|
| 3156 | }
|
---|
| 3157 | close(channel[1]);
|
---|
[1765] | 3158 | pf = fdopen(channel[0], "r");
|
---|
[821] | 3159 | return pf;
|
---|
| 3160 | }
|
---|
| 3161 |
|
---|
[1765] | 3162 | /* Return code is exit status of the process that is run. */
|
---|
| 3163 | static int process_command_subs(o_string *dest, struct p_context *ctx,
|
---|
| 3164 | struct in_str *input, const char *subst_end)
|
---|
[821] | 3165 | {
|
---|
[1765] | 3166 | int retcode, ch, eol_cnt;
|
---|
| 3167 | o_string result = NULL_O_STRING;
|
---|
[821] | 3168 | struct p_context inner;
|
---|
| 3169 | FILE *p;
|
---|
| 3170 | struct in_str pipe_str;
|
---|
[1765] | 3171 |
|
---|
[821] | 3172 | initialize_context(&inner);
|
---|
| 3173 |
|
---|
| 3174 | /* recursion to generate command */
|
---|
| 3175 | retcode = parse_stream(&result, &inner, input, subst_end);
|
---|
[1765] | 3176 | if (retcode != 0)
|
---|
| 3177 | return retcode; /* syntax error or EOF */
|
---|
[821] | 3178 | done_word(&result, &inner);
|
---|
| 3179 | done_pipe(&inner, PIPE_SEQ);
|
---|
| 3180 | b_free(&result);
|
---|
| 3181 |
|
---|
[1765] | 3182 | p = generate_stream_from_list(inner.list_head);
|
---|
| 3183 | if (p == NULL) return 1;
|
---|
[821] | 3184 | mark_open(fileno(p));
|
---|
| 3185 | setup_file_in_str(&pipe_str, p);
|
---|
| 3186 |
|
---|
| 3187 | /* now send results of command back into original context */
|
---|
[1765] | 3188 | eol_cnt = 0;
|
---|
| 3189 | while ((ch = b_getch(&pipe_str)) != EOF) {
|
---|
| 3190 | if (ch == '\n') {
|
---|
| 3191 | eol_cnt++;
|
---|
| 3192 | continue;
|
---|
| 3193 | }
|
---|
| 3194 | while (eol_cnt) {
|
---|
| 3195 | b_addqchr(dest, '\n', dest->quote);
|
---|
| 3196 | eol_cnt--;
|
---|
| 3197 | }
|
---|
| 3198 | b_addqchr(dest, ch, dest->quote);
|
---|
[821] | 3199 | }
|
---|
| 3200 |
|
---|
| 3201 | debug_printf("done reading from pipe, pclose()ing\n");
|
---|
| 3202 | /* This is the step that wait()s for the child. Should be pretty
|
---|
| 3203 | * safe, since we just read an EOF from its stdout. We could try
|
---|
[1765] | 3204 | * to do better, by using wait(), and keeping track of background jobs
|
---|
[821] | 3205 | * at the same time. That would be a lot of work, and contrary
|
---|
| 3206 | * to the KISS philosophy of this program. */
|
---|
| 3207 | mark_closed(fileno(p));
|
---|
[1765] | 3208 | retcode = fclose(p);
|
---|
| 3209 | free_pipe_list(inner.list_head, 0);
|
---|
| 3210 | debug_printf("closed FILE from child, retcode=%d\n", retcode);
|
---|
[821] | 3211 | return retcode;
|
---|
| 3212 | }
|
---|
[1765] | 3213 | #endif
|
---|
[821] | 3214 |
|
---|
| 3215 | static int parse_group(o_string *dest, struct p_context *ctx,
|
---|
| 3216 | struct in_str *input, int ch)
|
---|
| 3217 | {
|
---|
[1765] | 3218 | int rcode;
|
---|
| 3219 | const char *endch = NULL;
|
---|
[821] | 3220 | struct p_context sub;
|
---|
| 3221 | struct child_prog *child = ctx->child;
|
---|
[1765] | 3222 |
|
---|
| 3223 | debug_printf_parse("parse_group entered\n");
|
---|
[821] | 3224 | if (child->argv) {
|
---|
[1765] | 3225 | syntax(NULL);
|
---|
| 3226 | debug_printf_parse("parse_group return 1: syntax error, groups and arglists don't mix\n");
|
---|
| 3227 | return 1;
|
---|
[821] | 3228 | }
|
---|
| 3229 | initialize_context(&sub);
|
---|
[1765] | 3230 | endch = "}";
|
---|
| 3231 | if (ch == '(') {
|
---|
| 3232 | endch = ")";
|
---|
| 3233 | child->subshell = 1;
|
---|
[821] | 3234 | }
|
---|
[1765] | 3235 | rcode = parse_stream(dest, &sub, input, endch);
|
---|
| 3236 | //vda: err chk?
|
---|
| 3237 | done_word(dest, &sub); /* finish off the final word in the subcontext */
|
---|
[821] | 3238 | done_pipe(&sub, PIPE_SEQ); /* and the final command there, too */
|
---|
| 3239 | child->group = sub.list_head;
|
---|
[1765] | 3240 |
|
---|
| 3241 | debug_printf_parse("parse_group return %d\n", rcode);
|
---|
[821] | 3242 | return rcode;
|
---|
| 3243 | /* child remains "open", available for possible redirects */
|
---|
| 3244 | }
|
---|
| 3245 |
|
---|
[1765] | 3246 | /* Basically useful version until someone wants to get fancier,
|
---|
[821] | 3247 | * see the bash man page under "Parameter Expansion" */
|
---|
[1765] | 3248 | static const char *lookup_param(const char *src)
|
---|
[821] | 3249 | {
|
---|
[1765] | 3250 | struct variable *var = get_local_var(src);
|
---|
| 3251 | if (var)
|
---|
| 3252 | return strchr(var->varstr, '=') + 1;
|
---|
| 3253 | return NULL;
|
---|
[821] | 3254 | }
|
---|
| 3255 |
|
---|
| 3256 | /* return code: 0 for OK, 1 for syntax error */
|
---|
| 3257 | static int handle_dollar(o_string *dest, struct p_context *ctx, struct in_str *input)
|
---|
| 3258 | {
|
---|
[1765] | 3259 | int ch = b_peek(input); /* first character after the $ */
|
---|
| 3260 | unsigned char quote_mask = dest->quote ? 0x80 : 0;
|
---|
| 3261 |
|
---|
| 3262 | debug_printf_parse("handle_dollar entered: ch='%c'\n", ch);
|
---|
[821] | 3263 | if (isalpha(ch)) {
|
---|
| 3264 | b_addchr(dest, SPECIAL_VAR_SYMBOL);
|
---|
[1765] | 3265 | //sp: ctx->child->sp++;
|
---|
| 3266 | while (1) {
|
---|
| 3267 | debug_printf_parse(": '%c'\n", ch);
|
---|
[821] | 3268 | b_getch(input);
|
---|
[1765] | 3269 | b_addchr(dest, ch | quote_mask);
|
---|
| 3270 | quote_mask = 0;
|
---|
| 3271 | ch = b_peek(input);
|
---|
| 3272 | if (!isalnum(ch) && ch != '_')
|
---|
| 3273 | break;
|
---|
[821] | 3274 | }
|
---|
| 3275 | b_addchr(dest, SPECIAL_VAR_SYMBOL);
|
---|
| 3276 | } else if (isdigit(ch)) {
|
---|
[1765] | 3277 | make_one_char_var:
|
---|
| 3278 | b_addchr(dest, SPECIAL_VAR_SYMBOL);
|
---|
| 3279 | //sp: ctx->child->sp++;
|
---|
| 3280 | debug_printf_parse(": '%c'\n", ch);
|
---|
| 3281 | b_getch(input);
|
---|
| 3282 | b_addchr(dest, ch | quote_mask);
|
---|
| 3283 | b_addchr(dest, SPECIAL_VAR_SYMBOL);
|
---|
[821] | 3284 | } else switch (ch) {
|
---|
[1765] | 3285 | case '$': /* pid */
|
---|
| 3286 | case '!': /* last bg pid */
|
---|
| 3287 | case '?': /* last exit code */
|
---|
| 3288 | case '#': /* number of args */
|
---|
| 3289 | case '*': /* args */
|
---|
| 3290 | case '@': /* args */
|
---|
| 3291 | goto make_one_char_var;
|
---|
[821] | 3292 | case '{':
|
---|
| 3293 | b_addchr(dest, SPECIAL_VAR_SYMBOL);
|
---|
[1765] | 3294 | //sp: ctx->child->sp++;
|
---|
[821] | 3295 | b_getch(input);
|
---|
| 3296 | /* XXX maybe someone will try to escape the '}' */
|
---|
[1765] | 3297 | while (1) {
|
---|
| 3298 | ch = b_getch(input);
|
---|
| 3299 | if (ch == '}')
|
---|
| 3300 | break;
|
---|
| 3301 | if (!isalnum(ch) && ch != '_') {
|
---|
| 3302 | syntax("unterminated ${name}");
|
---|
| 3303 | debug_printf_parse("handle_dollar return 1: unterminated ${name}\n");
|
---|
| 3304 | return 1;
|
---|
| 3305 | }
|
---|
| 3306 | debug_printf_parse(": '%c'\n", ch);
|
---|
| 3307 | b_addchr(dest, ch | quote_mask);
|
---|
| 3308 | quote_mask = 0;
|
---|
[821] | 3309 | }
|
---|
| 3310 | b_addchr(dest, SPECIAL_VAR_SYMBOL);
|
---|
| 3311 | break;
|
---|
[1765] | 3312 | #if ENABLE_HUSH_TICK
|
---|
[821] | 3313 | case '(':
|
---|
| 3314 | b_getch(input);
|
---|
[1765] | 3315 | process_command_subs(dest, ctx, input, ")");
|
---|
[821] | 3316 | break;
|
---|
[1765] | 3317 | #endif
|
---|
[821] | 3318 | case '-':
|
---|
| 3319 | case '_':
|
---|
| 3320 | /* still unhandled, but should be eventually */
|
---|
[1765] | 3321 | bb_error_msg("unhandled syntax: $%c", ch);
|
---|
[821] | 3322 | return 1;
|
---|
| 3323 | break;
|
---|
| 3324 | default:
|
---|
[1765] | 3325 | b_addqchr(dest, '$', dest->quote);
|
---|
[821] | 3326 | }
|
---|
[1765] | 3327 | debug_printf_parse("handle_dollar return 0\n");
|
---|
[821] | 3328 | return 0;
|
---|
| 3329 | }
|
---|
| 3330 |
|
---|
| 3331 | /* return code is 0 for normal exit, 1 for syntax error */
|
---|
[1765] | 3332 | static int parse_stream(o_string *dest, struct p_context *ctx,
|
---|
| 3333 | struct in_str *input, const char *end_trigger)
|
---|
[821] | 3334 | {
|
---|
| 3335 | int ch, m;
|
---|
| 3336 | int redir_fd;
|
---|
| 3337 | redir_type redir_style;
|
---|
| 3338 | int next;
|
---|
| 3339 |
|
---|
| 3340 | /* Only double-quote state is handled in the state variable dest->quote.
|
---|
| 3341 | * A single-quote triggers a bypass of the main loop until its mate is
|
---|
| 3342 | * found. When recursing, quote state is passed in via dest->quote. */
|
---|
| 3343 |
|
---|
[1765] | 3344 | debug_printf_parse("parse_stream entered, end_trigger='%s'\n", end_trigger);
|
---|
| 3345 |
|
---|
| 3346 | while (1) {
|
---|
| 3347 | m = CHAR_IFS;
|
---|
| 3348 | next = '\0';
|
---|
| 3349 | ch = b_getch(input);
|
---|
| 3350 | if (ch != EOF) {
|
---|
| 3351 | m = charmap[ch];
|
---|
| 3352 | if (ch != '\n')
|
---|
| 3353 | next = b_peek(input);
|
---|
| 3354 | }
|
---|
| 3355 | debug_printf_parse(": ch=%c (%d) m=%d quote=%d\n",
|
---|
| 3356 | ch, ch, m, dest->quote);
|
---|
| 3357 | if (m == CHAR_ORDINARY
|
---|
| 3358 | || (m != CHAR_SPECIAL && dest->quote)
|
---|
| 3359 | ) {
|
---|
| 3360 | if (ch == EOF) {
|
---|
| 3361 | syntax("unterminated \"");
|
---|
| 3362 | debug_printf_parse("parse_stream return 1: unterminated \"\n");
|
---|
| 3363 | return 1;
|
---|
| 3364 | }
|
---|
[821] | 3365 | b_addqchr(dest, ch, dest->quote);
|
---|
[1765] | 3366 | continue;
|
---|
| 3367 | }
|
---|
| 3368 | if (m == CHAR_IFS) {
|
---|
| 3369 | if (done_word(dest, ctx)) {
|
---|
| 3370 | debug_printf_parse("parse_stream return 1: done_word!=0\n");
|
---|
| 3371 | return 1;
|
---|
[821] | 3372 | }
|
---|
[1765] | 3373 | if (ch == EOF)
|
---|
| 3374 | break;
|
---|
| 3375 | /* If we aren't performing a substitution, treat
|
---|
| 3376 | * a newline as a command separator.
|
---|
| 3377 | * [why we don't handle it exactly like ';'? --vda] */
|
---|
| 3378 | if (end_trigger && ch == '\n') {
|
---|
| 3379 | done_pipe(ctx, PIPE_SEQ);
|
---|
[821] | 3380 | }
|
---|
[1765] | 3381 | }
|
---|
| 3382 | if ((end_trigger && strchr(end_trigger, ch))
|
---|
| 3383 | && !dest->quote && ctx->res_w == RES_NONE
|
---|
| 3384 | ) {
|
---|
| 3385 | debug_printf_parse("parse_stream return 0: end_trigger char found\n");
|
---|
| 3386 | return 0;
|
---|
| 3387 | }
|
---|
| 3388 | if (m == CHAR_IFS)
|
---|
| 3389 | continue;
|
---|
| 3390 | switch (ch) {
|
---|
[821] | 3391 | case '#':
|
---|
| 3392 | if (dest->length == 0 && !dest->quote) {
|
---|
[1765] | 3393 | while (1) {
|
---|
| 3394 | ch = b_peek(input);
|
---|
| 3395 | if (ch == EOF || ch == '\n')
|
---|
| 3396 | break;
|
---|
| 3397 | b_getch(input);
|
---|
| 3398 | }
|
---|
[821] | 3399 | } else {
|
---|
| 3400 | b_addqchr(dest, ch, dest->quote);
|
---|
| 3401 | }
|
---|
| 3402 | break;
|
---|
| 3403 | case '\\':
|
---|
| 3404 | if (next == EOF) {
|
---|
[1765] | 3405 | syntax("\\<eof>");
|
---|
| 3406 | debug_printf_parse("parse_stream return 1: \\<eof>\n");
|
---|
[821] | 3407 | return 1;
|
---|
| 3408 | }
|
---|
| 3409 | b_addqchr(dest, '\\', dest->quote);
|
---|
| 3410 | b_addqchr(dest, b_getch(input), dest->quote);
|
---|
| 3411 | break;
|
---|
| 3412 | case '$':
|
---|
[1765] | 3413 | if (handle_dollar(dest, ctx, input) != 0) {
|
---|
| 3414 | debug_printf_parse("parse_stream return 1: handle_dollar returned non-0\n");
|
---|
| 3415 | return 1;
|
---|
| 3416 | }
|
---|
[821] | 3417 | break;
|
---|
| 3418 | case '\'':
|
---|
| 3419 | dest->nonnull = 1;
|
---|
[1765] | 3420 | while (1) {
|
---|
| 3421 | ch = b_getch(input);
|
---|
| 3422 | if (ch == EOF || ch == '\'')
|
---|
| 3423 | break;
|
---|
| 3424 | b_addchr(dest, ch);
|
---|
[821] | 3425 | }
|
---|
[1765] | 3426 | if (ch == EOF) {
|
---|
| 3427 | syntax("unterminated '");
|
---|
| 3428 | debug_printf_parse("parse_stream return 1: unterminated '\n");
|
---|
[821] | 3429 | return 1;
|
---|
| 3430 | }
|
---|
| 3431 | break;
|
---|
| 3432 | case '"':
|
---|
| 3433 | dest->nonnull = 1;
|
---|
| 3434 | dest->quote = !dest->quote;
|
---|
| 3435 | break;
|
---|
[1765] | 3436 | #if ENABLE_HUSH_TICK
|
---|
[821] | 3437 | case '`':
|
---|
[1765] | 3438 | process_command_subs(dest, ctx, input, "`");
|
---|
[821] | 3439 | break;
|
---|
[1765] | 3440 | #endif
|
---|
[821] | 3441 | case '>':
|
---|
| 3442 | redir_fd = redirect_opt_num(dest);
|
---|
| 3443 | done_word(dest, ctx);
|
---|
[1765] | 3444 | redir_style = REDIRECT_OVERWRITE;
|
---|
[821] | 3445 | if (next == '>') {
|
---|
[1765] | 3446 | redir_style = REDIRECT_APPEND;
|
---|
[821] | 3447 | b_getch(input);
|
---|
[1765] | 3448 | }
|
---|
| 3449 | #if 0
|
---|
| 3450 | else if (next == '(') {
|
---|
| 3451 | syntax(">(process) not supported");
|
---|
| 3452 | debug_printf_parse("parse_stream return 1: >(process) not supported\n");
|
---|
[821] | 3453 | return 1;
|
---|
| 3454 | }
|
---|
[1765] | 3455 | #endif
|
---|
[821] | 3456 | setup_redirect(ctx, redir_fd, redir_style, input);
|
---|
| 3457 | break;
|
---|
| 3458 | case '<':
|
---|
| 3459 | redir_fd = redirect_opt_num(dest);
|
---|
| 3460 | done_word(dest, ctx);
|
---|
[1765] | 3461 | redir_style = REDIRECT_INPUT;
|
---|
[821] | 3462 | if (next == '<') {
|
---|
[1765] | 3463 | redir_style = REDIRECT_HEREIS;
|
---|
[821] | 3464 | b_getch(input);
|
---|
| 3465 | } else if (next == '>') {
|
---|
[1765] | 3466 | redir_style = REDIRECT_IO;
|
---|
[821] | 3467 | b_getch(input);
|
---|
[1765] | 3468 | }
|
---|
| 3469 | #if 0
|
---|
| 3470 | else if (next == '(') {
|
---|
| 3471 | syntax("<(process) not supported");
|
---|
| 3472 | debug_printf_parse("parse_stream return 1: <(process) not supported\n");
|
---|
[821] | 3473 | return 1;
|
---|
| 3474 | }
|
---|
[1765] | 3475 | #endif
|
---|
[821] | 3476 | setup_redirect(ctx, redir_fd, redir_style, input);
|
---|
| 3477 | break;
|
---|
| 3478 | case ';':
|
---|
| 3479 | done_word(dest, ctx);
|
---|
[1765] | 3480 | done_pipe(ctx, PIPE_SEQ);
|
---|
[821] | 3481 | break;
|
---|
| 3482 | case '&':
|
---|
| 3483 | done_word(dest, ctx);
|
---|
[1765] | 3484 | if (next == '&') {
|
---|
[821] | 3485 | b_getch(input);
|
---|
[1765] | 3486 | done_pipe(ctx, PIPE_AND);
|
---|
[821] | 3487 | } else {
|
---|
[1765] | 3488 | done_pipe(ctx, PIPE_BG);
|
---|
[821] | 3489 | }
|
---|
| 3490 | break;
|
---|
| 3491 | case '|':
|
---|
| 3492 | done_word(dest, ctx);
|
---|
[1765] | 3493 | if (next == '|') {
|
---|
[821] | 3494 | b_getch(input);
|
---|
[1765] | 3495 | done_pipe(ctx, PIPE_OR);
|
---|
[821] | 3496 | } else {
|
---|
| 3497 | /* we could pick up a file descriptor choice here
|
---|
| 3498 | * with redirect_opt_num(), but bash doesn't do it.
|
---|
| 3499 | * "echo foo 2| cat" yields "foo 2". */
|
---|
| 3500 | done_command(ctx);
|
---|
| 3501 | }
|
---|
| 3502 | break;
|
---|
| 3503 | case '(':
|
---|
| 3504 | case '{':
|
---|
[1765] | 3505 | if (parse_group(dest, ctx, input, ch) != 0) {
|
---|
| 3506 | debug_printf_parse("parse_stream return 1: parse_group returned non-0\n");
|
---|
| 3507 | return 1;
|
---|
| 3508 | }
|
---|
[821] | 3509 | break;
|
---|
| 3510 | case ')':
|
---|
| 3511 | case '}':
|
---|
[1765] | 3512 | syntax("unexpected }"); /* Proper use of this character is caught by end_trigger */
|
---|
| 3513 | debug_printf_parse("parse_stream return 1: unexpected '}'\n");
|
---|
[821] | 3514 | return 1;
|
---|
| 3515 | default:
|
---|
[1765] | 3516 | if (ENABLE_HUSH_DEBUG)
|
---|
| 3517 | bb_error_msg_and_die("BUG: unexpected %c\n", ch);
|
---|
[821] | 3518 | }
|
---|
| 3519 | }
|
---|
[1765] | 3520 | /* Complain if quote? No, maybe we just finished a command substitution
|
---|
[821] | 3521 | * that was quoted. Example:
|
---|
| 3522 | * $ echo "`cat foo` plus more"
|
---|
| 3523 | * and we just got the EOF generated by the subshell that ran "cat foo"
|
---|
[1765] | 3524 | * The only real complaint is if we got an EOF when end_trigger != NULL,
|
---|
[821] | 3525 | * that is, we were really supposed to get end_trigger, and never got
|
---|
| 3526 | * one before the EOF. Can't use the standard "syntax error" return code,
|
---|
| 3527 | * so that parse_stream_outer can distinguish the EOF and exit smoothly. */
|
---|
[1765] | 3528 | debug_printf_parse("parse_stream return %d\n", -(end_trigger != NULL));
|
---|
| 3529 | if (end_trigger)
|
---|
| 3530 | return -1;
|
---|
[821] | 3531 | return 0;
|
---|
| 3532 | }
|
---|
| 3533 |
|
---|
[1765] | 3534 | static void set_in_charmap(const char *set, int code)
|
---|
[821] | 3535 | {
|
---|
[1765] | 3536 | while (*set)
|
---|
| 3537 | charmap[(unsigned char)*set++] = code;
|
---|
[821] | 3538 | }
|
---|
| 3539 |
|
---|
[1765] | 3540 | static void update_charmap(void)
|
---|
[821] | 3541 | {
|
---|
[1765] | 3542 | /* char *ifs and char charmap[256] are both globals. */
|
---|
[821] | 3543 | ifs = getenv("IFS");
|
---|
[1765] | 3544 | if (ifs == NULL)
|
---|
| 3545 | ifs = " \t\n";
|
---|
[821] | 3546 | /* Precompute a list of 'flow through' behavior so it can be treated
|
---|
| 3547 | * quickly up front. Computation is necessary because of IFS.
|
---|
| 3548 | * Special case handling of IFS == " \t\n" is not implemented.
|
---|
[1765] | 3549 | * The charmap[] array only really needs two bits each,
|
---|
| 3550 | * and on most machines that would be faster (reduced L1 cache use).
|
---|
[821] | 3551 | */
|
---|
[1765] | 3552 | memset(charmap, CHAR_ORDINARY, sizeof(charmap));
|
---|
| 3553 | #if ENABLE_HUSH_TICK
|
---|
| 3554 | set_in_charmap("\\$\"`", CHAR_SPECIAL);
|
---|
| 3555 | #else
|
---|
| 3556 | set_in_charmap("\\$\"", CHAR_SPECIAL);
|
---|
| 3557 | #endif
|
---|
| 3558 | set_in_charmap("<>;&|(){}#'", CHAR_ORDINARY_IF_QUOTED);
|
---|
| 3559 | set_in_charmap(ifs, CHAR_IFS); /* are ordinary if quoted */
|
---|
[821] | 3560 | }
|
---|
| 3561 |
|
---|
| 3562 | /* most recursion does not come through here, the exception is
|
---|
[1765] | 3563 | * from builtin_source() and builtin_eval() */
|
---|
| 3564 | static int parse_and_run_stream(struct in_str *inp, int parse_flag)
|
---|
[821] | 3565 | {
|
---|
| 3566 | struct p_context ctx;
|
---|
[1765] | 3567 | o_string temp = NULL_O_STRING;
|
---|
[821] | 3568 | int rcode;
|
---|
| 3569 | do {
|
---|
[1765] | 3570 | ctx.parse_type = parse_flag;
|
---|
[821] | 3571 | initialize_context(&ctx);
|
---|
[1765] | 3572 | update_charmap();
|
---|
| 3573 | if (!(parse_flag & PARSEFLAG_SEMICOLON) || (parse_flag & PARSEFLAG_REPARSING))
|
---|
| 3574 | set_in_charmap(";$&|", CHAR_ORDINARY);
|
---|
| 3575 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 3576 | inp->promptmode = 0; /* PS1 */
|
---|
| 3577 | #endif
|
---|
| 3578 | /* We will stop & execute after each ';' or '\n'.
|
---|
| 3579 | * Example: "sleep 9999; echo TEST" + ctrl-C:
|
---|
| 3580 | * TEST should be printed */
|
---|
| 3581 | rcode = parse_stream(&temp, &ctx, inp, ";\n");
|
---|
[821] | 3582 | if (rcode != 1 && ctx.old_flag != 0) {
|
---|
[1765] | 3583 | syntax(NULL);
|
---|
[821] | 3584 | }
|
---|
| 3585 | if (rcode != 1 && ctx.old_flag == 0) {
|
---|
| 3586 | done_word(&temp, &ctx);
|
---|
[1765] | 3587 | done_pipe(&ctx, PIPE_SEQ);
|
---|
| 3588 | debug_print_tree(ctx.list_head, 0);
|
---|
| 3589 | debug_printf_exec("parse_stream_outer: run_list\n");
|
---|
[821] | 3590 | run_list(ctx.list_head);
|
---|
| 3591 | } else {
|
---|
| 3592 | if (ctx.old_flag != 0) {
|
---|
| 3593 | free(ctx.stack);
|
---|
| 3594 | b_reset(&temp);
|
---|
| 3595 | }
|
---|
| 3596 | temp.nonnull = 0;
|
---|
| 3597 | temp.quote = 0;
|
---|
| 3598 | inp->p = NULL;
|
---|
[1765] | 3599 | free_pipe_list(ctx.list_head, 0);
|
---|
[821] | 3600 | }
|
---|
| 3601 | b_free(&temp);
|
---|
[1765] | 3602 | } while (rcode != -1 && !(parse_flag & PARSEFLAG_EXIT_FROM_LOOP)); /* loop on syntax errors, return on EOF */
|
---|
[821] | 3603 | return 0;
|
---|
| 3604 | }
|
---|
| 3605 |
|
---|
[1765] | 3606 | static int parse_and_run_string(const char *s, int parse_flag)
|
---|
[821] | 3607 | {
|
---|
| 3608 | struct in_str input;
|
---|
| 3609 | setup_string_in_str(&input, s);
|
---|
[1765] | 3610 | return parse_and_run_stream(&input, parse_flag);
|
---|
[821] | 3611 | }
|
---|
| 3612 |
|
---|
[1765] | 3613 | static int parse_and_run_file(FILE *f)
|
---|
[821] | 3614 | {
|
---|
| 3615 | int rcode;
|
---|
| 3616 | struct in_str input;
|
---|
| 3617 | setup_file_in_str(&input, f);
|
---|
[1765] | 3618 | rcode = parse_and_run_stream(&input, PARSEFLAG_SEMICOLON);
|
---|
[821] | 3619 | return rcode;
|
---|
| 3620 | }
|
---|
| 3621 |
|
---|
[1765] | 3622 | #if ENABLE_HUSH_JOB
|
---|
[821] | 3623 | /* Make sure we have a controlling tty. If we get started under a job
|
---|
| 3624 | * aware app (like bash for example), make sure we are now in charge so
|
---|
| 3625 | * we don't fight over who gets the foreground */
|
---|
| 3626 | static void setup_job_control(void)
|
---|
| 3627 | {
|
---|
[1765] | 3628 | pid_t shell_pgrp;
|
---|
[821] | 3629 |
|
---|
[1765] | 3630 | saved_task_pgrp = shell_pgrp = getpgrp();
|
---|
| 3631 | debug_printf_jobs("saved_task_pgrp=%d\n", saved_task_pgrp);
|
---|
| 3632 | fcntl(interactive_fd, F_SETFD, FD_CLOEXEC);
|
---|
[821] | 3633 |
|
---|
[1765] | 3634 | /* If we were ran as 'hush &',
|
---|
| 3635 | * sleep until we are in the foreground. */
|
---|
| 3636 | while (tcgetpgrp(interactive_fd) != shell_pgrp) {
|
---|
| 3637 | /* Send TTIN to ourself (should stop us) */
|
---|
| 3638 | kill(- shell_pgrp, SIGTTIN);
|
---|
| 3639 | shell_pgrp = getpgrp();
|
---|
| 3640 | }
|
---|
| 3641 |
|
---|
| 3642 | /* Ignore job-control and misc signals. */
|
---|
| 3643 | set_jobctrl_sighandler(SIG_IGN);
|
---|
| 3644 | set_misc_sighandler(SIG_IGN);
|
---|
| 3645 | //huh? signal(SIGCHLD, SIG_IGN);
|
---|
| 3646 |
|
---|
| 3647 | /* We _must_ restore tty pgrp on fatal signals */
|
---|
| 3648 | set_fatal_sighandler(sigexit);
|
---|
| 3649 |
|
---|
[821] | 3650 | /* Put ourselves in our own process group. */
|
---|
[1765] | 3651 | setpgrp(); /* is the same as setpgid(our_pid, our_pid); */
|
---|
[821] | 3652 | /* Grab control of the terminal. */
|
---|
[1765] | 3653 | tcsetpgrp(interactive_fd, getpid());
|
---|
[821] | 3654 | }
|
---|
[1765] | 3655 | #endif
|
---|
[821] | 3656 |
|
---|
[1765] | 3657 | int hush_main(int argc, char **argv);
|
---|
[821] | 3658 | int hush_main(int argc, char **argv)
|
---|
| 3659 | {
|
---|
[1765] | 3660 | static const char version_str[] ALIGN1 = "HUSH_VERSION="HUSH_VER_STR;
|
---|
| 3661 | static const struct variable const_shell_ver = {
|
---|
| 3662 | .next = NULL,
|
---|
| 3663 | .varstr = (char*)version_str,
|
---|
| 3664 | .max_len = 1, /* 0 can provoke free(name) */
|
---|
| 3665 | .flg_export = 1,
|
---|
| 3666 | .flg_read_only = 1,
|
---|
| 3667 | };
|
---|
| 3668 |
|
---|
[821] | 3669 | int opt;
|
---|
| 3670 | FILE *input;
|
---|
[1765] | 3671 | char **e;
|
---|
| 3672 | struct variable *cur_var;
|
---|
[821] | 3673 |
|
---|
[1765] | 3674 | PTR_TO_GLOBALS = xzalloc(sizeof(G));
|
---|
| 3675 |
|
---|
| 3676 | /* Deal with HUSH_VERSION */
|
---|
| 3677 | shell_ver = const_shell_ver; /* copying struct here */
|
---|
| 3678 | top_var = &shell_ver;
|
---|
| 3679 | unsetenv("HUSH_VERSION"); /* in case it exists in initial env */
|
---|
| 3680 | /* Initialize our shell local variables with the values
|
---|
| 3681 | * currently living in the environment */
|
---|
| 3682 | cur_var = top_var;
|
---|
| 3683 | e = environ;
|
---|
| 3684 | if (e) while (*e) {
|
---|
| 3685 | char *value = strchr(*e, '=');
|
---|
| 3686 | if (value) { /* paranoia */
|
---|
| 3687 | cur_var->next = xzalloc(sizeof(*cur_var));
|
---|
| 3688 | cur_var = cur_var->next;
|
---|
| 3689 | cur_var->varstr = *e;
|
---|
| 3690 | cur_var->max_len = strlen(*e);
|
---|
| 3691 | cur_var->flg_export = 1;
|
---|
| 3692 | }
|
---|
| 3693 | e++;
|
---|
| 3694 | }
|
---|
| 3695 | putenv((char *)version_str); /* reinstate HUSH_VERSION */
|
---|
| 3696 |
|
---|
| 3697 | #if ENABLE_FEATURE_EDITING
|
---|
| 3698 | line_input_state = new_line_input_t(FOR_SHELL);
|
---|
| 3699 | #endif
|
---|
[821] | 3700 | /* XXX what should these be while sourcing /etc/profile? */
|
---|
| 3701 | global_argc = argc;
|
---|
| 3702 | global_argv = argv;
|
---|
| 3703 | /* Initialize some more globals to non-zero values */
|
---|
| 3704 | set_cwd();
|
---|
[1765] | 3705 | #if ENABLE_HUSH_INTERACTIVE
|
---|
| 3706 | #if ENABLE_FEATURE_EDITING
|
---|
[821] | 3707 | cmdedit_set_initial_prompt();
|
---|
| 3708 | #endif
|
---|
| 3709 | PS2 = "> ";
|
---|
[1765] | 3710 | #endif
|
---|
[821] | 3711 |
|
---|
[1765] | 3712 | if (EXIT_SUCCESS) /* otherwise is already done */
|
---|
| 3713 | last_return_code = EXIT_SUCCESS;
|
---|
[821] | 3714 |
|
---|
| 3715 | if (argv[0] && argv[0][0] == '-') {
|
---|
[1765] | 3716 | debug_printf("sourcing /etc/profile\n");
|
---|
| 3717 | input = fopen("/etc/profile", "r");
|
---|
| 3718 | if (input != NULL) {
|
---|
[821] | 3719 | mark_open(fileno(input));
|
---|
[1765] | 3720 | parse_and_run_file(input);
|
---|
[821] | 3721 | mark_closed(fileno(input));
|
---|
| 3722 | fclose(input);
|
---|
| 3723 | }
|
---|
| 3724 | }
|
---|
[1765] | 3725 | input = stdin;
|
---|
[821] | 3726 |
|
---|
| 3727 | while ((opt = getopt(argc, argv, "c:xif")) > 0) {
|
---|
| 3728 | switch (opt) {
|
---|
[1765] | 3729 | case 'c':
|
---|
| 3730 | global_argv = argv + optind;
|
---|
| 3731 | global_argc = argc - optind;
|
---|
| 3732 | opt = parse_and_run_string(optarg, PARSEFLAG_SEMICOLON);
|
---|
| 3733 | goto final_return;
|
---|
| 3734 | case 'i':
|
---|
| 3735 | /* Well, we cannot just declare interactiveness,
|
---|
| 3736 | * we have to have some stuff (ctty, etc) */
|
---|
| 3737 | /* interactive_fd++; */
|
---|
| 3738 | break;
|
---|
| 3739 | case 'f':
|
---|
| 3740 | fake_mode = 1;
|
---|
| 3741 | break;
|
---|
| 3742 | default:
|
---|
[821] | 3743 | #ifndef BB_VER
|
---|
[1765] | 3744 | fprintf(stderr, "Usage: sh [FILE]...\n"
|
---|
| 3745 | " or: sh -c command [args]...\n\n");
|
---|
| 3746 | exit(EXIT_FAILURE);
|
---|
[821] | 3747 | #else
|
---|
[1765] | 3748 | bb_show_usage();
|
---|
[821] | 3749 | #endif
|
---|
| 3750 | }
|
---|
| 3751 | }
|
---|
[1765] | 3752 | #if ENABLE_HUSH_JOB
|
---|
| 3753 | /* A shell is interactive if the '-i' flag was given, or if all of
|
---|
[821] | 3754 | * the following conditions are met:
|
---|
[1765] | 3755 | * no -c command
|
---|
[821] | 3756 | * no arguments remaining or the -s flag given
|
---|
| 3757 | * standard input is a terminal
|
---|
| 3758 | * standard output is a terminal
|
---|
[1765] | 3759 | * Refer to Posix.2, the description of the 'sh' utility. */
|
---|
| 3760 | if (argv[optind] == NULL && input == stdin
|
---|
| 3761 | && isatty(STDIN_FILENO) && isatty(STDOUT_FILENO)
|
---|
| 3762 | ) {
|
---|
| 3763 | saved_tty_pgrp = tcgetpgrp(STDIN_FILENO);
|
---|
| 3764 | debug_printf("saved_tty_pgrp=%d\n", saved_tty_pgrp);
|
---|
| 3765 | if (saved_tty_pgrp >= 0) {
|
---|
| 3766 | /* try to dup to high fd#, >= 255 */
|
---|
| 3767 | interactive_fd = fcntl(STDIN_FILENO, F_DUPFD, 255);
|
---|
| 3768 | if (interactive_fd < 0) {
|
---|
| 3769 | /* try to dup to any fd */
|
---|
| 3770 | interactive_fd = dup(STDIN_FILENO);
|
---|
| 3771 | if (interactive_fd < 0)
|
---|
| 3772 | /* give up */
|
---|
| 3773 | interactive_fd = 0;
|
---|
| 3774 | }
|
---|
| 3775 | // TODO: track & disallow any attempts of user
|
---|
| 3776 | // to (inadvertently) close/redirect it
|
---|
| 3777 | }
|
---|
[821] | 3778 | }
|
---|
[1765] | 3779 | debug_printf("interactive_fd=%d\n", interactive_fd);
|
---|
| 3780 | if (interactive_fd) {
|
---|
[821] | 3781 | /* Looks like they want an interactive shell */
|
---|
[1765] | 3782 | setup_job_control();
|
---|
| 3783 | /* Make xfuncs do cleanup on exit */
|
---|
| 3784 | die_sleep = -1; /* flag */
|
---|
| 3785 | // FIXME: should we reset die_sleep = 0 whereever we fork?
|
---|
| 3786 | if (setjmp(die_jmp)) {
|
---|
| 3787 | /* xfunc has failed! die die die */
|
---|
| 3788 | hush_exit(xfunc_error_retval);
|
---|
| 3789 | }
|
---|
| 3790 | #if !ENABLE_FEATURE_SH_EXTRA_QUIET
|
---|
| 3791 | printf("\n\n%s hush - the humble shell v"HUSH_VER_STR"\n", bb_banner);
|
---|
| 3792 | printf("Enter 'help' for a list of built-in commands.\n\n");
|
---|
[821] | 3793 | #endif
|
---|
| 3794 | }
|
---|
[1765] | 3795 | #elif ENABLE_HUSH_INTERACTIVE
|
---|
| 3796 | /* no job control compiled, only prompt/line editing */
|
---|
| 3797 | if (argv[optind] == NULL && input == stdin
|
---|
| 3798 | && isatty(STDIN_FILENO) && isatty(STDOUT_FILENO)
|
---|
| 3799 | ) {
|
---|
| 3800 | interactive_fd = fcntl(STDIN_FILENO, F_DUPFD, 255);
|
---|
| 3801 | if (interactive_fd < 0) {
|
---|
| 3802 | /* try to dup to any fd */
|
---|
| 3803 | interactive_fd = dup(STDIN_FILENO);
|
---|
| 3804 | if (interactive_fd < 0)
|
---|
| 3805 | /* give up */
|
---|
| 3806 | interactive_fd = 0;
|
---|
| 3807 | }
|
---|
| 3808 | }
|
---|
[821] | 3809 |
|
---|
[1765] | 3810 | #endif
|
---|
| 3811 |
|
---|
| 3812 | if (argv[optind] == NULL) {
|
---|
| 3813 | opt = parse_and_run_file(stdin);
|
---|
[821] | 3814 | goto final_return;
|
---|
| 3815 | }
|
---|
| 3816 |
|
---|
| 3817 | debug_printf("\nrunning script '%s'\n", argv[optind]);
|
---|
[1765] | 3818 | global_argv = argv + optind;
|
---|
| 3819 | global_argc = argc - optind;
|
---|
| 3820 | input = xfopen(argv[optind], "r");
|
---|
| 3821 | opt = parse_and_run_file(input);
|
---|
[821] | 3822 |
|
---|
[1765] | 3823 | final_return:
|
---|
| 3824 |
|
---|
| 3825 | #if ENABLE_FEATURE_CLEAN_UP
|
---|
[821] | 3826 | fclose(input);
|
---|
[1765] | 3827 | if (cwd != bb_msg_unknown)
|
---|
[821] | 3828 | free((char*)cwd);
|
---|
[1765] | 3829 | cur_var = top_var->next;
|
---|
| 3830 | while (cur_var) {
|
---|
| 3831 | struct variable *tmp = cur_var;
|
---|
| 3832 | if (!cur_var->max_len)
|
---|
| 3833 | free(cur_var->varstr);
|
---|
| 3834 | cur_var = cur_var->next;
|
---|
| 3835 | free(tmp);
|
---|
[821] | 3836 | }
|
---|
| 3837 | #endif
|
---|
[1765] | 3838 | hush_exit(opt ? opt : last_return_code);
|
---|
[821] | 3839 | }
|
---|