X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=progs%2Ftoe.c;h=8af6f371b77b7adb5bb881338af79a5fe0f9b74e;hp=f2c5c5ec832d3cc9518c53d0854e99e5f7f59515;hb=2782cd7cf38dc9cfaa9d90b7e66792dbc7537b08;hpb=0eb88fc5281804773e2a0c7a488a4452463535ce diff --git a/progs/toe.c b/progs/toe.c index f2c5c5ec..8af6f371 100644 --- a/progs/toe.c +++ b/progs/toe.c @@ -1,5 +1,5 @@ /**************************************************************************** - * Copyright (c) 1998 Free Software Foundation, Inc. * + * Copyright (c) 1998-2007,2008 Free Software Foundation, Inc. * * * * Permission is hereby granted, free of charge, to any person obtaining a * * copy of this software and associated documentation files (the * @@ -29,129 +29,402 @@ /**************************************************************************** * Author: Zeyd M. Ben-Halim 1992,1995 * * and: Eric S. Raymond * + * and: Thomas E. Dickey 1996-on * ****************************************************************************/ /* * toe.c --- table of entries report generator - * */ #include #include -#include -#include +#if USE_HASHED_DB +#include +#endif -MODULE_ID("$Id: toe.c,v 0.19 1998/03/08 01:02:46 tom Exp $") +MODULE_ID("$Id: toe.c,v 1.51 2008/08/16 21:53:25 tom Exp $") -const char *_nc_progname; +#define isDotname(name) (!strcmp(name, ".") || !strcmp(name, "..")) -static int typelist(int eargc, char *eargv[], bool, - void (*)(const char *, TERMTYPE *)); -static void deschook(const char *, TERMTYPE *); +const char *_nc_progname; #if NO_LEAKS #undef ExitProgram static void ExitProgram(int code) GCC_NORETURN; -static void ExitProgram(int code) +static void +ExitProgram(int code) +{ + _nc_free_entries(_nc_head); + _nc_free_tic(code); +} +#endif + +#if USE_HASHED_DB +static bool +make_db_name(char *dst, const char *src, unsigned limit) +{ + static const char suffix[] = DBM_SUFFIX; + + bool result = FALSE; + unsigned lens = sizeof(suffix) - 1; + unsigned size = strlen(src); + unsigned need = lens + size; + + if (need <= limit) { + if (size >= lens + && !strcmp(src + size - lens, suffix)) + (void) strcpy(dst, src); + else + (void) sprintf(dst, "%s%s", src, suffix); + result = TRUE; + } + return result; +} +#endif + +static bool +is_database(const char *path) +{ + bool result = FALSE; +#if USE_DATABASE + if (_nc_is_dir_path(path) && access(path, R_OK | X_OK) == 0) { + result = TRUE; + } +#endif +#if USE_TERMCAP + if (_nc_is_file_path(path) && access(path, R_OK) == 0) { + result = TRUE; + } +#endif +#if USE_HASHED_DB + if (!result) { + char filename[PATH_MAX]; + if (_nc_is_file_path(path) && access(path, R_OK) == 0) { + result = TRUE; + } else if (make_db_name(filename, path, sizeof(filename))) { + if (_nc_is_file_path(filename) && access(filename, R_OK) == 0) { + result = TRUE; + } + } + } +#endif + return result; +} + +static void +deschook(const char *cn, TERMTYPE *tp) +/* display a description for the type */ +{ + const char *desc; + + if ((desc = strrchr(tp->term_names, '|')) == 0 || *++desc == '\0') + desc = "(No description)"; + + (void) printf("%-10s\t%s\n", cn, desc); +} + +#if USE_TERMCAP +static void +show_termcap(char *buffer, + void (*hook) (const char *, TERMTYPE *tp)) { - _nc_free_entries(_nc_head); - _nc_leaks_dump_entry(); - _nc_free_and_exit(code); + TERMTYPE data; + char *next = strchr(buffer, ':'); + char *last; + char *list = buffer; + + if (next) + *next = '\0'; + + last = strrchr(buffer, '|'); + if (last) + ++last; + + data.term_names = strdup(buffer); + while ((next = strtok(list, "|")) != 0) { + if (next != last) + hook(next, &data); + list = 0; + } + free(data.term_names); } #endif -int main (int argc, char *argv[]) +static int +typelist(int eargc, char *eargv[], + bool verbosity, + void (*hook) (const char *, TERMTYPE *tp)) +/* apply a function to each entry in given terminfo directories */ { - bool direct_dependencies = FALSE; - bool invert_dependencies = FALSE; - bool header = FALSE; - int i, c, debug_level = 0; - int code; - - if ((_nc_progname = strrchr(argv[0], '/')) == NULL) - _nc_progname = argv[0]; - else - _nc_progname++; - - while ((c = getopt(argc, argv, "huv:UV")) != EOF) - switch (c) - { + int i; + + for (i = 0; i < eargc; i++) { +#if USE_DATABASE + if (_nc_is_dir_path(eargv[i])) { + char *cwd_buf = 0; + DIR *termdir; + DIRENT *subdir; + + if ((termdir = opendir(eargv[i])) == 0) { + (void) fflush(stdout); + (void) fprintf(stderr, + "%s: can't open terminfo directory %s\n", + _nc_progname, eargv[i]); + return (EXIT_FAILURE); + } else if (verbosity) + (void) printf("#\n#%s:\n#\n", eargv[i]); + + while ((subdir = readdir(termdir)) != 0) { + size_t len = NAMLEN(subdir); + size_t cwd_len = len + strlen(eargv[i]) + 3; + char name_1[PATH_MAX]; + DIR *entrydir; + DIRENT *entry; + + cwd_buf = typeRealloc(char, cwd_len, cwd_buf); + if (cwd_buf == 0) { + perror("realloc cwd_buf"); + continue; + } + + strncpy(name_1, subdir->d_name, len)[len] = '\0'; + if (isDotname(name_1)) + continue; + + (void) sprintf(cwd_buf, "%s/%.*s/", eargv[i], (int) len, name_1); + if (chdir(cwd_buf) != 0) + continue; + + entrydir = opendir("."); + if (entrydir == 0) { + perror(cwd_buf); + continue; + } + while ((entry = readdir(entrydir)) != 0) { + char name_2[PATH_MAX]; + TERMTYPE lterm; + char *cn; + int status; + + len = NAMLEN(entry); + strncpy(name_2, entry->d_name, len)[len] = '\0'; + if (isDotname(name_2) || !_nc_is_file_path(name_2)) + continue; + + status = _nc_read_file_entry(name_2, <erm); + if (status <= 0) { + (void) fflush(stdout); + (void) fprintf(stderr, + "%s: couldn't open terminfo file %s.\n", + _nc_progname, name_2); + return (EXIT_FAILURE); + } + + /* only visit things once, by primary name */ + cn = _nc_first_name(lterm.term_names); + if (!strcmp(cn, name_2)) { + /* apply the selected hook function */ + (*hook) (cn, <erm); + } + _nc_free_termtype(<erm); + } + closedir(entrydir); + } + closedir(termdir); + if (cwd_buf != 0) + free(cwd_buf); + } +#if USE_HASHED_DB + else { + DB *capdbp; + char filename[PATH_MAX]; + + if (make_db_name(filename, eargv[i], sizeof(filename))) { + if ((capdbp = _nc_db_open(filename, FALSE)) != 0) { + DBT key, data; + int code; + + code = _nc_db_first(capdbp, &key, &data); + while (code == 0) { + TERMTYPE lterm; + int used; + char *have; + char *cn; + + if (_nc_db_have_data(&key, &data, &have, &used)) { + if (_nc_read_termtype(<erm, have, used) > 0) { + /* only visit things once, by primary name */ + cn = _nc_first_name(lterm.term_names); + /* apply the selected hook function */ + (*hook) (cn, <erm); + _nc_free_termtype(<erm); + } + } + code = _nc_db_next(capdbp, &key, &data); + } + + _nc_db_close(capdbp); + } + } + } +#endif +#endif +#if USE_TERMCAP +#if HAVE_BSD_CGETENT + char *db_array[2]; + char *buffer = 0; + + if (verbosity) + (void) printf("#\n#%s:\n#\n", eargv[i]); + + db_array[0] = eargv[i]; + db_array[1] = 0; + + if (cgetfirst(&buffer, db_array)) { + show_termcap(buffer, hook); + free(buffer); + while (cgetnext(&buffer, db_array)) { + show_termcap(buffer, hook); + free(buffer); + } + } + cgetclose(); +#else + /* scan termcap text-file only */ + if (_nc_is_file_path(eargv[i])) { + char buffer[2048]; + FILE *fp; + + if ((fp = fopen(eargv[i], "r")) != 0) { + while (fgets(buffer, sizeof(buffer), fp) != 0) { + if (*buffer == '#') + continue; + if (isspace(*buffer)) + continue; + show_termcap(buffer, hook); + } + fclose(fp); + } + } +#endif +#endif + } + + return (EXIT_SUCCESS); +} + +static void +usage(void) +{ + (void) fprintf(stderr, "usage: %s [-ahuUV] [-v n] [file...]\n", _nc_progname); + ExitProgram(EXIT_FAILURE); +} + +int +main(int argc, char *argv[]) +{ + bool all_dirs = FALSE; + bool direct_dependencies = FALSE; + bool invert_dependencies = FALSE; + bool header = FALSE; + char *report_file = 0; + unsigned i; + int code; + int this_opt, last_opt = '?'; + int v_opt = 0; + + _nc_progname = _nc_rootname(argv[0]); + + while ((this_opt = getopt(argc, argv, "0123456789ahu:vU:V")) != -1) { + /* handle optional parameter */ + if (isdigit(this_opt)) { + switch (last_opt) { + case 'v': + v_opt = (this_opt - '0'); + break; + default: + if (isdigit(last_opt)) + v_opt *= 10; + else + v_opt = 0; + v_opt += (this_opt - '0'); + last_opt = this_opt; + } + continue; + } + switch (this_opt) { + case 'a': + all_dirs = TRUE; + break; case 'h': header = TRUE; break; case 'u': direct_dependencies = TRUE; + report_file = optarg; break; case 'v': - debug_level = atoi(optarg); - _nc_tracing = (1 << debug_level) - 1; + v_opt = 1; break; case 'U': invert_dependencies = TRUE; + report_file = optarg; break; case 'V': - (void) fputs(NCURSES_VERSION, stdout); - putchar('\n'); + puts(curses_version()); ExitProgram(EXIT_SUCCESS); default: - (void) fprintf (stderr, "usage: toe [-huUV] [-v n] [file...]\n"); - ExitProgram(EXIT_FAILURE); + usage(); } + } + set_trace_level(v_opt); - if (direct_dependencies || invert_dependencies) - { - if (freopen(argv[optind], "r", stdin) == NULL) - { + if (report_file != 0) { + if (freopen(report_file, "r", stdin) == 0) { (void) fflush(stdout); - fprintf(stderr, "%s: can't open %s\n", _nc_progname, argv[optind]); + fprintf(stderr, "%s: can't open %s\n", _nc_progname, report_file); ExitProgram(EXIT_FAILURE); } /* parse entries out of the source file */ - _nc_set_source(argv[optind]); - _nc_read_entry_source(stdin, (char *)NULL, - FALSE, FALSE, - NULLHOOK); + _nc_set_source(report_file); + _nc_read_entry_source(stdin, 0, FALSE, FALSE, NULLHOOK); } /* maybe we want a direct-dependency listing? */ - if (direct_dependencies) - { - ENTRY *qp; + if (direct_dependencies) { + ENTRY *qp; - for_entry_list(qp) - if (qp->nuses) - { - int j; + for_entry_list(qp) { + if (qp->nuses) { + unsigned j; (void) printf("%s:", _nc_first_name(qp->tterm.term_names)); for (j = 0; j < qp->nuses; j++) - (void) printf(" %s", (char *)(qp->uses[j].parent)); + (void) printf(" %s", qp->uses[j].name); putchar('\n'); } + } ExitProgram(EXIT_SUCCESS); } /* maybe we want a reverse-dependency listing? */ - if (invert_dependencies) - { - ENTRY *qp, *rp; - int matchcount; + if (invert_dependencies) { + ENTRY *qp, *rp; + int matchcount; - for_entry_list(qp) - { + for_entry_list(qp) { matchcount = 0; - for_entry_list(rp) - { + for_entry_list(rp) { if (rp->nuses == 0) continue; for (i = 0; i < rp->nuses; i++) - if (_nc_name_match(qp->tterm.term_names,(char*)rp->uses[i].parent, "|")) - { + if (_nc_name_match(qp->tterm.term_names, + rp->uses[i].name, "|")) { if (matchcount++ == 0) (void) printf("%s:", _nc_first_name(qp->tterm.term_names)); @@ -170,134 +443,72 @@ int main (int argc, char *argv[]) * If we get this far, user wants a simple terminal type listing. */ if (optind < argc) { - code = typelist(argc-optind, argv+optind, header, deschook); - } else { - char *by_env, *home, *eargv[3]; - int j; - - j = 0; - if ((by_env = getenv("TERMINFO")) != (char *)NULL) - eargv[j++] = by_env; - else - { - if ((home = getenv("HOME")) != (char *)NULL) - { - char personal[PATH_MAX]; - struct stat sb; - - (void) sprintf(personal, PRIVATE_INFO, home); - if (stat(personal, &sb) == 0 - && (sb.st_mode & S_IFMT) == S_IFDIR) - eargv[j++] = personal; + code = typelist(argc - optind, argv + optind, header, deschook); + } else if (all_dirs) { + DBDIRS state; + int offset; + int pass; + const char *path; + char **eargv = 0; + + code = EXIT_FAILURE; + for (pass = 0; pass < 2; ++pass) { + unsigned count = 0; + + _nc_first_db(&state, &offset); + while ((path = _nc_next_db(&state, &offset)) != 0) { + if (!is_database(path)) { + ; + } else if (eargv != 0) { + unsigned n; + int found = FALSE; + + /* eliminate duplicates */ + for (n = 0; n < count; ++n) { + if (!strcmp(path, eargv[n])) { + found = TRUE; + break; + } + } + if (!found) { + eargv[count] = strdup(path); + ++count; + } + } else { + ++count; + } + } + if (!pass) { + eargv = typeCalloc(char *, count + 1); + } else { + code = typelist((int) count, eargv, header, deschook); + while (count-- > 0) + free(eargv[count]); + free(eargv); } - eargv[j++] = TERMINFO; } - eargv[j] = (char *)NULL; - - code = typelist(j, eargv, header, deschook); - } - - ExitProgram(code); -} - -static void deschook(const char *cn, TERMTYPE *tp) -/* display a description for the type */ -{ - const char *desc; - - if ((desc = strrchr(tp->term_names, '|')) == (char *)NULL) - desc = "(No description)"; - else - ++desc; - - (void) printf("%-10s\t%s\n", cn, desc); -} - -static int typelist(int eargc, char *eargv[], - bool verbosity, - void (*hook)(const char *, TERMTYPE *tp)) -/* apply a function to each entry in given terminfo directories */ -{ - int i; - - for (i = 0; i < eargc; i++) - { - DIR *termdir; - struct dirent *subdir; - - if ((termdir = opendir(eargv[i])) == (DIR *)NULL) - { - (void) fflush(stdout); - (void) fprintf(stderr, - "%s: can't open terminfo directory %s\n", - _nc_progname, eargv[i]); - return(EXIT_FAILURE); + } else { + DBDIRS state; + int offset; + const char *path; + char *eargv[3]; + int count = 0; + + _nc_first_db(&state, &offset); + while ((path = _nc_next_db(&state, &offset)) != 0) { + if (is_database(path)) { + eargv[count++] = strdup(path); + break; + } } - else if (verbosity) - (void) printf("#\n#%s:\n#\n", eargv[i]); + eargv[count] = 0; - while ((subdir = readdir(termdir)) != NULL) - { - size_t len = NAMLEN(subdir); - char buf[PATH_MAX]; - char name_1[PATH_MAX]; - DIR *entrydir; - struct dirent *entry; - - strncpy(name_1, subdir->d_name, len)[len] = '\0'; - if (!strcmp(name_1, ".") - || !strcmp(name_1, "..")) - continue; - - (void) strcpy(buf, eargv[i]); - (void) strcat(buf, "/"); - (void) strcat(buf, name_1); - (void) strcat(buf, "/"); - chdir(buf); - entrydir = opendir("."); - while ((entry = readdir(entrydir)) != NULL) - { - char name_2[PATH_MAX]; - TERMTYPE lterm; - char *cn; - int status; - - len = NAMLEN(entry); - strncpy(name_2, entry->d_name, len)[len] = '\0'; - if (!strcmp(name_2, ".") - || !strcmp(name_2, "..")) - continue; + code = typelist(count, eargv, header, deschook); - status = _nc_read_file_entry(name_2, <erm); - if (status <= 0) - { - (void) fflush(stdout); - (void) fprintf(stderr, - "toe: couldn't open terminfo file %s.\n", - name_2); - return(EXIT_FAILURE); - } - - /* only visit things once, by primary name */ - cn = _nc_first_name(lterm.term_names); - if (!strcmp(cn, name_2)) - { - /* apply the selected hook function */ - (*hook)(cn, <erm); - } - if (lterm.term_names) { - free(lterm.term_names); - lterm.term_names = NULL; - } - if (lterm.str_table) { - free(lterm.str_table); - lterm.str_table = NULL; - } - } - closedir(entrydir); - } - closedir(termdir); + while (count-- > 0) + free(eargv[count]); } + _nc_last_db(); - return(EXIT_SUCCESS); + ExitProgram(code); }