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)
44 # include "../shell.h"
45 # include "../alias.h"
47 # include "bashgetopt.h"
49 extern int interactive;
50 static void print_alias ();
52 /* Hack the alias command in a Korn shell way. */
57 int any_failed, offset, pflag;
58 alias_t **alias_list, *t;
62 reset_internal_getopt ();
63 while ((offset = internal_getopt (list, "p")) != -1)
78 if (list == 0 || pflag)
81 return (EXECUTION_FAILURE);
83 alias_list = all_aliases ();
86 return (EXECUTION_FAILURE);
88 for (offset = 0; alias_list[offset]; offset++)
89 print_alias (alias_list[offset]);
91 free (alias_list); /* XXX - Do not free the strings. */
94 return (EXECUTION_SUCCESS);
100 name = list->word->word;
102 for (offset = 0; name[offset] && name[offset] != '='; offset++)
105 if (offset && name[offset] == '=')
108 value = name + offset + 1;
110 add_alias (name, value);
114 t = find_alias (name);
120 builtin_error ("`%s' not found", name);
127 return (any_failed ? EXECUTION_FAILURE : EXECUTION_SUCCESS);
132 $FUNCTION unalias_builtin
134 $SHORT_DOC unalias [-a] [name ...]
135 Remove NAMEs from the list of defined aliases. If the -a option is given,
136 then remove all alias definitions.
140 /* Remove aliases named in LIST from the aliases database. */
142 unalias_builtin (list)
143 register WORD_LIST *list;
145 register alias_t *alias;
149 reset_internal_getopt ();
150 while ((opt = internal_getopt (list, "a")) != -1)
167 delete_all_aliases ();
168 return (EXECUTION_SUCCESS);
174 alias = find_alias (list->word->word);
177 remove_alias (alias->name);
181 builtin_error ("`%s': not an alias", list->word->word);
189 return (aflag ? EXECUTION_FAILURE : EXECUTION_SUCCESS);
192 /* Output ALIAS in such a way as to allow it to be read back in. */
199 value = single_quote (alias->value);
200 printf ("alias %s=%s\n", alias->name, value);