1 This file is hash.def, from which is created hash.c.
2 It implements the builtin "hash" in Bash.
4 Copyright (C) 1987-2003 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.
25 $FUNCTION hash_builtin
26 $SHORT_DOC hash [-lr] [-p pathname] [-dt] [name ...]
27 For each NAME, the full pathname of the command is determined and
28 remembered. If the -p option is supplied, PATHNAME is used as the
29 full pathname of NAME, and no path search is performed. The -r
30 option causes the shell to forget all remembered locations. The -d
31 option causes the shell to forget the remembered location of each NAME.
32 If the -t option is supplied the full pathname to which each NAME
33 corresponds is printed. If multiple NAME arguments are supplied with
34 -t, the NAME is printed before the hashed full pathname. The -l option
35 causes output to be displayed in a format that may be reused as input.
36 If no arguments are given, information about remembered commands is displayed.
43 #include "../bashtypes.h"
45 #if defined (HAVE_UNISTD_H)
51 #include "../bashansi.h"
52 #include "../bashintl.h"
55 #include "../builtins.h"
57 #include "../findcmd.h"
58 #include "../hashcmd.h"
60 #include "bashgetopt.h"
62 extern int dot_found_in_search;
63 extern char *this_command_name;
65 static int add_hashed_command __P((char *, int));
66 static int print_hash_info __P((BUCKET_CONTENTS *));
67 static int print_portable_hash_info __P((BUCKET_CONTENTS *));
68 static int print_hashed_commands __P((int));
69 static int list_hashed_filename_targets __P((WORD_LIST *, int));
71 /* Print statistics on the current state of hashed commands. If LIST is
72 not empty, then rehash (or hash in the first place) the specified
78 int expunge_hash_table, list_targets, list_portably, delete, opt;
81 if (hashing_enabled == 0)
83 builtin_error (_("hashing disabled"));
84 return (EXECUTION_FAILURE);
87 expunge_hash_table = list_targets = list_portably = delete = 0;
88 pathname = (char *)NULL;
89 reset_internal_getopt ();
90 while ((opt = internal_getopt (list, "dlp:rt")) != -1)
101 pathname = list_optarg;
104 expunge_hash_table = 1;
116 /* hash -t requires at least one argument. */
117 if (list == 0 && list_targets)
120 return (EXECUTION_FAILURE);
123 /* We want hash -r to be silent, but hash -- to print hashing info, so
124 we test expunge_hash_table. */
125 if (list == 0 && expunge_hash_table == 0)
127 if (print_hashed_commands (list_portably) == 0)
128 fprintf (stderr, _("%s: hash table empty\n"), this_command_name);
130 return (EXECUTION_SUCCESS);
133 if (expunge_hash_table)
136 /* If someone runs `hash -r -t xyz' he will be disappointed. */
138 return (list_hashed_filename_targets (list, list_portably));
140 #if defined (RESTRICTED_SHELL)
141 if (restricted && pathname && strchr (pathname, '/'))
143 sh_restricted (pathname);
144 return (EXECUTION_FAILURE);
148 for (opt = EXECUTION_SUCCESS; list; list = list->next)
150 /* Add, remove or rehash the specified commands. */
151 w = list->word->word;
154 if (is_directory (pathname))
157 builtin_error ("%s: %s", pathname, strerror (EISDIR));
159 builtin_error ("%s: is a directory", pathname);
161 opt = EXECUTION_FAILURE;
164 phash_insert (w, pathname, 0, 0);
166 else if (absolute_program (w))
170 if (phash_remove (w))
173 opt = EXECUTION_FAILURE;
176 else if (add_hashed_command (w, 0))
177 opt = EXECUTION_FAILURE;
185 add_hashed_command (w, quiet)
193 if (find_function (w) == 0 && find_shell_builtin (w) == 0)
195 full_path = find_user_command (w);
196 if (full_path && executable_file (full_path))
197 phash_insert (w, full_path, dot_found_in_search, 0);
209 /* Print information about current hashed info. */
211 print_hash_info (item)
212 BUCKET_CONTENTS *item;
214 printf ("%4d\t%s\n", item->times_found, pathdata(item)->path);
219 print_portable_hash_info (item)
220 BUCKET_CONTENTS *item;
222 printf ("builtin hash -p %s %s\n", pathdata(item)->path, item->key);
227 print_hashed_commands (fmt)
230 if (hashed_filenames == 0 || HASH_ENTRIES (hashed_filenames) == 0)
234 printf ("hits\tcommand\n");
235 hash_walk (hashed_filenames, fmt ? print_portable_hash_info : print_hash_info);
240 list_hashed_filename_targets (list, fmt)
244 int all_found, multiple;
249 multiple = list->next != 0;
251 for (l = list; l; l = l->next)
253 target = phash_search (l->word->word);
257 sh_notfound (l->word->word);
261 printf ("builtin hash -p %s %s\n", target, l->word->word);
265 printf ("%s\t", l->word->word);
266 printf ("%s\n", target);
270 return (all_found ? EXECUTION_SUCCESS : EXECUTION_FAILURE);