copy_cmd.c

   1 /* copy_command.c -- copy a COMMAND structure.  This is needed
   2    primarily for making function definitions, but I'm not sure
   3    that anyone else will need it.  */
   4
   5 /* Copyright (C) 1987-2009 Free Software Foundation, Inc.
   6
   7    This file is part of GNU Bash, the Bourne Again SHell.
   8
   9    Bash is free software: you can redistribute it and/or modify
  10    it under the terms of the GNU General Public License as published by
  11    the Free Software Foundation, either version 3 of the License, or
  12    (at your option) any later version.
  13
  14    Bash is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17    GNU General Public License for more details.
  18
  19    You should have received a copy of the GNU General Public License
  20    along with Bash.  If not, see <http://www.gnu.org/licenses/>.
  21 */
  22
  23 #include "config.h"
  24
  25 #include "bashtypes.h"
  26
  27 #if defined (HAVE_UNISTD_H)
  28 #  include <unistd.h>
  29 #endif
  30
  31 #include <stdio.h>
  32
  33 #include "shell.h"
  34
  35 static PATTERN_LIST *copy_case_clause __P((PATTERN_LIST *));
  36 static PATTERN_LIST *copy_case_clauses __P((PATTERN_LIST *));
  37 static FOR_COM *copy_for_command __P((FOR_COM *));
  38 #if defined (ARITH_FOR_COMMAND)
  39 static ARITH_FOR_COM *copy_arith_for_command __P((ARITH_FOR_COM *));
  40 #endif
  41 static GROUP_COM *copy_group_command __P((GROUP_COM *));
  42 static SUBSHELL_COM *copy_subshell_command __P((SUBSHELL_COM *));
  43 static COPROC_COM *copy_coproc_command __P((COPROC_COM *));
  44 static CASE_COM *copy_case_command __P((CASE_COM *));
  45 static WHILE_COM *copy_while_command __P((WHILE_COM *));
  46 static IF_COM *copy_if_command __P((IF_COM *));
  47 #if defined (DPAREN_ARITHMETIC)
  48 static ARITH_COM *copy_arith_command __P((ARITH_COM *));
  49 #endif
  50 #if defined (COND_COMMAND)
  51 static COND_COM *copy_cond_command __P((COND_COM *));
  52 #endif
  53 static SIMPLE_COM *copy_simple_command __P((SIMPLE_COM *));
  54
  55 WORD_DESC *
  56 copy_word (w)
  57      WORD_DESC *w;
  58 {
  59   WORD_DESC *new_word;
  60
  61   new_word = make_bare_word (w->word);
  62   new_word->flags = w->flags;
  63   return (new_word);
  64 }
  65
  66 /* Copy the chain of words in LIST.  Return a pointer to
  67    the new chain. */
  68 WORD_LIST *
  69 copy_word_list (list)
  70      WORD_LIST *list;
  71 {
  72   WORD_LIST *new_list;
  73
  74   for (new_list = (WORD_LIST *)NULL; list; list = list->next)
  75     new_list = make_word_list (copy_word (list->word), new_list);
  76
  77   return (REVERSE_LIST (new_list, WORD_LIST *));
  78 }
  79
  80 static PATTERN_LIST *
  81 copy_case_clause (clause)
  82      PATTERN_LIST *clause;
  83 {
  84   PATTERN_LIST *new_clause;
  85
  86   new_clause = (PATTERN_LIST *)xmalloc (sizeof (PATTERN_LIST));
  87   new_clause->patterns = copy_word_list (clause->patterns);
  88   new_clause->action = copy_command (clause->action);
  89   new_clause->flags = clause->flags;
  90   return (new_clause);
  91 }
  92
  93 static PATTERN_LIST *
  94 copy_case_clauses (clauses)
  95      PATTERN_LIST *clauses;
  96 {
  97   PATTERN_LIST *new_list, *new_clause;
  98
  99   for (new_list = (PATTERN_LIST *)NULL; clauses; clauses = clauses->next)
 100     {
 101       new_clause = copy_case_clause (clauses);
 102       new_clause->next = new_list;
 103       new_list = new_clause;
 104     }
 105   return (REVERSE_LIST (new_list, PATTERN_LIST *));
 106 }
 107
 108 /* Copy a single redirect. */
 109 REDIRECT *
 110 copy_redirect (redirect)
 111      REDIRECT *redirect;
 112 {
 113   REDIRECT *new_redirect;
 114
 115   new_redirect = (REDIRECT *)xmalloc (sizeof (REDIRECT));
 116 #if 0
 117   FASTCOPY ((char *)redirect, (char *)new_redirect, (sizeof (REDIRECT)));
 118 #else
 119   *new_redirect = *redirect;    /* let the compiler do the fast structure copy */
 120 #endif
 121
 122   if (redirect->rflags & REDIR_VARASSIGN)
 123     new_redirect->redirector.filename = copy_word (redirect->redirector.filename);
 124
 125   switch (redirect->instruction)
 126     {
 127     case r_reading_until:
 128     case r_deblank_reading_until:
 129       new_redirect->here_doc_eof = savestring (redirect->here_doc_eof);
 130       /*FALLTHROUGH*/
 131     case r_reading_string:
 132     case r_appending_to:
 133     case r_output_direction:
 134     case r_input_direction:
 135     case r_inputa_direction:
 136     case r_err_and_out:
 137     case r_append_err_and_out:
 138     case r_input_output:
 139     case r_output_force:
 140     case r_duplicating_input_word:
 141     case r_duplicating_output_word:
 142     case r_move_input_word:
 143     case r_move_output_word:
 144       new_redirect->redirectee.filename = copy_word (redirect->redirectee.filename);
 145       break;
 146     case r_duplicating_input:
 147     case r_duplicating_output:
 148     case r_move_input:
 149     case r_move_output:
 150     case r_close_this:
 151       break;
 152     }
 153   return (new_redirect);
 154 }
 155
 156 REDIRECT *
 157 copy_redirects (list)
 158      REDIRECT *list;
 159 {
 160   REDIRECT *new_list, *temp;
 161
 162   for (new_list = (REDIRECT *)NULL; list; list = list->next)
 163     {
 164       temp = copy_redirect (list);
 165       temp->next = new_list;
 166       new_list = temp;
 167     }
 168   return (REVERSE_LIST (new_list, REDIRECT *));
 169 }
 170
 171 static FOR_COM *
 172 copy_for_command (com)
 173      FOR_COM *com;
 174 {
 175   FOR_COM *new_for;
 176
 177   new_for = (FOR_COM *)xmalloc (sizeof (FOR_COM));
 178   new_for->flags = com->flags;
 179   new_for->line = com->line;
 180   new_for->name = copy_word (com->name);
 181   new_for->map_list = copy_word_list (com->map_list);
 182   new_for->action = copy_command (com->action);
 183   return (new_for);
 184 }
 185
 186 #if defined (ARITH_FOR_COMMAND)
 187 static ARITH_FOR_COM *
 188 copy_arith_for_command (com)
 189      ARITH_FOR_COM *com;
 190 {
 191   ARITH_FOR_COM *new_arith_for;
 192
 193   new_arith_for = (ARITH_FOR_COM *)xmalloc (sizeof (ARITH_FOR_COM));
 194   new_arith_for->flags = com->flags;
 195   new_arith_for->line = com->line;
 196   new_arith_for->init = copy_word_list (com->init);
 197   new_arith_for->test = copy_word_list (com->test);
 198   new_arith_for->step = copy_word_list (com->step);
 199   new_arith_for->action = copy_command (com->action);
 200   return (new_arith_for);
 201 }
 202 #endif /* ARITH_FOR_COMMAND */
 203
 204 static GROUP_COM *
 205 copy_group_command (com)
 206      GROUP_COM *com;
 207 {
 208   GROUP_COM *new_group;
 209
 210   new_group = (GROUP_COM *)xmalloc (sizeof (GROUP_COM));
 211   new_group->command = copy_command (com->command);
 212   return (new_group);
 213 }
 214
 215 static SUBSHELL_COM *
 216 copy_subshell_command (com)
 217      SUBSHELL_COM *com;
 218 {
 219   SUBSHELL_COM *new_subshell;
 220
 221   new_subshell = (SUBSHELL_COM *)xmalloc (sizeof (SUBSHELL_COM));
 222   new_subshell->command = copy_command (com->command);
 223   new_subshell->flags = com->flags;
 224   return (new_subshell);
 225 }
 226
 227 static COPROC_COM *
 228 copy_coproc_command (com)
 229      COPROC_COM *com;
 230 {
 231   COPROC_COM *new_coproc;
 232
 233   new_coproc = (COPROC_COM *)xmalloc (sizeof (COPROC_COM));
 234   new_coproc->name = savestring (com->name);
 235   new_coproc->command = copy_command (com->command);
 236   new_coproc->flags = com->flags;
 237   return (new_coproc);
 238 }
 239
 240 static CASE_COM *
 241 copy_case_command (com)
 242      CASE_COM *com;
 243 {
 244   CASE_COM *new_case;
 245
 246   new_case = (CASE_COM *)xmalloc (sizeof (CASE_COM));
 247   new_case->flags = com->flags;
 248   new_case->line = com->line;
 249   new_case->word = copy_word (com->word);
 250   new_case->clauses = copy_case_clauses (com->clauses);
 251   return (new_case);
 252 }
 253
 254 static WHILE_COM *
 255 copy_while_command (com)
 256      WHILE_COM *com;
 257 {
 258   WHILE_COM *new_while;
 259
 260   new_while = (WHILE_COM *)xmalloc (sizeof (WHILE_COM));
 261   new_while->flags = com->flags;
 262   new_while->test = copy_command (com->test);
 263   new_while->action = copy_command (com->action);
 264   return (new_while);
 265 }
 266
 267 static IF_COM *
 268 copy_if_command (com)
 269      IF_COM *com;
 270 {
 271   IF_COM *new_if;
 272
 273   new_if = (IF_COM *)xmalloc (sizeof (IF_COM));
 274   new_if->flags = com->flags;
 275   new_if->test = copy_command (com->test);
 276   new_if->true_case = copy_command (com->true_case);
 277   new_if->false_case = com->false_case ? copy_command (com->false_case) : com->false_case;
 278   return (new_if);
 279 }
 280
 281 #if defined (DPAREN_ARITHMETIC)
 282 static ARITH_COM *
 283 copy_arith_command (com)
 284      ARITH_COM *com;
 285 {
 286   ARITH_COM *new_arith;
 287
 288   new_arith = (ARITH_COM *)xmalloc (sizeof (ARITH_COM));
 289   new_arith->flags = com->flags;
 290   new_arith->exp = copy_word_list (com->exp);
 291   new_arith->line = com->line;
 292
 293   return (new_arith);
 294 }
 295 #endif
 296
 297 #if defined (COND_COMMAND)
 298 static COND_COM *
 299 copy_cond_command (com)
 300      COND_COM *com;
 301 {
 302   COND_COM *new_cond;
 303
 304   new_cond = (COND_COM *)xmalloc (sizeof (COND_COM));
 305   new_cond->flags = com->flags;
 306   new_cond->line = com->line;
 307   new_cond->type = com->type;
 308   new_cond->op = com->op ? copy_word (com->op) : com->op;
 309   new_cond->left = com->left ? copy_cond_command (com->left) : (COND_COM *)NULL;
 310   new_cond->right = com->right ? copy_cond_command (com->right) : (COND_COM *)NULL;
 311
 312   return (new_cond);
 313 }
 314 #endif
 315
 316 static SIMPLE_COM *
 317 copy_simple_command (com)
 318      SIMPLE_COM *com;
 319 {
 320   SIMPLE_COM *new_simple;
 321
 322   new_simple = (SIMPLE_COM *)xmalloc (sizeof (SIMPLE_COM));
 323   new_simple->flags = com->flags;
 324   new_simple->words = copy_word_list (com->words);
 325   new_simple->redirects = com->redirects ? copy_redirects (com->redirects) : (REDIRECT *)NULL;
 326   new_simple->line = com->line;
 327   return (new_simple);
 328 }
 329
 330 FUNCTION_DEF *
 331 copy_function_def_contents (old, new_def)
 332      FUNCTION_DEF *old, *new_def;
 333 {
 334   new_def->name = copy_word (old->name);
 335   new_def->command = old->command ? copy_command (old->command) : old->command;
 336   new_def->flags = old->flags;
 337   new_def->line = old->line;
 338   new_def->source_file = old->source_file ? savestring (old->source_file) : old->source_file;
 339   return (new_def);
 340 }
 341
 342 FUNCTION_DEF *
 343 copy_function_def (com)
 344      FUNCTION_DEF *com;
 345 {
 346   FUNCTION_DEF *new_def;
 347
 348   new_def = (FUNCTION_DEF *)xmalloc (sizeof (FUNCTION_DEF));
 349   new_def = copy_function_def_contents (com, new_def);
 350   return (new_def);
 351 }
 352
 353 /* Copy the command structure in COMMAND.  Return a pointer to the
 354    copy.  Don't you forget to dispose_command () on this pointer
 355    later! */
 356 COMMAND *
 357 copy_command (command)
 358      COMMAND *command;
 359 {
 360   COMMAND *new_command;
 361
 362   if (command == NULL)
 363     return (command);
 364
 365   new_command = (COMMAND *)xmalloc (sizeof (COMMAND));
 366   FASTCOPY ((char *)command, (char *)new_command, sizeof (COMMAND));
 367   new_command->flags = command->flags;
 368   new_command->line = command->line;
 369
 370   if (command->redirects)
 371     new_command->redirects = copy_redirects (command->redirects);
 372
 373   switch (command->type)
 374     {
 375       case cm_for:
 376         new_command->value.For = copy_for_command (command->value.For);
 377         break;
 378
 379 #if defined (ARITH_FOR_COMMAND)
 380       case cm_arith_for:
 381         new_command->value.ArithFor = copy_arith_for_command (command->value.ArithFor);
 382         break;
 383 #endif
 384
 385 #if defined (SELECT_COMMAND)
 386       case cm_select:
 387         new_command->value.Select =
 388           (SELECT_COM *)copy_for_command ((FOR_COM *)command->value.Select);
 389         break;
 390 #endif
 391
 392       case cm_group:
 393         new_command->value.Group = copy_group_command (command->value.Group);
 394         break;
 395
 396       case cm_subshell:
 397         new_command->value.Subshell = copy_subshell_command (command->value.Subshell);
 398         break;
 399
 400       case cm_coproc:
 401         new_command->value.Coproc = copy_coproc_command (command->value.Coproc);
 402         break;
 403
 404       case cm_case:
 405         new_command->value.Case = copy_case_command (command->value.Case);
 406         break;
 407
 408       case cm_until:
 409       case cm_while:
 410         new_command->value.While = copy_while_command (command->value.While);
 411         break;
 412
 413       case cm_if:
 414         new_command->value.If = copy_if_command (command->value.If);
 415         break;
 416
 417 #if defined (DPAREN_ARITHMETIC)
 418       case cm_arith:
 419         new_command->value.Arith = copy_arith_command (command->value.Arith);
 420         break;
 421 #endif
 422
 423 #if defined (COND_COMMAND)
 424       case cm_cond:
 425         new_command->value.Cond = copy_cond_command (command->value.Cond);
 426         break;
 427 #endif
 428
 429       case cm_simple:
 430         new_command->value.Simple = copy_simple_command (command->value.Simple);
 431         break;
 432
 433       case cm_connection:
 434         {
 435           CONNECTION *new_connection;
 436
 437           new_connection = (CONNECTION *)xmalloc (sizeof (CONNECTION));
 438           new_connection->connector = command->value.Connection->connector;
 439           new_connection->first = copy_command (command->value.Connection->first);
 440           new_connection->second = copy_command (command->value.Connection->second);
 441           new_command->value.Connection = new_connection;
 442           break;
 443         }
 444
 445       case cm_function_def:
 446         new_command->value.Function_def = copy_function_def (command->value.Function_def);
 447         break;
 448     }
 449   return (new_command);
 450 }