1997-01-11 02:12:38 +00:00
|
|
|
|
/* tilde.c -- Tilde expansion code (~/foo := $HOME/foo).
|
1999-01-14 19:35:19 +00:00
|
|
|
|
$Id: tilde.c,v 1.9 1998/02/22 23:03:21 karl Exp $
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
|
|
|
|
This file is part of GNU Info, a program for reading online documentation
|
|
|
|
|
stored in Info format.
|
|
|
|
|
|
1999-01-14 19:35:19 +00:00
|
|
|
|
Copyright (C) 1988, 89, 90, 91, 92, 93, 96, 98
|
|
|
|
|
Free Software Foundation, Inc.
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
|
|
|
|
|
|
Written by Brian Fox (bfox@ai.mit.edu). */
|
|
|
|
|
|
1999-01-14 19:35:19 +00:00
|
|
|
|
/* Indent #pragma so that older Cpp's don't try to parse it. */
|
|
|
|
|
#ifdef _AIX
|
1997-01-11 02:12:38 +00:00
|
|
|
|
#pragma alloca
|
1999-01-14 19:35:19 +00:00
|
|
|
|
#endif /* _AIX */
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
1999-01-14 19:35:19 +00:00
|
|
|
|
/* Include config.h before doing alloca. */
|
|
|
|
|
#include "info.h"
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
1999-01-14 19:35:19 +00:00
|
|
|
|
#ifdef __GNUC__
|
|
|
|
|
# undef alloca
|
|
|
|
|
# define alloca __builtin_alloca
|
|
|
|
|
#else
|
|
|
|
|
# ifdef HAVE_ALLOCA_H
|
|
|
|
|
# include <alloca.h>
|
|
|
|
|
# else
|
|
|
|
|
# ifndef _AIX
|
|
|
|
|
char *alloca ();
|
|
|
|
|
# endif
|
|
|
|
|
# endif
|
1997-01-11 02:12:38 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#if defined (TEST) || defined (STATIC_MALLOC)
|
|
|
|
|
static void *xmalloc (), *xrealloc ();
|
|
|
|
|
#endif /* TEST || STATIC_MALLOC */
|
|
|
|
|
|
|
|
|
|
/* The default value of tilde_additional_prefixes. This is set to
|
|
|
|
|
whitespace preceding a tilde so that simple programs which do not
|
|
|
|
|
perform any word separation get desired behaviour. */
|
|
|
|
|
static char *default_prefixes[] =
|
|
|
|
|
{ " ~", "\t~", (char *)NULL };
|
|
|
|
|
|
|
|
|
|
/* The default value of tilde_additional_suffixes. This is set to
|
|
|
|
|
whitespace or newline so that simple programs which do not
|
|
|
|
|
perform any word separation get desired behaviour. */
|
|
|
|
|
static char *default_suffixes[] =
|
|
|
|
|
{ " ", "\n", (char *)NULL };
|
|
|
|
|
|
|
|
|
|
/* If non-null, this contains the address of a function to call if the
|
|
|
|
|
standard meaning for expanding a tilde fails. The function is called
|
|
|
|
|
with the text (sans tilde, as in "foo"), and returns a malloc()'ed string
|
|
|
|
|
which is the expansion, or a NULL pointer if there is no expansion. */
|
|
|
|
|
CFunction *tilde_expansion_failure_hook = (CFunction *)NULL;
|
|
|
|
|
|
|
|
|
|
/* When non-null, this is a NULL terminated array of strings which
|
|
|
|
|
are duplicates for a tilde prefix. Bash uses this to expand
|
|
|
|
|
`=~' and `:~'. */
|
|
|
|
|
char **tilde_additional_prefixes = default_prefixes;
|
|
|
|
|
|
|
|
|
|
/* When non-null, this is a NULL terminated array of strings which match
|
|
|
|
|
the end of a username, instead of just "/". Bash sets this to
|
|
|
|
|
`:' and `=~'. */
|
|
|
|
|
char **tilde_additional_suffixes = default_suffixes;
|
|
|
|
|
|
|
|
|
|
/* Find the start of a tilde expansion in STRING, and return the index of
|
|
|
|
|
the tilde which starts the expansion. Place the length of the text
|
|
|
|
|
which identified this tilde starter in LEN, excluding the tilde itself. */
|
|
|
|
|
static int
|
|
|
|
|
tilde_find_prefix (string, len)
|
|
|
|
|
char *string;
|
|
|
|
|
int *len;
|
|
|
|
|
{
|
|
|
|
|
register int i, j, string_len;
|
|
|
|
|
register char **prefixes = tilde_additional_prefixes;
|
|
|
|
|
|
|
|
|
|
string_len = strlen (string);
|
|
|
|
|
*len = 0;
|
|
|
|
|
|
|
|
|
|
if (!*string || *string == '~')
|
|
|
|
|
return (0);
|
|
|
|
|
|
|
|
|
|
if (prefixes)
|
|
|
|
|
{
|
|
|
|
|
for (i = 0; i < string_len; i++)
|
1999-01-14 19:35:19 +00:00
|
|
|
|
{
|
|
|
|
|
for (j = 0; prefixes[j]; j++)
|
|
|
|
|
{
|
|
|
|
|
if (strncmp (string + i, prefixes[j], strlen (prefixes[j])) == 0)
|
|
|
|
|
{
|
|
|
|
|
*len = strlen (prefixes[j]) - 1;
|
|
|
|
|
return (i + *len);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
1997-01-11 02:12:38 +00:00
|
|
|
|
}
|
|
|
|
|
return (string_len);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Find the end of a tilde expansion in STRING, and return the index of
|
|
|
|
|
the character which ends the tilde definition. */
|
|
|
|
|
static int
|
|
|
|
|
tilde_find_suffix (string)
|
|
|
|
|
char *string;
|
|
|
|
|
{
|
|
|
|
|
register int i, j, string_len;
|
|
|
|
|
register char **suffixes = tilde_additional_suffixes;
|
|
|
|
|
|
|
|
|
|
string_len = strlen (string);
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < string_len; i++)
|
|
|
|
|
{
|
|
|
|
|
if (string[i] == '/' || !string[i])
|
1999-01-14 19:35:19 +00:00
|
|
|
|
break;
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
|
|
|
|
for (j = 0; suffixes && suffixes[j]; j++)
|
1999-01-14 19:35:19 +00:00
|
|
|
|
{
|
|
|
|
|
if (strncmp (string + i, suffixes[j], strlen (suffixes[j])) == 0)
|
|
|
|
|
return (i);
|
|
|
|
|
}
|
1997-01-11 02:12:38 +00:00
|
|
|
|
}
|
|
|
|
|
return (i);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return a new string which is the result of tilde expanding STRING. */
|
|
|
|
|
char *
|
|
|
|
|
tilde_expand (string)
|
|
|
|
|
char *string;
|
|
|
|
|
{
|
|
|
|
|
char *result, *tilde_expand_word ();
|
|
|
|
|
int result_size, result_index;
|
|
|
|
|
|
|
|
|
|
result_size = result_index = 0;
|
|
|
|
|
result = (char *)NULL;
|
|
|
|
|
|
|
|
|
|
/* Scan through STRING expanding tildes as we come to them. */
|
|
|
|
|
while (1)
|
|
|
|
|
{
|
|
|
|
|
register int start, end;
|
|
|
|
|
char *tilde_word, *expansion;
|
|
|
|
|
int len;
|
|
|
|
|
|
|
|
|
|
/* Make START point to the tilde which starts the expansion. */
|
|
|
|
|
start = tilde_find_prefix (string, &len);
|
|
|
|
|
|
|
|
|
|
/* Copy the skipped text into the result. */
|
|
|
|
|
if ((result_index + start + 1) > result_size)
|
1999-01-14 19:35:19 +00:00
|
|
|
|
result = (char *)xrealloc (result, 1 + (result_size += (start + 20)));
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
|
|
|
|
strncpy (result + result_index, string, start);
|
|
|
|
|
result_index += start;
|
|
|
|
|
|
|
|
|
|
/* Advance STRING to the starting tilde. */
|
|
|
|
|
string += start;
|
|
|
|
|
|
|
|
|
|
/* Make END be the index of one after the last character of the
|
1999-01-14 19:35:19 +00:00
|
|
|
|
username. */
|
1997-01-11 02:12:38 +00:00
|
|
|
|
end = tilde_find_suffix (string);
|
|
|
|
|
|
|
|
|
|
/* If both START and END are zero, we are all done. */
|
|
|
|
|
if (!start && !end)
|
1999-01-14 19:35:19 +00:00
|
|
|
|
break;
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
|
|
|
|
/* Expand the entire tilde word, and copy it into RESULT. */
|
|
|
|
|
tilde_word = (char *)xmalloc (1 + end);
|
|
|
|
|
strncpy (tilde_word, string, end);
|
|
|
|
|
tilde_word[end] = '\0';
|
|
|
|
|
string += end;
|
|
|
|
|
|
|
|
|
|
expansion = tilde_expand_word (tilde_word);
|
|
|
|
|
free (tilde_word);
|
|
|
|
|
|
|
|
|
|
len = strlen (expansion);
|
|
|
|
|
if ((result_index + len + 1) > result_size)
|
1999-01-14 19:35:19 +00:00
|
|
|
|
result = (char *)xrealloc (result, 1 + (result_size += (len + 20)));
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
|
|
|
|
strcpy (result + result_index, expansion);
|
|
|
|
|
result_index += len;
|
|
|
|
|
free (expansion);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
result[result_index] = '\0';
|
|
|
|
|
|
|
|
|
|
return (result);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Do the work of tilde expansion on FILENAME. FILENAME starts with a
|
|
|
|
|
tilde. If there is no expansion, call tilde_expansion_failure_hook. */
|
|
|
|
|
char *
|
|
|
|
|
tilde_expand_word (filename)
|
|
|
|
|
char *filename;
|
|
|
|
|
{
|
|
|
|
|
char *dirname;
|
|
|
|
|
|
1999-01-14 19:35:19 +00:00
|
|
|
|
dirname = filename ? xstrdup (filename) : (char *)NULL;
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
|
|
|
|
if (dirname && *dirname == '~')
|
|
|
|
|
{
|
|
|
|
|
char *temp_name;
|
|
|
|
|
if (!dirname[1] || dirname[1] == '/')
|
1999-01-14 19:35:19 +00:00
|
|
|
|
{
|
|
|
|
|
/* Prepend $HOME to the rest of the string. */
|
|
|
|
|
char *temp_home = getenv ("HOME");
|
|
|
|
|
|
|
|
|
|
/* If there is no HOME variable, look up the directory in
|
|
|
|
|
the password database. */
|
|
|
|
|
if (!temp_home)
|
|
|
|
|
{
|
|
|
|
|
struct passwd *entry;
|
|
|
|
|
|
|
|
|
|
entry = (struct passwd *) getpwuid (getuid ());
|
|
|
|
|
if (entry)
|
|
|
|
|
temp_home = entry->pw_dir;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
temp_name = (char *)
|
|
|
|
|
alloca (1 + strlen (&dirname[1])
|
|
|
|
|
+ (temp_home ? strlen (temp_home) : 0));
|
|
|
|
|
temp_name[0] = '\0';
|
|
|
|
|
if (temp_home)
|
|
|
|
|
strcpy (temp_name, temp_home);
|
|
|
|
|
strcat (temp_name, &dirname[1]);
|
|
|
|
|
free (dirname);
|
|
|
|
|
dirname = xstrdup (temp_name);
|
|
|
|
|
}
|
1997-01-11 02:12:38 +00:00
|
|
|
|
else
|
1999-01-14 19:35:19 +00:00
|
|
|
|
{
|
|
|
|
|
struct passwd *user_entry;
|
|
|
|
|
char *username = (char *)alloca (257);
|
|
|
|
|
int i, c;
|
|
|
|
|
|
|
|
|
|
for (i = 1; (c = dirname[i]); i++)
|
|
|
|
|
{
|
|
|
|
|
if (c == '/')
|
|
|
|
|
break;
|
|
|
|
|
else
|
|
|
|
|
username[i - 1] = c;
|
|
|
|
|
}
|
|
|
|
|
username[i - 1] = '\0';
|
|
|
|
|
|
|
|
|
|
if (!(user_entry = (struct passwd *) getpwnam (username)))
|
|
|
|
|
{
|
|
|
|
|
/* If the calling program has a special syntax for
|
|
|
|
|
expanding tildes, and we couldn't find a standard
|
|
|
|
|
expansion, then let them try. */
|
|
|
|
|
if (tilde_expansion_failure_hook)
|
|
|
|
|
{
|
|
|
|
|
char *expansion;
|
|
|
|
|
|
|
|
|
|
expansion = (*tilde_expansion_failure_hook) (username);
|
|
|
|
|
|
|
|
|
|
if (expansion)
|
|
|
|
|
{
|
|
|
|
|
temp_name = (char *)alloca
|
|
|
|
|
(1 + strlen (expansion) + strlen (&dirname[i]));
|
|
|
|
|
strcpy (temp_name, expansion);
|
|
|
|
|
strcat (temp_name, &dirname[i]);
|
|
|
|
|
free (expansion);
|
|
|
|
|
goto return_name;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
/* We shouldn't report errors. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
temp_name = (char *)alloca
|
|
|
|
|
(1 + strlen (user_entry->pw_dir) + strlen (&dirname[i]));
|
|
|
|
|
strcpy (temp_name, user_entry->pw_dir);
|
|
|
|
|
strcat (temp_name, &dirname[i]);
|
|
|
|
|
return_name:
|
|
|
|
|
free (dirname);
|
|
|
|
|
dirname = xstrdup (temp_name);
|
|
|
|
|
}
|
|
|
|
|
endpwent ();
|
|
|
|
|
}
|
1997-01-11 02:12:38 +00:00
|
|
|
|
}
|
|
|
|
|
return (dirname);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if defined (TEST)
|
|
|
|
|
#undef NULL
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
|
|
|
|
|
main (argc, argv)
|
|
|
|
|
int argc;
|
|
|
|
|
char **argv;
|
|
|
|
|
{
|
|
|
|
|
char *result, line[512];
|
|
|
|
|
int done = 0;
|
|
|
|
|
|
|
|
|
|
while (!done)
|
|
|
|
|
{
|
|
|
|
|
printf ("~expand: ");
|
|
|
|
|
fflush (stdout);
|
|
|
|
|
|
|
|
|
|
if (!gets (line))
|
1999-01-14 19:35:19 +00:00
|
|
|
|
strcpy (line, "done");
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
|
|
|
|
if ((strcmp (line, "done") == 0) ||
|
1999-01-14 19:35:19 +00:00
|
|
|
|
(strcmp (line, "quit") == 0) ||
|
|
|
|
|
(strcmp (line, "exit") == 0))
|
|
|
|
|
{
|
|
|
|
|
done = 1;
|
|
|
|
|
break;
|
|
|
|
|
}
|
1997-01-11 02:12:38 +00:00
|
|
|
|
|
|
|
|
|
result = tilde_expand (line);
|
|
|
|
|
printf (" --> %s\n", result);
|
|
|
|
|
free (result);
|
|
|
|
|
}
|
|
|
|
|
exit (0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void memory_error_and_abort ();
|
|
|
|
|
|
|
|
|
|
static void *
|
|
|
|
|
xmalloc (bytes)
|
|
|
|
|
int bytes;
|
|
|
|
|
{
|
|
|
|
|
void *temp = (void *)malloc (bytes);
|
|
|
|
|
|
|
|
|
|
if (!temp)
|
|
|
|
|
memory_error_and_abort ();
|
|
|
|
|
return (temp);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void *
|
|
|
|
|
xrealloc (pointer, bytes)
|
|
|
|
|
void *pointer;
|
|
|
|
|
int bytes;
|
|
|
|
|
{
|
|
|
|
|
void *temp;
|
|
|
|
|
|
|
|
|
|
if (!pointer)
|
|
|
|
|
temp = (char *)malloc (bytes);
|
|
|
|
|
else
|
|
|
|
|
temp = (char *)realloc (pointer, bytes);
|
|
|
|
|
|
|
|
|
|
if (!temp)
|
|
|
|
|
memory_error_and_abort ();
|
|
|
|
|
|
|
|
|
|
return (temp);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
memory_error_and_abort ()
|
|
|
|
|
{
|
1999-01-14 19:35:19 +00:00
|
|
|
|
fprintf (stderr, _("readline: Out of virtual memory!\n"));
|
1997-01-11 02:12:38 +00:00
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
#endif /* TEST */
|
|
|
|
|
|