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 2, 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, 59 Temple Place, Suite 330, Boston, MA 02111 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)
41 # include <sys/types.h>
46 # include "../bashansi.h"
49 # include "../shell.h"
50 # include "../alias.h"
52 # include "bashgetopt.h"
54 extern int interactive;
55 static void print_alias ();
57 /* Hack the alias command in a Korn shell way. */
62 int any_failed, offset, pflag;
63 alias_t **alias_list, *t;
67 reset_internal_getopt ();
68 while ((offset = internal_getopt (list, "p")) != -1)
83 if (list == 0 || pflag)
86 return (EXECUTION_SUCCESS);
88 alias_list = all_aliases ();
91 return (EXECUTION_SUCCESS);
93 for (offset = 0; alias_list[offset]; offset++)
94 print_alias (alias_list[offset]);
96 free (alias_list); /* XXX - Do not free the strings. */
99 return (EXECUTION_SUCCESS);
105 name = list->word->word;
107 for (offset = 0; name[offset] && name[offset] != '='; offset++)
110 if (offset && name[offset] == '=')
113 value = name + offset + 1;
115 add_alias (name, value);
119 t = find_alias (name);
124 builtin_error ("`%s' not found", name);
131 return (any_failed ? EXECUTION_FAILURE : EXECUTION_SUCCESS);
136 $FUNCTION unalias_builtin
138 $SHORT_DOC unalias [-a] [name ...]
139 Remove NAMEs from the list of defined aliases. If the -a option is given,
140 then remove all alias definitions.
144 /* Remove aliases named in LIST from the aliases database. */
146 unalias_builtin (list)
147 register WORD_LIST *list;
149 register alias_t *alias;
153 reset_internal_getopt ();
154 while ((opt = internal_getopt (list, "a")) != -1)
171 delete_all_aliases ();
172 return (EXECUTION_SUCCESS);
178 alias = find_alias (list->word->word);
181 remove_alias (alias->name);
184 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 = sh_single_quote (alias->value);
202 printf ("alias %s=%s\n", alias->name, value);