X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/d33af40e151029b404185d8a6aaa25a70d8bd7b5..aff8b8cf7142a3847264b870fba598d2e085af7f:/usr/src/bin/csh/file.c

diff --git a/usr/src/bin/csh/file.c b/usr/src/bin/csh/file.c
index b263c7e14e..447fcc2cec 100644
--- a/usr/src/bin/csh/file.c
+++ b/usr/src/bin/csh/file.c
@@ -1,5 +1,14 @@
-static	char *sccsid = "@(#)file.c 1.3 (Berkeley from Hp Labs) %G%";
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley Software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+
+#ifndef lint
+static char *sccsid = "@(#)file.c	5.8 (Berkeley) %G%";
+#endif
 
+#ifdef FILEC
 /*
  * Tenex style file name recognition, .. and more.
  * History:
@@ -7,260 +16,252 @@ static	char *sccsid = "@(#)file.c 1.3 (Berkeley from Hp Labs) %G%";
  *	Finally got around to adding to the Cshell., Ken Greer, Dec. 1981.
  */
 
-#include <sys/types.h>
-#include <sys/stat.h>
+#include "sh.h"
 #include <sgtty.h>
 #include <sys/dir.h>
-#include <signal.h>
 #include <pwd.h>
 
-extern short SHIN, SHOUT;
-
 #define TRUE	1
 #define FALSE	0
 #define ON	1
 #define OFF	0
-#define FILSIZ	512			/* Max reasonable file name length */
 
 #define ESC	'\033'
 
 typedef enum {LIST, RECOGNIZE} COMMAND;
 
-#define equal(a, b)	(strcmp(a, b) == 0)
+int	sortscmp();			/* defined in sh.glob.c */
 
-static struct tchars  tchars;		/* INT, QUIT, XON, XOFF, EOF, BRK */
+/*
+ * Put this here so the binary can be patched with adb to enable file
+ * completion by default.  Filec controls completion, nobeep controls
+ * ringing the terminal bell on incomplete expansions.
+ */
+bool filec = 0;
 
 static
-setup_tty (on)
+setup_tty(on)
+	int on;
 {
-    int omask;
-
-    omask = sigblock(sigmask(SIGINT));
-    if (on)
-    {
 	struct sgttyb sgtty;
-	ioctl (SHIN, TIOCGETC, &tchars);
-	tchars.t_brkc = ESC;
-	ioctl (SHIN, TIOCSETC, &tchars);
-	/*
-	 * This is a useful feature in it's own right...
-	 * The shell makes sure that the tty is not in some weird state
-	 * and fixes it if it is.  But it should be noted that the
-	 * tenex routine will not work correctly in CBREAK or RAW mode
-	 * so this code below is, therefore, mandatory.
-	 */
-	ioctl (SHIN, TIOCGETP, &sgtty);
-	if (sgtty.sg_flags & (RAW | CBREAK))
-	{
-	    sgtty.sg_flags &= ~(RAW | CBREAK);
-	    ioctl (SHIN, TIOCSETP, &sgtty);
+	static struct tchars tchars;	/* INT, QUIT, XON, XOFF, EOF, BRK */
+
+	if (on) {
+		(void) ioctl(SHIN, TIOCGETC, (char *)&tchars);
+		tchars.t_brkc = ESC;
+		(void) ioctl(SHIN, TIOCSETC, (char *)&tchars);
+		/*
+		 * This must be done after every command: if
+		 * the tty gets into raw or cbreak mode the user
+		 * can't even type 'reset'.
+		 */
+		(void) ioctl(SHIN, TIOCGETP, (char *)&sgtty);
+		if (sgtty.sg_flags & (RAW|CBREAK)) {
+			 sgtty.sg_flags &= ~(RAW|CBREAK);
+			 (void) ioctl(SHIN, TIOCSETP, (char *)&sgtty);
+		}
+	} else {
+		tchars.t_brkc = -1;
+		(void) ioctl(SHIN, TIOCSETC, (char *)&tchars);
 	}
-    }
-    else
-    {
-	tchars.t_brkc = -1;
-	ioctl (SHIN, TIOCSETC, &tchars);
-    }
-    sigsetmask (omask);
 }
 
 /*
  * Move back to beginning of current line
  */
 static
-back_to_col_1 ()
+back_to_col_1()
 {
-    struct sgttyb tty, tty_normal;
-    int omask;
-
-    omask = sigblock (sigmask(SIGINT));
-    ioctl (SHIN, TIOCGETP, &tty);
-    tty_normal = tty;
-    tty.sg_flags &= ~CRMOD;
-    ioctl (SHIN, TIOCSETN, &tty);
-    (void) write (SHOUT, "\r", 1);
-    ioctl (SHIN, TIOCSETN, &tty_normal);
-    sigsetmask (omask);
+	struct sgttyb tty, tty_normal;
+	long omask;
+
+	omask = sigblock(sigmask(SIGINT));
+	(void) ioctl(SHIN, TIOCGETP, (char *)&tty);
+	tty_normal = tty;
+	tty.sg_flags &= ~CRMOD;
+	(void) ioctl(SHIN, TIOCSETN, (char *)&tty);
+	(void) write(SHOUT, "\r", 1);
+	(void) ioctl(SHIN, TIOCSETN, (char *)&tty_normal);
+	(void) sigsetmask(omask);
 }
 
 /*
  * Push string contents back into tty queue
  */
 static
-pushback (string)
-char  *string;
+pushback(string)
+	char *string;
 {
-    register char  *p;
-    struct sgttyb   tty, tty_normal;
-    int omask;
-
-    omask = sigblock (sigmask(SIGINT));
-    ioctl (SHOUT, TIOCGETP, &tty);
-    tty_normal = tty;
-    tty.sg_flags &= ~ECHO;
-    ioctl (SHOUT, TIOCSETN, &tty);
-
-    for (p = string; *p; p++)
-	ioctl (SHOUT, TIOCSTI, p);
-    ioctl (SHOUT, TIOCSETN, &tty_normal);
-    sigsetmask (omask);
+	register char *p;
+	struct sgttyb tty, tty_normal;
+	long omask;
+
+	omask = sigblock(sigmask(SIGINT));
+	(void) ioctl(SHOUT, TIOCGETP, (char *)&tty);
+	tty_normal = tty;
+	tty.sg_flags &= ~ECHO;
+	(void) ioctl(SHOUT, TIOCSETN, (char *)&tty);
+
+	for (p = string; *p; p++)
+		(void) ioctl(SHOUT, TIOCSTI, p);
+	(void) ioctl(SHOUT, TIOCSETN, (char *)&tty_normal);
+	(void) sigsetmask(omask);
 }
 
 /*
- * Concatonate src onto tail of des.
+ * Concatenate src onto tail of des.
  * Des is a string whose maximum length is count.
  * Always null terminate.
  */
-catn (des, src, count)
-register char *des, *src;
-register count;
-{
-    while (--count >= 0 && *des)
-	des++;
-    while (--count >= 0)
-	if ((*des++ = *src++) == 0)
-	    return;
-    *des = '\0';
-}
-
 static
-max (a, b)
+catn(des, src, count)
+	register char *des, *src;
+	register count;
 {
-    if (a > b)
-	return (a);
-    return (b);
-}
 
-/*
- * like strncpy but always leave room for trailing \0
- * and always null terminate.
- */
-copyn (des, src, count)
-register char *des, *src;
-register count;
-{
-    while (--count >= 0)
-	if ((*des++ = *src++) == 0)
-	    return;
-    *des = '\0';
+	while (--count >= 0 && *des)
+		des++;
+	while (--count >= 0)
+		if ((*des++ = *src++) == 0)
+			 return;
+	*des = '\0';
 }
 
 /*
- * For qsort()
+ * Like strncpy but always leave room for trailing \0
+ * and always null terminate.
  */
 static
-fcompare (file1, file2)
-char  **file1, **file2;
+copyn(des, src, count)
+	register char *des, *src;
+	register count;
 {
-    return (strcmp (*file1, *file2));
+
+	while (--count >= 0)
+		if ((*des++ = *src++) == 0)
+			return;
+	*des = '\0';
 }
 
 static char
-filetype (dir, file)
-char *dir, *file;
+filetype(dir, file)
+	char *dir, *file;
 {
-    if (dir)
-    {
-	char path[512];
+	char path[MAXPATHLEN];
 	struct stat statb;
-	extern char *strcpy ();
-	catn (strcpy (path, dir), file, sizeof path);
-	if (stat (path, &statb) >= 0)
-	{
-	    if (statb.st_mode & S_IFDIR)
-		return ('/');
-	    if (statb.st_mode & 0111)
-		return ('*');
+
+	catn(strcpy(path, dir), file, sizeof path);
+	if (lstat(path, &statb) == 0) {
+		switch(statb.st_mode & S_IFMT) {
+		    case S_IFDIR:
+			return ('/');
+
+		    case S_IFLNK:
+			if (stat(path, &statb) == 0 &&	    /* follow it out */
+			   (statb.st_mode & S_IFMT) == S_IFDIR)
+				return ('>');
+			else
+				return ('@');
+
+		    case S_IFSOCK:
+			return ('=');
+
+		    default:
+			if (statb.st_mode & 0111)
+				return ('*');
+		}
 	}
-    }
-    return (' ');
+	return (' ');
 }
 
+static struct winsize win;
+
 /*
  * Print sorted down columns
  */
 static
-print_by_column (dir, items, count)
-char *dir, *items[];
+print_by_column(dir, items, count)
+	char *dir, *items[];
 {
-    register int i, rows, r, c, maxwidth = 0, columns;
-    for (i = 0; i < count; i++)
-	maxwidth = max (maxwidth, strlen (items[i]));
-    maxwidth += 2;				/* for the file tag and space */
-    columns = 78 / maxwidth;
-    rows = (count + (columns - 1)) / columns;
-    for (r = 0; r < rows; r++)
-    {
-	for (c = 0; c < columns; c++)
-	{
-	    i = c * rows + r;
-	    if (i < count)
-	    {
-		register int w;
-		printf("%s", items[i]);
-		putchar (filetype (dir, items[i]));	/* '/' or '*' or ' ' */
-		if (c < (columns - 1))			/* Not last column? */
-		    for (w = strlen (items[i]) + 1; w < maxwidth; w++)
-			printf (" ");
-	    }
+	register int i, rows, r, c, maxwidth = 0, columns;
+
+	if (ioctl(SHOUT, TIOCGWINSZ, (char *)&win) < 0 || win.ws_col == 0)
+		win.ws_col = 80;
+	for (i = 0; i < count; i++)
+		maxwidth = maxwidth > (r = strlen(items[i])) ? maxwidth : r;
+	maxwidth += 2;			/* for the file tag and space */
+	columns = win.ws_col / maxwidth;
+	if (columns == 0)
+		columns = 1;
+	rows = (count + (columns - 1)) / columns;
+	for (r = 0; r < rows; r++) {
+		for (c = 0; c < columns; c++) {
+			i = c * rows + r;
+			if (i < count) {
+				register int w;
+
+				printf("%s", items[i]);
+				cshputchar(dir ? filetype(dir, items[i]) : ' ');
+				if (c < columns - 1) {	/* last column? */
+					w = strlen(items[i]) + 1;
+					for (; w < maxwidth; w++)
+						cshputchar(' ');
+				}
+			}
+		}
+		cshputchar('\n');
 	}
-	printf ("\n");
-    }
 }
 
 /*
- * expand file name with possible tilde usage
- *		~person/mumble
+ * Expand file name with possible tilde usage
+ *	~person/mumble
  * expands to
- *		home_directory_of_person/mumble
- *
- * Usage: tilde (new, old) char *new, *old;
+ *	home_directory_of_person/mumble
  */
-
-char *
-tilde (new, old)
-char *new, *old;
+static char *
+tilde(new, old)
+	char *new, *old;
 {
-    extern char *strcpy ();
-    extern struct passwd *getpwuid (), *getpwnam ();
-
-    register char *o, *p;
-    register struct passwd *pw;
-    static char person[40] = {0};
-
-    if (old[0] != '~')
-	return (strcpy (new, old));
-
-    for (p = person, o = &old[1]; *o && *o != '/'; *p++ = *o++);
-    *p = '\0';
-
-    if (person[0] == '\0')			/* then use current uid */
-	pw = getpwuid (getuid ());
-    else
-	pw = getpwnam (person);
-
-    if (pw == NULL)
-	return (NULL);
-
-    strcpy (new, pw -> pw_dir);
-    (void) strcat (new, o);
-    return (new);
+	register char *o, *p;
+	register struct passwd *pw;
+	static char person[40];
+
+	if (old[0] != '~')
+		return (strcpy(new, old));
+
+	for (p = person, o = &old[1]; *o && *o != '/'; *p++ = *o++)
+		;
+	*p = '\0';
+	if (person[0] == '\0')
+		(void) strcpy(new, value("home"));
+	else {
+		pw = getpwnam(person);
+		if (pw == NULL)
+			return (NULL);
+		(void) strcpy(new, pw->pw_dir);
+	}
+	(void) strcat(new, o);
+	return (new);
 }
 
 /*
  * Cause pending line to be printed
  */
 static
-retype ()
+retype()
 {
-    int     pending_input = LPENDIN;
-    ioctl (SHOUT, TIOCLBIS, &pending_input);
+	int pending_input = LPENDIN;
+
+	(void) ioctl(SHOUT, TIOCLBIS, (char *)&pending_input);
 }
 
 static
-beep ()
+beep()
 {
-    (void) write (SHOUT, "\07", 1);
+
+	if (adrof("nobeep") == 0)
+		(void) write(SHOUT, "\007", 1);
 }
 
 /*
@@ -268,191 +269,182 @@ beep ()
  * print the recognized part of the string
  */
 static
-print_recognized_stuff (recognized_part)
-char *recognized_part;
+print_recognized_stuff(recognized_part)
+	char *recognized_part;
 {
-    /* An optimized erasing of that silly ^[ */
-    switch (strlen (recognized_part))
-    {
+
+	/* An optimized erasing of that silly ^[ */
+	switch (strlen(recognized_part)) {
+
 	case 0:				/* erase two characters: ^[ */
-	    printf ("\210\210  \210\210");
-	    break;
+		printf("\210\210  \210\210");
+		break;
+
 	case 1:				/* overstrike the ^, erase the [ */
-	    printf ("\210\210%s \210", recognized_part);
-	    break;
+		printf("\210\210%s \210", recognized_part);
+		break;
+
 	default:			/* overstrike both characters ^[ */
-	    printf ("\210\210%s", recognized_part);
-	    break;
-    }
-    flush ();
+		printf("\210\210%s", recognized_part);
+		break;
+	}
+	flush();
 }
 
 /*
- * parse full path in file into 2 parts: directory and file names
+ * Parse full path in file into 2 parts: directory and file names
  * Should leave final slash (/) at end of dir.
  */
 static
-extract_dir_and_name (path, dir, name)
-char   *path, *dir, *name;
+extract_dir_and_name(path, dir, name)
+	char *path, *dir, *name;
 {
-    extern char *rindex ();
-    register char  *p;
-    p = rindex (path, '/');
-    if (p == NULL)
-    {
-	copyn (name, path, MAXNAMLEN);
-	dir[0] = '\0';
-    }
-    else
-    {
-	p++;
-	copyn (name, p, MAXNAMLEN);
-	copyn (dir, path, p - path);
-    }
+	register char  *p;
+
+	p = rindex(path, '/');
+	if (p == NULL) {
+		copyn(name, path, MAXNAMLEN);
+		dir[0] = '\0';
+	} else {
+		copyn(name, ++p, MAXNAMLEN);
+		copyn(dir, path, p - path);
+	}
 }
 
-
-char *
-getentry (dir_fd, looking_for_lognames)
-DIR *dir_fd;
+static char *
+getentry(dir_fd, looking_for_lognames)
+	DIR *dir_fd;
 {
-    if (looking_for_lognames)			/* Is it login names we want? */
-    {
-	extern struct passwd *getpwent ();
 	register struct passwd *pw;
-	if ((pw = getpwent ()) == NULL)
-	    return (NULL);
-	return (pw -> pw_name);
-    }
-    else					/* It's a dir entry we want */
-    {
 	register struct direct *dirp;
-	if (dirp = readdir (dir_fd))
-	    return (dirp -> d_name);
+
+	if (looking_for_lognames) {
+		if ((pw = getpwent()) == NULL)
+			return (NULL);
+		return (pw->pw_name);
+	}
+	if (dirp = readdir(dir_fd))
+		return (dirp->d_name);
 	return (NULL);
-    }
 }
 
 static
-free_items (items)
-register char **items;
+free_items(items)
+	register char **items;
 {
-    register int i;
-    for (i = 0; items[i]; i++)
-	free (items[i]);
-    free (items);
+	register int i;
+
+	for (i = 0; items[i]; i++)
+		free(items[i]);
+	free((char *)items);
 }
 
-#define FREE_ITEMS(items)\
-{   int omask;\
-    omask = sigblock (sigmask(SIGINT));\
-    free_items (items);\
-    items = NULL;\
-    sigsetmask (omask);\
+#define FREE_ITEMS(items) { \
+	long omask;\
+\
+	omask = sigblock(sigmask(SIGINT));\
+	free_items(items);\
+	items = NULL;\
+	(void) sigsetmask(omask);\
 }
 
 /*
  * Perform a RECOGNIZE or LIST command on string "word".
  */
 static
-search (word, command, max_word_length)
-char   *word;
-COMMAND command;
+search(word, command, max_word_length)
+	char *word;
+	COMMAND command;
 {
-#   define MAXITEMS 1024
-    register DIR *dir_fd;
-    register numitems,
-	    name_length,		/* Length of prefix (file name) */
-	    looking_for_lognames;	/* True if looking for login names */
-    char    tilded_dir[FILSIZ + 1],	/* dir after ~ expansion */
-	    dir[FILSIZ + 1],		/* /x/y/z/ part in /x/y/z/f */
-            name[MAXNAMLEN + 1],	/* f part in /d/d/d/f */
-            extended_name[MAXNAMLEN+1],	/* the recognized (extended) name */
-            *entry;			/* single directory entry or logname */
-    static char
-           **items = NULL;		/* file names when doing a LIST */
-
-    if (items != NULL)
-	FREE_ITEMS (items);
-
-    looking_for_lognames = (*word == '~') && (index (word, '/') == NULL);
-    if (looking_for_lognames)			/* Looking for login names? */
-    {
-	setpwent ();				/* Open passwd file */
-	copyn (name, &word[1], MAXNAMLEN);	/* name sans ~ */
-    }
-    else
-    {						/* Open directory */
-	extract_dir_and_name (word, dir, name);
-	if (tilde (tilded_dir, dir) == 0)	/* expand ~user/... stuff */
-	    return (0);
-	if ((dir_fd = opendir (*tilded_dir ? tilded_dir : ".")) == NULL)
-	   return (0);
-    }
-
-    name_length = strlen (name);
-
-    for (numitems = 0; entry = getentry (dir_fd, looking_for_lognames);)
-    {
-	if (!is_prefix (name, entry))
-	    continue;
-
-	/* Don't match . files on null prefix match */
-	if (name_length == 0 && entry[0] == '.' && !looking_for_lognames)
-	    continue;
-
-	if (command == LIST)		/* LIST command */
-	{
-	    extern char *malloc ();
-	    if (numitems >= MAXITEMS)
-	    {
-		printf ("\nYikes!! Too many %s!!\n",
-		    looking_for_lognames ? "names in password file":"files");
-		break;
-	    }
-	    if (items == NULL)
-	    {
-		items = (char **) calloc (sizeof (items[1]), MAXITEMS);
-		if (items == NULL)
-		    break;
-	    }
-	    if ((items[numitems] = malloc (strlen(entry) + 1)) == NULL)
-	    {
-		printf ("out of mem\n");
-		break;
-	    }
-	    copyn (items[numitems], entry, MAXNAMLEN);
-	    numitems++;
+	static char **items = NULL;
+	register DIR *dir_fd;
+	register numitems = 0, ignoring = TRUE, nignored = 0;
+	register name_length, looking_for_lognames;
+	char tilded_dir[MAXPATHLEN + 1], dir[MAXPATHLEN + 1];
+	char name[MAXNAMLEN + 1], extended_name[MAXNAMLEN+1];
+	char *entry;
+#define MAXITEMS 1024
+
+	if (items != NULL)
+		FREE_ITEMS(items);
+
+	looking_for_lognames = (*word == '~') && (index(word, '/') == NULL);
+	if (looking_for_lognames) {
+		(void) setpwent();
+		copyn(name, &word[1], MAXNAMLEN);	/* name sans ~ */
+	} else {
+		extract_dir_and_name(word, dir, name);
+		if (tilde(tilded_dir, dir) == 0)
+			return (0);
+		dir_fd = opendir(*tilded_dir ? tilded_dir : ".");
+		if (dir_fd == NULL)
+			return (0);
 	}
-	else					/* RECOGNIZE command */
-	    if (recognize (extended_name, entry, name_length, ++numitems))
-		break;
-    }
 
-    if (looking_for_lognames)
-	endpwent ();
-    else
-	closedir (dir_fd);
+again:	/* search for matches */
+	name_length = strlen(name);
+	for (numitems = 0; entry = getentry(dir_fd, looking_for_lognames); ) {
+		if (!is_prefix(name, entry))
+			continue;
+		/* Don't match . files on null prefix match */
+		if (name_length == 0 && entry[0] == '.' &&
+		    !looking_for_lognames)
+			continue;
+		if (command == LIST) {
+			if (numitems >= MAXITEMS) {
+				printf ("\nYikes!! Too many %s!!\n",
+				    looking_for_lognames ?
+					"names in password file":"files");
+				break;
+			}
+			if (items == NULL)
+				items = (char **) calloc(sizeof (items[1]),
+				    MAXITEMS);
+			items[numitems] = xalloc((unsigned)strlen(entry) + 1);
+			copyn(items[numitems], entry, MAXNAMLEN);
+			numitems++;
+		} else {			/* RECOGNIZE command */
+			if (ignoring && ignored(entry))
+				nignored++;
+			else if (recognize(extended_name,
+			    entry, name_length, ++numitems))
+				break;
+		}
+	}
+	if (ignoring && numitems == 0 && nignored > 0) {
+		ignoring = FALSE;
+		nignored = 0;
+		if (looking_for_lognames)
+			(void) setpwent();
+		else
+			rewinddir(dir_fd);
+		goto again;
+	}
 
-    if (command == RECOGNIZE && numitems > 0)
-    {
 	if (looking_for_lognames)
-	    copyn (word, "~", 1);
+		(void) endpwent();
 	else
-	    copyn (word, dir, max_word_length);		/* put back dir part */
-	catn (word, extended_name, max_word_length);	/* add extended name */
-	return (numitems);
-    }
-
-    if (command == LIST)
-    {
-	register int i;
-	qsort (items, numitems, sizeof (items[1]), fcompare);
-	print_by_column(looking_for_lognames ? NULL:tilded_dir, items,numitems);
-	if (items != NULL)
-	    FREE_ITEMS (items);
-    }
-    return (0);
+		closedir(dir_fd);
+	if (numitems == 0)
+		return (0);
+	if (command == RECOGNIZE) {
+		if (looking_for_lognames)
+			 copyn(word, "~", 1);
+		else
+			/* put back dir part */
+			copyn(word, dir, max_word_length);
+		/* add extended name */
+		catn(word, extended_name, max_word_length);
+		return (numitems);
+	}
+	else { 				/* LIST */
+		qsort((char *)items, numitems, sizeof(items[1]), sortscmp);
+		print_by_column(looking_for_lognames ? NULL : tilded_dir,
+		    items, numitems);
+		if (items != NULL)
+			FREE_ITEMS(items);
+	}
+	return (0);
 }
 
 /*
@@ -463,116 +455,142 @@ COMMAND command;
  * character mismatch between extended_name and entry.
  * If we shorten it back to the prefix length, stop searching.
  */
-recognize (extended_name, entry, name_length, numitems)
-char *extended_name, *entry;
+static
+recognize(extended_name, entry, name_length, numitems)
+	char *extended_name, *entry;
 {
-    if (numitems == 1)				/* 1st match */
-	copyn (extended_name, entry, MAXNAMLEN);
-    else					/* 2nd and subsequent matches */
-    {
-	register char *x, *ent;
-	register int len = 0;
-	for (x = extended_name, ent = entry; *x && *x == *ent++; x++, len++);
-	*x = '\0';				/* Shorten at 1st char diff */
-	if (len == name_length)			/* Ambiguous to prefix? */
-	    return (-1);			/* So stop now and save time */
-    }
-    return (0);
+
+	if (numitems == 1)			/* 1st match */
+		copyn(extended_name, entry, MAXNAMLEN);
+	else {					/* 2nd & subsequent matches */
+		register char *x, *ent;
+		register int len = 0;
+
+		x = extended_name;
+		for (ent = entry; *x && *x == *ent++; x++, len++)
+			;
+		*x = '\0';			/* Shorten at 1st char diff */
+		if (len == name_length)		/* Ambiguous to prefix? */
+			return (-1);		/* So stop now and save time */
+	}
+	return (0);
 }
 
 /*
- * return true if check items initial chars in template
+ * Return true if check matches initial chars in template.
  * This differs from PWB imatch in that if check is null
- * it items anything
+ * it matches anything.
  */
 static
-is_prefix (check, template)
-char   *check,
-       *template;
+is_prefix(check, template)
+	register char *check, *template;
 {
-    register char  *check_char,
-                   *template_char;
-
-    check_char = check;
-    template_char = template;
-    do
-	if (*check_char == 0)
-	    return (TRUE);
-    while (*check_char++ == *template_char++);
-    return (FALSE);
+
+	do
+		if (*check == 0)
+			return (TRUE);
+	while (*check++ == *template++);
+	return (FALSE);
 }
 
-tenex (inputline, inputline_size)
-char   *inputline;
-int     inputline_size;
+/*
+ *  Return true if the chars in template appear at the
+ *  end of check, I.e., are it's suffix.
+ */
+static
+is_suffix(check, template)
+	char *check, *template;
 {
-    register int numitems, num_read;
-
-    setup_tty (ON);
-    while((num_read = read (SHIN, inputline, inputline_size)) > 0)
-    {
-	static char *delims = " '\"\t;&<>()|^%";
-	register char *str_end, *word_start, last_char, should_retype;
-	register int space_left;
-	COMMAND command;
-
-	last_char = inputline[num_read - 1] & 0177;
-
-	if (last_char == '\n' || num_read == inputline_size)
-	    break;
-
-	command = (last_char == ESC) ? RECOGNIZE : LIST;
-
-	if (command == LIST)
-	    putchar ('\n');
-
-	str_end = &inputline[num_read];
-	if(last_char == ESC)
-	    --str_end;			/* wipeout trailing command character */
-	*str_end = '\0';
-	/*
-	 * Find LAST occurence of a delimiter in the inputline.
-	 * The word start is one character past it.
-	 */
-	for (word_start = str_end; word_start > inputline; --word_start)
-	    if (index (delims, word_start[-1]))
-		break;
-
-	space_left = inputline_size - (word_start - inputline) - 1;
-
-	numitems = search (word_start, command, space_left);
-
-	if (command == RECOGNIZE)
-	{
-	    print_recognized_stuff (str_end);	/* Print from str_end on */
-	    if (numitems != 1) 			/* Beep = No match/ambiguous */
-		beep ();
+	register char *c, *t;
+
+	for (c = check; *c++;)
+		;
+	for (t = template; *t++;)
+		;
+	for (;;) {
+		if (t == template)
+			return 1;
+		if (c == check || *--t != *--c)
+			return 0;
 	}
+}
 
-	/*
-	 * Tabs in the input line cause trouble after a pushback.
-	 * tty driver won't backspace over them because column positions
-	 * are now incorrect. This is solved by retyping over current line.
-	 */
-	should_retype = FALSE;
-	if (index (inputline, '\t'))		/* tab char in input line? */
-	{
-	    back_to_col_1 ();
-	    should_retype = TRUE;
+tenex(inputline, inputline_size)
+	char *inputline;
+	int inputline_size;
+{
+	register int numitems, num_read;
+
+	setup_tty(ON);
+	while ((num_read = read(SHIN, inputline, inputline_size)) > 0) {
+		static char *delims = " '\"\t;&<>()|^%";
+		register char *str_end, *word_start, last_char, should_retype;
+		register int space_left;
+		COMMAND command;
+
+		last_char = inputline[num_read - 1] & 0177;
+
+		if (last_char == '\n' || num_read == inputline_size)
+			break;
+		command = (last_char == ESC) ? RECOGNIZE : LIST;
+		if (command == LIST)
+			cshputchar('\n');
+		str_end = &inputline[num_read];
+		if (last_char == ESC)
+			--str_end;		/* wipeout trailing cmd char */
+		*str_end = '\0';
+		/*
+		 * Find LAST occurence of a delimiter in the inputline.
+		 * The word start is one character past it.
+		 */
+		for (word_start = str_end; word_start > inputline; --word_start)
+			if (index(delims, word_start[-1]))
+				break;
+		space_left = inputline_size - (word_start - inputline) - 1;
+		numitems = search(word_start, command, space_left);
+
+		if (command == RECOGNIZE) {
+			/* print from str_end on */
+			print_recognized_stuff(str_end);
+			if (numitems != 1)	/* Beep = No match/ambiguous */
+				beep();
+		}
+
+		/*
+		 * Tabs in the input line cause trouble after a pushback.
+		 * tty driver won't backspace over them because column
+		 * positions are now incorrect. This is solved by retyping
+		 * over current line.
+		 */
+		should_retype = FALSE;
+		if (index(inputline, '\t')) {	/* tab char in input line? */
+			back_to_col_1();
+			should_retype = TRUE;
+		}
+		if (command == LIST)		/* Always retype after a LIST */
+			should_retype = TRUE;
+		if (should_retype)
+			printprompt();
+		pushback(inputline);
+		if (should_retype)
+			retype();
 	}
-	if (command == LIST)			/* Always retype after a LIST */
-	    should_retype = TRUE;
-
-	if (should_retype)
-	    printprompt ();
-
-	pushback (inputline);
-
-	if (should_retype)
-	    retype ();
-    }
-
-    setup_tty (OFF);
+	setup_tty(OFF);
+	return (num_read);
+}
 
-    return (num_read);
+static
+ignored(entry)
+	register char *entry;
+{
+	struct varent *vp;
+	register char **cp;
+
+	if ((vp = adrof("fignore")) == NULL || (cp = vp->vec) == NULL)
+		return (FALSE);
+	for (; *cp != NULL; cp++)
+		if (is_suffix(entry, *cp))
+			return (TRUE);
+	return (FALSE);
 }
+#endif FILEC