1 This file is alias.def, from which is created alias.c
2 It implements the builtins "alias" and "unalias" in Bash.
4 Copyright (C) 1987, 1989, 1991 Free Software Foundation, Inc.
6 This file is part of GNU Bash, the Bourne Again SHell.
8 Bash is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 1, or (at your option) any later
13 Bash is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License along
19 with Bash; see the file COPYING. If not, write to the Free Software
20 Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23 $FUNCTION alias_builtin
26 $SHORT_DOC alias [-p] [name[=value] ... ]
27 `alias' with no arguments or with the -p option prints the list
28 of aliases in the form alias NAME=VALUE on standard output.
29 Otherwise, an alias is defined for each NAME whose VALUE is given.
30 A trailing space in VALUE causes the next word to be checked for
31 alias substitution when the alias is expanded. Alias returns
32 true unless a NAME is given for which no alias has been defined.
39 #if defined (HAVE_UNISTD_H)
43 # include "../bashansi.h"
46 # include "../shell.h"
47 # include "../alias.h"
49 # include "bashgetopt.h"
51 extern int interactive;
52 static void print_alias ();
54 /* Hack the alias command in a Korn shell way. */
59 int any_failed, offset, pflag;
60 alias_t **alias_list, *t;
64 reset_internal_getopt ();
65 while ((offset = internal_getopt (list, "p")) != -1)
80 if (list == 0 || pflag)
83 return (EXECUTION_FAILURE);
85 alias_list = all_aliases ();
88 return (EXECUTION_FAILURE);
90 for (offset = 0; alias_list[offset]; offset++)
91 print_alias (alias_list[offset]);
93 free (alias_list); /* XXX - Do not free the strings. */
96 return (EXECUTION_SUCCESS);
102 name = list->word->word;
104 for (offset = 0; name[offset] && name[offset] != '='; offset++)
107 if (offset && name[offset] == '=')
110 value = name + offset + 1;
112 add_alias (name, value);
116 t = find_alias (name);
122 builtin_error ("`%s' not found", name);
129 return (any_failed ? EXECUTION_FAILURE : EXECUTION_SUCCESS);
134 $FUNCTION unalias_builtin
136 $SHORT_DOC unalias [-a] [name ...]
137 Remove NAMEs from the list of defined aliases. If the -a option is given,
138 then remove all alias definitions.
142 /* Remove aliases named in LIST from the aliases database. */
144 unalias_builtin (list)
145 register WORD_LIST *list;
147 register alias_t *alias;
151 reset_internal_getopt ();
152 while ((opt = internal_getopt (list, "a")) != -1)
169 delete_all_aliases ();
170 return (EXECUTION_SUCCESS);
176 alias = find_alias (list->word->word);
179 remove_alias (alias->name);
183 builtin_error ("`%s': not an alias", list->word->word);
191 return (aflag ? EXECUTION_FAILURE : EXECUTION_SUCCESS);
194 /* Output ALIAS in such a way as to allow it to be read back in. */
201 value = single_quote (alias->value);
202 printf ("alias %s=%s\n", alias->name, value);