/*************************************************************************** * COPYRIGHT NOTICE * **************************************************************************** * ncurses is copyright (C) 1992-1995 * * Zeyd M. Ben-Halim * * zmbenhal@netcom.com * * Eric S. Raymond * * esr@snark.thyrsus.com * * * * Permission is hereby granted to reproduce and distribute ncurses * * by any means and for any fee, whether alone or as part of a * * larger distribution, in source or in binary form, PROVIDED * * this notice is included with any such distribution, and is not * * removed from any of its header files. Mention of ncurses in any * * applications linked with it is highly appreciated. * * * * ncurses comes AS IS with no warranty, implied or expressed. * * * ***************************************************************************/ /* * read_entry.c -- Routine for reading in a compiled terminfo file * */ #include #if HAVE_FCNTL_H #include #endif #include #include #include MODULE_ID("$Id: read_entry.c,v 1.31 1997/05/10 17:31:08 tom Exp $") TERMINAL *cur_term; /* * int * _nc_read_file_entry(filename, ptr) * * Read the compiled terminfo entry in the given file into the * structure pointed to by ptr, allocating space for the string * table. */ #undef BYTE #define BYTE(p,n) (unsigned char)((p)[n]) #define IS_NEG1(p) ((BYTE(p,0) == 0377) && (BYTE(p,1) == 0377)) #define IS_NEG2(p) ((BYTE(p,0) == 0376) && (BYTE(p,1) == 0377)) #define LOW_MSB(p) (BYTE(p,0) + 256*BYTE(p,1)) static bool have_tic_directory = FALSE; /* * Record the "official" location of the terminfo directory, according to * the place where we're writing to, or the normal default, if not. */ const char *_nc_tic_dir(const char *path) { static const char *result = TERMINFO; if (path != 0) { result = path; have_tic_directory = TRUE; } else if (!have_tic_directory) { char *envp; if ((envp = getenv("TERMINFO")) != 0) return _nc_tic_dir(envp); } return result; } int _nc_read_file_entry(const char *const filename, TERMTYPE *ptr) /* return 1 if read, 0 if not found or garbled */ { int name_size, bool_count, num_count, str_count, str_size; int i, fd, numread; char buf[MAX_ENTRY_SIZE]; if ((fd = open(filename, O_RDONLY)) < 0) return(0); T(("read terminfo %s", filename)); /* grab the header */ (void) read(fd, buf, 12); if (LOW_MSB(buf) != MAGIC) { close(fd); return(0); } name_size = LOW_MSB(buf + 2); bool_count = LOW_MSB(buf + 4); num_count = LOW_MSB(buf + 6); str_count = LOW_MSB(buf + 8); str_size = LOW_MSB(buf + 10); if (str_size) { /* try to allocate space for the string table */ ptr->str_table = malloc((unsigned)str_size); if (ptr->str_table == 0) { close(fd); return(0); } } /* grab the name */ read(fd, buf, min(MAX_NAME_SIZE, (unsigned)name_size)); buf[MAX_NAME_SIZE] = '\0'; ptr->term_names = calloc(strlen(buf) + 1, sizeof(char)); (void) strcpy(ptr->term_names, buf); if (name_size > MAX_NAME_SIZE) lseek(fd, (off_t) (name_size - MAX_NAME_SIZE), 1); /* grab the booleans */ read(fd, ptr->Booleans, min(BOOLCOUNT, (unsigned)bool_count)); if (bool_count > BOOLCOUNT) lseek(fd, (off_t) (bool_count - BOOLCOUNT), 1); else for (i=bool_count; i < BOOLCOUNT; i++) ptr->Booleans[i] = 0; /* * If booleans end on an odd byte, skip it. The machine they * originally wrote terminfo on must have been a 16-bit * word-oriented machine that would trap out if you tried a * word access off a 2-byte boundary. */ if ((name_size + bool_count) % 2 != 0) read(fd, buf, 1); /* grab the numbers */ (void) read(fd, buf, min(NUMCOUNT*2, (unsigned)num_count*2)); for (i = 0; i < min(num_count, NUMCOUNT); i++) { if (IS_NEG1(buf + 2*i)) ptr->Numbers[i] = ABSENT_NUMERIC; else if (IS_NEG2(buf + 2*i)) ptr->Numbers[i] = CANCELLED_NUMERIC; else ptr->Numbers[i] = LOW_MSB(buf + 2*i); } if (num_count > NUMCOUNT) lseek(fd, (off_t) (2 * (num_count - NUMCOUNT)), 1); else for (i=num_count; i < NUMCOUNT; i++) ptr->Numbers[i] = ABSENT_NUMERIC; if (str_count) { /* grab the string offsets */ numread = read(fd, buf, (unsigned)(str_count*2)); if (numread < str_count*2) { close(fd); return(0); } for (i = 0; i < numread/2; i++) { if (IS_NEG1(buf + 2*i)) ptr->Strings[i] = ABSENT_STRING; else if (IS_NEG2(buf + 2*i)) ptr->Strings[i] = CANCELLED_STRING; else ptr->Strings[i] = (LOW_MSB(buf+2*i) + ptr->str_table); } } if (str_count > STRCOUNT) lseek(fd, (off_t) (2 * (str_count - STRCOUNT)), 1); else for (i = str_count; i < STRCOUNT; i++) ptr->Strings[i] = ABSENT_STRING; if (str_size) { /* finally, grab the string table itself */ numread = read(fd, ptr->str_table, (unsigned)str_size); if (numread != str_size) { close(fd); return(0); } } close(fd); return(1); } /* * Build a terminfo pathname and try to read the data. Returns 1 on success, * 0 on failure. */ static int _nc_read_tic_entry(char *const filename, const char *const dir, const char *ttn, TERMTYPE *const tp) { /* maximum safe length of terminfo root directory name */ #define MAX_TPATH (PATH_MAX - MAX_ALIAS - 6) if (strlen(dir) > MAX_TPATH) return 0; (void) sprintf(filename, "%s/%s", dir, ttn); return _nc_read_file_entry(filename, tp); } /* * _nc_read_entry(char *tn, char *filename, TERMTYPE *tp) * * Find and read the compiled entry for a given terminal type, * if it exists. We take pains here to make sure no combination * of environment variables and terminal type name can be used to * overrun the file buffer. */ int _nc_read_entry(const char *const tn, char *const filename, TERMTYPE *const tp) { char *envp; char ttn[MAX_ALIAS + 3]; /* truncate the terminal name to prevent dangerous buffer airline */ (void) sprintf(ttn, "%c/%.*s", *tn, MAX_ALIAS, tn); /* This is System V behavior, in conjunction with our requirements for * writing terminfo entries. */ if (have_tic_directory && _nc_read_tic_entry(filename, _nc_tic_dir(0), ttn, tp) == 1) return 1; if ((envp = getenv("TERMINFO")) != 0 && _nc_read_tic_entry(filename, _nc_tic_dir(envp), ttn, tp) == 1) return 1; /* this is an ncurses extension */ if ((envp = getenv("HOME")) != 0) { char *home = malloc(strlen(envp) + strlen(PRIVATE_INFO) + 2); (void) sprintf(home, PRIVATE_INFO, envp); if (_nc_read_tic_entry(filename, home, ttn, tp) == 1) { free(home); return(1); } free(home); } /* this is an ncurses extension */ if ((envp = getenv("TERMINFO_DIRS")) != 0) { /* strtok modifies its argument, so we must copy */ char *list = strcpy(malloc(strlen(envp)+1), envp); const char *cp = strtok(list, ":"); int code = 0; do { if (cp[0] == '\0') cp = TERMINFO; if (_nc_read_tic_entry(filename, cp, ttn, tp) == 1) { code = 1; break; } } while ((cp = strtok((char *)0, ":")) != 0); free(list); return(code); } /* try the system directory */ return(_nc_read_tic_entry(filename, TERMINFO, ttn, tp)); } /* * _nc_first_name(char *names) * * Extract the primary name from a compiled entry. */ char *_nc_first_name(const char *const sp) /* get the first name from the given name list */ { static char buf[MAX_NAME_SIZE]; register char *cp; (void) strcpy(buf, sp); cp = strchr(buf, '|'); if (cp) *cp = '\0'; return(buf); } /* * bool _nc_name_match(namelist, name, delim) * * Is the given name matched in namelist? */ int _nc_name_match(const char *const namelst, const char *const name, const char *const delim) /* microtune this, it occurs in several critical loops */ { char namecopy[MAX_ENTRY_SIZE]; /* this may get called on a TERMCAP value */ register char *cp; if (namelst == 0) return(FALSE); (void) strcpy(namecopy, namelst); if ((cp = strtok(namecopy, delim)) != 0) { do { /* avoid strcmp() function-call cost if possible */ if (cp[0] == name[0] && strcmp(cp, name) == 0) return(TRUE); } while ((cp = strtok((char *)0, delim)) != 0); } return(FALSE); }