URL https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k

[/] [or1k/] [trunk/] [uclinux/] [userland/] [telnet/] [sys_bsd.c] - Blame information for rev 1767

Go to most recent revision | Details | Compare with Previous | View Log

/*
 * Copyright (c) 1988, 1990, 1993
 *      The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by the University of
 *      California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */
 
#ifndef lint
static char sccsid[] = "@(#)sys_bsd.c   8.2 (Berkeley) 12/15/93";
#endif /* not lint */
 
/*
 * The following routines try to encapsulate what is system dependent
 * (at least between 4.x and dos) which is used in telnet.c.
 */
 
 
#include <fcntl.h>
#include <sys/types.h>
#include <sys/time.h>
#include <sys/socket.h>
#include <signal.h>
#include <errno.h>
#include <arpa/telnet.h>
#include <unistd.h>
#include <stdlib.h>
 
#include "ring.h"
 
#include "fdset.h"
 
#include "defines.h"
#include "externs.h"
#include "types.h"
 
#if     defined(CRAY) || (defined(USE_TERMIO) && !defined(SYSV_TERMIO))
#define SIG_FUNC_RET    void
#else
#define SIG_FUNC_RET    int
#endif
 
#ifdef  SIGINFO
extern SIG_FUNC_RET ayt_status();
#endif
 
int
        tout,                   /* Output file descriptor */
        tin,                    /* Input file descriptor */
        net;
 
#ifdef __linux__
#define termio  termios
#endif
 
#ifndef USE_TERMIO
struct  tchars otc = { 0 }, ntc = { 0 };
struct  ltchars oltc = { 0 }, nltc = { 0 };
struct  sgttyb ottyb = { 0 }, nttyb = { 0 };
int     olmode = 0;
# define cfgetispeed(ptr)       (ptr)->sg_ispeed
# define cfgetospeed(ptr)       (ptr)->sg_ospeed
# define old_tc ottyb
 
#else   /* USE_TERMIO */
struct  termio old_tc = { 0 };
struct  termio new_tc = { 0 };
 
# ifndef        TCSANOW
#  ifdef TCSETS
#   define      TCSANOW         TCSETS
#   define      TCSADRAIN       TCSETSW
#   define      tcgetattr(f, t) ioctl(f, TCGETS, (char *)t)
#  else
#   ifdef TCSETA
#    define     TCSANOW         TCSETA
#    define     TCSADRAIN       TCSETAW
#    define     tcgetattr(f, t) ioctl(f, TCGETA, (char *)t)
#   else
#    define     TCSANOW         TIOCSETA
#    define     TCSADRAIN       TIOCSETAW
#    define     tcgetattr(f, t) ioctl(f, TIOCGETA, (char *)t)
#   endif
#  endif
#  define       tcsetattr(f, a, t) ioctl(f, a, (char *)t)
#  define       cfgetospeed(ptr)        ((ptr)->c_cflag&CBAUD)
#  ifdef CIBAUD
#   define      cfgetispeed(ptr)        (((ptr)->c_cflag&CIBAUD) >> IBSHIFT)
#  else
#   define      cfgetispeed(ptr)        cfgetospeed(ptr)
#  endif
# endif /* TCSANOW */
# ifdef sysV88
# define TIOCFLUSH TC_PX_DRAIN
# endif
#endif  /* USE_TERMIO */
 
static fd_set ibits, obits, xbits;
 
 
    void
init_sys()
{
    tout = fileno(stdout);
    tin = fileno(stdin);
    FD_ZERO(&ibits);
    FD_ZERO(&obits);
    FD_ZERO(&xbits);
 
    errno = 0;
}
 
 
    int
TerminalWrite(buf, n)
    char *buf;
    int  n;
{
    return write(tout, buf, n);
}
 
    int
TerminalRead(buf, n)
    char *buf;
    int  n;
{
    return read(tin, buf, n);
}
 
/*
 *
 */
 
    int
TerminalAutoFlush()
{
#if     defined(LNOFLSH)
    int flush;
 
    ioctl(0, TIOCLGET, (char *)&flush);
    return !(flush&LNOFLSH);    /* if LNOFLSH, no autoflush */
#else   /* LNOFLSH */
    return 1;
#endif  /* LNOFLSH */
}
 
#ifdef  KLUDGELINEMODE
extern int kludgelinemode;
#endif
/*
 * TerminalSpecialChars()
 *
 * Look at an input character to see if it is a special character
 * and decide what to do.
 *
 * Output:
 *
 *      0        Don't add this character.
 *      1       Do add this character
 */
 
extern void xmitAO(), xmitEL(), xmitEC(), intp(), sendbrk();
 
    int
TerminalSpecialChars(c)
    int c;
{
    if (c == termIntChar) {
        intp();
        return 0;
    } else if (c == termQuitChar) {
#ifdef  KLUDGELINEMODE
        if (kludgelinemode)
            sendbrk();
        else
#endif
            sendabort();
        return 0;
    } else if (c == termEofChar) {
        if (my_want_state_is_will(TELOPT_LINEMODE)) {
            sendeof();
            return 0;
        }
        return 1;
    } else if (c == termSuspChar) {
        sendsusp();
        return(0);
    } else if (c == termFlushChar) {
        xmitAO();               /* Transmit Abort Output */
        return 0;
    } else if (!MODE_LOCAL_CHARS(globalmode)) {
        if (c == termKillChar) {
            xmitEL();
            return 0;
        } else if (c == termEraseChar) {
            xmitEC();           /* Transmit Erase Character */
            return 0;
        }
    }
    return 1;
}
 
 
/*
 * Flush output to the terminal
 */
 
    void
TerminalFlushOutput()
{
#ifdef  TIOCFLUSH
    (void) ioctl(fileno(stdout), TIOCFLUSH, (char *) 0);
#else
    (void) ioctl(fileno(stdout), TCFLSH, (char *) 0);
#endif
}
 
    void
TerminalSaveState()
{
#ifndef USE_TERMIO
    ioctl(0, TIOCGETP, (char *)&ottyb);
    ioctl(0, TIOCGETC, (char *)&otc);
    ioctl(0, TIOCGLTC, (char *)&oltc);
    ioctl(0, TIOCLGET, (char *)&olmode);
 
    ntc = otc;
    nltc = oltc;
    nttyb = ottyb;
 
#else   /* USE_TERMIO */
    tcgetattr(0, &old_tc);
 
    new_tc = old_tc;
 
#ifndef VDISCARD
    termFlushChar = CONTROL('O');
#endif
#ifndef VWERASE
    termWerasChar = CONTROL('W');
#endif
#ifndef VREPRINT
    termRprntChar = CONTROL('R');
#endif
#ifndef VLNEXT
    termLiteralNextChar = CONTROL('V');
#endif
#ifndef VSTART
    termStartChar = CONTROL('Q');
#endif
#ifndef VSTOP
    termStopChar = CONTROL('S');
#endif
#ifndef VSTATUS
    termAytChar = CONTROL('T');
#endif
#endif  /* USE_TERMIO */
}
 
    cc_t *
tcval(func)
    register int func;
{
    switch(func) {
    case SLC_IP:        return(&termIntChar);
    case SLC_ABORT:     return(&termQuitChar);
    case SLC_EOF:       return(&termEofChar);
    case SLC_EC:        return(&termEraseChar);
    case SLC_EL:        return(&termKillChar);
    case SLC_XON:       return(&termStartChar);
    case SLC_XOFF:      return(&termStopChar);
    case SLC_FORW1:     return(&termForw1Char);
#ifdef  USE_TERMIO
    case SLC_FORW2:     return(&termForw2Char);
# ifdef VDISCARD
    case SLC_AO:        return(&termFlushChar);
# endif
# ifdef VSUSP
    case SLC_SUSP:      return(&termSuspChar);
# endif
# ifdef VWERASE
    case SLC_EW:        return(&termWerasChar);
# endif
# ifdef VREPRINT
    case SLC_RP:        return(&termRprntChar);
# endif
# ifdef VLNEXT
    case SLC_LNEXT:     return(&termLiteralNextChar);
# endif
# ifdef VSTATUS
    case SLC_AYT:       return(&termAytChar);
# endif
#endif
 
    case SLC_SYNCH:
    case SLC_BRK:
    case SLC_EOR:
    default:
        return((cc_t *)0);
    }
}
 
    void
TerminalDefaultChars()
{
#ifndef USE_TERMIO
    ntc = otc;
    nltc = oltc;
    nttyb.sg_kill = ottyb.sg_kill;
    nttyb.sg_erase = ottyb.sg_erase;
#else   /* USE_TERMIO */
    memcpy(new_tc.c_cc, old_tc.c_cc, sizeof(old_tc.c_cc));
# ifndef        VDISCARD
    termFlushChar = CONTROL('O');
# endif
# ifndef        VWERASE
    termWerasChar = CONTROL('W');
# endif
# ifndef        VREPRINT
    termRprntChar = CONTROL('R');
# endif
# ifndef        VLNEXT
    termLiteralNextChar = CONTROL('V');
# endif
# ifndef        VSTART
    termStartChar = CONTROL('Q');
# endif
# ifndef        VSTOP
    termStopChar = CONTROL('S');
# endif
# ifndef        VSTATUS
    termAytChar = CONTROL('T');
# endif
#endif  /* USE_TERMIO */
}
 
#ifdef notdef
void
TerminalRestoreState()
{
}
#endif
 
/*
 * TerminalNewMode - set up terminal to a specific mode.
 *      MODE_ECHO: do local terminal echo
 *      MODE_FLOW: do local flow control
 *      MODE_TRAPSIG: do local mapping to TELNET IAC sequences
 *      MODE_EDIT: do local line editing
 *
 *      Command mode:
 *              MODE_ECHO|MODE_EDIT|MODE_FLOW|MODE_TRAPSIG
 *              local echo
 *              local editing
 *              local xon/xoff
 *              local signal mapping
 *
 *      Linemode:
 *              local/no editing
 *      Both Linemode and Single Character mode:
 *              local/remote echo
 *              local/no xon/xoff
 *              local/no signal mapping
 */
 
 
    void
TerminalNewMode(f)
    register int f;
{
    static int prevmode = 0;
#ifndef USE_TERMIO
    struct tchars tc;
    struct ltchars ltc;
    struct sgttyb sb;
    int lmode;
#else   /* USE_TERMIO */
    struct termio tmp_tc;
#endif  /* USE_TERMIO */
    int onoff;
    int old;
    cc_t esc;
 
    globalmode = f&~MODE_FORCE;
    if (prevmode == f)
        return;
 
    /*
     * Write any outstanding data before switching modes
     * ttyflush() returns 0 only when there is no more data
     * left to write out, it returns -1 if it couldn't do
     * anything at all, otherwise it returns 1 + the number
     * of characters left to write.
#ifndef USE_TERMIO
     * We would really like ask the kernel to wait for the output
     * to drain, like we can do with the TCSADRAIN, but we don't have
     * that option.  The only ioctl that waits for the output to
     * drain, TIOCSETP, also flushes the input queue, which is NOT
     * what we want (TIOCSETP is like TCSADFLUSH).
#endif
     */
    old = ttyflush(SYNCHing|flushout);
    if (old < 0 || old > 1) {
#ifdef  USE_TERMIO
        tcgetattr(tin, &tmp_tc);
#endif  /* USE_TERMIO */
        do {
            /*
             * Wait for data to drain, then flush again.
             */
#ifdef  USE_TERMIO
            tcsetattr(tin, TCSADRAIN, &tmp_tc);
#endif  /* USE_TERMIO */
            old = ttyflush(SYNCHing|flushout);
        } while (old < 0 || old > 1);
    }
 
    old = prevmode;
    prevmode = f&~MODE_FORCE;
#ifndef USE_TERMIO
    sb = nttyb;
    tc = ntc;
    ltc = nltc;
    lmode = olmode;
#else
    tmp_tc = new_tc;
#endif
 
    if (f&MODE_ECHO) {
#ifndef USE_TERMIO
        sb.sg_flags |= ECHO;
#else
        tmp_tc.c_lflag |= ECHO;
        tmp_tc.c_oflag |= ONLCR;
        if (crlf)
                tmp_tc.c_iflag |= ICRNL;
#endif
    } else {
#ifndef USE_TERMIO
        sb.sg_flags &= ~ECHO;
#else
        tmp_tc.c_lflag &= ~ECHO;
        tmp_tc.c_oflag &= ~ONLCR;
# ifdef notdef
        if (crlf)
                tmp_tc.c_iflag &= ~ICRNL;
# endif
#endif
    }
 
    if ((f&MODE_FLOW) == 0) {
#ifndef USE_TERMIO
        tc.t_startc = _POSIX_VDISABLE;
        tc.t_stopc = _POSIX_VDISABLE;
#else
        tmp_tc.c_iflag &= ~(IXOFF|IXON);        /* Leave the IXANY bit alone */
    } else {
        if (restartany < 0) {
                tmp_tc.c_iflag |= IXOFF|IXON;   /* Leave the IXANY bit alone */
        } else if (restartany > 0) {
                tmp_tc.c_iflag |= IXOFF|IXON|IXANY;
        } else {
                tmp_tc.c_iflag |= IXOFF|IXON;
                tmp_tc.c_iflag &= ~IXANY;
        }
#endif
    }
 
    if ((f&MODE_TRAPSIG) == 0) {
#ifndef USE_TERMIO
        tc.t_intrc = _POSIX_VDISABLE;
        tc.t_quitc = _POSIX_VDISABLE;
        tc.t_eofc = _POSIX_VDISABLE;
        ltc.t_suspc = _POSIX_VDISABLE;
        ltc.t_dsuspc = _POSIX_VDISABLE;
#else
        tmp_tc.c_lflag &= ~ISIG;
#endif
        localchars = 0;
    } else {
#ifdef  USE_TERMIO
        tmp_tc.c_lflag |= ISIG;
#endif
        localchars = 1;
    }
 
    if (f&MODE_EDIT) {
#ifndef USE_TERMIO
        sb.sg_flags &= ~CBREAK;
        sb.sg_flags |= CRMOD;
#else
        tmp_tc.c_lflag |= ICANON;
#endif
    } else {
#ifndef USE_TERMIO
        sb.sg_flags |= CBREAK;
        if (f&MODE_ECHO)
            sb.sg_flags |= CRMOD;
        else
            sb.sg_flags &= ~CRMOD;
#else
        tmp_tc.c_lflag &= ~ICANON;
        tmp_tc.c_iflag &= ~ICRNL;
        tmp_tc.c_cc[VMIN] = 1;
        tmp_tc.c_cc[VTIME] = 0;
#endif
    }
 
    if ((f&(MODE_EDIT|MODE_TRAPSIG)) == 0) {
#ifndef USE_TERMIO
        ltc.t_lnextc = _POSIX_VDISABLE;
#else
# ifdef VLNEXT
        tmp_tc.c_cc[VLNEXT] = (cc_t)(_POSIX_VDISABLE);
# endif
#endif
    }
 
    if (f&MODE_SOFT_TAB) {
#ifndef USE_TERMIO
        sb.sg_flags |= XTABS;
#else
# ifdef OXTABS
        tmp_tc.c_oflag |= OXTABS;
# endif
# ifdef TABDLY
        tmp_tc.c_oflag &= ~TABDLY;
        tmp_tc.c_oflag |= TAB3;
# endif
#endif
    } else {
#ifndef USE_TERMIO
        sb.sg_flags &= ~XTABS;
#else
# ifdef OXTABS
        tmp_tc.c_oflag &= ~OXTABS;
# endif
# ifdef TABDLY
        tmp_tc.c_oflag &= ~TABDLY;
# endif
#endif
    }
 
    if (f&MODE_LIT_ECHO) {
#ifndef USE_TERMIO
        lmode &= ~LCTLECH;
#else
# ifdef ECHOCTL
        tmp_tc.c_lflag &= ~ECHOCTL;
# endif
#endif
    } else {
#ifndef USE_TERMIO
        lmode |= LCTLECH;
#else
# ifdef ECHOCTL
        tmp_tc.c_lflag |= ECHOCTL;
# endif
#endif
    }
 
    if (f == -1) {
        onoff = 0;
    } else {
#ifndef USE_TERMIO
        if (f & MODE_OUTBIN)
                lmode |= LLITOUT;
        else
                lmode &= ~LLITOUT;
 
        if (f & MODE_INBIN)
                lmode |= LPASS8;
        else
                lmode &= ~LPASS8;
#else
        if (f & MODE_INBIN)
                tmp_tc.c_iflag &= ~ISTRIP;
        else
                tmp_tc.c_iflag |= ISTRIP;
        if (f & MODE_OUTBIN) {
                tmp_tc.c_cflag &= ~(CSIZE|PARENB);
                tmp_tc.c_cflag |= CS8;
                tmp_tc.c_oflag &= ~OPOST;
        } else {
                tmp_tc.c_cflag &= ~(CSIZE|PARENB);
                tmp_tc.c_cflag |= old_tc.c_cflag & (CSIZE|PARENB);
                tmp_tc.c_oflag |= OPOST;
        }
#endif
        onoff = 1;
    }
 
    if (f != -1) {
#ifdef  SIGTSTP
        SIG_FUNC_RET susp();
#endif  /* SIGTSTP */
#ifdef  SIGINFO
        SIG_FUNC_RET ayt();
#endif
 
#ifdef  SIGTSTP
        (void) signal(SIGTSTP, susp);
#endif  /* SIGTSTP */
#ifdef  SIGINFO
        (void) signal(SIGINFO, ayt);
#endif
#if     defined(USE_TERMIO) && defined(NOKERNINFO)
        tmp_tc.c_lflag |= NOKERNINFO;
#endif
        /*
         * We don't want to process ^Y here.  It's just another
         * character that we'll pass on to the back end.  It has
         * to process it because it will be processed when the
         * user attempts to read it, not when we send it.
         */
#ifndef USE_TERMIO
        ltc.t_dsuspc = _POSIX_VDISABLE;
#else
# ifdef VDSUSP
        tmp_tc.c_cc[VDSUSP] = (cc_t)(_POSIX_VDISABLE);
# endif
#endif
#ifdef  USE_TERMIO
        /*
         * If the VEOL character is already set, then use VEOL2,
         * otherwise use VEOL.
         */
        esc = (rlogin != _POSIX_VDISABLE) ? rlogin : escape;
        if ((tmp_tc.c_cc[VEOL] != esc)
# ifdef VEOL2
            && (tmp_tc.c_cc[VEOL2] != esc)
# endif
            ) {
                if (tmp_tc.c_cc[VEOL] == (cc_t)(_POSIX_VDISABLE))
                    tmp_tc.c_cc[VEOL] = esc;
# ifdef VEOL2
                else if (tmp_tc.c_cc[VEOL2] == (cc_t)(_POSIX_VDISABLE))
                    tmp_tc.c_cc[VEOL2] = esc;
# endif
        }
#else
        if (tc.t_brkc == (cc_t)(_POSIX_VDISABLE))
                tc.t_brkc = esc;
#endif
    } else {
#ifdef  SIGINFO
        SIG_FUNC_RET ayt_status();
 
        (void) signal(SIGINFO, ayt_status);
#endif
#ifdef  SIGTSTP
        (void) signal(SIGTSTP, SIG_DFL);
        (void) sigsetmask(sigblock(0) & ~(1<<(SIGTSTP-1)));
#endif  /* SIGTSTP */
#ifndef USE_TERMIO
        ltc = oltc;
        tc = otc;
        sb = ottyb;
        lmode = olmode;
#else
        tmp_tc = old_tc;
#endif
    }
#ifndef USE_TERMIO
    ioctl(tin, TIOCLSET, (char *)&lmode);
    ioctl(tin, TIOCSLTC, (char *)&ltc);
    ioctl(tin, TIOCSETC, (char *)&tc);
    ioctl(tin, TIOCSETN, (char *)&sb);
#else
    if (tcsetattr(tin, TCSADRAIN, &tmp_tc) < 0)
        tcsetattr(tin, TCSANOW, &tmp_tc);
#endif
 
#if     (!defined(TN3270)) || ((!defined(NOT43)) || defined(PUTCHAR))
# if    !defined(sysV88)
    ioctl(tin, FIONBIO, (char *)&onoff);
    ioctl(tout, FIONBIO, (char *)&onoff);
# endif
#endif  /* (!defined(TN3270)) || ((!defined(NOT43)) || defined(PUTCHAR)) */
#if     defined(TN3270)
    if (noasynchtty == 0) {
        ioctl(tin, FIOASYNC, (char *)&onoff);
    }
#endif  /* defined(TN3270) */
 
}
 
/*
 * Try to guess whether speeds are "encoded" (4.2BSD) or just numeric (4.4BSD).
 */
#if B4800 != 4800
#define DECODE_BAUD
#endif
 
#ifdef  DECODE_BAUD
#ifndef B19200
# define B19200 B9600
#endif
 
#ifndef B38400
# define B38400 B19200
#endif
 
/*
 * This code assumes that the values B0, B50, B75...
 * are in ascending order.  They do not have to be
 * contiguous.
 */
struct termspeeds {
        long speed;
        long value;
} termspeeds[] = {
        { 0,     B0 },     { 50,    B50 },   { 75,    B75 },
        { 110,   B110 },   { 134,   B134 },  { 150,   B150 },
        { 200,   B200 },   { 300,   B300 },  { 600,   B600 },
        { 1200,  B1200 },  { 1800,  B1800 }, { 2400,  B2400 },
        { 4800,  B4800 },  { 9600,  B9600 }, { 19200, B19200 },
        { 38400, B38400 }, { -1,    B38400 }
};
#endif  /* DECODE_BAUD */
 
    void
TerminalSpeeds(ispeed, ospeed)
    long *ispeed;
    long *ospeed;
{
#ifdef  DECODE_BAUD
    register struct termspeeds *tp;
#endif  /* DECODE_BAUD */
    register long in, out;
 
    out = cfgetospeed(&old_tc);
    in = cfgetispeed(&old_tc);
    if (in == 0)
        in = out;
 
#ifdef  DECODE_BAUD
    tp = termspeeds;
    while ((tp->speed != -1) && (tp->value < in))
        tp++;
    *ispeed = tp->speed;
 
    tp = termspeeds;
    while ((tp->speed != -1) && (tp->value < out))
        tp++;
    *ospeed = tp->speed;
#else   /* DECODE_BAUD */
        *ispeed = in;
        *ospeed = out;
#endif  /* DECODE_BAUD */
}
 
    int
TerminalWindowSize(rows, cols)
    long *rows, *cols;
{
#ifdef  TIOCGWINSZ
    struct winsize ws;
 
    if (ioctl(fileno(stdin), TIOCGWINSZ, (char *)&ws) >= 0) {
        *rows = ws.ws_row;
        *cols = ws.ws_col;
        return 1;
    }
#endif  /* TIOCGWINSZ */
    return 0;
}
 
    int
NetClose(fd)
    int fd;
{
    return close(fd);
}
 
 
    void
NetNonblockingIO(fd, onoff)
    int fd;
    int onoff;
{
    ioctl(fd, FIONBIO, (char *)&onoff);
}
 
#if     defined(TN3270)
    void
NetSigIO(fd, onoff)
    int fd;
    int onoff;
{
    ioctl(fd, FIOASYNC, (char *)&onoff);        /* hear about input */
}
 
    void
NetSetPgrp(fd)
    int fd;
{
    int myPid;
 
    myPid = getpid();
    fcntl(fd, F_SETOWN, myPid);
}
#endif  /*defined(TN3270)*/
 
/*
 * Various signal handling routines.
 */
 
    /* ARGSUSED */
    SIG_FUNC_RET
deadpeer(sig)
    int sig;
{
        setcommandmode();
#ifdef EMBED
        printf("ERROR: no longjmp()\n");
        exit(1);
#else
        longjmp(peerdied, -1);
#endif
}
 
    /* ARGSUSED */
    SIG_FUNC_RET
intr(sig)
    int sig;
{
    if (localchars) {
        intp();
        return;
    }
    setcommandmode();
#ifdef EMBED
    printf("ERROR: no longjmp()\n");
    exit(1);
#else
    longjmp(toplevel, -1);
#endif
}
 
    /* ARGSUSED */
    SIG_FUNC_RET
intr2(sig)
    int sig;
{
    if (localchars) {
#ifdef  KLUDGELINEMODE
        if (kludgelinemode)
            sendbrk();
        else
#endif
            sendabort();
        return;
    }
}
 
#ifdef  SIGTSTP
    /* ARGSUSED */
    SIG_FUNC_RET
susp(sig)
    int sig;
{
    if ((rlogin != _POSIX_VDISABLE) && rlogin_susp())
        return;
    if (localchars)
        sendsusp();
        return;
}
#endif
 
#ifdef  SIGWINCH
    /* ARGSUSED */
    SIG_FUNC_RET
sendwin(sig)
    int sig;
{
    if (connected) {
        sendnaws();
    }
}
#endif
 
#ifdef  SIGINFO
    /* ARGSUSED */
    SIG_FUNC_RET
ayt(sig)
    int sig;
{
    if (connected)
        sendayt();
    else
        ayt_status();
}
#endif
 
 
    void
sys_telnet_init()
{
    (void) signal(SIGINT, intr);
    (void) signal(SIGQUIT, intr2);
    (void) signal(SIGPIPE, deadpeer);
#ifdef  SIGWINCH
    (void) signal(SIGWINCH, sendwin);
#endif
#ifdef  SIGTSTP
    (void) signal(SIGTSTP, susp);
#endif
#ifdef  SIGINFO
    (void) signal(SIGINFO, ayt);
#endif
 
    setconnmode(0);
 
    NetNonblockingIO(net, 1);
 
#if     defined(TN3270)
    if (noasynchnet == 0) {                      /* DBX can't handle! */
        NetSigIO(net, 1);
        NetSetPgrp(net);
    }
#endif  /* defined(TN3270) */
 
#if     defined(SO_OOBINLINE)
    if (SetSockOpt(net, SOL_SOCKET, SO_OOBINLINE, 1) == -1) {
        perror("SetSockOpt");
    }
#endif  /* defined(SO_OOBINLINE) */
}
 
/*
 * Process rings -
 *
 *      This routine tries to fill up/empty our various rings.
 *
 *      The parameter specifies whether this is a poll operation,
 *      or a block-until-something-happens operation.
 *
 *      The return value is 1 if something happened, 0 if not.
 */
 
    int
process_rings(netin, netout, netex, ttyin, ttyout, poll)
    int poll;           /* If 0, then block until something to do */
{
    register int c;
                /* One wants to be a bit careful about setting returnValue
                 * to one, since a one implies we did some useful work,
                 * and therefore probably won't be called to block next
                 * time (TN3270 mode only).
                 */
    int returnValue = 0;
    static struct timeval TimeValue = { 0 };
 
    if (netout) {
        FD_SET(net, &obits);
    }
    if (ttyout) {
        FD_SET(tout, &obits);
    }
#if     defined(TN3270)
    if (ttyin) {
        FD_SET(tin, &ibits);
    }
#else   /* defined(TN3270) */
    if (ttyin) {
        FD_SET(tin, &ibits);
    }
#endif  /* defined(TN3270) */
#if     defined(TN3270)
    if (netin) {
        FD_SET(net, &ibits);
    }
#   else /* !defined(TN3270) */
    if (netin) {
        FD_SET(net, &ibits);
    }
#   endif /* !defined(TN3270) */
    if (netex) {
        FD_SET(net, &xbits);
    }
    if ((c = select(16, &ibits, &obits, &xbits,
                        (poll == 0)? (struct timeval *)0 : &TimeValue)) < 0) {
        if (c == -1) {
                    /*
                     * we can get EINTR if we are in line mode,
                     * and the user does an escape (TSTP), or
                     * some other signal generator.
                     */
            if (errno == EINTR) {
                return 0;
            }
#           if defined(TN3270)
                    /*
                     * we can get EBADF if we were in transparent
                     * mode, and the transcom process died.
                    */
            if (errno == EBADF) {
                        /*
                         * zero the bits (even though kernel does it)
                         * to make sure we are selecting on the right
                         * ones.
                        */
                FD_ZERO(&ibits);
                FD_ZERO(&obits);
                FD_ZERO(&xbits);
                return 0;
            }
#           endif /* defined(TN3270) */
                    /* I don't like this, does it ever happen? */
            printf("sleep(5) from telnet, after select: %s\r\n", strerror(errno));
            sleep(5);
        }
        return 0;
    }
 
    /*
     * Any urgent data?
     */
    if (FD_ISSET(net, &xbits)) {
        FD_CLR(net, &xbits);
        SYNCHing = 1;
        (void) ttyflush(1);     /* flush already enqueued data */
    }
 
    /*
     * Something to read from the network...
     */
    if (FD_ISSET(net, &ibits)) {
        int canread;
 
        FD_CLR(net, &ibits);
        canread = ring_empty_consecutive(&netiring);
#if     !defined(SO_OOBINLINE)
            /*
             * In 4.2 (and some early 4.3) systems, the
             * OOB indication and data handling in the kernel
             * is such that if two separate TCP Urgent requests
             * come in, one byte of TCP data will be overlaid.
             * This is fatal for Telnet, but we try to live
             * with it.
             *
             * In addition, in 4.2 (and...), a special protocol
             * is needed to pick up the TCP Urgent data in
             * the correct sequence.
             *
             * What we do is:  if we think we are in urgent
             * mode, we look to see if we are "at the mark".
             * If we are, we do an OOB receive.  If we run
             * this twice, we will do the OOB receive twice,
             * but the second will fail, since the second
             * time we were "at the mark", but there wasn't
             * any data there (the kernel doesn't reset
             * "at the mark" until we do a normal read).
             * Once we've read the OOB data, we go ahead
             * and do normal reads.
             *
             * There is also another problem, which is that
             * since the OOB byte we read doesn't put us
             * out of OOB state, and since that byte is most
             * likely the TELNET DM (data mark), we would
             * stay in the TELNET SYNCH (SYNCHing) state.
             * So, clocks to the rescue.  If we've "just"
             * received a DM, then we test for the
             * presence of OOB data when the receive OOB
             * fails (and AFTER we did the normal mode read
             * to clear "at the mark").
             */
        if (SYNCHing) {
            int atmark;
            static int bogus_oob = 0, first = 1;
 
            ioctl(net, SIOCATMARK, (char *)&atmark);
            if (atmark) {
                c = recv(net, netiring.supply, canread, MSG_OOB);
                if ((c == -1) && (errno == EINVAL)) {
                    c = recv(net, netiring.supply, canread, 0);
                    if (clocks.didnetreceive < clocks.gotDM) {
                        SYNCHing = stilloob(net);
                    }
                } else if (first && c > 0) {
                    /*
                     * Bogosity check.  Systems based on 4.2BSD
                     * do not return an error if you do a second
                     * recv(MSG_OOB).  So, we do one.  If it
                     * succeeds and returns exactly the same
                     * data, then assume that we are running
                     * on a broken system and set the bogus_oob
                     * flag.  (If the data was different, then
                     * we probably got some valid new data, so
                     * increment the count...)
                     */
                    int i;
                    i = recv(net, netiring.supply + c, canread - c, MSG_OOB);
                    if (i == c &&
                          bcmp(netiring.supply, netiring.supply + c, i) == 0) {
                        bogus_oob = 1;
                        first = 0;
                    } else if (i < 0) {
                        bogus_oob = 0;
                        first = 0;
                    } else
                        c += i;
                }
                if (bogus_oob && c > 0) {
                    int i;
                    /*
                     * Bogosity.  We have to do the read
                     * to clear the atmark to get out of
                     * an infinate loop.
                     */
                    i = read(net, netiring.supply + c, canread - c);
                    if (i > 0)
                        c += i;
                }
            } else {
                c = recv(net, netiring.supply, canread, 0);
            }
        } else {
            c = recv(net, netiring.supply, canread, 0);
        }
        settimer(didnetreceive);
#else   /* !defined(SO_OOBINLINE) */
        c = recv(net, (char *)netiring.supply, canread, 0);
#endif  /* !defined(SO_OOBINLINE) */
        if (c < 0 && errno == EWOULDBLOCK) {
            c = 0;
        } else if (c <= 0) {
            return -1;
        }
        if (netdata) {
            Dump('<', netiring.supply, c);
        }
        if (c)
            ring_supplied(&netiring, c);
        returnValue = 1;
    }
 
    /*
     * Something to read from the tty...
     */
    if (FD_ISSET(tin, &ibits)) {
        FD_CLR(tin, &ibits);
        c = TerminalRead(ttyiring.supply, ring_empty_consecutive(&ttyiring));
        if (c < 0 && errno == EIO)
            c = 0;
        if (c < 0 && errno == EWOULDBLOCK) {
            c = 0;
        } else {
            if (c < 0) {
                return -1;
            }
            if (c == 0) {
                        /* must be an EOF... */
                if (MODE_LOCAL_CHARS(globalmode) && isatty(tin)) {
                *ttyiring.supply = termEofChar;
                c = 1;
                } else {
                    clienteof = 1;
                    shutdown(net, 1);
                    return 0;
            }
            }
#if 0
            if (termdata) {
                Dump('<', ttyiring.supply, c);
            }
#endif 
            ring_supplied(&ttyiring, c);
        }
        returnValue = 1;                /* did something useful */
    }
 
    if (FD_ISSET(net, &obits)) {
        FD_CLR(net, &obits);
        returnValue |= netflush();
    }
    if (FD_ISSET(tout, &obits)) {
        FD_CLR(tout, &obits);
        returnValue |= (ttyflush(SYNCHing|flushout) > 0);
    }
 
    return returnValue;
}
 
#if 1
#define isprint(x)      (((x) >= 0x20) && ((x) < 0x7f))
dumpbuf(unsigned char *buf, int size)
{
        int     addr, i;
        for (addr = 0; (addr < size); addr += 16) {
                printf("%04x: ", addr);
                for (i = 0; (i < 16); i++) {
                        if ((addr + i) < size)
                                printf("%02x ", buf[addr+i]);
                        else
                                printf("   ");
                }
                printf("    ");
                for (i = 0; (i < 16); i++) {
                        if (((addr + i) < size) && isprint(buf[addr+i]))
                                printf("%c", buf[addr+i]);
                        else
                                printf(" ");
                }
                printf("\n");
        }
}
#endif
Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [uclinux/] [userland/] [telnet/] [sys_bsd.c] - Blame information for rev 1767

Line No.	Rev	Author	Line
1	763	simons	`/*`
2			`* Copyright (c) 1988, 1990, 1993`
3			`* The Regents of the University of California. All rights reserved.`
4			`*`
5			`* Redistribution and use in source and binary forms, with or without`
6			`* modification, are permitted provided that the following conditions`
7			`* are met:`
8			`* 1. Redistributions of source code must retain the above copyright`
9			`* notice, this list of conditions and the following disclaimer.`
10			`* 2. Redistributions in binary form must reproduce the above copyright`
11			`* notice, this list of conditions and the following disclaimer in the`
12			`* documentation and/or other materials provided with the distribution.`
13			`* 3. All advertising materials mentioning features or use of this software`
14			`* must display the following acknowledgement:`
15			`* This product includes software developed by the University of`
16			`* California, Berkeley and its contributors.`
17			`* 4. Neither the name of the University nor the names of its contributors`
18			`* may be used to endorse or promote products derived from this software`
19			`* without specific prior written permission.`
20			`*`
21			* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22			`* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE`
23			`* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE`
24			`* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE`
25			`* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL`
26			`* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS`
27			`* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)`
28			`* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT`
29			`* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY`
30			`* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF`
31			`* SUCH DAMAGE.`
32			`*/`
33
34			`#ifndef lint`
35			`static char sccsid[] = "@(#)sys_bsd.c 8.2 (Berkeley) 12/15/93";`
36			`#endif /* not lint */`
37
38			`/*`
39			`* The following routines try to encapsulate what is system dependent`
40			`* (at least between 4.x and dos) which is used in telnet.c.`