usr/src/usr.bin/telnet/tn3270.c

/*
 * Copyright (c) 1988 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by the University of California, Berkeley.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

#ifndef lint
static char sccsid[] = "@(#)tn3270.c    1.14 (Berkeley) %G%";
#endif /* not lint */

#include <sys/types.h>
#include <arpa/telnet.h>

#include "general.h"

#include "defines.h"
#include "ring.h"
#include "externs.h"
#include "fdset.h"

#if     defined(TN3270)

#include "../ctlr/screen.h"
#include "../general/globals.h"

#include "../telextrn.h"
#include "../ctlr/externs.h"

#if     defined(unix)
char    tline[200];
char    *transcom = 0;  /* transparent mode command (default: none) */
#endif  /* defined(unix) */

char    Ibuf[8*BUFSIZ], *Ifrontp, *Ibackp;

static char     sb_terminal[] = { IAC, SB,
                        TELOPT_TTYPE, TELQUAL_IS,
                        'I', 'B', 'M', '-', '3', '2', '7', '8', '-', '2',
                        IAC, SE };
#define SBTERMMODEL     13

static int
        Sent3270TerminalType;   /* Have we said we are a 3270? */

#endif  /* defined(TN3270) */


void
init_3270()
{
#if     defined(TN3270)
    Sent3270TerminalType = 0;
    Ifrontp = Ibackp = Ibuf;
    init_ctlr();                /* Initialize some things */
    init_keyboard();
    init_screen();
    init_system();
#endif  /* defined(TN3270) */
}

\f
#if     defined(TN3270)

/*
 * DataToNetwork - queue up some data to go to network.  If "done" is set,
 * then when last byte is queued, we add on an IAC EOR sequence (so,
 * don't call us with "done" until you want that done...)
 *
 * We actually do send all the data to the network buffer, since our
 * only client needs for us to do that.
 */

int
DataToNetwork(buffer, count, done)
register char   *buffer;        /* where the data is */
register int    count;          /* how much to send */
int             done;           /* is this the last of a logical block */
{
    register int loop, c;
    int origCount;

    origCount = count;

    while (count) {
        /* If not enough room for EORs, IACs, etc., wait */
        if (NETROOM() < 6) {
            fd_set o;

            FD_ZERO(&o);
            netflush();
            while (NETROOM() < 6) {
                FD_SET(net, &o);
                (void) select(net+1, (fd_set *) 0, &o, (fd_set *) 0,
                                                (struct timeval *) 0);
                netflush();
            }
        }
        c = ring_empty_count(&netoring);
        if (c > count) {
            c = count;
        }
        loop = c;
        while (loop) {
            if (((unsigned char)*buffer) == IAC) {
                break;
            }
            buffer++;
            loop--;
        }
        if ((c = c-loop)) {
            ring_supply_data(&netoring, buffer-c, c);
            count -= c;
        }
        if (loop) {
            NET2ADD(IAC, IAC);
            count--;
            buffer++;
        }
    }

    if (done) {
        NET2ADD(IAC, EOR);
        netflush();             /* try to move along as quickly as ... */
    }
    return(origCount - count);
}


#if     defined(unix)
void
inputAvailable()
{
    HaveInput = 1;
}
#endif  /* defined(unix) */

void
outputPurge()
{
    ttyflush(1);
}


/*
 * The following routines are places where the various tn3270
 * routines make calls into telnet.c.
 */

/*
 * DataToTerminal - queue up some data to go to terminal.
 *
 * Note: there are people who call us and depend on our processing
 * *all* the data at one time (thus the select).
 */

int
DataToTerminal(buffer, count)
register char   *buffer;                /* where the data is */
register int    count;                  /* how much to send */
{
    register int c;
    int origCount;

    origCount = count;

    while (count) {
        if (TTYROOM() == 0) {
#if     defined(unix)
            fd_set o;

            FD_ZERO(&o);
#endif  /* defined(unix) */
            ttyflush(0);
            while (TTYROOM() == 0) {
#if     defined(unix)
                FD_SET(tout, &o);
                (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
                                                (struct timeval *) 0);
#endif  /* defined(unix) */
                ttyflush(0);
            }
        }
        c = TTYROOM();
        if (c > count) {
            c = count;
        }
        ring_supply_data(&ttyoring, buffer, c);
        count -= c;
        buffer += c;
    }
    return(origCount);
}

/* EmptyTerminal - called to make sure that the terminal buffer is empty.
 *                      Note that we consider the buffer to run all the
 *                      way to the kernel (thus the select).
 */

void
EmptyTerminal()
{
#if     defined(unix)
    fd_set      o;

    FD_ZERO(&o);
#endif  /* defined(unix) */

    if (TTYBYTES() == 0) {
#if     defined(unix)
        FD_SET(tout, &o);
        (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
                        (struct timeval *) 0);  /* wait for TTLOWAT */
#endif  /* defined(unix) */
    } else {
        while (TTYBYTES()) {
            ttyflush(0);
#if     defined(unix)
            FD_SET(tout, &o);
            (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
                                (struct timeval *) 0);  /* wait for TTLOWAT */
#endif  /* defined(unix) */
        }
    }
}
\f

/*
 * Push3270 - Try to send data along the 3270 output (to screen) direction.
 */

int
Push3270()
{
    int save = ring_full_count(&netiring);

    if (save) {
        if (Ifrontp+save > Ibuf+sizeof Ibuf) {
            if (Ibackp != Ibuf) {
                memcpy(Ibuf, Ibackp, Ifrontp-Ibackp);
                Ifrontp -= (Ibackp-Ibuf);
                Ibackp = Ibuf;
            }
        }
        if (Ifrontp+save < Ibuf+sizeof Ibuf) {
            telrcv();
        }
    }
    return save != ring_full_count(&netiring);
}


/*
 * Finish3270 - get the last dregs of 3270 data out to the terminal
 *              before quitting.
 */

void
Finish3270()
{
    while (Push3270() || !DoTerminalOutput()) {
#if     defined(unix)
        HaveInput = 0;
#endif  /* defined(unix) */
        ;
    }
}


/* StringToTerminal - output a null terminated string to the terminal */

void
StringToTerminal(s)
char *s;
{
    int count;

    count = strlen(s);
    if (count) {
        (void) DataToTerminal(s, count);        /* we know it always goes... */
    }
}


#if     ((!defined(NOT43)) || defined(PUTCHAR))
/* _putchar - output a single character to the terminal.  This name is so that
 *      curses(3x) can call us to send out data.
 */

void
_putchar(c)
char c;
{
#if     defined(sun)            /* SunOS 4.0 bug */
    c &= 0x7f;
#endif  /* defined(sun) */
    if (TTYBYTES()) {
        (void) DataToTerminal(&c, 1);
    } else {
        TTYADD(c);
    }
}
#endif  /* ((!defined(NOT43)) || defined(PUTCHAR)) */

void
SetForExit()
{
    setconnmode();
    if (In3270) {
        Finish3270();
    }
    setcommandmode();
    fflush(stdout);
    fflush(stderr);
    if (In3270) {
        StopScreen(1);
    }
    setconnmode();
    setcommandmode();
}

void
Exit(returnCode)
int returnCode;
{
    SetForExit();
    exit(returnCode);
}

void
ExitString(string, returnCode)
char *string;
int returnCode;
{
    SetForExit();
    fwrite(string, 1, strlen(string), stderr);
    exit(returnCode);
}

#if defined(MSDOS)
void
ExitPerror(string, returnCode)
char *string;
int returnCode;
{
    SetForExit();
    perror(string);
    exit(returnCode);
}
#endif /* defined(MSDOS) */

void
SetIn3270()
{
    if (Sent3270TerminalType && myopts[TELOPT_BINARY]
                            && hisopts[TELOPT_BINARY] && !donebinarytoggle) {
        if (!In3270) {
            In3270 = 1;
            Init3270();         /* Initialize 3270 functions */
            /* initialize terminal key mapping */
            InitTerminal();     /* Start terminal going */
            setconnmode();
        }
    } else {
        if (In3270) {
            StopScreen(1);
            In3270 = 0;
            Stop3270();         /* Tell 3270 we aren't here anymore */
            setconnmode();
        }
    }
}

/*
 * tn3270_ttype()
 *
 *      Send a response to a terminal type negotiation.
 *
 *      Return '0' if no more responses to send; '1' if a response sent.
 */

int
tn3270_ttype()
{
    /*
     * Try to send a 3270 type terminal name.  Decide which one based
     * on the format of our screen, and (in the future) color
     * capaiblities.
     */
    InitTerminal();             /* Sets MaxNumberColumns, MaxNumberLines */
    if ((MaxNumberLines >= 24) && (MaxNumberColumns >= 80)) {
        Sent3270TerminalType = 1;
        if ((MaxNumberLines >= 27) && (MaxNumberColumns >= 132)) {
            MaxNumberLines = 27;
            MaxNumberColumns = 132;
            sb_terminal[SBTERMMODEL] = '5';
        } else if (MaxNumberLines >= 43) {
            MaxNumberLines = 43;
            MaxNumberColumns = 80;
            sb_terminal[SBTERMMODEL] = '4';
        } else if (MaxNumberLines >= 32) {
            MaxNumberLines = 32;
            MaxNumberColumns = 80;
            sb_terminal[SBTERMMODEL] = '3';
        } else {
            MaxNumberLines = 24;
            MaxNumberColumns = 80;
            sb_terminal[SBTERMMODEL] = '2';
        }
        NumberLines = 24;               /* before we start out... */
        NumberColumns = 80;
        ScreenSize = NumberLines*NumberColumns;
        if ((MaxNumberLines*MaxNumberColumns) > MAXSCREENSIZE) {
            ExitString("Programming error:  MAXSCREENSIZE too small.\n",
                                                                1);
            /*NOTREACHED*/
        }
        printsub(">", sb_terminal+2, sizeof sb_terminal-2);
        ring_supply_data(&netoring, sb_terminal, sizeof sb_terminal);
        return 1;
    } else {
        return 0;
    }
}

#if     defined(unix)
settranscom(argc, argv)
        int argc;
        char *argv[];
{
        int i;

        if (argc == 1 && transcom) {
           transcom = 0;
        }
        if (argc == 1) {
           return;
        }
        transcom = tline;
        (void) strcpy(transcom, argv[1]);
        for (i = 2; i < argc; ++i) {
            (void) strcat(transcom, " ");
            (void) strcat(transcom, argv[i]);
        }
}
#endif  /* defined(unix) */

#endif  /* defined(TN3270) */