2 ** Copyright (C) 1991, 1997 Free Software Foundation, Inc.
4 ** This file is part of TACK.
6 ** TACK is free software; you can redistribute it and/or modify
7 ** it under the terms of the GNU General Public License as published by
8 ** the Free Software Foundation; either version 2, or (at your option)
11 ** TACK is distributed in the hope that it will be useful,
12 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ** GNU General Public License for more details.
16 ** You should have received a copy of the GNU General Public License
17 ** along with TACK; see the file COPYING. If not, write to
18 ** the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 ** Boston, MA 02111-1307, USA.
21 /* initialization and wrapup code */
25 MODULE_ID("$Id: init.c,v 1.2 2000/05/13 19:58:48 Daniel.Weaver Exp $")
27 #if NCURSES_VERSION_MAJOR >= 5 || NCURSES_VERSION_PATCH >= 981219
28 #define _nc_get_curterm(p) _nc_get_tty_mode(p)
33 char tty_basename[64];
36 put_name(const char *cap, const char *name)
37 { /* send the cap name followed by the cap */
45 report_cap(const char *tag, const char *s)
46 { /* expand the cap or print *** missing *** */
50 for (i = char_count; i < 13; i++) {
57 putln("*** missing ***");
64 { /* send the reset and init strings */
67 ptext("Terminal reset");
69 put_name(reset_1string, " (rs1)");
70 put_name(reset_2string, " (rs2)");
71 /* run the reset file */
72 if (reset_file && reset_file[0]) {
76 can_test("rf", FLAG_TESTED);
77 if ((fp = fopen(reset_file, "r"))) { /* send the reset file */
78 sprintf(temp, " (rf) %s", reset_file);
88 sprintf(temp, "\nCannot open reset file (rf) %s", reset_file);
92 put_name(reset_3string, " (rs3)");
93 if (i != char_count) {
97 put_name(init_1string, " (is1)");
98 put_name(init_2string, " (is2)");
99 if (set_tab && clear_all_tabs && init_tabs != 8) {
101 tc_putp(clear_all_tabs);
102 for (char_count = 0; char_count < columns; char_count++) {
104 if ((char_count & 7) == 7) {
110 /* run the initialization file */
111 if (init_file && init_file[0]) {
115 can_test("if", FLAG_TESTED);
116 if ((fp = fopen(init_file, "r"))) { /* send the init file */
117 sprintf(temp, " (if) %s", init_file);
127 sprintf(temp, "\nCannot open init file (if) %s", init_file);
132 can_test("iprog", FLAG_TESTED);
133 (void) system(init_prog);
135 put_name(init_3string, " (is3)");
143 ** display the basic terminal definitions
151 report_cap("\\r ^M (cr)", carriage_return);
152 report_cap("\\n ^J (ind)", scroll_forward);
153 report_cap("\\b ^H (cub1)", cursor_left);
154 report_cap("\\t ^I (ht)", tab);
155 /* report_cap("\\f ^L (ff)", form_feed); */
158 report_cap(" (nel)", newline);
160 report_cap(" (clear)", clear_screen);
161 if (!cursor_home && cursor_address) {
162 report_cap("(cup) (home)", tparm(cursor_address, 0, 0));
164 report_cap(" (home)", cursor_home);
166 report_cap("ENQ (u9)", user9);
167 report_cap("ACK (u8)", user8);
169 sprintf(temp, "\nTerminal size: %d x %d. Baud rate: %ld. Frame size: %d.%d", columns, lines, tty_baud_rate, tty_frame_size >> 1, (tty_frame_size & 1) * 5);
174 ** curses_setup(exec_name)
183 static TERMTYPE term;
184 char tty_filename[2048];
189 See if the terminal is in the terminfo data base. This call has
190 two useful benefits, 1) it returns the filename of the terminfo entry,
191 and 2) it searches only terminfo's. This allows us to abort before
192 ncurses starts scanning the termcap file.
194 if ((status = _nc_read_entry(tty_basename, tty_filename, &term)) == 0) {
195 fprintf(stderr, "Terminal not found: TERM=%s\n", tty_basename);
196 show_usage(exec_name);
200 fprintf(stderr, "Terminfo database is inaccessible\n");
205 This call will load the terminfo data base and set the cur-term
206 variable. Only terminals that actually exist will get here so its
207 OK to ignore errors. This is a good thing since ncurses does not
208 permit (os) or (gn) to be set.
210 setupterm(tty_basename, 1, &status);
213 Get the current terminal definitions. This must be done before
214 getting the baudrate.
216 _nc_get_curterm(&cur_term->Nttyb);
217 tty_baud_rate = baudrate();
218 tty_cps = (tty_baud_rate << 1) / tty_frame_size;
220 /* set up the defaults */
224 select_delay_type = debug_level = 0;
225 char_mask = (meta_on && meta_on[0] == '\0') ? ALLOW_PARITY : STRIP_PARITY;
226 /* Don't change the XON/XOFF modes yet. */
227 select_xon_xoff = initial_stty_query(TTY_XON_XOFF) ? 1 : needs_xon_xoff;
229 fflush(stdout); /* flush any output */
232 go_home(); /* set can_go_home */
233 put_clear(); /* set can_clear_screen */
235 if (send_reset_init) {
240 I assume that the reset and init strings may not have the correct
241 pads. (Because that part of the test comes much later.) Because
242 of this, I allow the terminal some time to catch up.
244 fflush(stdout); /* waste some time */
245 sleep(1); /* waste more time */
247 can_test("lines cols cr nxon rf if iprog rmp smcup rmcup", FLAG_CAN_TEST);
248 edit_init(); /* initialize the edit data base */
250 if (send_reset_init && enter_ca_mode) {
251 tc_putp(enter_ca_mode);
252 put_clear(); /* just in case we switched pages */
255 ptext("Using terminfo from: ");
256 ptextln(tty_filename);
259 if (tty_can_sync == SYNC_NEEDED) {
267 ** bye_kids(exit-condition)
269 ** Shutdown the terminal, clear the signals, and exit
273 { /* reset the tty and exit */
275 if (send_reset_init) {
277 tc_putp(exit_ca_mode);
279 if (initial_stty_query(TTY_XON_XOFF)) {
280 if (enter_xon_mode) {
281 tc_putp(enter_xon_mode);
283 } else if (exit_xon_mode) {
284 tc_putp(exit_xon_mode);