[unix-history] / 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, 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	5.2 (Berkeley) 3/1/91";
#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)
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) */
}

\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;
    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);
}
\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) {
	    (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)
	void
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) */
Commit	Line	Data
15637ed4 RG	1	/*
	2	* Copyright (c) 1988 Regents of the University of California.
	3	* 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[] = "@(#)tn3270.c 5.2 (Berkeley) 3/1/91";
	36	#endif /* not lint */
	37
	38	#include <sys/types.h>
	39	#include <arpa/telnet.h>
	40
	41	#include "general.h"
	42
	43	#include "defines.h"
	44	#include "ring.h"
	45	#include "externs.h"
	46	#include "fdset.h"
	47
	48	#if defined(TN3270)
	49
	50	#include "../ctlr/screen.h"
	51	#include "../general/globals.h"
	52
	53	#include "../telextrn.h"
	54	#include "../ctlr/externs.h"
	55
	56	#if defined(unix)
	57	int
	58	HaveInput, /* There is input available to scan */
	59	cursesdata, /* Do we dump curses data? */
	60	sigiocount; /* Number of times we got a SIGIO */
	61
	62	char tline[200];
	63	char transcom = 0; / transparent mode command (default: none) */
	64	#endif /* defined(unix) */
65
66	char Ibuf[8BUFSIZ], Ifrontp, *Ibackp;
67
68	static char sb_terminal[] = { IAC, SB,
69	TELOPT_TTYPE, TELQUAL_IS,
70	'I', 'B', 'M', '-', '3', '2', '7', '8', '-', '2',
71	IAC, SE };
72	#define SBTERMMODEL 13
73
74	static int
75	Sent3270TerminalType; /* Have we said we are a 3270? */
76
77	#endif /* defined(TN3270) */
78
79
80	void
81	init_3270()
82	{
83	#if defined(TN3270)
84	#if defined(unix)
85	HaveInput = 0;
86	sigiocount = 0;
87	#endif /* defined(unix) */
88	Sent3270TerminalType = 0;
89	Ifrontp = Ibackp = Ibuf;
90	init_ctlr(); /* Initialize some things */
91	init_keyboard();
92	init_screen();
93	init_system();
94	#endif /* defined(TN3270) */
95	}
96
97	\f
98	#if defined(TN3270)
99
100	/*
101	* DataToNetwork - queue up some data to go to network. If "done" is set,
102	* then when last byte is queued, we add on an IAC EOR sequence (so,
103	* don't call us with "done" until you want that done...)
104	*
105	* We actually do send all the data to the network buffer, since our
106	* only client needs for us to do that.
107	*/
108
109	int
110	DataToNetwork(buffer, count, done)
111	register char buffer; / where the data is */
112	register int count; /* how much to send */
113	int done; /* is this the last of a logical block */
114	{
115	register int loop, c;
116	int origCount;
117
118	origCount = count;
119
120	while (count) {
121	/* If not enough room for EORs, IACs, etc., wait */
122	if (NETROOM() < 6) {
123	fd_set o;
124
125	FD_ZERO(&o);
126	netflush();
127	while (NETROOM() < 6) {
128	FD_SET(net, &o);
129	(void) select(net+1, (fd_set ) 0, &o, (fd_set ) 0,
130	(struct timeval *) 0);
131	netflush();
132	}
133	}
134	c = ring_empty_count(&netoring);
135	if (c > count) {
136	c = count;
137	}
138	loop = c;
139	while (loop) {
140	if (((unsigned char)*buffer) == IAC) {
141	break;
142	}
143	buffer++;
144	loop--;
145	}
146	if ((c = c-loop)) {
147	ring_supply_data(&netoring, buffer-c, c);
148	count -= c;
149	}
150	if (loop) {
151	NET2ADD(IAC, IAC);
152	count--;
153	buffer++;
154	}
155	}
156
157	if (done) {
158	NET2ADD(IAC, EOR);
159	netflush(); /* try to move along as quickly as ... */
160	}
161	return(origCount - count);
162	}
163
164
165	#if defined(unix)
166	void
167	inputAvailable()
168	{
169	HaveInput = 1;
170	sigiocount++;
171	}
172	#endif /* defined(unix) */
173
174	void
175	outputPurge()
176	{
177	(void) ttyflush(1);
178	}
179
180
181	/*
182	* The following routines are places where the various tn3270
183	* routines make calls into telnet.c.
184	*/
185
186	/*
187	* DataToTerminal - queue up some data to go to terminal.
188	*
189	* Note: there are people who call us and depend on our processing
190	* all the data at one time (thus the select).
191	*/
192
193	int
194	DataToTerminal(buffer, count)
195	register char buffer; / where the data is */
196	register int count; /* how much to send */
197	{
198	register int c;
199	int origCount;
200
201	origCount = count;
202
203	while (count) {
204	if (TTYROOM() == 0) {
205	#if defined(unix)
206	fd_set o;
207
208	FD_ZERO(&o);
209	#endif /* defined(unix) */
210	(void) ttyflush(0);
211	while (TTYROOM() == 0) {
212	#if defined(unix)
213	FD_SET(tout, &o);
214	(void) select(tout+1, (fd_set ) 0, &o, (fd_set ) 0,
215	(struct timeval *) 0);
216	#endif /* defined(unix) */
217	(void) ttyflush(0);
218	}
219	}
220	c = TTYROOM();
221	if (c > count) {
222	c = count;
223	}
224	ring_supply_data(&ttyoring, buffer, c);
225	count -= c;
226	buffer += c;
227	}
228	return(origCount);
229	}
230	\f
231
232	/*
233	* Push3270 - Try to send data along the 3270 output (to screen) direction.
234	*/
235
236	int
237	Push3270()
238	{
239	int save = ring_full_count(&netiring);
240
241	if (save) {
242	if (Ifrontp+save > Ibuf+sizeof Ibuf) {
243	if (Ibackp != Ibuf) {
244	memcpy(Ibuf, Ibackp, Ifrontp-Ibackp);
245	Ifrontp -= (Ibackp-Ibuf);
246	Ibackp = Ibuf;
247	}
248	}
249	if (Ifrontp+save < Ibuf+sizeof Ibuf) {
250	(void)telrcv();
251	}
252	}
253	return save != ring_full_count(&netiring);
254	}
255
256
257	/*
258	* Finish3270 - get the last dregs of 3270 data out to the terminal
259	* before quitting.
260	*/
261
262	void
263	Finish3270()
264	{
265	while (Push3270() \|\| !DoTerminalOutput()) {
266	#if defined(unix)
267	HaveInput = 0;
268	#endif /* defined(unix) */
269	;
270	}
271	}
272
273
274	/* StringToTerminal - output a null terminated string to the terminal */
275
276	void
277	StringToTerminal(s)
278	char *s;
279	{
280	int count;
281
282	count = strlen(s);
283	if (count) {
284	(void) DataToTerminal(s, count); /* we know it always goes... */
285	}
286	}
287
288
289	#if ((!defined(NOT43)) \|\| defined(PUTCHAR))
290	/* _putchar - output a single character to the terminal. This name is so that
291	* curses(3x) can call us to send out data.
292	*/
293
294	void
295	_putchar(c)
296	char c;
297	{
298	#if defined(sun) /* SunOS 4.0 bug */
299	c &= 0x7f;
300	#endif /* defined(sun) */
301	if (cursesdata) {
302	Dump('>', &c, 1);
303	}
304	if (!TTYROOM()) {
305	(void) DataToTerminal(&c, 1);
306	} else {
307	TTYADD(c);
308	}
309	}
310	#endif /* ((!defined(NOT43)) \|\| defined(PUTCHAR)) */
311
312	void
313	SetIn3270()
314	{
315	if (Sent3270TerminalType && my_want_state_is_will(TELOPT_BINARY)
316	&& my_want_state_is_do(TELOPT_BINARY) && !donebinarytoggle) {
317	if (!In3270) {
318	In3270 = 1;
319	Init3270(); /* Initialize 3270 functions */
320	/* initialize terminal key mapping */
321	InitTerminal(); /* Start terminal going */
322	setconnmode(0);
323	}
324	} else {
325	if (In3270) {
326	StopScreen(1);
327	In3270 = 0;
328	Stop3270(); /* Tell 3270 we aren't here anymore */
329	setconnmode(0);
330	}
331	}
332	}
333
334	/*
335	* tn3270_ttype()
336	*
337	* Send a response to a terminal type negotiation.
338	*
339	* Return '0' if no more responses to send; '1' if a response sent.
340	*/
341
342	int
343	tn3270_ttype()
344	{
345	/*
346	* Try to send a 3270 type terminal name. Decide which one based
347	* on the format of our screen, and (in the future) color
348	* capaiblities.
349	*/
350	InitTerminal(); /* Sets MaxNumberColumns, MaxNumberLines */
351	if ((MaxNumberLines >= 24) && (MaxNumberColumns >= 80)) {
352	Sent3270TerminalType = 1;
353	if ((MaxNumberLines >= 27) && (MaxNumberColumns >= 132)) {
354	MaxNumberLines = 27;
355	MaxNumberColumns = 132;
356	sb_terminal[SBTERMMODEL] = '5';
357	} else if (MaxNumberLines >= 43) {
358	MaxNumberLines = 43;
359	MaxNumberColumns = 80;
360	sb_terminal[SBTERMMODEL] = '4';
361	} else if (MaxNumberLines >= 32) {
362	MaxNumberLines = 32;
363	MaxNumberColumns = 80;
364	sb_terminal[SBTERMMODEL] = '3';
365	} else {
366	MaxNumberLines = 24;
367	MaxNumberColumns = 80;
368	sb_terminal[SBTERMMODEL] = '2';
369	}
370	NumberLines = 24; /* before we start out... */
371	NumberColumns = 80;
372	ScreenSize = NumberLines*NumberColumns;
373	if ((MaxNumberLines*MaxNumberColumns) > MAXSCREENSIZE) {
374	ExitString("Programming error: MAXSCREENSIZE too small.\n",
375	1);
376	/NOTREACHED/
377	}
378	printsub('>', sb_terminal+2, sizeof sb_terminal-2);
379	ring_supply_data(&netoring, sb_terminal, sizeof sb_terminal);
380	return 1;
381	} else {
382	return 0;
383	}
384	}
385
386	#if defined(unix)
387	void
388	settranscom(argc, argv)
389	int argc;
390	char *argv[];
391	{
392	int i;
393
394	if (argc == 1 && transcom) {
395	transcom = 0;
396	}
397	if (argc == 1) {
398	return;
399	}
400	transcom = tline;
401	(void) strcpy(transcom, argv[1]);
402	for (i = 2; i < argc; ++i) {
403	(void) strcat(transcom, " ");
404	(void) strcat(transcom, argv[i]);
405	}
406	}
407	#endif /* defined(unix) */
408
409	#endif /* defined(TN3270) */