+++ /dev/null
-/*
-** Copyright (C) 1991, 1997 Free Software Foundation, Inc.
-**
-** This file is part of TACK.
-**
-** TACK 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.
-**
-** TACK 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 TACK; see the file COPYING. If not, write to
-** the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-** Boston, MA 02110-1301, USA
-*/
-/* initialization and wrapup code */
-
-#include <tack.h>
-
-MODULE_ID("$Id: init.c,v 1.7 2006/11/26 00:16:01 tom Exp $")
-
-#if NCURSES_VERSION_MAJOR >= 5 || NCURSES_VERSION_PATCH >= 981219
-#define _nc_get_curterm(p) _nc_get_tty_mode(p)
-#endif
-
-FILE *debug_fp;
-char temp[1024];
-char tty_basename[64];
-
-void
-put_name(const char *cap, const char *name)
-{ /* send the cap name followed by the cap */
- if (cap) {
- ptext(name);
- tc_putp(cap);
- }
-}
-
-static void
-report_cap(const char *tag, const char *s)
-{ /* expand the cap or print *** missing *** */
- int i;
-
- ptext(tag);
- for (i = char_count; i < 13; i++) {
- putchp(' ');
- }
- put_str(" = ");
- if (s) {
- putln(expand(s));
- } else {
- putln("*** missing ***");
- }
-}
-
-
-void
-reset_init(void)
-{ /* send the reset and init strings */
- int i;
-
- ptext("Terminal reset");
- i = char_count;
- put_name(reset_1string, " (rs1)");
- put_name(reset_2string, " (rs2)");
- /* run the reset file */
- if (reset_file && reset_file[0]) {
- FILE *fp;
- int ch;
-
- can_test("rf", FLAG_TESTED);
- if ((fp = fopen(reset_file, "r"))) { /* send the reset file */
- sprintf(temp, " (rf) %s", reset_file);
- ptextln(temp);
- while (1) {
- ch = getc(fp);
- if (ch == EOF)
- break;
- put_this(ch);
- }
- fclose(fp);
- } else {
- sprintf(temp, "\nCannot open reset file (rf) %s", reset_file);
- ptextln(temp);
- }
- }
- put_name(reset_3string, " (rs3)");
- if (i != char_count) {
- put_crlf();
- }
- ptext(" init");
- put_name(init_1string, " (is1)");
- put_name(init_2string, " (is2)");
- if (set_tab && clear_all_tabs && init_tabs != 8) {
- put_crlf();
- tc_putp(clear_all_tabs);
- for (char_count = 0; char_count < columns; char_count++) {
- put_this(' ');
- if ((char_count & 7) == 7) {
- tc_putp(set_tab);
- }
- }
- put_cr();
- }
- /* run the initialization file */
- if (init_file && init_file[0]) {
- FILE *fp;
- int ch;
-
- can_test("if", FLAG_TESTED);
- if ((fp = fopen(init_file, "r"))) { /* send the init file */
- sprintf(temp, " (if) %s", init_file);
- ptextln(temp);
- while (1) {
- ch = getc(fp);
- if (ch == EOF)
- break;
- put_this(ch);
- }
- fclose(fp);
- } else {
- sprintf(temp, "\nCannot open init file (if) %s", init_file);
- ptextln(temp);
- }
- }
- if (init_prog) {
- can_test("iprog", FLAG_TESTED);
- (void) system(init_prog);
- }
- put_name(init_3string, " (is3)");
-
- fflush(stdout);
-}
-
-/*
-** display_basic()
-**
-** display the basic terminal definitions
-*/
-void
-display_basic(void)
-{
- put_str("Name: ");
- putln(ttytype);
-
- report_cap("\\r ^M (cr)", carriage_return);
- report_cap("\\n ^J (ind)", scroll_forward);
- report_cap("\\b ^H (cub1)", cursor_left);
- report_cap("\\t ^I (ht)", tab);
-/* report_cap("\\f ^L (ff)", form_feed); */
- if (newline) {
- /* OK if missing */
- report_cap(" (nel)", newline);
- }
- report_cap(" (clear)", clear_screen);
- if (!cursor_home && cursor_address) {
- report_cap("(cup) (home)", TPARM_2(cursor_address, 0, 0));
- } else {
- report_cap(" (home)", cursor_home);
- }
-#ifdef user9
- report_cap("ENQ (u9)", user9);
-#endif
-#ifdef user8
- report_cap("ACK (u8)", user8);
-#endif
-
- sprintf(temp, "\nTerminal size: %d x %d. Baud rate: %u. Frame size: %d.%d",
- columns, lines,
- tty_baud_rate,
- tty_frame_size >> 1,
- (tty_frame_size & 1) * 5);
- putln(temp);
-}
-
-/*
-** curses_setup(exec_name)
-**
-** Startup ncurses
-*/
-void
-curses_setup(
- char *exec_name)
-{
- int status;
- static TERMTYPE term;
- char tty_filename[2048];
-
- tty_init();
-
- /**
- See if the terminal is in the terminfo data base. This call has
- two useful benefits, 1) it returns the filename of the terminfo entry,
- and 2) it searches only terminfo's. This allows us to abort before
- ncurses starts scanning the termcap file.
- **/
- if ((status = _nc_read_entry(tty_basename, tty_filename, &term)) == 0) {
- const TERMTYPE *fallback = _nc_fallback(tty_basename);
-
- if (fallback) {
- term = *fallback;
- sprintf(tty_filename, "(fallback)%s", tty_basename);
- status = 1;
- } else {
- fprintf(stderr, "Terminal not found: TERM=%s\n", tty_basename);
- show_usage(exec_name);
- exit(1);
- }
- }
- if (status == -1) {
- fprintf(stderr, "Terminfo database is inaccessible\n");
- exit(1);
- }
-
- /**
- This call will load the terminfo data base and set the cur-term
- variable. Only terminals that actually exist will get here so its
- OK to ignore errors. This is a good thing since ncurses does not
- permit (os) or (gn) to be set.
- **/
- setupterm(tty_basename, 1, &status);
-
- /**
- Get the current terminal definitions. This must be done before
- getting the baudrate.
- **/
- _nc_get_curterm(&cur_term->Nttyb);
- tty_baud_rate = baudrate();
- tty_cps = (tty_baud_rate << 1) / tty_frame_size;
-
- /* set up the defaults */
- replace_mode = TRUE;
- scan_mode = 0;
- char_count = 0;
- select_delay_type = debug_level = 0;
- char_mask = (meta_on && meta_on[0] == '\0') ? ALLOW_PARITY : STRIP_PARITY;
- /* Don't change the XON/XOFF modes yet. */
- select_xon_xoff = initial_stty_query(TTY_XON_XOFF) ? 1 : needs_xon_xoff;
-
- fflush(stdout); /* flush any output */
- tty_set();
-
- go_home(); /* set can_go_home */
- put_clear(); /* set can_clear_screen */
-
- if (send_reset_init) {
- reset_init();
- }
-
- /*
- I assume that the reset and init strings may not have the correct
- pads. (Because that part of the test comes much later.) Because
- of this, I allow the terminal some time to catch up.
- */
- fflush(stdout); /* waste some time */
- sleep(1); /* waste more time */
- charset_can_test();
- can_test("lines cols cr nxon rf if iprog rmp smcup rmcup", FLAG_CAN_TEST);
- edit_init(); /* initialize the edit data base */
-
- if (send_reset_init && enter_ca_mode) {
- tc_putp(enter_ca_mode);
- put_clear(); /* just in case we switched pages */
- }
- put_crlf();
- ptext("Using terminfo from: ");
- ptextln(tty_filename);
- put_crlf();
-
- if (tty_can_sync == SYNC_NEEDED) {
- verify_time();
- }
-
- display_basic();
-}
-
-/*
-** bye_kids(exit-condition)
-**
-** Shutdown the terminal, clear the signals, and exit
-*/
-void
-bye_kids(int n)
-{ /* reset the tty and exit */
- ignoresig();
- if (send_reset_init) {
- if (exit_ca_mode) {
- tc_putp(exit_ca_mode);
- }
- if (initial_stty_query(TTY_XON_XOFF)) {
- if (enter_xon_mode) {
- tc_putp(enter_xon_mode);
- }
- } else if (exit_xon_mode) {
- tc_putp(exit_xon_mode);
- }
- }
- if (debug_fp) {
- fclose(debug_fp);
- }
- if (log_fp) {
- fclose(log_fp);
- }
- tty_reset();
- fclose(stdin);
- fclose(stdout);
- fclose(stderr);
- if (not_a_tty)
- sleep(1);
- exit(n);
-}
projects / ncurses.git / blobdiff