summaryrefslogtreecommitdiffstats
path: root/bin/csh/file.c
diff options
context:
space:
mode:
Diffstat (limited to 'bin/csh/file.c')
-rw-r--r--bin/csh/file.c685
1 files changed, 0 insertions, 685 deletions
diff --git a/bin/csh/file.c b/bin/csh/file.c
deleted file mode 100644
index a1f5ab2..0000000
--- a/bin/csh/file.c
+++ /dev/null
@@ -1,685 +0,0 @@
-/*-
- * Copyright (c) 1980, 1991, 1993
- * The Regents of the University of California. All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- * must display the following acknowledgement:
- * This product includes software developed by the University of
- * California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
- * may be used to endorse or promote products derived from this software
- * without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
- */
-
-#ifndef lint
-#if 0
-static char sccsid[] = "@(#)file.c 8.2 (Berkeley) 3/19/94";
-#else
-static const char rcsid[] =
- "$FreeBSD$";
-#endif
-#endif /* not lint */
-
-#ifdef FILEC
-
-#include <sys/param.h>
-#include <sys/stat.h>
-#include <termios.h>
-#include <dirent.h>
-#include <pwd.h>
-#include <stdlib.h>
-#include <unistd.h>
-#if __STDC__
-# include <stdarg.h>
-#else
-# include <varargs.h>
-#endif
-
-#include "csh.h"
-#include "extern.h"
-
-/*
- * Tenex style file name recognition, .. and more.
- * History:
- * Author: Ken Greer, Sept. 1975, CMU.
- * Finally got around to adding to the Cshell., Ken Greer, Dec. 1981.
- */
-
-#define ON 1
-#define OFF 0
-#ifndef TRUE
-#define TRUE 1
-#endif
-#ifndef FALSE
-#define FALSE 0
-#endif
-
-#define ESC '\033'
-
-typedef enum {
- LIST, RECOGNIZE
-} COMMAND;
-
-static void setup_tty __P((int));
-static void back_to_col_1 __P((void));
-static void pushback __P((Char *));
-static void catn __P((Char *, Char *, int));
-static void copyn __P((Char *, Char *, int));
-static Char filetype __P((Char *, Char *));
-static void print_by_column __P((Char *, Char *[], int));
-static Char *tilde __P((Char *, Char *));
-static void retype __P((void));
-static void beep __P((void));
-static void print_recognized_stuff __P((Char *));
-static void extract_dir_and_name __P((Char *, Char *, Char *));
-static Char *getentry __P((DIR *, int));
-static void free_items __P((Char **));
-static int tsearch __P((Char *, COMMAND, int));
-static int recognize __P((Char *, Char *, int, int));
-static int is_prefix __P((Char *, Char *));
-static int is_suffix __P((Char *, Char *));
-static int ignored __P((Char *));
-
-/*
- * 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 void
-setup_tty(on)
- int on;
-{
- struct termios tchars;
-
- (void) tcgetattr(SHIN, &tchars);
-
- if (on) {
- tchars.c_cc[VEOL] = ESC;
- if (tchars.c_lflag & ICANON)
- on = TCSADRAIN;
- else {
- on = TCSAFLUSH;
- tchars.c_lflag |= ICANON;
- }
- }
- else {
- tchars.c_cc[VEOL] = _POSIX_VDISABLE;
- on = TCSADRAIN;
- }
-
- (void) tcsetattr(SHIN, on, &tchars);
-}
-
-/*
- * Move back to beginning of current line
- */
-static void
-back_to_col_1()
-{
- struct termios tty, tty_normal;
- int omask;
-
- omask = sigblock(sigmask(SIGINT));
- (void) tcgetattr(SHOUT, &tty);
- tty_normal = tty;
- tty.c_iflag &= ~INLCR;
- tty.c_oflag &= ~ONLCR;
- (void) tcsetattr(SHOUT, TCSANOW, &tty);
- (void) write(SHOUT, "\r", 1);
- (void) tcsetattr(SHOUT, TCSANOW, &tty_normal);
- (void) sigsetmask(omask);
-}
-
-/*
- * Push string contents back into tty queue
- */
-static void
-pushback(string)
- Char *string;
-{
- Char *p;
- struct termios tty, tty_normal;
- int omask;
- char c;
-
- omask = sigblock(sigmask(SIGINT));
- (void) tcgetattr(SHOUT, &tty);
- tty_normal = tty;
- tty.c_lflag &= ~(ECHOKE | ECHO | ECHOE | ECHOK | ECHONL | ECHOPRT | ECHOCTL);
- (void) tcsetattr(SHOUT, TCSANOW, &tty);
-
- for (p = string; (c = *p) != '\0'; p++)
- (void) ioctl(SHOUT, TIOCSTI, (ioctl_t) & c);
- (void) tcsetattr(SHOUT, TCSANOW, &tty_normal);
- (void) sigsetmask(omask);
-}
-
-/*
- * Concatenate src onto tail of des.
- * Des is a string whose maximum length is count.
- * Always null terminate.
- */
-static void
-catn(des, src, count)
- Char *des, *src;
- int count;
-{
- while (--count >= 0 && *des)
- des++;
- while (--count >= 0)
- if ((*des++ = *src++) == 0)
- return;
- *des = '\0';
-}
-
-/*
- * Like strncpy but always leave room for trailing \0
- * and always null terminate.
- */
-static void
-copyn(des, src, count)
- Char *des, *src;
- int count;
-{
- while (--count >= 0)
- if ((*des++ = *src++) == 0)
- return;
- *des = '\0';
-}
-
-static Char
-filetype(dir, file)
- Char *dir, *file;
-{
- Char path[MAXPATHLEN];
- struct stat statb;
-
- catn(Strcpy(path, dir), file, sizeof(path) / sizeof(Char));
- if (lstat(short2str(path), &statb) == 0) {
- switch (statb.st_mode & S_IFMT) {
- case S_IFDIR:
- return ('/');
-
- case S_IFLNK:
- if (stat(short2str(path), &statb) == 0 && /* follow it out */
- S_ISDIR(statb.st_mode))
- return ('>');
- else
- return ('@');
-
- case S_IFSOCK:
- return ('=');
-
- default:
- if (statb.st_mode & 0111)
- return ('*');
- }
- }
- return (' ');
-}
-
-static struct winsize win;
-
-/*
- * Print sorted down columns
- */
-static void
-print_by_column(dir, items, count)
- Char *dir, *items[];
- int count;
-{
- int i, rows, r, c, maxwidth = 0, columns;
-
- if (ioctl(SHOUT, TIOCGWINSZ, (ioctl_t) & 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) {
- int w;
-
- (void) fprintf(cshout, "%s", vis_str(items[i]));
- (void) fputc(dir ? filetype(dir, items[i]) : ' ', cshout);
- if (c < columns - 1) { /* last column? */
- w = Strlen(items[i]) + 1;
- for (; w < maxwidth; w++)
- (void) fputc(' ', cshout);
- }
- }
- }
- (void) fputc('\r', cshout);
- (void) fputc('\n', cshout);
- }
-}
-
-/*
- * Expand file name with possible tilde usage
- * ~person/mumble
- * expands to
- * home_directory_of_person/mumble
- */
-static Char *
-tilde(new, old)
- Char *new, *old;
-{
- Char *o, *p;
- struct passwd *pw;
- static Char person[40];
-
- if (old[0] != '~')
- return (Strcpy(new, old));
-
- for (p = person, o = &old[1]; *o && *o != '/'; *p++ = *o++)
- continue;
- *p = '\0';
- if (person[0] == '\0')
- (void) Strcpy(new, value(STRhome));
- else {
- pw = getpwnam(short2str(person));
- if (pw == NULL)
- return (NULL);
- (void) Strcpy(new, str2short(pw->pw_dir));
- }
- (void) Strcat(new, o);
- return (new);
-}
-
-/*
- * Cause pending line to be printed
- */
-static void
-retype()
-{
- struct termios tty;
-
- (void) tcgetattr(SHOUT, &tty);
- tty.c_lflag |= PENDIN;
- (void) tcsetattr(SHOUT, TCSANOW, &tty);
-}
-
-static void
-beep()
-{
- if (adrof(STRnobeep) == 0)
- (void) write(SHOUT, "\007", 1);
-}
-
-/*
- * Erase that silly ^[ and
- * print the recognized part of the string
- */
-static void
-print_recognized_stuff(recognized_part)
- Char *recognized_part;
-{
- /* An optimized erasing of that silly ^[ */
- (void) fputc('\b', cshout);
- (void) fputc('\b', cshout);
- switch (Strlen(recognized_part)) {
-
- case 0: /* erase two Characters: ^[ */
- (void) fputc(' ', cshout);
- (void) fputc(' ', cshout);
- (void) fputc('\b', cshout);
- (void) fputc('\b', cshout);
- break;
-
- case 1: /* overstrike the ^, erase the [ */
- (void) fprintf(cshout, "%s", vis_str(recognized_part));
- (void) fputc(' ', cshout);
- (void) fputc('\b', cshout);
- break;
-
- default: /* overstrike both Characters ^[ */
- (void) fprintf(cshout, "%s", vis_str(recognized_part));
- break;
- }
- (void) fflush(cshout);
-}
-
-/*
- * Parse full path in file into 2 parts: directory and file names
- * Should leave final slash (/) at end of dir.
- */
-static void
-extract_dir_and_name(path, dir, name)
- Char *path, *dir, *name;
-{
- Char *p;
-
- p = Strrchr(path, '/');
- if (p == NULL) {
- copyn(name, path, MAXNAMLEN);
- dir[0] = '\0';
- }
- else {
- copyn(name, ++p, MAXNAMLEN);
- copyn(dir, path, p - path);
- }
-}
-
-static Char *
-getentry(dir_fd, looking_for_lognames)
- DIR *dir_fd;
- int looking_for_lognames;
-{
- struct passwd *pw;
- struct dirent *dirp;
-
- if (looking_for_lognames) {
- if ((pw = getpwent()) == NULL)
- return (NULL);
- return (str2short(pw->pw_name));
- }
- if ((dirp = readdir(dir_fd)) != NULL)
- return (str2short(dirp->d_name));
- return (NULL);
-}
-
-static void
-free_items(items)
- Char **items;
-{
- int i;
-
- for (i = 0; items[i]; i++)
- xfree((ptr_t) items[i]);
- xfree((ptr_t) items);
-}
-
-#define FREE_ITEMS(items) { \
- int omask;\
-\
- omask = sigblock(sigmask(SIGINT));\
- free_items(items);\
- items = NULL;\
- (void) sigsetmask(omask);\
-}
-
-/*
- * Perform a RECOGNIZE or LIST command on string "word".
- */
-static int
-tsearch(word, command, max_word_length)
- Char *word;
- COMMAND command;
- int max_word_length;
-{
- static Char **items = NULL;
- DIR *dir_fd;
- int numitems = 0, ignoring = TRUE, nignored = 0;
- int 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 == '~') && (Strchr(word, '/') == NULL);
- if (looking_for_lognames) {
- setpwent();
- copyn(name, &word[1], MAXNAMLEN); /* name sans ~ */
- dir_fd = NULL;
- }
- else {
- extract_dir_and_name(word, dir, name);
- if (tilde(tilded_dir, dir) == 0)
- return (0);
- dir_fd = opendir(*tilded_dir ? short2str(tilded_dir) : ".");
- if (dir_fd == NULL)
- return (0);
- }
-
-again: /* search for matches */
- name_length = Strlen(name);
- for (numitems = 0; (entry = getentry(dir_fd, looking_for_lognames)) != NULL;) {
- 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) {
- (void) fprintf(csherr, "\nYikes!! Too many %s!!\n",
- looking_for_lognames ?
- "names in password file" : "files");
- break;
- }
- if (items == NULL)
- items = (Char **) xcalloc(sizeof(items[0]), MAXITEMS);
- items[numitems] = (Char *) xmalloc((size_t) (Strlen(entry) + 1) *
- sizeof(Char));
- 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)
- setpwent();
- else
- rewinddir(dir_fd);
- goto again;
- }
-
- if (looking_for_lognames)
- (void) endpwent();
- else
- (void) closedir(dir_fd);
- if (numitems == 0)
- return (0);
- if (command == RECOGNIZE) {
- if (looking_for_lognames)
- copyn(word, STRtilde, 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((ptr_t) items, numitems, sizeof(items[0]),
- (int (*) __P((const void *, const void *))) sortscmp);
- print_by_column(looking_for_lognames ? NULL : tilded_dir,
- items, numitems);
- if (items != NULL)
- FREE_ITEMS(items);
- }
- return (0);
-}
-
-/*
- * Object: extend what user typed up to an ambiguity.
- * Algorithm:
- * On first match, copy full entry (assume it'll be the only match)
- * On subsequent matches, shorten extended_name to the first
- * Character mismatch between extended_name and entry.
- * If we shorten it back to the prefix length, stop searching.
- */
-static int
-recognize(extended_name, entry, name_length, numitems)
- Char *extended_name, *entry;
- int name_length, numitems;
-{
- if (numitems == 1) /* 1st match */
- copyn(extended_name, entry, MAXNAMLEN);
- else { /* 2nd & subsequent matches */
- Char *x, *ent;
- int len = 0;
-
- x = extended_name;
- for (ent = entry; *x && *x == *ent++; x++, len++)
- continue;
- *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 matches initial Chars in template.
- * This differs from PWB imatch in that if check is null
- * it matches anything.
- */
-static int
-is_prefix(check, template)
- Char *check, *template;
-{
- do
- if (*check == 0)
- return (TRUE);
- while (*check++ == *template++);
- return (FALSE);
-}
-
-/*
- * Return true if the Chars in template appear at the
- * end of check, I.e., are it's suffix.
- */
-static int
-is_suffix(check, template)
- Char *check, *template;
-{
- Char *c, *t;
-
- for (c = check; *c++;)
- continue;
- for (t = template; *t++;)
- continue;
- for (;;) {
- if (t == template)
- return 1;
- if (c == check || *--t != *--c)
- return 0;
- }
-}
-
-int
-tenex(inputline, inputline_size)
- Char *inputline;
- int inputline_size;
-{
- int numitems, num_read;
- char tinputline[BUFSIZ];
-
-
- setup_tty(ON);
-
- while ((num_read = read(SHIN, tinputline, BUFSIZ)) > 0) {
- int i;
- static Char delims[] = {' ', '\'', '"', '\t', ';', '&', '<',
- '>', '(', ')', '|', '^', '%', '\0'};
- Char *str_end, *word_start, last_Char, should_retype;
- int space_left;
- COMMAND command;
-
- for (i = 0; i < num_read; i++)
- inputline[i] = (unsigned char) tinputline[i];
- last_Char = inputline[num_read - 1] & ASCII;
-
- if (last_Char == '\n' || num_read == inputline_size)
- break;
- command = (last_Char == ESC) ? RECOGNIZE : LIST;
- if (command == LIST)
- (void) fputc('\n', cshout);
- 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 (Strchr(delims, word_start[-1]))
- break;
- space_left = inputline_size - (word_start - inputline) - 1;
- numitems = tsearch(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 (Strchr(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();
- }
- setup_tty(OFF);
- return (num_read);
-}
-
-static int
-ignored(entry)
- Char *entry;
-{
- struct varent *vp;
- Char **cp;
-
- if ((vp = adrof(STRfignore)) == NULL || (cp = vp->vec) == NULL)
- return (FALSE);
- for (; *cp != NULL; cp++)
- if (is_suffix(entry, *cp))
- return (TRUE);
- return (FALSE);
-}
-#endif /* FILEC */
OpenPOWER on IntegriCloud