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. */
5 /* Copyright (C) 1987-2009 Free Software Foundation, Inc.
7 This file is part of GNU Bash, the Bourne Again SHell.
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.
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.
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/>.
25 #include "bashtypes.h"
27 #if defined (HAVE_UNISTD_H)
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 *));
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 *));
50 #if defined (COND_COMMAND)
51 static COND_COM *copy_cond_command __P((COND_COM *));
53 static SIMPLE_COM *copy_simple_command __P((SIMPLE_COM *));
61 new_word = make_bare_word (w->word);
62 new_word->flags = w->flags;
66 /* Copy the chain of words in LIST. Return a pointer to
74 for (new_list = (WORD_LIST *)NULL; list; list = list->next)
75 new_list = make_word_list (copy_word (list->word), new_list);
77 return (REVERSE_LIST (new_list, WORD_LIST *));
81 copy_case_clause (clause)
84 PATTERN_LIST *new_clause;
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;
94 copy_case_clauses (clauses)
95 PATTERN_LIST *clauses;
97 PATTERN_LIST *new_list, *new_clause;
99 for (new_list = (PATTERN_LIST *)NULL; clauses; clauses = clauses->next)
101 new_clause = copy_case_clause (clauses);
102 new_clause->next = new_list;
103 new_list = new_clause;
105 return (REVERSE_LIST (new_list, PATTERN_LIST *));
108 /* Copy a single redirect. */
110 copy_redirect (redirect)
113 REDIRECT *new_redirect;
115 new_redirect = (REDIRECT *)xmalloc (sizeof (REDIRECT));
116 FASTCOPY ((char *)redirect, (char *)new_redirect, (sizeof (REDIRECT)));
117 switch (redirect->instruction)
119 case r_reading_until:
120 case r_deblank_reading_until:
121 new_redirect->here_doc_eof = savestring (redirect->here_doc_eof);
123 case r_reading_string:
125 case r_output_direction:
126 case r_input_direction:
127 case r_inputa_direction:
129 case r_append_err_and_out:
132 case r_duplicating_input_word:
133 case r_duplicating_output_word:
134 case r_move_input_word:
135 case r_move_output_word:
136 new_redirect->redirectee.filename = copy_word (redirect->redirectee.filename);
138 case r_duplicating_input:
139 case r_duplicating_output:
145 return (new_redirect);
149 copy_redirects (list)
152 REDIRECT *new_list, *temp;
154 for (new_list = (REDIRECT *)NULL; list; list = list->next)
156 temp = copy_redirect (list);
157 temp->next = new_list;
160 return (REVERSE_LIST (new_list, REDIRECT *));
164 copy_for_command (com)
169 new_for = (FOR_COM *)xmalloc (sizeof (FOR_COM));
170 new_for->flags = com->flags;
171 new_for->line = com->line;
172 new_for->name = copy_word (com->name);
173 new_for->map_list = copy_word_list (com->map_list);
174 new_for->action = copy_command (com->action);
178 #if defined (ARITH_FOR_COMMAND)
179 static ARITH_FOR_COM *
180 copy_arith_for_command (com)
183 ARITH_FOR_COM *new_arith_for;
185 new_arith_for = (ARITH_FOR_COM *)xmalloc (sizeof (ARITH_FOR_COM));
186 new_arith_for->flags = com->flags;
187 new_arith_for->line = com->line;
188 new_arith_for->init = copy_word_list (com->init);
189 new_arith_for->test = copy_word_list (com->test);
190 new_arith_for->step = copy_word_list (com->step);
191 new_arith_for->action = copy_command (com->action);
192 return (new_arith_for);
194 #endif /* ARITH_FOR_COMMAND */
197 copy_group_command (com)
200 GROUP_COM *new_group;
202 new_group = (GROUP_COM *)xmalloc (sizeof (GROUP_COM));
203 new_group->command = copy_command (com->command);
207 static SUBSHELL_COM *
208 copy_subshell_command (com)
211 SUBSHELL_COM *new_subshell;
213 new_subshell = (SUBSHELL_COM *)xmalloc (sizeof (SUBSHELL_COM));
214 new_subshell->command = copy_command (com->command);
215 new_subshell->flags = com->flags;
216 return (new_subshell);
220 copy_coproc_command (com)
223 COPROC_COM *new_coproc;
225 new_coproc = (COPROC_COM *)xmalloc (sizeof (COPROC_COM));
226 new_coproc->name = savestring (com->name);
227 new_coproc->command = copy_command (com->command);
228 new_coproc->flags = com->flags;
233 copy_case_command (com)
238 new_case = (CASE_COM *)xmalloc (sizeof (CASE_COM));
239 new_case->flags = com->flags;
240 new_case->line = com->line;
241 new_case->word = copy_word (com->word);
242 new_case->clauses = copy_case_clauses (com->clauses);
247 copy_while_command (com)
250 WHILE_COM *new_while;
252 new_while = (WHILE_COM *)xmalloc (sizeof (WHILE_COM));
253 new_while->flags = com->flags;
254 new_while->test = copy_command (com->test);
255 new_while->action = copy_command (com->action);
260 copy_if_command (com)
265 new_if = (IF_COM *)xmalloc (sizeof (IF_COM));
266 new_if->flags = com->flags;
267 new_if->test = copy_command (com->test);
268 new_if->true_case = copy_command (com->true_case);
269 new_if->false_case = com->false_case ? copy_command (com->false_case) : com->false_case;
273 #if defined (DPAREN_ARITHMETIC)
275 copy_arith_command (com)
278 ARITH_COM *new_arith;
280 new_arith = (ARITH_COM *)xmalloc (sizeof (ARITH_COM));
281 new_arith->flags = com->flags;
282 new_arith->exp = copy_word_list (com->exp);
283 new_arith->line = com->line;
289 #if defined (COND_COMMAND)
291 copy_cond_command (com)
296 new_cond = (COND_COM *)xmalloc (sizeof (COND_COM));
297 new_cond->flags = com->flags;
298 new_cond->line = com->line;
299 new_cond->type = com->type;
300 new_cond->op = com->op ? copy_word (com->op) : com->op;
301 new_cond->left = com->left ? copy_cond_command (com->left) : (COND_COM *)NULL;
302 new_cond->right = com->right ? copy_cond_command (com->right) : (COND_COM *)NULL;
309 copy_simple_command (com)
312 SIMPLE_COM *new_simple;
314 new_simple = (SIMPLE_COM *)xmalloc (sizeof (SIMPLE_COM));
315 new_simple->flags = com->flags;
316 new_simple->words = copy_word_list (com->words);
317 new_simple->redirects = com->redirects ? copy_redirects (com->redirects) : (REDIRECT *)NULL;
318 new_simple->line = com->line;
323 copy_function_def_contents (old, new_def)
324 FUNCTION_DEF *old, *new_def;
326 new_def->name = copy_word (old->name);
327 new_def->command = old->command ? copy_command (old->command) : old->command;
328 new_def->flags = old->flags;
329 new_def->line = old->line;
330 new_def->source_file = old->source_file ? savestring (old->source_file) : old->source_file;
335 copy_function_def (com)
338 FUNCTION_DEF *new_def;
340 new_def = (FUNCTION_DEF *)xmalloc (sizeof (FUNCTION_DEF));
341 new_def = copy_function_def_contents (com, new_def);
345 /* Copy the command structure in COMMAND. Return a pointer to the
346 copy. Don't you forget to dispose_command () on this pointer
349 copy_command (command)
352 COMMAND *new_command;
357 new_command = (COMMAND *)xmalloc (sizeof (COMMAND));
358 FASTCOPY ((char *)command, (char *)new_command, sizeof (COMMAND));
359 new_command->flags = command->flags;
360 new_command->line = command->line;
362 if (command->redirects)
363 new_command->redirects = copy_redirects (command->redirects);
365 switch (command->type)
368 new_command->value.For = copy_for_command (command->value.For);
371 #if defined (ARITH_FOR_COMMAND)
373 new_command->value.ArithFor = copy_arith_for_command (command->value.ArithFor);
377 #if defined (SELECT_COMMAND)
379 new_command->value.Select =
380 (SELECT_COM *)copy_for_command ((FOR_COM *)command->value.Select);
385 new_command->value.Group = copy_group_command (command->value.Group);
389 new_command->value.Subshell = copy_subshell_command (command->value.Subshell);
393 new_command->value.Coproc = copy_coproc_command (command->value.Coproc);
397 new_command->value.Case = copy_case_command (command->value.Case);
402 new_command->value.While = copy_while_command (command->value.While);
406 new_command->value.If = copy_if_command (command->value.If);
409 #if defined (DPAREN_ARITHMETIC)
411 new_command->value.Arith = copy_arith_command (command->value.Arith);
415 #if defined (COND_COMMAND)
417 new_command->value.Cond = copy_cond_command (command->value.Cond);
422 new_command->value.Simple = copy_simple_command (command->value.Simple);
427 CONNECTION *new_connection;
429 new_connection = (CONNECTION *)xmalloc (sizeof (CONNECTION));
430 new_connection->connector = command->value.Connection->connector;
431 new_connection->first = copy_command (command->value.Connection->first);
432 new_connection->second = copy_command (command->value.Connection->second);
433 new_command->value.Connection = new_connection;
437 case cm_function_def:
438 new_command->value.Function_def = copy_function_def (command->value.Function_def);
441 return (new_command);