Aminet 3/Aminet 3 - July 1994.iso/Aminet/util/misc/aterminfo.lha/lib_setup.c

C/C++ Source or Header | 1993-12-12 | 4.8 KB | 241 lines

/* This work is copyrighted. See COPYRIGHT.OLD & COPYRIGHT.NEW for   *
*  details. If they are missing then this copy is in violation of    *
*  the copyright conditions.                                        */

/*
 *    setupterm(termname, filedes, errret)
 *
 *    Find and read the appropriate object file for the terminal
 *    Make cur_term point to the structure.
 *    Turn off the XTABS bit in the tty structure if it was on
 *    If XTABS was on, remove the tab and backtab capabilities.
 *
 */

#include <stdlib.h>
#include <string.h>
#ifndef sun
/* SUN's sys/ioctl.h clash with termios.h */
#include <sys/ioctl.h>
#endif
#include "term.h"

extern int read_entry(char *, TERMINAL*);

int LINES, COLS;

#define ret_error(code, fmt, arg)    if (errret) {\
                        *errret = code;\
                        return(code);\
                    } else {\
                        fprintf(stderr, fmt, arg);\
                        exit(1);\
                    }

#define ret_error0(code, msg)        if (errret) {\
                        *errret = code;\
                        return(code);\
                    } else {\
                        fprintf(stderr, msg);\
                        exit(1);\
                    }


static void do_prototype(void);

static int _use_env = TRUE;

void use_env(char f)
{
    _use_env = f;
}


static int resize(int fd)
{
#ifndef AMIGA

struct winsize size;

    if (ioctl(fd, TIOCGWINSZ, &size) < 0) {
        perror("TIOCGWINSZ");
        return 1;
    }
    LINES = size.ws_row;
    COLS = size.ws_col;
    return 0;
#else
    return(1);
#endif
}

char ttytype[NAMESIZE];

int setupterm(char *termname, int filedes, int *errret)
{
static int    _been_here = FALSE;
char        filename1[1024];
char        filename2[1024];
char        *directory = SRCDIR;
char        *terminfo;
struct term    *term_ptr;
char         *rows, *cols;

    if (_been_here == FALSE) {
        _been_here = TRUE;
#ifdef TRACE
        _init_trace();
        if (_tracing)
                _tracef("setupterm(%s,%d,%x) called", termname, filedes, errret);
#endif

        if (termname == NULL) {
                termname = getenv("TERM");
                if (termname == NULL)
                ret_error0(-1, "TERM environment variable not set.\n");
        }

                term_ptr = (struct term *) malloc(sizeof(struct term));

        if (term_ptr == NULL)
                ret_error0(-1, "Not enough memory to create terminal structure.\n") ;

        if ((terminfo = getenv("TERMINFO")) != NULL)
                directory = terminfo;

#ifndef _AMIGA
        sprintf(filename1, "%s/%c/%s", directory, termname[0], termname);
        sprintf(filename2, "%s/%c/%s", SRCDIR, termname[0], termname);
#else
        sprintf(filename1, "%s%c/%s", directory, termname[0], termname);
        sprintf(filename2, "%s%c/%s", SRCDIR, termname[0], termname);
#endif

        if (read_entry(filename1, term_ptr) < 0 &&  read_entry(filename2, term_ptr) < 0)
                ret_error(0, "'%s': Unknown terminal type.\n", termname);

        cur_term = term_ptr;
        if (command_character  &&  getenv("CC"))
                do_prototype();

        strncpy(ttytype, cur_term->term_names, NAMESIZE - 1);
        ttytype[NAMESIZE - 1] = '\0';
        cur_term->Filedes = filedes;

        /* figure out the size of the screen */

        rows = getenv("LINES");
        if (rows != (char *)NULL)
            LINES = atoi(rows);

        cols = getenv("COLUMNS");
        if (cols != (char *)NULL)
            COLS = atoi(cols);

        /* if _use_env is false then override the environment */

        if (_use_env == FALSE)
            if (lines > 0 && columns > 0) {
                LINES = lines;
                COLS  = columns;
            }

        /* If _use_env is true but environment is undefined:
           try lines/columns, else use window size,
           else give up.
        */

        if (LINES <= 0 || COLS <= 0) {
            if (lines > 0 && columns > 0) {
                LINES = lines;
                COLS  = columns;
            } else if (resize(filedes) == 1) {
                fprintf(stderr, "can't find the screen size");
                exit(1);
            }
        }
        lines = LINES;
        columns = COLS;

#ifdef TRACE
        _tracef("screen size is %dx%d and %dx%d", COLS, LINES, columns, lines);
#endif

#ifndef AMIGA

#ifdef TERMIOS
#ifndef BSD
#define tabs XTABS
#else
#define tabs OXTAB
#endif

 #ifndef linux
         if((tcdrain(filedes)) == -1) {
             perror("setupterm() tcdrain() failed:");
             exit(1);
         }
 #endif
         if((tcgetattr(filedes, &cur_term->Ottyb)) == -1) {
             perror("setupterm() tcgetattr() failed:");
             exit(1);
         }

        if (cur_term->Ottyb.c_oflag & tabs)
            tab = back_tab = NULL;

        cur_term->Nttyb = cur_term->Ottyb;
        cur_term->Nttyb.c_oflag &= ~tabs;
#else
        gtty(filedes, &cur_term->Ottyb);
        if (cur_term->Ottyb.sg_flags & XTABS)
                tab = back_tab = NULL;

        cur_term->Nttyb = cur_term->Ottyb;
        cur_term->Nttyb.sg_flags &= ~XTABS;
#endif

        def_prog_mode();
#endif



    }
    if (errret)
        *errret = 1;
    return(1);

}


/*
**    do_prototype()
**
**    Take the real command character out of the CC environment variable
**    and substitute it in for the prototype given in 'command_character'.
**
*/

static void
do_prototype()
{
int    i, j;
char    CC;
char    proto;
char    *tmp;

    tmp = getenv("CC");
    CC = *tmp;
    proto = *command_character;

    for (i=0; i < STRCOUNT; i++) {
            j = 0;
            while (cur_term->Strings[i][j]) {
            if (cur_term->Strings[i][j] == proto)
                    cur_term->Strings[i][j] = CC;
            j++;
            }
    }
}