mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-22 11:17:19 +00:00
412 lines
9.3 KiB
C
412 lines
9.3 KiB
C
|
/*
|
|||
|
* Copyright (c) 1988, 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[] = "@(#)tn3270.c 8.1 (Berkeley) 6/6/93";
|
|||
|
#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 "../sys_curses/telextrn.h"
|
|||
|
#include "../ctlr/externs.h"
|
|||
|
|
|||
|
#if defined(unix)
|
|||
|
int
|
|||
|
HaveInput, /* There is input available to scan */
|
|||
|
cursesdata, /* Do we dump curses data? */
|
|||
|
sigiocount; /* Number of times we got a SIGIO */
|
|||
|
|
|||
|
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)
|
|||
|
#if defined(unix)
|
|||
|
HaveInput = 0;
|
|||
|
sigiocount = 0;
|
|||
|
#endif /* defined(unix) */
|
|||
|
Sent3270TerminalType = 0;
|
|||
|
Ifrontp = Ibackp = Ibuf;
|
|||
|
init_ctlr(); /* Initialize some things */
|
|||
|
init_keyboard();
|
|||
|
init_screen();
|
|||
|
init_system();
|
|||
|
#endif /* defined(TN3270) */
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
#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(signo)
|
|||
|
int signo;
|
|||
|
{
|
|||
|
HaveInput = 1;
|
|||
|
sigiocount++;
|
|||
|
}
|
|||
|
#endif /* defined(unix) */
|
|||
|
|
|||
|
void
|
|||
|
outputPurge()
|
|||
|
{
|
|||
|
(void) 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) */
|
|||
|
(void) 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) */
|
|||
|
(void) ttyflush(0);
|
|||
|
}
|
|||
|
}
|
|||
|
c = TTYROOM();
|
|||
|
if (c > count) {
|
|||
|
c = count;
|
|||
|
}
|
|||
|
ring_supply_data(&ttyoring, buffer, c);
|
|||
|
count -= c;
|
|||
|
buffer += c;
|
|||
|
}
|
|||
|
return(origCount);
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
/*
|
|||
|
* 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) {
|
|||
|
(void)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 (cursesdata) {
|
|||
|
Dump('>', &c, 1);
|
|||
|
}
|
|||
|
if (!TTYROOM()) {
|
|||
|
(void) DataToTerminal(&c, 1);
|
|||
|
} else {
|
|||
|
TTYADD(c);
|
|||
|
}
|
|||
|
}
|
|||
|
#endif /* ((!defined(NOT43)) || defined(PUTCHAR)) */
|
|||
|
|
|||
|
void
|
|||
|
SetIn3270()
|
|||
|
{
|
|||
|
if (Sent3270TerminalType && my_want_state_is_will(TELOPT_BINARY)
|
|||
|
&& my_want_state_is_do(TELOPT_BINARY) && !donebinarytoggle) {
|
|||
|
if (!In3270) {
|
|||
|
In3270 = 1;
|
|||
|
Init3270(); /* Initialize 3270 functions */
|
|||
|
/* initialize terminal key mapping */
|
|||
|
InitTerminal(); /* Start terminal going */
|
|||
|
setconnmode(0);
|
|||
|
}
|
|||
|
} else {
|
|||
|
if (In3270) {
|
|||
|
StopScreen(1);
|
|||
|
In3270 = 0;
|
|||
|
Stop3270(); /* Tell 3270 we aren't here anymore */
|
|||
|
setconnmode(0);
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
/*
|
|||
|
* 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)
|
|||
|
int
|
|||
|
settranscom(argc, argv)
|
|||
|
int argc;
|
|||
|
char *argv[];
|
|||
|
{
|
|||
|
int i;
|
|||
|
|
|||
|
if (argc == 1 && transcom) {
|
|||
|
transcom = 0;
|
|||
|
}
|
|||
|
if (argc == 1) {
|
|||
|
return 1;
|
|||
|
}
|
|||
|
transcom = tline;
|
|||
|
(void) strcpy(transcom, argv[1]);
|
|||
|
for (i = 2; i < argc; ++i) {
|
|||
|
(void) strcat(transcom, " ");
|
|||
|
(void) strcat(transcom, argv[i]);
|
|||
|
}
|
|||
|
return 1;
|
|||
|
}
|
|||
|
#endif /* defined(unix) */
|
|||
|
|
|||
|
#endif /* defined(TN3270) */
|