source: trunk/ncurses/tack/init.c@ 2747

/*
** 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.6 2005/09/17 19:49:16 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(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