Context Navigation

ckuus7.c @ 10780

Visit:

Revision 10780, 161.3 KB checked in by brlewis, 27 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r10779, which included commits to RCS files with non-trunk default branches.

Rev	Line
[10779]	1	#include "ckcsym.h"
	2	#ifndef NOICP
	3
	4	/* C K U U S 7 -- "User Interface" for C-Kermit, part 7 */
	5
	6	/*
	7	Author: Frank da Cruz <fdc@columbia.edu>,
	8	Columbia University Academic Information Systems, New York City.
	9
	10	Copyright (C) 1985, 1996, Trustees of Columbia University in the City of New
	11	York. The C-Kermit software may not be, in whole or in part, licensed or
	12	sold for profit as a software product itself, nor may it be included in or
	13	distributed with commercial products or otherwise distributed by commercial
	14	concerns to their clients or customers without written permission of the
	15	Office of Kermit Development and Distribution, Columbia University. This
	16	copyright notice must not be removed, altered, or obscured.
	17	*/
	18
	19	/*
	20	This file created from parts of ckuus3.c, which became to big for
	21	Mark Williams Coherent compiler to handle.
	22	*/
	23
	24	/*
	25	Definitions here supersede those from system include files.
	26	*/
	27	#include "ckcdeb.h" /* Debugging & compiler things */
	28	#include "ckcasc.h" /* ASCII character symbols */
	29	#include "ckcker.h" /* Kermit application definitions */
	30	#include "ckcxla.h" /* Character set translation */
	31	#include "ckcnet.h" /* Network symbols */
	32	#include "ckuusr.h" /* User interface symbols */
	33	#include "ckucmd.h"
	34	#ifdef CKOUNI
	35	#include "ckouni.h"
	36	#endif /* CKOUNI */
	37
	38	#ifdef OS2
	39	#ifndef NT
	40	#define INCL_NOPM
	41	#define INCL_VIO /* needed for ckocon.h */
	42	#define INCL_DOSMODULEMGR
	43	#include <os2.h>
	44	#undef COMMENT
	45	#else /* NT */
	46	#define APIRET ULONG
	47	#include "cknwin.h"
	48	#include "ckntap.h"
	49	#endif /* NT */
	50	#include "ckowin.h"
	51	#include "ckocon.h"
	52	#include "ckodir.h"
	53	#ifdef OS2MOUSE
	54	#include "ckokey.h"
	55	#endif /* OS2MOUSE */
	56	#ifdef KUI
	57	#include "ikui.h"
	58	#endif /* KUI */
	59	#ifdef putchar
	60	#undef putchar
	61	#endif /* putchar */
	62	#define putchar(x) conoc(x)
	63	extern int mskkeys;
	64	#endif /* OS2 */
	65
	66	#ifdef STRATUS /* Stratus Computer, Inc. VOS */
	67	#ifdef putchar
	68	#undef putchar
	69	#endif /* putchar */
	70	#define putchar(x) conoc(x)
	71	#ifdef getchar
	72	#undef getchar
	73	#endif /* getchar */
	74	#define getchar(x) coninc(0)
	75	#endif /* STRATUS */
	76
	77	static int x, y = 0, z;
	78	static char *s;
	79
	80	#ifdef CK_SPEED
	81	extern short ctlp[]; /* Control-char prefixing table */
	82	#endif /* CK_SPEED */
	83
	84	#ifdef NETCONN
	85	extern struct keytab netcmd[];
	86	#ifndef NODIAL
	87	extern int dirline;
	88	extern int nnets, nnetdir; /* Network services directory */
	89	extern char *netdir[];
	90	_PROTOTYP( VOID ndinit, (void) );
	91	_PROTOTYP( VOID ndreset, (void) );
	92	char nh_p[MAXDNUMS + 1]; / Network directory entry pointers */
	93	char nh_p2[MAXDNUMS + 1]; / Network directory entry nettype */
	94	char nh_px[4][MAXDNUMS + 1]; / Network-specific stuff... */
	95	#endif /* NODIAL */
	96	int nhcount = 0;
	97	int ndinited = 0;
	98	char * n_name = NULL; /* Network name pointer */
	99	static int oldplex = -1; /* Duplex holder around network */
	100	#endif /* NETCONN */
	101
	102	_PROTOTYP(static int remtxt, (char **) );
	103	_PROTOTYP(VOID rmsg, (void) );
	104	_PROTOTYP(static int remcfm, (void) );
	105
	106	#ifndef NOPUSH
	107	extern int nopush;
	108	#endif /* NOPUSH */
	109
	110	int mdmsav = -1; /* Save modem type around network */
	111
	112	extern xx_strp xxstring;
	113
	114	extern int remfile, rempipe, remappd; /* REMOTE output redirection */
	115	extern char * remdest;
	116
	117	#ifdef CK_TMPDIR
	118	char * dldir = NULL;
	119	#endif /* CK_TMPDIR */
	120
	121	extern struct ck_p ptab[];
	122	extern int protocol;
	123
	124	extern int success, nfilp, fmask, fncnv, frecl, binary, warn, msgflg, quiet;
	125	extern int cmask, maxrps, wslotr, bigsbsiz, bigrbsiz, urpsiz, rpsiz, spsiz;
	126	extern int spsizr, spsizf, maxsps, spmax, pflag, bctr, npad, timef, timint;
	127	extern int pkttim, rtimo, local, nfils, displa, atcapr, nettype, escape;
	128	extern int mdmtyp, duplex, dfloc, network, cdtimo, fncact, mypadn, autoflow;
	129	extern int tnlm, sosi, tlevel, lf_opts, backgrd, flow, fdispla, b_save, f_save;
	130	extern int fnrpath, fnspath, debses, parity, pktpaus, ttnproto, ckxech;
	131	extern int x_ifnum;
	132	extern int
	133	atenci, atenco, atdati, atdato, atleni, atleno, atblki, atblko,
	134	attypi, attypo, atsidi, atsido, atsysi, atsyso, atdisi, atdiso;
	135	extern char psave[]; /* For saving & restoring prompt */
	136
	137	#ifdef OS2
	138	#ifdef NT
	139	#define stricmp _stricmp
	140	extern int tt_attr_bug;
	141	#endif /* NT */
	142	extern int tt_rows[], tt_cols[];
	143	extern int tt_cols_usr;
	144	extern int tt_szchng[VNUM];
	145	int tt_modechg = 1;
	146	extern struct _vtG G[4], GL, GR, GNOW, SSGL;
	147	struct _vtG savedG[4];
	148	extern int priority;
	149	extern bool send_c1;
	150	int send_c1_usr = FALSE;
	151	extern int sgrcolors;
	152	#else
	153	extern int tt_rows, tt_cols;
	154	#endif /* OS2 */
	155
	156	#ifdef STRATUS
	157	extern int atfrmi, atfrmo, atcrei, atcreo, atacti, atacto;
	158	#endif /* STRATUS */
	159
	160	extern int tt_escape;
	161	extern long speed;
	162
	163	extern CHAR
	164	feol, sstate, eol, seol, stchr, mystch, mypadc, padch, ctlq, myctlq;
	165
	166	extern char cmarg, cmarg2, *dftty;
	167
	168	extern char tp, lp; /* Temporary buffer & pointers */
	169	#ifndef NOFRILLS
	170	extern char optbuf[]; /* Buffer for MAIL or PRINT options */
	171	extern int rprintf; /* REMOTE PRINT flag */
	172	#endif /* NOFRILLS */
	173	extern char ttname[];
	174
	175	int tttapi = 0; /* is Line TAPI? */
	176	struct keytab * tapilinetab = NULL;
	177	int ntapiline = 0;
	178
	179	#ifdef NETCONN /* Network items */
	180
	181	#ifdef ANYX25
	182	extern int revcall, closgr, cudata, nx25, npadx3;
	183	extern char udata[];
	184	extern CHAR padparms[];
	185	extern struct keytab x25tab[], padx3tab[];
	186	#endif /* ANYX25 */
	187
	188	#ifdef OS2
	189	#ifndef NT
	190	extern bool ttslip,ttppp;
	191	#endif /* NT */
	192	#endif /* OS2 */
	193	#ifdef NPIPE
	194	extern char pipename[];
	195	#endif /* NPIPE */
	196
	197	#ifdef TCPSOCKET
	198	#ifdef TNCODE
	199	extern int tn_init;
	200	#endif /* TNCODE */
	201	_PROTOTYP( int tn_snaws, (void) );
	202	#ifdef RLOGCODE
	203	_PROTOTYP( int rlog_naws, (void) );
	204	#endif /* RLOGCODE */
	205	extern int nawsflg;
	206
	207	extern int me_binary, u_binary;
	208	#endif /* TCPSOCKET */
	209
	210	#ifdef SUPERLAT
	211	extern char slat_pwd[18];
	212	#endif /* SUPERLAT */
	213
	214	#endif /* NETCONN */
	215
	216	#ifdef COMMENT
	217	#ifndef NOSETKEY
	218	extern KEY *keymap;
	219	#ifndef OS2
	220	#define mapkey(x) keymap[x]
	221	#endif /* OS2 */
	222	extern MACRO *macrotab;
	223	_PROTOTYP( VOID shostrdef, (CHAR *) );
	224	#ifndef NOKVERBS
	225	extern struct keytab kverbs[];
	226	extern int nkverbs;
	227	#endif /* NOKVERBS */
	228	#endif /* NOSETKEY */
	229	#else
	230	#ifndef NOSETKEY
	231	extern KEY *keymap;
	232	extern MACRO *macrotab;
	233	_PROTOTYP( VOID shostrdef, (CHAR *) );
	234	#ifndef NOKVERBS
	235	extern struct keytab kverbs[];
	236	extern int nkverbs;
	237	#endif /* NOKVERBS */
	238	#endif /* NOSETKEY */
	239	#endif /* COMMENT */
	240
	241	/* Keyword tables ... */
	242
	243	extern struct keytab onoff[], filtab[], rltab[];
	244	extern int nrlt;
	245
	246	struct keytab fttab[] = { /* File types for SET FILE TYPE */
	247	"ascii", XYFT_B, CM_INV,
	248	#ifdef VMS
	249	"b", XYFT_B, CM_INV\|CM_ABR,
	250	#endif /* VMS */
	251	"binary", XYFT_B, 0,
	252	#ifdef VMS
	253	"block", XYFT_I, CM_INV,
	254	"image", XYFT_I, 0,
	255	#endif /* VMS */
	256	#ifdef CK_LABELED
	257	"labeled", XYFT_L, 0,
	258	#endif /* CK_LABELED */
	259	#ifdef MAC
	260	"macbinary", XYFT_M, 0,
	261	#endif /* MAC */
	262	"text", XYFT_T, 0
	263	};
	264	int nfttyp = (sizeof(fttab) / sizeof(struct keytab));
	265
	266	static struct keytab rfttab[] = { /* File types for REMOTE SET FILE */
	267	"ascii", XYFT_B, CM_INV,
	268	"binary", XYFT_B, 0,
	269	#ifdef VMS
	270	"labeled", XYFT_L, 0,
	271	#else
	272	#ifdef OS2
	273	"labeled", XYFT_L, 0,
	274	#endif /* OS2 */
	275	#endif /* VMS */
	276	"text", XYFT_T, 0
	277	};
	278	static int nrfttyp = (sizeof(rfttab) / sizeof(struct keytab));
	279
	280	extern char uidbuf[];
	281	static int uidflag = 0;
	282
	283	#ifndef NOSPL
	284
	285	int query = 0; /* Global flag for QUERY active */
	286
	287	static struct keytab vartyp[] = { /* Variable types for REMOTE QUERY */
	288	"global", (int) 'G', CM_INV,
	289	"kermit", (int) 'K', 0,
	290	"system", (int) 'S', 0,
	291	"user", (int) 'G', 0
	292	};
	293	static int nvartyp = (sizeof(vartyp) / sizeof(struct keytab));
	294	#endif /* NOSPL */
	295
	296	#ifdef CK_TIMERS
	297	static struct keytab timotab[] = { /* Timer types */
	298	"dynamic", 1, 0,
	299	"fixed", 0, 0
	300	};
	301	#endif /* CK_TIMERS */
	302
	303	#ifdef DCMDBUF
	304	extern char atxbuf, atmbuf; /* Atom buffer */
	305	extern char cmdbuf; / Command buffer */
	306	extern char line, tmpbuf; /* Character buffers for anything */
	307	extern int intime; / INPUT TIMEOUT */
	308
	309	#else /* Not DCMDBUF ... */
	310
	311	extern char atxbuf[], atmbuf[]; /* Atom buffer */
	312	extern char cmdbuf[]; /* Command buffer */
	313	extern char line[], tmpbuf[]; /* Character buffer for anything */
	314	extern int intime[];
	315
	316	#endif /* DCMDBUF */
	317
	318	#ifndef NOCSETS
	319	extern struct keytab fcstab[]; /* For SET FILE CHARACTER-SET */
	320	extern struct keytab ttcstab[];
	321	extern int nfilc, fcharset, tcharset, ntermc, tcsr, tcsl;
	322	#ifdef OS2
	323	_PROTOTYP( int os2setcp, (int) );
	324	_PROTOTYP( int os2getcp, (void) );
	325	_PROTOTYP( void os2debugoff, (void) );
	326	#endif /* OS2 */
	327	#endif /* NOCSETS */
	328
	329	#ifndef NOSPL
	330	extern int cmdlvl; /* Overall command level */
	331	#ifdef DCMDBUF
	332	extern int inpcas; / INPUT CASE setting on cmd stack */
	333	#else
	334	extern int inpcas[];
	335	#endif /* DCMDBUF */
	336	#endif /* NOSPL */
	337
	338	#ifdef CK_CURSES
	339	#ifndef VMS
	340	#ifndef COHERENT
	341	_PROTOTYP(int tgetent,(char , char ));
	342	#endif /* COHERENT */
	343	#else
	344	#ifdef __DECC
	345	_PROTOTYP(int tgetent,(char , char ));
	346	#endif /* __DECC */
	347	#endif /* VMS */
	348	#endif /* CK_CURSES */
	349
	350	#ifndef NOXMIT
	351	#define XMITF 0 /* SET TRANSMIT values */
	352	#define XMITL 1 /* (Local to this module) */
	353	#define XMITP 2
	354	#define XMITE 3
	355	#define XMITX 4
	356	#define XMITS 5
	357	#define XMITW 6
	358
	359	#define XMBUFL 50
	360	extern int xmitf, xmitl, xmitp, xmitx, xmits, xmitw;
	361	char xmitbuf[XMBUFL+1] = { NUL }; /* TRANSMIT eof string */
	362
	363	struct keytab xmitab[] = { /* SET TRANSMIT */
	364	"echo", XMITX, 0,
	365	"eof", XMITE, 0,
	366	"fill", XMITF, 0,
	367	"linefeed", XMITL, 0,
	368	"locking-shift", XMITS, 0,
	369	"pause", XMITW, 0,
	370	"prompt", XMITP, 0
	371	};
	372	int nxmit = (sizeof(xmitab) / sizeof(struct keytab));
	373	#endif /* NOXMIT */
	374
	375	/* For SET FILE COLLISION */
	376	/* Some of the following may be possible for some C-Kermit implementations */
	377	/* but not others. Those that are not possible for your implementation */
	378	/* should be ifdef'd out. */
	379
	380	struct keytab colxtab[] = { /* SET FILE COLLISION options */
	381	#ifndef MAC
	382	"append", XYFX_A, 0, /* append to old file */
	383	#endif /* MAC */
	384	#ifdef COMMENT
	385	"ask", XYFX_Q, 0, /* ask what to do (not implemented) */
	386	#endif
	387	"backup", XYFX_B, 0, /* rename old file */
	388	#ifndef MAC
	389	/* This crashes Mac Kermit. */
	390	"discard", XYFX_D, 0, /* don't accept new file */
	391	"no-supersede", XYFX_D, CM_INV, /* ditto (MSK compatibility) */
	392	#endif /* MAC */
	393	"overwrite", XYFX_X, 0, /* overwrite the old file == file warning off */
	394	"rename", XYFX_R, 0 /* rename the incoming file == file warning on */
	395	#ifndef MAC
	396	/* This crashes Mac Kermit. */
	397	, "update", XYFX_U, 0 /* replace if newer */
	398	#endif /* MAC */
	399	};
	400	int ncolx = (sizeof(colxtab) / sizeof(struct keytab));
	401
	402	static struct keytab rfiltab[] = { /* for REMOTE SET FILE */
	403	"collision", XYFILX, 0,
	404	"names", XYFILN, 0,
	405	"record-length", XYFILR, 0,
	406	"type", XYFILT, 0
	407	};
	408	int nrfilp = (sizeof(rfiltab) / sizeof(struct keytab));
	409
	410	struct keytab eoftab[] = { /* File eof delimiters */
	411	"cr", XYFA_C, 0,
	412	"crlf", XYFA_2, 0,
	413	"lf", XYFA_L, 0
	414	};
	415	static int neoftab = (sizeof(eoftab) / sizeof(struct keytab));
	416
	417	struct keytab fntab[] = { /* File naming */
	418	"converted", XYFN_C, 0,
	419	"literal", XYFN_L, 0
	420	};
	421	int nfntab = (sizeof(fntab) / sizeof(struct keytab));
	422
	423	#ifndef NOLOCAL
	424	/* Terminal parameters table */
	425	static struct keytab trmtab[] = {
	426	#ifdef OS2
	427	"answerback", XYTANS, 0,
	428	#endif /* OS2 */
	429	#ifdef CK_APC
	430	"apc", XYTAPC, 0,
	431	#endif /* CK_APC */
	432	#ifdef OS2
	433	"arrow-keys", XYTARR, 0,
	434	#endif /* OS2 */
	435	#ifdef NT
	436	"attr", XYTATTR, CM_INV\|CM_ABR,
	437	"attr-bug", XYTATTBUG, CM_INV,
	438	#endif /* NT */
	439	#ifdef OS2
	440	"attribute", XYTATTR, 0,
	441	#endif /* OS2 */
	442	#ifdef CK_APC
	443	#ifdef CK_AUTODL
	444	"autodownload", XYTAUTODL, 0,
	445	#endif /* CK_AUTODL */
	446	#endif /* CK_APC */
	447	#ifdef OS2
	448	"bell", XYTBEL, CM_INV,
	449	#endif /* OS2 */
	450	"bytesize", XYTBYT, 0,
	451	#ifndef NOCSETS
	452	#ifndef KUI
	453	#ifdef OS2
	454	"character-set", XYTCS, CM_INV,
	455	#else /* OS2 */
	456	"character-set", XYTCS, 0,
	457	#endif /* OS2 */
	458	#endif /* KUI */
	459	#endif /* NOCSETS */
	460	#ifdef OS2
	461	"code-page", XYTCPG, 0,
	462	"color", XYTCOL, 0,
	463	"controls", XYTCTRL, 0,
	464	#endif /* OS2 */
	465	"cr-display", XYTCRD, 0,
	466	#ifdef OS2
	467	"cursor", XYTCUR, 0,
	468	#endif /* OS2 */
	469	"debug", XYTDEB, 0,
	470	"echo", XYTEC, 0,
	471	"escape-character", XYTESC, 0,
	472	#ifdef OS2
	473	#ifdef PCFONTS
	474	"font", XYTFON, 0,
	475	#endif /* PCFONTS */
	476	#endif /* OS2 */
	477	"height", XYTHIG, 0,
	478	#ifdef OS2
	479	#ifdef COMMENT
	480	/* not needed anymore -- 5a(191) new screen handler mechanism */
	481	"hide-cursor", XYTHCU, 0,
	482	#endif /* COMMENT */
	483	"key", XYTKEY, 0,
	484	"keypad-mode", XYTKPD, 0,
	485	#endif /* OS2 */
	486	#ifndef NOCSETS
	487	#ifdef OS2
	488	"local-character-set", XYTLCS, 0,
	489	#else
	490	"local-character-set", XYTLCS, CM_INV,
	491	#endif /* OS2 */
	492	#endif /* NOCSETS */
	493	"locking-shift", XYTSO, 0,
	494	#ifdef OS2MOUSE
	495	"mouse", XYTMOU, CM_INV,
	496	#endif /* OS2MOUSE */
	497	"newline-mode", XYTNL, 0,
	498	#ifdef OS2
	499	"output-pacing", XYTPAC, 0,
	500	#ifndef NOCSETS
	501	#ifdef OS2
	502	"remote-character-set", XYTRCS, 0,
	503	#else
	504	"remote-character-set", XYTRCS, CM_INV,
	505	#endif /* OS2 */
	506	#endif /* NOCSETS */
	507	"roll-mode", XYTROL, 0,
	508	"screen-update", XYTUPD, 0,
	509	"scrollback", XYSCRS, 0,
	510	"send-data", XYTSEND, 0,
	511	"send-end-of-block", XYTSEOB, 0,
	512	"sgr-colors", XYTSGRC, 0,
	513	"statusline", XYTSTAT, 0,
	514	"transmit-timeout", XYTCTS, 0,
	515	"type", XYTTYP, 0,
	516	#else
	517	"type", XYTTYP, CM_INV,
	518	#endif /* OS2 */
	519
	520	#ifdef OS2
	521	#ifndef NOCSETS
	522	#ifdef CKOUNI
	523	"unicode", XYTUNI, CM_INV,
	524	#endif /* CKOUNI */
	525	#endif /* NOCSETS */
	526	#ifdef NT
	527	"video-change", XYTVCH, 0,
	528	#endif /* NT */
	529	#endif /* OS2 */
	530	"width", XYTWID, 0,
	531	#ifdef OS2
	532	"wrap", XYTWRP, 0,
	533	#endif /* OS2 */
	534	"", 0, 0
	535	};
	536	int ntrm = (sizeof(trmtab) / sizeof(struct keytab)) - 1;
	537
	538	#ifdef OS2
	539	struct keytab termctrl[] = { /* SET TERM CONTROLS */
	540	"7", 7, 0,
	541	"8", 8, 0
	542	};
	543	int ntermctrl = (sizeof(termctrl) / sizeof(struct keytab));
	544
	545	struct keytab rolltab[] = { /* Set TERM Roll Options */
	546	"insert", TTR_INSERT, 0,
	547	"off", TTR_OVER, CM_INV,
	548	"on", TTR_INSERT, CM_INV,
	549	"overwrite", TTR_OVER, 0
	550	};
	551	int nroll = (sizeof(rolltab) / sizeof(struct keytab));
	552
	553	#define TT_GR_ALL 4
	554	#define TT_GR_G0 0
	555	#define TT_GR_G1 1
	556	#define TT_GR_G2 2
	557	#define TT_GR_G3 3
	558	struct keytab graphsettab[] = { /* DEC VT Graphic Sets */
	559	"all", TT_GR_ALL, 0,
	560	"g0", TT_GR_G0, 0,
	561	"g1", TT_GR_G1, 0,
	562	"g2", TT_GR_G2, 0,
	563	"g3", TT_GR_G3, 0
	564	};
	565	int ngraphset = (sizeof(graphsettab) / sizeof(struct keytab));
	566
	567	#endif /* OS2 */
	568
	569	struct keytab crdtab[] = { /* Carriage-return display */
	570	"crlf", 1, 0,
	571	"normal", 0, 0
	572	};
	573	extern int tt_crd; /* Carriage-return display variable */
	574
	575	#ifdef CK_APC
	576	extern int apcstatus, apcactive;
	577	static struct keytab apctab[] = { /* Terminal APC parameters */
	578	"off", APC_OFF, 0,
	579	"on", APC_ON, 0,
	580	"unchecked", APC_UNCH, 0
	581	};
	582	#endif /* CK_APC */
	583	#endif /* NOLOCAL */
	584
	585	extern int autodl;
	586
	587	#ifdef OS2
	588	/*
	589	OS/2 serial communication devices.
	590	*/
	591	struct keytab os2devtab[] = {
	592	"1", 1, CM_INV, /* Invisible synonyms, like */
	593	"2", 2, CM_INV, /* "set port 1" */
	594	"3", 3, CM_INV,
	595	"4", 4, CM_INV,
	596	"5", 5, CM_INV,
	597	"6", 6, CM_INV,
	598	"7", 7, CM_INV,
	599	"8", 8, CM_INV,
	600	"com1", 1, 0, /* Real device names */
	601	"com2", 2, 0,
	602	"com3", 3, 0,
	603	"com4", 4, 0,
	604	"com5", 5, 0,
	605	"com6", 6, 0,
	606	"com7", 7, 0,
	607	"com8", 8, 0
	608	#ifdef OS2ONLY
	609	,"slipcom1", 1, 0, /* For use with SLIP driver */
	610	"slipcom2", 2, 0,
	611	"slipcom3", 3, 0, /* shared access */
	612	"slipcom4", 4, 0,
	613	"slipcom5", 5, 0,
	614	"slipcom6", 6, 0,
	615	"slipcom7", 7, 0,
	616	"slipcom8", 8, 0,
	617	"pppcom1", 1, 0, /* For use with PPP driver */
	618	"pppcom2", 2, 0,
	619	"pppcom3", 3, 0, /* shared access */
	620	"pppcom4", 4, 0,
	621	"pppcom5", 5, 0,
	622	"pppcom6", 6, 0,
	623	"pppcom7", 7, 0,
	624	"pppcom8", 8, 0
	625	#endif /* OS2ONLY */
	626	};
	627	int nos2dev = (sizeof(os2devtab) / sizeof(struct keytab));
	628
	629	#ifdef OS2ONLY
	630	struct keytab os2ppptab[] = {
	631	"0", 0, CM_INV,
	632	"1", 1, CM_INV, /* Invisible synonyms, like */
	633	"2", 2, CM_INV, /* "set port 1" */
	634	"3", 3, CM_INV,
	635	"4", 4, CM_INV,
	636	"5", 5, CM_INV,
	637	"6", 6, CM_INV,
	638	"7", 7, CM_INV,
	639	"8", 8, CM_INV,
	640	"9", 9, CM_INV,
	641	"ppp0", 0, 0,
	642	"ppp1", 1, 0, /* For use with PPP driver */
	643	"ppp2", 2, 0,
	644	"ppp3", 3, 0, /* shared access */
	645	"ppp4", 4, 0,
	646	"ppp5", 5, 0,
	647	"ppp6", 6, 0,
	648	"ppp7", 7, 0,
	649	"ppp8", 8, 0,
	650	"ppp9", 9, 0
	651	};
	652	int nos2ppp = (sizeof(os2ppptab) / sizeof(struct keytab));
	653	#endif /* OS2ONLY */
	654
	655	/*
	656	Terminal parameters that can be set by SET commands.
	657	Used by the ck?con.c terminal emulator code.
	658	For now, only used for #ifdef OS2. Should add these for Macintosh.
	659	*/
	660	int tt_arrow = TTK_NORM; /* Arrow key mode: normal (cursor) */
	661	int tt_keypad = TTK_NORM; /* Keypad mode: normal (numeric) */
	662	int tt_shift_keypad = 0; /* Keypad Shift mode: Off */
	663	int tt_wrap = 1; /* Terminal wrap, 1 = On */
	664	int tt_type = TT_VT320; /* Terminal type, initially VT320 */
	665	int tt_type_mode = TT_VT320; /* Terminal type set by host command */
	666	int tt_cursor = 0; /* Terminal cursor, 0 = Underline */
	667	int tt_cursor_usr = 0; /* Users Terminal cursor type */
	668	int tt_answer = 0; /* Terminal answerback (disabled) */
	669	int tt_scrsize[VNUM] = {512,512,512,1}; /* Terminal scrollback buffer size */
	670	int tt_bell = XYB_AUD \| XYB_SYS; /* Bell (system sounds) */
	671	int tt_roll[VNUM] = {1,1,1,1}; /* Terminal roll (on) */
	672	int tt_pacing = 0; /* Terminal output-pacing (none) */
	673	int tt_inpacing = 0; /* Terminal input-pacing (none) */
	674	#ifdef COMMENT
	675	int tt_hide = 0; /* Terminal hide-cursor (off) */
	676	#endif /* COMMENT */
	677	int tt_ctstmo = 15; /* Terminal transmit-timeout */
	678	int tt_codepage = -1; /* Terminal code-page */
	679	int tt_update = 100; /* Terminal screen-update interval */
	680	int tt_updmode = TTU_FAST; /* Terminal screen-update mode FAST */
	681	extern int updmode;
	682	int tt_font = TTF_ROM; /* Terminal screen font */
	683	#ifndef KUI
	684	int tt_status = 1; /* Terminal status line displayed */
	685	int tt_status_usr = 1;
	686	#else /* KUI */
	687	int tt_status = 0; /* Terminal status line displayed */
	688	int tt_status_usr = 0;
	689	#endif /* KUI */
	690	#ifdef CKOUNI
	691	int tt_unicode = 1; /* Use Unicode if possible */
	692	#endif /* CKOUNI */
	693	int tt_senddata = 0; /* Let host read terminal data */
	694	extern int wy_blockend; /* Terminal Send Data EOB type */
	695
	696	extern unsigned char colornormal, colorselect,
	697	colorunderline, colorstatus, colorhelp, colorborder,
	698	colorgraphic, colordebug, colorreverse;
	699
	700	extern int trueblink, trueunderline, truereverse;
	701
	702	extern int bgi, fgi;
	703	extern int scrninitialized[];
	704
	705	struct keytab beltab[] = { /* Terminal bell mode */
	706	"audible", XYB_AUD, 0,
	707	"none", XYB_NONE, 0,
	708	"visible", XYB_VIS, 0
	709	};
	710	int nbeltab = sizeof(beltab)/sizeof(struct keytab);
	711
	712	struct keytab audibletab[] = { /* Terminal Bell Audible mode */
	713	"beep", XYB_BEEP, 0, /* Values ORd with bell mode */
	714	"system-sounds", XYB_SYS, 0
	715	};
	716	int naudibletab = sizeof(audibletab)/sizeof(struct keytab);
	717
	718	struct keytab akmtab[] = { /* Arrow key mode */
	719	"application", TTK_APPL, 0,
	720	"cursor", TTK_NORM, 0
	721	};
	722	struct keytab kpmtab[] = { /* Keypad mode */
	723	"application", TTK_APPL, 0,
	724	"numeric", TTK_NORM, 0
	725	};
	726
	727	struct keytab ttcolmodetab[] = {
	728	"current-color", 0, 0,
	729	"default-color", 1, 0
	730	};
	731	int ncolmode = sizeof(ttcolmodetab)/sizeof(struct keytab);
	732
	733	#define TTCOLNOR 0
	734	#define TTCOLREV 1
	735	#define TTCOLUND 2
	736	#define TTCOLSTA 3
	737	#define TTCOLHLP 4
	738	#define TTCOLBOR 5
	739	#define TTCOLSEL 6
	740	#define TTCOLDEB 7
	741	#define TTCOLGRP 8
	742
	743	#define TTCOLRES 10
	744	#define TTCOLERA 11
	745
	746	struct keytab ttycoltab[] = { /* Terminal Screen coloring */
	747	"border", TTCOLBOR, 0, /* Screen border color */
	748	"debug-terminal", TTCOLDEB, 0, /* Debug color */
	749	"erase", TTCOLERA, 0, /* Erase mode */
	750	"graphic", TTCOLGRP, 0, /* Graphic Color */
	751	"help-text", TTCOLHLP, 0, /* Help screens */
	752	"normal", TTCOLNOR, CM_INV, /* Normal screen text */
	753	"reset-on-esc[0m", TTCOLRES, 0, /* Reset on ESC [ 0 m */
	754	"reverse-video", TTCOLREV, 0, /* Reverse video */
	755	"status-line", TTCOLSTA, 0, /* Status line */
	756	"selection", TTCOLSEL, 0, /* Selection color */
	757	"terminal-screen", TTCOLNOR, 0, /* Better name than "normal" */
	758	"underlined-text", TTCOLUND, 0 /* Underlined text */
	759	};
	760	int ncolors = (sizeof(ttycoltab) / sizeof(struct keytab));
	761
	762	#define TTATTBLI 0
	763	#define TTATTREV 1
	764	#define TTATTUND 2
	765
	766	struct keytab ttyattrtab[] = {
	767	"blink", TTATTBLI, 0,
	768	"reverse", TTATTREV, 0,
	769	"underline",TTATTUND, 0
	770	};
	771	int nattrib = (sizeof(ttyattrtab) / sizeof(struct keytab));
	772
	773	struct keytab ttyseobtab[] = {
	774	"crlf_etx", 1, 0,
	775	"us_cr", 0, 0
	776	};
	777
	778	struct keytab ttyclrtab[] = { /* Colors */
	779	"black", 0, 0,
	780	"blue", 1, 0,
	781	"brown", 6, 0,
	782	"cyan", 3, 0,
	783	"darkgray", 8, CM_INV,
	784	"dgray", 8, 0,
	785	"green", 2, 0,
	786	"lblue", 9, CM_INV,
	787	"lcyan", 11, CM_INV,
	788	"lgray", 7, CM_INV,
	789	"lgreen", 10, CM_INV,
	790	"lightblue", 9, 0,
	791	"lightcyan", 11, 0,
	792	"lightgray", 7, 0,
	793	"lightgreen", 10, 0,
	794	"lightmagenta",13,0,
	795	"lightred", 12, 0,
	796	"lmagenta", 13, CM_INV,
	797	"lred", 12, CM_INV,
	798	"magenta", 5, 0,
	799	"red", 4, 0,
	800	"white", 15, 0,
	801	"yellow", 14, 0
	802	};
	803	int nclrs = (sizeof (ttyclrtab) / sizeof (struct keytab));
	804
	805	struct keytab ttycurtab[] = {
	806	"full", TTC_BLOCK, 0,
	807	"half", TTC_HALF, 0,
	808	"underline", TTC_ULINE, 0
	809	};
	810	int ncursors = 3;
	811
	812	struct keytab ttyptab[] = {
	813	"ansi-bbs", TT_ANSI, 0, /* ANSI.SYS (BBS) */
	814	"at386", TT_AT386, 0, /* Unixware ANSI */
	815	"avatar/0+", TT_ANSI, 0, /* AVATAR/0+ */
	816	"dg200", TT_DG200, 0, /* Data General DASHER 200 */
	817	"dg210", TT_DG200, 0, /* Data General DASHER 210 */
	818	"h19", TT_H19, CM_INV, /* Heath-19 */
	819	"heath19", TT_H19, 0, /* Heath-19 */
	820	"hp2621", TT_HP2621, 0, /* HP 2621A */
	821	"hz1500", TT_HZL1500, 0, /* Hazeltine 1500 */
	822	#ifdef COMMENT
	823	"ibm", TT_IBM, CM_INV, /* IBM 3101-xx,3161 */
	824	#endif /* COMMENT */
	825	"scoansi", TT_SCOANSI, 0, /* SCO ANSI */
	826	/*
	827	The idea of NONE is to let the console driver handle the escape sequences,
	828	which, in theory at least, would give not only ANSI emulation, but also any
	829	other kind of emulation that might be provided by alternative console
	830	drivers, if any existed.
	831
	832	For this to work, ckocon.c would need to be modified to make higher-level
	833	calls, like VioWrtTTY(), DosWrite(), or (simply) write(), rather than
	834	VioWrt*Cell() and similar, and it would also have to give up its rollback
	835	feature, and its status line and help screens would also have to be
	836	forgotten or else done in an ANSI way.
	837
	838	As matters stand, we already have perfectly good ANSI emulation built in,
	839	and there are no alternative console drivers available, so there is no point
	840	in having a terminal type of NONE, so it is commented out. However, should
	841	you uncomment it, it will work like a "glass tty" -- no escape sequence
	842	interpretation at all; somewhat similar to debug mode, except without the
	843	debugging (no highlighting of control chars or escape sequences); help
	844	screens, status line, and rollback will still work.
	845	*/
	846	#ifdef OS2PM
	847	#ifdef COMMENT
	848	"tek4014", TT_TEK40, 0,
	849	#endif /* COMMENT */
	850	#endif /* OS2PM */
	851	"tty", TT_NONE, 0,
	852	"tvi910+", TT_TVI910, 0,
	853	"tvi925", TT_TVI925, 0,
	854	"tvi950", TT_TVI950, 0,
	855	"vc404", TT_VC4404, 0,
	856	"vc4404", TT_VC4404, CM_INV,
	857	"vt100", TT_VT100, 0,
	858	"vt102", TT_VT102, 0,
	859	"vt220", TT_VT220, 0,
	860	"vt320", TT_VT320, 0,
	861	"vt52", TT_VT52, 0,
	862	"wy30", TT_WY30, 0,
	863	"wy370", TT_WY370, 0,
	864	"wy50", TT_WY50, 0,
	865	"wy60", TT_WY60, 0,
	866	"wyse30", TT_WY30, CM_INV,
	867	"wyse370", TT_WY370, CM_INV,
	868	"wyse50", TT_WY50, CM_INV,
	869	"wyse60", TT_WY60, CM_INV
	870	};
	871	int nttyp = (sizeof(ttyptab) / sizeof(struct keytab));
	872
	873	struct keytab ttkeytab[] = {
	874	"ansi-bbs", TT_ANSI, 0, /* ANSI.SYS (BBS) */
	875	"at386", TT_AT386, 0, /* Unixware ANSI */
	876	"avatar/0+", TT_ANSI, 0, /* AVATAR/0+ */
	877	"dg200", TT_DG200, 0, /* Data General DASHER 200 */
	878	"dg210", TT_DG200, 0, /* Data General DASHER 210 */
	879	"emacs", TT_MAX+1, 0, /* Emacs mode */
	880	"h19", TT_H19, CM_INV, /* Heath-19 */
	881	"heath19", TT_H19, 0, /* Heath-19 */
	882	"hebrew", TT_MAX+2, 0, /* Hebrew mode */
	883	"hp2621", TT_HP2621, 0, /* HP 2621A */
	884	"hz1500", TT_HZL1500, 0, /* Hazeltine 1500 */
	885	#ifdef COMMENT
	886	"ibm", TT_IBM, CM_INV, /* IBM 3101-xx,3161 */
	887	#endif /* COMMENT */
	888	"russian", TT_MAX+3, 0, /* Russian mode */
	889	"scoansi", TT_SCOANSI, 0, /* SCO ANSI */
	890	#ifdef OS2PM
	891	#ifdef COMMENT
	892	"tek4014", TT_TEK40, 0,
	893	#endif /* COMMENT */
	894	#endif /* OS2PM */
	895	"tty", TT_NONE, 0,
	896	"tvi910+", TT_TVI910, 0,
	897	"tvi925", TT_TVI925, 0,
	898	"tvi950", TT_TVI950, 0,
	899	"vc404", TT_VC4404, 0,
	900	"vc4404", TT_VC4404, CM_INV,
	901	"vt100", TT_VT100, 0,
	902	"vt102", TT_VT102, 0,
	903	"vt220", TT_VT220, 0,
	904	"vt320", TT_VT320, 0,
	905	"vt52", TT_VT52, 0,
	906	"wy30", TT_WY30, 0,
	907	"wy370", TT_WY370, 0,
	908	"wy50", TT_WY50, 0,
	909	"wy60", TT_WY60, 0,
	910	"wyse30", TT_WY30, CM_INV,
	911	"wyse370", TT_WY370, CM_INV,
	912	"wyse50", TT_WY50, CM_INV,
	913	"wyse60", TT_WY60, CM_INV
	914	};
	915	int nttkey = (sizeof(ttkeytab) / sizeof(struct keytab));
	916
	917	struct keytab prtytab[] = { /* OS/2 Priority Levels */
	918	"foreground-server", XYP_SRV, 0,
	919	"idle", XYP_IDLE, CM_INV,
	920	"regular", XYP_REG, 0,
	921	"time-critical", XYP_RTP, 0
	922	};
	923	int nprty = (sizeof(prtytab) / sizeof(struct keytab));
	924	#endif /* OS2 */
	925
	926	#ifdef NT
	927	struct keytab win95tab[] = { /* Win95 work-arounds */
	928	"alt-gr", XYWAGR, 0,
	929	"keyboard-translation", XYWKEY, 0,
	930	"overlapped-io", XYWOIO, 0
	931	};
	932	int nwin95 = (sizeof(win95tab) / sizeof(struct keytab));
	933	#endif /* NT */
	934
	935	#ifdef OS2MOUSE
	936	extern int wideresult;
	937	int tt_mouse = 1; /* Terminal mouse on/off */
	938
	939	struct keytab mousetab[] = { /* Mouse items */
	940	"activate", XYM_ON, 0,
	941	"button", XYM_BUTTON, 0,
	942	"clear", XYM_CLEAR, 0
	943	};
	944	int nmtab = (sizeof(mousetab)/sizeof(struct keytab));
	945
	946	struct keytab mousebuttontab[] = { /* event button */
	947	"one", XYM_B1, CM_INV,
	948	"three", XYM_B3, CM_INV,
	949	"two", XYM_B2, CM_INV,
	950	"1", XYM_B1, 0,
	951	"2", XYM_B2, 0,
	952	"3", XYM_B3, 0
	953	};
	954	int nmbtab = (sizeof(mousebuttontab) / sizeof(struct keytab));
	955
	956	struct keytab mousemodtab[] = { /* event button key modifier */
	957	"alt", XYM_ALT, 0,
	958	"alt-shift", XYM_SHIFT\|XYM_ALT, 0,
	959	"ctrl", XYM_CTRL, 0,
	960	"ctrl-alt", XYM_CTRL\|XYM_ALT, 0,
	961	"ctrl-alt-shift", XYM_CTRL\|XYM_SHIFT\|XYM_ALT, 0,
	962	"ctrl-shift", XYM_CTRL\|XYM_SHIFT, 0,
	963	"none", 0, 0,
	964	"shift", XYM_SHIFT, 0
	965	};
	966	int nmmtab = (sizeof(mousemodtab) / sizeof(struct keytab));
	967
	968	struct keytab mclicktab[] = { /* event button click modifier */
	969	"click", XYM_C1, 0,
	970	"drag", XYM_DRAG, 0,
	971	"double-click", XYM_C2, 0
	972	};
	973	int nmctab = (sizeof(mclicktab) / sizeof(struct keytab));
	974
	975	#ifndef NOKVERBS
	976	extern int nkverbs;
	977	extern struct keytab kverbs[];
	978	#endif /* NOKVERBS */
	979	#endif /* OS2MOUSE */
	980
	981	/* #ifdef VMS */
	982	struct keytab fbtab[] = { /* Binary record types for VMS */
	983	"fixed", XYFT_B, 0, /* Fixed is normal for binary */
	984	"undefined", XYFT_U, 0 /* Undefined if they ask for it */
	985	};
	986	int nfbtyp = (sizeof(fbtab) / sizeof(struct keytab));
	987	/* #endif */
	988
	989	#ifdef VMS
	990	struct keytab lbltab[] = { /* Labeled File info */
	991	"acl", LBL_ACL, 0,
	992	"backup-date", LBL_BCK, 0,
	993	"name", LBL_NAM, 0,
	994	"owner", LBL_OWN, 0,
	995	"path", LBL_PTH, 0
	996	};
	997	int nlblp = (sizeof(lbltab) / sizeof(struct keytab));
	998	#else
	999	#ifdef OS2
	1000	struct keytab lbltab[] = { /* Labeled File info */
	1001	"archive", LBL_ARC, 0,
	1002	"extended", LBL_EXT, 0,
	1003	"hidden", LBL_HID, 0,
	1004	"read-only", LBL_RO, 0,
	1005	"system", LBL_SYS, 0
	1006	};
	1007	int nlblp = (sizeof(lbltab) / sizeof(struct keytab));
	1008	#endif /* OS2 */
	1009	#endif /* VMS */
	1010
	1011	#ifdef CK_CURSES
	1012	#ifdef CK_PCT_BAR
	1013	static struct keytab fdftab[] = { /* SET FILE DISPLAY FULL options */
	1014	"thermometer", 1, 0,
	1015	"no-thermometer", 0, 0
	1016	};
	1017	extern int thermometer;
	1018	#endif /* CK_PCT_BAR */
	1019	#endif /* CK_CURSES */
	1020
	1021	static struct keytab fdtab[] = { /* SET FILE DISPLAY options */
	1022	#ifdef MAC /* Macintosh */
	1023	"fullscreen", XYFD_R, 0, /* Full-screen but not curses */
	1024	"none", XYFD_N, 0,
	1025	"off", XYFD_N, CM_INV,
	1026	"on", XYFD_R, CM_INV,
	1027	"quiet", XYFD_N, CM_INV
	1028
	1029	#else /* Not Mac */
	1030	"crt", XYFD_S, 0, /* CRT display */
	1031	#ifdef CK_CURSES
	1032	#ifdef COMMENT
	1033	"curses", XYFD_C, CM_INV, /* Full-screen, curses */
	1034	#endif /* COMMENT */
	1035	"fullscreen", XYFD_C, 0, /* Full-screen, whatever the method */
	1036	#endif /* CK_CURSES */
	1037	"none", XYFD_N, 0, /* No display */
	1038	"off", XYFD_N, CM_INV, /* Ditto */
	1039	"on", XYFD_R, CM_INV, /* On = Serial */
	1040	"quiet", XYFD_N, CM_INV, /* No display */
	1041	"serial", XYFD_R, 0 /* Serial */
	1042	#endif /* MAC */
	1043	};
	1044	int nfdtab = (sizeof(fdtab) / sizeof(struct keytab));
	1045
	1046	struct keytab rsrtab[] = { /* For REMOTE SET RECEIVE */
	1047	"packet-length", XYLEN, 0,
	1048	"timeout", XYTIMO, 0
	1049	};
	1050	int nrsrtab = (sizeof(rsrtab) / sizeof(struct keytab));
	1051
	1052	/* Send/Receive Parameters */
	1053
	1054	struct keytab srtab[] = {
	1055	"control-prefix", XYQCTL, 0,
	1056	"end-of-packet", XYEOL, 0,
	1057	"packet-length", XYLEN, 0,
	1058	"pad-character", XYPADC, 0,
	1059	"padding", XYNPAD, 0,
	1060	"pathnames", XYFPATH, 0,
	1061	"pause", XYPAUS, 0,
	1062	"quote", XYQCTL, CM_INV, /* = CONTROL-PREFIX */
	1063	"start-of-packet", XYMARK, 0,
	1064	"timeout", XYTIMO, 0
	1065	};
	1066	int nsrtab = (sizeof(srtab) / sizeof(struct keytab));
	1067
	1068	/* REMOTE SET */
	1069
	1070	struct keytab rmstab[] = {
	1071	"attributes", XYATTR, 0,
	1072	"block-check", XYCHKT, 0,
	1073	"file", XYFILE, 0,
	1074	"incomplete", XYIFD, 0,
	1075	"receive", XYRECV, 0,
	1076	"retry", XYRETR, 0,
	1077	"server", XYSERV, 0,
	1078	"transfer", XYXFER, 0,
	1079	"window", XYWIND, 0
	1080	};
	1081	int nrms = (sizeof(rmstab) / sizeof(struct keytab));
	1082
	1083	struct keytab attrtab[] = {
	1084	#ifdef STRATUS
	1085	"account", AT_ACCT, 0,
	1086	#endif /* STRATUS */
	1087	"all", AT_XALL, 0,
	1088	#ifdef COMMENT
	1089	"blocksize", AT_BLKS, 0, /* not used */
	1090	#endif /* COMMENT */
	1091	#ifndef NOCSETS
	1092	"character-set", AT_ENCO, 0,
	1093	#endif /* NOCSETS */
	1094	#ifdef STRATUS
	1095	"creator", AT_CREA, 0,
	1096	#endif /* STRATUS */
	1097	"date", AT_DATE, 0,
	1098	"disposition", AT_DISP, 0,
	1099	"encoding", AT_ENCO, CM_INV,
	1100	#ifdef STRATUS
	1101	"format", AT_RECF, 0,
	1102	#endif /* STRATUS */
	1103	"length", AT_LENK, 0,
	1104	"off", AT_ALLN, 0,
	1105	"on", AT_ALLY, 0,
	1106	#ifdef COMMENT
	1107	"os-specific", AT_SYSP, 0, /* not used by UNIX or VMS */
	1108	#endif /* COMMENT */
	1109	"system-id", AT_SYSI, 0,
	1110	"type", AT_FTYP, 0
	1111	};
	1112	int natr = (sizeof(attrtab) / sizeof(struct keytab)); /* how many attributes */
	1113
	1114	#ifndef NOSPL
	1115	extern int indef, inecho, insilence, inbufsize;
	1116	extern char * inpbuf, * inpbp;
	1117	struct keytab inptab[] = { /* SET INPUT parameters */
	1118	"buffer-length", IN_BUF, 0,
	1119	"case", IN_CAS, 0,
	1120	"default-timeout", IN_DEF, CM_INV, /* There is no default timeout */
	1121	"echo", IN_ECH, 0,
	1122	#ifdef OS2
	1123	"pacing", IN_PAC, CM_INV,
	1124	#endif /* OS2 */
	1125	"silence", IN_SIL, 0,
	1126	"timeout-action", IN_TIM, 0
	1127	};
	1128	int ninp = (sizeof(inptab) / sizeof(struct keytab));
	1129
	1130	struct keytab intimt[] = { /* SET INPUT TIMEOUT parameters */
	1131	"proceed", 0, 0, /* 0 = proceed */
	1132	"quit", 1, 0 /* 1 = quit */
	1133	};
	1134
	1135	struct keytab incast[] = { /* SET INPUT CASE parameters */
	1136	"ignore", 0, 0, /* 0 = ignore */
	1137	"observe", 1, 0 /* 1 = observe */
	1138	};
	1139	#endif /* NOSPL */
	1140
	1141	struct keytab nabltab[] = { /* For any command that needs */
	1142	"disabled", 0, 0, /* these keywords... */
	1143	"enabled", 1, 0
	1144	};
	1145
	1146	#ifdef OS2
	1147	struct keytab msktab[] = { /* SET MS-DOS KERMIT compatibilities */
	1148	#ifdef COMMENT
	1149	"color", MSK_COLOR, 0,
	1150	#endif /* COMMENT */
	1151	"keycodes", MSK_KEYS, 0
	1152	};
	1153	int nmsk = (sizeof(msktab) / sizeof(struct keytab));
	1154
	1155	struct keytab scrnupd[] = { /* SET TERMINAL SCREEN-UPDATE */
	1156	"fast", TTU_FAST, 0,
	1157	"smooth", TTU_SMOOTH, 0
	1158	};
	1159	int nscrnupd = (sizeof(scrnupd) / sizeof(struct keytab));
	1160
	1161	struct keytab termfont[] = { /* SET TERMINAL FONT */
	1162	#ifdef COMMENT
	1163	"cp111", TTF_111, 0,
	1164	"cp112", TTF_112, 0,
	1165	"cp113", TTF_113, 0,
	1166	#endif /* COMMENT */
	1167	"cp437", TTF_437, 0,
	1168	"cp850", TTF_850, 0,
	1169	#ifdef COMMENT
	1170	"cp851", TTF_851, 0,
	1171	#endif /* COMMENT */
	1172	"cp852", TTF_852, 0,
	1173	#ifdef COMMENT
	1174	"cp853", TTF_853, 0,
	1175	"cp860", TTF_860, 0,
	1176	"cp861", TTF_861, 0,
	1177	#endif /* COMMENT */
	1178	"cp862", TTF_862, 0,
	1179	#ifdef COMMENT
	1180	"cp863", TTF_863, 0,
	1181	"cp864", TTF_864, 0,
	1182	"cp865", TTF_865, 0,
	1183	#endif /* COMMENT */
	1184	"cp866", TTF_866, 0,
	1185	#ifdef COMMENT
	1186	"cp880", TTF_880, 0,
	1187	"cp881", TTF_881, 0,
	1188	"cp882", TTF_882, 0,
	1189	"cp883", TTF_883, 0,
	1190	"cp884", TTF_884, 0,
	1191	"cp885", TTF_885, 0,
	1192	#endif /* COMMENT */
	1193	"default", TTF_ROM, 0
	1194	};
	1195	int ntermfont = (sizeof(termfont) / sizeof(struct keytab));
	1196
	1197	struct keytab anbktab[] = { /* For any command that needs */
	1198	"message", 2, 0, /* these keywords... */
	1199	"off", 0, 0,
	1200	"on", 1, 0,
	1201	"unsafe-messag0", 99, CM_INV,
	1202	"unsafe-message", 3, CM_INV
	1203	};
	1204	int nansbk = (sizeof(anbktab) / sizeof(struct keytab));
	1205
	1206	#endif /* OS2 */
	1207
	1208
	1209	/* The following routines broken out of doprm() to give compilers a break. */
	1210
	1211	/* S E T O N -- Parse on/off (default on), set parameter to result */
	1212
	1213	int
	1214	seton(prm) int *prm; {
	1215	int x, y;
	1216	if ((y = cmkey(onoff,2,"","on",xxstring)) < 0) return(y);
	1217	if ((x = cmcfm()) < 0) return(x);
	1218	*prm = y;
	1219	return(1);
	1220	}
	1221
	1222	/* S E T N U M -- Set parameter to result of cmnum() parse. */
	1223	/*
	1224	Call with pointer to integer variable to be set,
	1225	x = number from cnum parse, y = return code from cmnum,
	1226	max = maximum value to accept, -1 if no maximum.
	1227	Returns -9 on failure, after printing a message, or 1 on success.
	1228	*/
	1229	int
	1230	setnum(prm,x,y,max) int x, y, *prm, max; {
	1231	extern int cmflgs;
	1232	debug(F101,"setnum","",y);
	1233	if (y == -3) {
	1234	printf("\n?Value required\n");
	1235	return(-9);
	1236	}
	1237	if (y == -2) {
	1238	printf("%s?Not a number: %s\n",cmflgs == 1 ? "" : "\n", atxbuf);
	1239	return(-9);
	1240	}
	1241	if (y < 0) return(y);
	1242	if (max > -1 && x > max) {
	1243	printf("?Sorry, %d is the maximum\n",max);
	1244	return(-9);
	1245	}
	1246	if ((y = cmcfm()) < 0) return(y);
	1247	*prm = x;
	1248	return(1);
	1249	}
	1250
	1251	/* S E T C C -- Set parameter var to an ASCII control character value. */
	1252	/*
	1253	Parses a number, or a literal control character, or a caret (^) followed
	1254	by an ASCII character whose value is 63-95 or 97-122, then gets confirmation,
	1255	then sets the parameter to the code value of the character given. If there
	1256	are any parse errors, they are returned, otherwise on success 1 is returned.
	1257	*/
	1258	int
	1259	setcc(dflt,var) char dflt; int var; {
	1260	int x, y;
	1261	unsigned int c;
	1262	char *hlpmsg = "Control character,\n\
	1263	numeric ASCII value,\n\
	1264	or in ^X notation,\n\
	1265	or preceded by a backslash and entered literally";
	1266
	1267	/* This is a hack to turn off complaints from expression evaluator. */
	1268	x_ifnum = 1;
	1269	y = cmnum(hlpmsg, dflt, 10, &x, xxstring); /* Parse a number */
	1270	x_ifnum = 0; /* Allow complaints again */
	1271	if (y < 0) { /* Parse failed */
	1272	if (y != -2) /* Reparse needed or somesuch */
	1273	return(y); /* Pass failure back up the chain */
	1274	}
	1275	/* Did they type a real control character? */
	1276
	1277	for (c = strlen(atmbuf) - 1; c > 0; c--) /* Trim */
	1278	if (atmbuf[c] == SP) atmbuf[c] = NUL;
	1279
	1280	if (y < 0) { /* It was not a number */
	1281	if ((c = atmbuf[0]) && !atmbuf[1]) { /* Was it a literal Ctrl char? */
	1282	if ((c > 037) && (c != 0177)) {
	1283	printf("\n?Not a control character - %d\n",c);
	1284	return(-9);
	1285	} else {
	1286	if ((y = cmcfm()) < 0) /* Confirm */
	1287	return(y);
	1288	var = c; / Set the variable */
	1289	return(1);
	1290	}
	1291	} else if (atmbuf[0] == '^' && !atmbuf[2]) { /* Or ^X notation? */
	1292	c = atmbuf[1];
	1293	if (islower((char) c)) /* Uppercase lowercase letters */
	1294	c = toupper(c);
	1295	if (c > 62 && c < 96) { /* Check range */
	1296	if ((y = cmcfm()) < 0)
	1297	return(y);
	1298	var = ctl(c); / OK */
	1299	return(1);
	1300	} else {
	1301	printf("?Not a control character - %s\n", atmbuf);
	1302	return(-9);
	1303	}
	1304	} else { /* Something illegal was typed */
	1305	printf("?Invalid - %s\n", atmbuf);
	1306	return(-9);
	1307	}
	1308	}
	1309	if ((x > 037) && (x != 0177)) { /* They typed a number */
	1310	printf("\n?Not in ASCII control range - %d\n",x);
	1311	return(-9);
	1312	}
	1313	if ((y = cmcfm()) < 0) /* In range, confirm */
	1314	return(y);
	1315	var = x; / Set variable */
	1316	return(1);
	1317	}
	1318
	1319	int
	1320	doxdis() {
	1321	int x, y, z;
	1322	char *s;
	1323
	1324	if ((x = cmkey(fdtab,nfdtab,"file transfer display style","",
	1325	xxstring)) < 0)
	1326	return(x);
	1327	#ifdef CK_PCT_BAR
	1328	if ((y = cmkey(fdftab,2,"","thermometer",xxstring)) < 0)
	1329	return(y);
	1330	thermometer = y;
	1331	#endif /* CK_PCT_BAR */
	1332	if ((z = cmcfm()) < 0) return(z);
	1333	#ifdef CK_CURSES
	1334	if (x == XYFD_C) { /* FULLSCREEN */
	1335	#ifndef MYCURSES
	1336	extern char * trmbuf; /* Real curses */
	1337	int z;
	1338	s = getenv("TERM");
	1339	if (!s) s = "";
	1340	#ifndef COHERENT
	1341	if (*s)
	1342	z = tgetent(trmbuf,s);
	1343	else
	1344	z = 0;
	1345	debug(F111,"SET tgetent",s,z);
	1346	if (z < 1) {
	1347	#ifdef VMS
	1348	printf("Sorry, terminal type not supported: \"%s\"\n",s);
	1349	#else
	1350	printf("Sorry, terminal type unknown: \"%s\"\n",s);
	1351	#endif /* VMS */
	1352	return(success = 0);
	1353	}
	1354	#endif /* COHERENT */
	1355	#endif /* MYCURSES */
	1356	line[0] = '\0'; /* (What's this for?) */
	1357	}
	1358	#endif /* CK_CURSES */
	1359	fdispla = x; /* It's OK. */
	1360	return(success = 1);
	1361	}
	1362
	1363	int
	1364	setfil(rmsflg) int rmsflg; {
	1365	if (rmsflg) {
	1366	if ((y = cmkey(rfiltab,nrfilp,"Remote file parameter","",
	1367	xxstring)) < 0) {
	1368	if (y == -3) {
	1369	printf("?Remote file parameter required\n");
	1370	return(-9);
	1371	} else return(y);
	1372	}
	1373	} else {
	1374	if ((y = cmkey(filtab,nfilp,"File parameter","",xxstring)) < 0)
	1375	return(y);
	1376	}
	1377	switch (y) {
	1378	#ifdef COMMENT /* Not needed */
	1379	case XYFILB: /* Blocksize */
	1380	sprintf(tmpbuf,"%d",DBLKSIZ);
	1381	if ((y = cmnum("file block size",tmpbuf,10,&z,xxstring)) < 0)
	1382	return(y);
	1383	if ((x = cmcfm()) < 0) return(x);
	1384	if (rmsflg) {
	1385	sprintf(tmpbuf,"%d",z);
	1386	sstate = setgen('S', "311", tmpbuf, "");
	1387	return((int) sstate);
	1388	} else {
	1389	fblksiz = z;
	1390	return(success = 1);
	1391	}
	1392	#endif /* COMMENT */
	1393
	1394	case XYFILS: /* Byte size */
	1395	if ((y = cmnum("file byte size (7 or 8)","8",10,&z,xxstring)) < 0)
	1396	return(y);
	1397	if (z != 7 && z != 8) {
	1398	printf("\n?The choices are 7 and 8\n");
	1399	return(0);
	1400	}
	1401	if ((y = cmcfm()) < 0) return(y);
	1402	if (z == 7) fmask = 0177;
	1403	else if (z == 8) fmask = 0377;
	1404	return(success = 1);
	1405
	1406	#ifndef NOCSETS
	1407	case XYFILC: /* Character set */
	1408	if ((x = cmkey(fcstab,nfilc,"local file code","ascii", xxstring)) < 0)
	1409	return(x);
	1410	if ((z = cmcfm()) < 0) return(z);
	1411	fcharset = x;
	1412	#ifndef MAC
	1413	if (tcharset == TC_TRANSP) { /* Automatically pick XFER CHAR */
	1414	if (fcharset == FC_USASCII \|\|
	1415	fcharset == FC_UKASCII \|\|
	1416	fcharset == FC_DUASCII \|\|
	1417	fcharset == FC_FIASCII \|\|
	1418	fcharset == FC_FRASCII \|\|
	1419	fcharset == FC_FCASCII \|\|
	1420	fcharset == FC_GEASCII \|\|
	1421	fcharset == FC_ITASCII \|\|
	1422	fcharset == FC_NOASCII \|\|
	1423	fcharset == FC_POASCII \|\|
	1424	fcharset == FC_SPASCII \|\|
	1425	fcharset == FC_SWASCII \|\|
	1426	fcharset == FC_CHASCII
	1427	)
	1428	tcharset = TC_1LATIN;
	1429	else if (fcharset == FC_1LATIN \|\|
	1430	fcharset == FC_DECMCS \|\|
	1431	fcharset == FC_NEXT \|\|
	1432	fcharset == FC_CP437 \|\|
	1433	fcharset == FC_CP850 \|\|
	1434	fcharset == FC_APPQD \|\|
	1435	fcharset == FC_DGMCS \|\|
	1436	fcharset == FC_HPR8
	1437	)
	1438	tcharset = TC_1LATIN;
	1439	#ifndef NOLATIN2
	1440	else if (fcharset == FC_HUASCII \|\|
	1441	fcharset == FC_2LATIN \|\|
	1442	fcharset == FC_CP852
	1443	)
	1444	tcharset = TC_2LATIN;
	1445	#endif /* NOLATIN2 */
	1446	#ifndef NOCYRIL
	1447	else if (fcharset == FC_CYRILL \|\|
	1448	fcharset == FC_CP866 \|\|
	1449	fcharset == FC_KOI7 \|\|
	1450	fcharset == FC_KOI8
	1451	)
	1452	tcharset = TC_CYRILL;
	1453	#endif /* NOCYRIL */
	1454	#ifndef NOKANJI
	1455	else if (fcharset == FC_JIS7 \|\|
	1456	fcharset == FC_SHJIS \|\|
	1457	fcharset == FC_JEUC \|\|
	1458	fcharset == FC_JDEC
	1459	)
	1460	tcharset = TC_JEUC;
	1461	#endif /* NOKANJI */
	1462	#ifndef NOHEBREW
	1463	else if (fcharset == FC_HE7 \|\|
	1464	fcharset == FC_HEBREW \|\|
	1465	fcharset == FC_CP862
	1466	)
	1467	tcharset = TC_HEBREW;
	1468	#endif /* NOKANJI */
	1469	}
	1470	#endif /* MAC */
	1471	return(success = 1);
	1472	#endif /* NOCSETS */
	1473
	1474	case XYFILD: /* Display */
	1475	return(doxdis());
	1476
	1477	case XYFILA: /* End-of-line */
	1478	#ifdef NLCHAR
	1479	s = "";
	1480	if (NLCHAR == 015)
	1481	s = "cr";
	1482	else if (NLCHAR == 012)
	1483	s = "lf";
	1484	if ((x = cmkey(eoftab, neoftab,
	1485	"local text-file line terminator",s,xxstring)) < 0)
	1486	return(x);
	1487	#else
	1488	if ((x = cmkey(eoftab, neoftab,
	1489	"local text-file line terminator","crlf",xxstring)) < 0)
	1490	return(x);
	1491	#endif /* NLCHAR */
	1492	if ((z = cmcfm()) < 0) return(z);
	1493	feol = (CHAR) x;
	1494	return(success = 1);
	1495
	1496	case XYFILN: /* Names */
	1497	if ((x = cmkey(fntab,nfntab,"how to handle filenames","converted",
	1498	xxstring)) < 0)
	1499	return(x);
	1500	if ((z = cmcfm()) < 0) return(z);
	1501	if (rmsflg) {
	1502	sprintf(tmpbuf,"%d",1 - x);
	1503	sstate = setgen('S', "301", tmpbuf, "");
	1504	return((int) sstate);
	1505	} else {
	1506	ptab[protocol].fncn = x; /* Set structure */
	1507	fncnv = x; /* Set variable */
	1508	f_save = x; /* Set and set "permanent" variable */
	1509	return(success = 1);
	1510	}
	1511
	1512	case XYFILR: /* Record length */
	1513	sprintf(tmpbuf,"%d",DLRECL);
	1514	if ((y = cmnum("file record length",tmpbuf,10,&z,xxstring)) < 0)
	1515	return(y);
	1516	if ((x = cmcfm()) < 0) return(x);
	1517	if (rmsflg) {
	1518	sprintf(tmpbuf,"%d",z);
	1519	sstate = setgen('S', "312", tmpbuf, "");
	1520	return((int) sstate);
	1521	} else {
	1522	frecl = z;
	1523	return(success = 1);
	1524	}
	1525
	1526	#ifdef COMMENT
	1527	case XYFILO: /* Organization */
	1528	if ((x = cmkey(forgtab,nforg,"file organization","sequential",
	1529	xxstring)) < 0)
	1530	return(x);
	1531	if ((y = cmcfm()) < 0) return(y);
	1532	if (rmsflg) {
	1533	sprintf(tmpbuf,"%d",x);
	1534	sstate = setgen('S', "314", tmpbuf, "");
	1535	return((int) sstate);
	1536	} else {
	1537	forg = x;
	1538	return(success = 1);
	1539	}
	1540	#endif /* COMMENT */
	1541
	1542	#ifdef COMMENT /* Not needed */
	1543	case XYFILF: /* Format */
	1544	if ((x = cmkey(frectab,nfrec,"file record format","stream",
	1545	xxstring)) < 0)
	1546	return(x);
	1547	if ((y = cmcfm()) < 0) return(y);
	1548	if (rmsflg) {
	1549	sprintf(tmpbuf,"%d",x);
	1550	sstate = setgen('S', "313", tmpbuf, "");
	1551	return((int) sstate);
	1552	} else {
	1553	frecfm = x;
	1554	return(success = 1);
	1555	}
	1556	#endif /* COMMENT */
	1557
	1558	#ifdef COMMENT
	1559	case XYFILP: /* Printer carriage control */
	1560	if ((x = cmkey(fcctab,nfcc,"file carriage control","newline",
	1561	xxstring)) < 0)
	1562	return(x);
	1563	if ((y = cmcfm()) < 0) return(y);
	1564	if (rmsflg) {
	1565	sprintf(tmpbuf,"%d",x);
	1566	sstate = setgen('S', "315", tmpbuf, "");
	1567	return((int) sstate);
	1568	} else {
	1569	fcctrl = x;
	1570	return(success = 1);
	1571	}
	1572	#endif /* COMMENT */
	1573
	1574	case XYFILT: /* Type */
	1575	if ((x = cmkey(rmsflg ? rfttab : fttab,
	1576	rmsflg ? nrfttyp : nfttyp,
	1577	"type of file transfer","text",xxstring)) < 0)
	1578	return(x);
	1579
	1580	#ifdef VMS
	1581	/* Allow VMS users to choose record format for binary files */
	1582	if ((x == XYFT_B) && (rmsflg == 0)) {
	1583	if ((x = cmkey(fbtab,nfbtyp,"VMS record format","fixed",
	1584	xxstring)) < 0)
	1585	return(x);
	1586	}
	1587	#endif /* VMS */
	1588	if ((y = cmcfm()) < 0) return(y);
	1589	binary = x;
	1590	b_save = x;
	1591	#ifdef MAC
	1592	(void) mac_setfildflg(binary);
	1593	#endif /* MAC */
	1594	if (rmsflg) {
	1595	char buf[4]; /* Allow for LABELED in VMS & OS/2 */
	1596	sprintf(buf,"%d",x);
	1597	sstate = setgen('S', "300", buf, "");
	1598	return((int) sstate);
	1599	} else {
	1600	return(success = 1);
	1601	}
	1602
	1603	case XYFILX: /* Collision Action */
	1604	if ((x = cmkey(colxtab,ncolx,"Filename collision action","backup",
	1605	xxstring)) < 0)
	1606	return(x);
	1607	if ((y = cmcfm()) < 0) return(y);
	1608	fncact = x;
	1609	ptab[protocol].fnca = x;
	1610	if (rmsflg) {
	1611	sprintf(tmpbuf,"%d",fncact);
	1612	sstate = setgen('S', "302", tmpbuf, "");
	1613	return((int) sstate);
	1614	} else {
	1615	if (fncact == XYFX_R) warn = 1; /* SET FILE WARNING implications */
	1616	if (fncact == XYFX_X) warn = 0; /* ... */
	1617	return(success = 1);
	1618	}
	1619
	1620	case XYFILW: /* Warning/Write-Protect */
	1621	if ((x = seton(&warn)) < 0) return(x);
	1622	if (warn)
	1623	fncact = XYFX_R;
	1624	else
	1625	fncact = XYFX_X;
	1626	return(success = 1);
	1627
	1628	#ifdef CK_LABELED
	1629	case XYFILL: /* LABELED FILE parameters */
	1630	if ((x = cmkey(lbltab,nlblp,"Labeled file feature","",
	1631	xxstring)) < 0)
	1632	return(x);
	1633	if ((success = seton(&y)) < 0)
	1634	return(success);
	1635	if (y) /* Set or reset the selected bit */
	1636	lf_opts \|= x; /* in the options bitmask. */
	1637	else
	1638	lf_opts &= ~x;
	1639	return(success);
	1640	#endif /* CK_LABELED */
	1641
	1642	case XYFILI: /* INCOMPLETE */
	1643	return(doprm(XYIFD,rmsflg));
	1644
	1645	#ifdef CK_TMPDIR
	1646	case XYFILG: { /* Download directory */
	1647	int x;
	1648	char *s;
	1649	#ifdef ZFNQFP
	1650	struct zfnfp * fnp;
	1651	#endif /* ZFNQFP */
	1652	#ifdef MAC
	1653	char temp[34];
	1654	#endif /* MAC */
	1655
	1656	#ifdef GEMDOS
	1657	if ((x = cmdir("Name of local directory, or carriage return",
	1658	"",&s,
	1659	NULL)) < 0 ) {
	1660	if (x != -3)
	1661	return(x);
	1662	}
	1663	#else
	1664	#ifdef OS2
	1665	if ((x = cmdir("Name of PC disk and/or directory,\n\
	1666	or press the Enter key to use current directory",
	1667	"",&s,xxstring)) < 0 ) {
	1668	if (x != -3)
	1669	return(x);
	1670	}
	1671	#else
	1672	#ifdef MAC
	1673	strncpy(temp,homdir,32);
	1674	x = strlen(temp);
	1675	if (x > 0) if (temp[x-1] != ':') { temp[x] = ':'; temp[x+1] = NUL; }
	1676	if ((x = cmtxt("Name of Macintosh volume and/or folder,\n\
	1677	or press the Return key for the desktop on the boot disk",
	1678	temp,&s, xxstring)) < 0 )
	1679	return(x);
	1680	#else
	1681	if ((x = cmdir("Name of local directory, or carriage return",
	1682	"", &s, xxstring)) < 0 ) {
	1683	if (x != -3)
	1684	return(x);
	1685	}
	1686	#endif /* MAC */
	1687	#endif /* OS2 */
	1688	#endif /* GEMDOS */
	1689	debug(F110,"download dir",s,0);
	1690
	1691	#ifndef MAC
	1692	if (x == 2) {
	1693	printf("?Wildcards not allowed in directory name\n");
	1694	return(-9);
	1695	}
	1696	#endif /* MAC */
	1697
	1698	#ifdef ZFNQFP
	1699	if (fnp = zfnqfp(s,TMPBUFSIZ - 1,tmpbuf)) {
	1700	if (fnp->fpath)
	1701	if ((int) strlen(fnp->fpath) > 0)
	1702	s = fnp->fpath;
	1703	}
	1704	debug(F110,"download zfnqfp",s,0);
	1705	#endif /* ZFNQFP */
	1706
	1707	strcpy(line,s); /* Make a safe copy */
	1708	s = line;
	1709	#ifndef MAC
	1710	if ((x = cmcfm()) < 0) /* Get confirmation */
	1711	return(x);
	1712	#endif /* MAC */
	1713
	1714	x = strlen(line);
	1715
	1716	#ifdef datageneral
	1717	if (line[x-1] == ':') /* homdir ends in colon, */
	1718	line[x-1] = NUL; /* and "dir" doesn't like that... */
	1719	#endif /* datageneral */
	1720
	1721	if (dldir)
	1722	free(dldir);
	1723	dldir = NULL;
	1724
	1725	if (x && (dldir = malloc(x + 1)))
	1726	strcpy(dldir, line);
	1727
	1728	return(success = 1);
	1729	}
	1730	#endif /* CK_TMPDIR */
	1731	case XYFILY:
	1732	return(setdest());
	1733
	1734	default:
	1735	printf("?unexpected file parameter\n");
	1736	return(-2);
	1737	}
	1738	}
	1739
	1740	#ifdef OS2
	1741	/* MS-DOS KERMIT compatibility modes */
	1742	int
	1743	setmsk() {
	1744	if ((y = cmkey(msktab,nmsk,"MS-DOS Kermit compatibility mode",
	1745	"keycodes",xxstring)) < 0) return(y);
	1746
	1747	switch ( y ) {
	1748	#ifdef COMMENT
	1749	case MSK_COLOR:
	1750	return(seton(&mskcolors));
	1751	#endif /* COMMENT */
	1752	case MSK_KEYS:
	1753	return(seton(&mskkeys));
	1754	default: /* Shouldn't get here. */
	1755	return(-2);
	1756	}
	1757	}
	1758	#endif
	1759
	1760	#ifndef NOLOCAL
	1761	int
	1762	settrm() {
	1763	int i = 0;
	1764	#ifdef OS2
	1765	extern int colorreset, erasemode;
	1766	#endif /* OS2 */
	1767
	1768	if ((y = cmkey(trmtab,ntrm,"", "",xxstring)) < 0) return(y);
	1769	#ifdef MAC
	1770	printf("\n?Sorry, not implemented yet. Please use the Settings menu.\n");
	1771	return(-9);
	1772	#else
	1773	switch (y) {
	1774	case XYTBYT: /* SET TERMINAL BYTESIZE */
	1775	if ((y = cmnum("bytesize for terminal connection","8",10,&x,
	1776	xxstring)) < 0)
	1777	return(y);
	1778	if (x != 7 && x != 8) {
	1779	printf("\n?The choices are 7 and 8\n");
	1780	return(success = 0);
	1781	}
	1782	if ((y = cmcfm()) < 0) return(y);
	1783	if (x == 7) cmask = 0177;
	1784	else if (x == 8) {
	1785	cmask = 0377;
	1786	parity = 0;
	1787	}
	1788	return(success = 1);
	1789
	1790	case XYTSO: /* SET TERMINAL LOCKING-SHIFT */
	1791	return(seton(&sosi));
	1792
	1793	case XYTNL: /* SET TERMINAL NEWLINE-MODE */
	1794	return(seton(&tnlm));
	1795
	1796	#ifdef OS2
	1797	case XYTCOL:
	1798	if ((x = cmkey(ttycoltab,ncolors,"","terminal",xxstring)) < 0)
	1799	return(x);
	1800	else if (x == TTCOLRES) {
	1801	if ((y = cmkey(ttcolmodetab,ncolmode,
	1802	"","default-color",xxstring)) < 0)
	1803	return(y);
	1804	if ((z = cmcfm()) < 0)
	1805	return(z);
	1806	colorreset = y;
	1807	return(success = 1);
	1808	} else if (x == TTCOLERA) {
	1809	if ((y = cmkey(ttcolmodetab,ncolmode,"",
	1810	"current-color",xxstring)) < 0)
	1811	return(y);
	1812	if ((z = cmcfm()) < 0)
	1813	return(z);
	1814	erasemode = y;
	1815	return(success=1);
	1816	} else { /* No parse error */
	1817	int fg = 0, bg = 0;
	1818	fg = cmkey(ttyclrtab, nclrs,
	1819	(x == TTCOLBOR ?
	1820	"color for screen border" :
	1821	"foreground color and then background color"),
	1822	"lgray", xxstring);
	1823	if (fg < 0)
	1824	return(fg);
	1825	if (x != TTCOLBOR) {
	1826	if ((bg = cmkey(ttyclrtab,nclrs,
	1827	"background color","blue",xxstring)) < 0)
	1828	return(bg);
	1829	}
	1830	if ((y = cmcfm()) < 0)
	1831	return(y);
	1832	switch (x) {
	1833	case TTCOLNOR:
	1834	colornormal = fg \| bg << 4;
	1835	fgi = fg & 0x08;
	1836	bgi = bg & 0x08;
	1837	break;
	1838	case TTCOLREV:
	1839	colorreverse = fg \| bg << 4;
	1840	break;
	1841	case TTCOLUND:
	1842	colorunderline = fg \| bg << 4;
	1843	break;
	1844	case TTCOLGRP:
	1845	colorgraphic = fg \| bg << 4;
	1846	break;
	1847	case TTCOLDEB:
	1848	colordebug = fg \| bg << 4;
	1849	break;
	1850	case TTCOLSTA:
	1851	colorstatus = fg \| bg << 4;
	1852	break;
	1853	case TTCOLHLP:
	1854	colorhelp = fg \| bg << 4;
	1855	break;
	1856	case TTCOLBOR:
	1857	colorborder = fg;
	1858	break;
	1859	case TTCOLSEL:
	1860	colorselect = fg \| bg << 4;
	1861	break;
	1862	default:
	1863	printf("%s - invalid\n",cmdbuf);
	1864	return(-9);
	1865	break;
	1866	}
	1867	scrninitialized[VTERM] = 0;
	1868	VscrnInit(VTERM);
	1869	}
	1870	return(success = 1);
	1871
	1872	case XYTCUR: /* SET TERMINAL CURSOR */
	1873	if ((x = cmkey(ttycurtab,ncursors,"","underline",xxstring)) < 0)
	1874	return(x);
	1875	if ((y = cmcfm()) < 0) return(y);
	1876	tt_cursor = tt_cursor_usr = x;
	1877	return(success = 1);
	1878	#endif /* OS2 */
	1879
	1880	case XYTTYP: /* SET TERMINAL TYPE */
	1881	#ifdef OS2
	1882	if ((x = cmkey(ttyptab,nttyp,"","vt320",xxstring)) < 0)
	1883	return(x);
	1884	if ((y = cmcfm()) < 0)
	1885	return(y);
	1886	settermtype(x,1);
	1887	return(success=1);
	1888	#else /* Not OS2 */
	1889	printf(
	1890	"\n Sorry, this version of C-Kermit does not support the SET TERMINAL TYPE\n");
	1891	printf(
	1892	" command. Type \"help set terminal\" for further information.\n");
	1893	#endif /* OS2 */
	1894	return(success = 0);
	1895
	1896	#ifdef OS2
	1897	case XYTARR: /* SET TERMINAL ARROW-KEYS */
	1898	if ((x = cmkey(akmtab,2,"","",xxstring)) < 0) return(x);
	1899	if ((y = cmcfm()) < 0) return(y);
	1900	tt_arrow = x; /* TTK_NORM / TTK_APPL; see ckuusr.h */
	1901	return(success = 1);
	1902
	1903	case XYTKPD: /* SET TERMINAL KEYPAD-MODE */
	1904	if ((x = cmkey(kpmtab,2,"","",xxstring)) < 0) return(x);
	1905	if ((y = cmcfm()) < 0) return(y);
	1906	tt_keypad = x; /* TTK_NORM / TTK_APPL; see ckuusr.h */
	1907	return(success = 1);
	1908
	1909	case XYTWRP: /* SET TERMINAL WRAP */
	1910	return(seton(&tt_wrap));
	1911
	1912	case XYSCRS:
	1913	if ((y = cmnum("CONNECT scrollback buffer size, lines","2000",10,&x,
	1914	xxstring)) < 0)
	1915	return(y);
	1916	/* The max number of lines is the RAM */
	1917	/* we can actually dedicate to a */
	1918	/* scrollback buffer given the maximum */
	1919	/* process memory space of 512MB */
	1920	if (x < 256 \|\| x > 2000000L) {
	1921	printf("\n?The size must be between 256 and 2,000,000.\n");
	1922	return(success = 0);
	1923	}
	1924	if ((y = cmcfm()) < 0) return(y);
	1925	#ifndef VSCRNINIT
	1926	if ( (ULONG) x < VscrnGetBufferSize(VTERM) ) {
	1927	printf("\nWarning: the scrollback buffer will be emptied on the");
	1928	printf(" next CONNECT,\n");
	1929	printf("unless the buffer is restored to %d lines.\n",
	1930	VscrnGetBufferSize(VTERM));
	1931	}
	1932	#endif /* VSCRNINIT */
	1933	tt_scrsize[VTERM] = x;
	1934	#ifdef VSCRNINIT
	1935	VscrnInit(VTERM);
	1936	#endif /* VSCRNINIT */
	1937	return(success = 1);
	1938	#endif /* OS2 */
	1939
	1940	#ifndef NOCSETS
	1941	#ifndef KUI
	1942	case XYTCS: /* SET TERMINAL CHARACTER-SET */
	1943	/* set terminal character-set <remote> <local> */
	1944	if ((x = cmkey(
	1945	#ifdef CKOUNI
	1946	txrtab,ntxrtab,
	1947	#else /* CKOUNI */
	1948	ttcstab,ntermc,
	1949	#endif /* CKOUNI */
	1950	"remote terminal character-set","",xxstring)) < 0)
	1951	return(x);
	1952	if (x == FC_TRANSP) { /* TRANSPARENT? */
	1953	if ((x = cmcfm()) < 0) return(x); /* Confirm the command */
	1954	#ifdef CKOUNI
	1955	tcsr = tcsl = TX_ASCII; /* Make them both the same */
	1956	#else /* CKOUNI */
	1957	tcsr = tcsl = FC_USASCII;
	1958	#endif /* CKOUNI */
	1959	#ifdef OS2
	1960	y = os2getcp(); /* Default is current code page */
	1961	switch (y) {
	1962	#ifdef CKOUNI
	1963	case 437: tcsr = tcsl = TX_CP437; break;
	1964	case 850: tcsr = tcsl = TX_CP850; break;
	1965	case 852: tcsr = tcsl = TX_CP852; break;
	1966	case 857: tcsr = tcsl = TX_CP857; break;
	1967	case 862: tcsr = tcsl = TX_CP862; break;
	1968	case 866: tcsr = tcsl = TX_CP866; break;
	1969	case 869: tcsr = tcsl = TX_CP869; break;
	1970	#else /* CKOUNI */
	1971	case 437: tcsr = tcsl = FC_CP437; break;
	1972	case 850: tcsr = tcsl = FC_CP850; break;
	1973	case 852: tcsr = tcsl = FC_CP852; break;
	1974	case 862: tcsr = tcsl = FC_CP862; break;
	1975	case 866: tcsr = tcsl = FC_CP866; break;
	1976	#endif /* CKOUNI */
	1977	}
	1978	for (i = 0; i < 4; i++) {
	1979	#ifdef CKOUNI
	1980	G[i].def_designation = G[i].designation = TX_TRANSP;
	1981	#else /* CKOUNI */
	1982	G[i].def_designation = G[i].designation = FC_TRANSP;
	1983	#endif /* CKOUNI */
	1984	G[i].init = FALSE;
	1985	G[i].size = G[i].def_size = cs96;
	1986	G[i].c1 = G[i].def_c1 = FALSE;
	1987	G[i].national = FALSE;
	1988	G[i].rtoi = NULL;
	1989	G[i].itol = NULL;
	1990	G[i].ltoi = NULL;
	1991	G[i].itor = NULL;
	1992	}
	1993	#endif /* OS2 */
	1994	return(success = 1);
	1995	}
	1996
	1997	/* Not transparent, so get local set to translate it into */
	1998
	1999	s = "";
	2000	#ifdef OS2
	2001	y = os2getcp(); /* Default is current code page */
	2002	switch (y) {
	2003	case 437: s = "cp437"; break;
	2004	case 850: s = "cp850"; break;
	2005	case 852: s = "cp852"; break;
	2006	case 862: s = "cp862"; break;
	2007	case 866: s = "cp866"; break;
	2008	}
	2009	#ifdef OS2ONLY
	2010	/*
	2011	If the user has loaded a font with SET TERMINAL FONT then we want
	2012	to change the default code page to the font that was loaded.
	2013	*/
	2014	if (tt_font != TTF_ROM) {
	2015	for (y = 0; y < ntermfont; y++ ) {
	2016	if (termfont[y].kwval == tt_font) {
	2017	s = termfont[y].kwd;
	2018	break;
	2019	}
	2020	}
	2021	}
	2022	#endif /* OS2ONLY */
	2023	#else
	2024	/* Make current file char set */
	2025	for (y = 0; y <= nfilc; y++) /* be the default... */
	2026	if (fcstab[y].kwval == fcharset) {
	2027	s = fcstab[y].kwd;
	2028	break;
	2029	}
	2030	#endif /* OS2 */
	2031
	2032	if ((y = cmkey(
	2033	#ifdef CKOUNI
	2034	txrtab,ntxrtab,
	2035	#else /* CKOUNI */
	2036	fcstab,nfilc,
	2037	#endif /* CKOUNI */
	2038	"local character-set",s,xxstring)) < 0)
	2039	return(y);
	2040
	2041	#ifdef OS2
	2042	if ((z = cmkey(graphsettab,ngraphset,
	2043	"DEC VT intermediate graphic set","all",xxstring)) < 0)
	2044	return(z);
	2045	{
	2046	int eol;
	2047	if ((eol = cmcfm()) < 0)
	2048	return(eol); /* Confirm the command */
	2049	}
	2050	tcsr = x; /* Remote character set */
	2051	tcsl = y; /* Local character set */
	2052	if (z == TT_GR_ALL) {
	2053	int i;
	2054	for (i = 0; i < 4; i++) {
	2055	G[i].def_designation = G[i].designation = x;
	2056	G[i].init = TRUE;
	2057	switch (cs_size(x)) { /* 94, 96, or 128 */
	2058	case 128:
	2059	case 96:
	2060	G[i].size = G[i].def_size = cs96;
	2061	break;
	2062	case 94:
	2063	G[i].size = G[i].def_size = cs94;
	2064	break;
	2065	default:
	2066	G[i].size = G[i].def_size = csmb;
	2067	break;
	2068	}
	2069	G[i].c1 = G[i].def_c1 = x != tcsl && cs_is_std(x);
	2070	G[i].national = cs_is_nrc(x);
	2071	}
	2072	if (!cs_is_nrc(x)) {
	2073	G[0].designation = G[0].def_designation = FC_USASCII;
	2074	G[0].size = G[0].def_size = cs94;
	2075	}
	2076	} else { /* Specific Gn */
	2077	G[z].def_designation = G[z].designation = x;
	2078	G[z].init = TRUE;
	2079	switch (cs_size(x)) { /* 94, 96, or 128 */
	2080	case 128:
	2081	case 96:
	2082	G[i].size = G[i].def_size = cs96;
	2083	break;
	2084	case 94:
	2085	G[i].size = G[i].def_size = cs94;
	2086	break;
	2087	default:
	2088	G[i].size = G[i].def_size = csmb;
	2089	break;
	2090	}
	2091	G[i].c1 = G[i].def_c1 = x != tcsl && cs_is_std(x);
	2092	G[i].national = cs_is_nrc(x);
	2093	}
	2094	#else /* not OS2 */
	2095	if ((z = cmcfm()) < 0) return(z); /* Confirm the command */
	2096	tcsr = x; /* Remote character set */
	2097	tcsl = y; /* Local character set */
	2098	#endif /* OS2 */
	2099	return(success = 1);
	2100	#endif /* CKOUNI */
	2101	#endif /* NOCSETS */
	2102
	2103	#ifndef NOCSETS
	2104	case XYTLCS: /* SET TERMINAL LOCAL-CHARACTER-SET */
	2105	/* set terminal character-set <local> */
	2106	s = "";
	2107	#ifdef OS2
	2108	y = os2getcp(); /* Default is current code page */
	2109	switch (y) {
	2110	case 437: s = "cp437"; break;
	2111	case 850: s = "cp850"; break;
	2112	case 852: s = "cp852"; break;
	2113	case 862: s = "cp862"; break;
	2114	case 866: s = "cp866"; break;
	2115	}
	2116	#ifdef OS2ONLY
	2117	/*
	2118	If the user has loaded a font with SET TERMINAL FONT then we want
	2119	to change the default code page to the font that was loaded.
	2120	*/
	2121	if (tt_font != TTF_ROM) {
	2122	for (y = 0; y < ntermfont; y++ ) {
	2123	if (termfont[y].kwval == tt_font) {
	2124	s = termfont[y].kwd;
	2125	break;
	2126	}
	2127	}
	2128	}
	2129	#endif /* OS2ONLY */
	2130	#else /* OS2 */
	2131	/* Make current file char set */
	2132	for (y = 0; y <= nfilc; y++) /* be the default... */
	2133	if (fcstab[y].kwval == fcharset) {
	2134	s = fcstab[y].kwd;
	2135	break;
	2136	}
	2137	#endif /* OS2 */
	2138	if ((y = cmkey(
	2139	#ifdef CKOUNI
	2140	txrtab,ntxrtab,
	2141	#else /* CKOUNI */
	2142	fcstab,nfilc,
	2143	#endif /* CKOUNI */
	2144	"local character-set",s,xxstring)) < 0)
	2145	return(y);
	2146
	2147	#ifdef OS2
	2148	if ((z = cmcfm()) < 0) return(z); /* Confirm the command */
	2149	tcsl = y; /* Local character set */
	2150	{
	2151	int i;
	2152	for (i = 0; i < 4; i++) {
	2153	G[i].init = TRUE;
	2154	x = G[i].designation;
	2155	G[i].c1 = (x != tcsl) && cs_is_std(x);
	2156	x = G[i].def_designation;
	2157	G[i].def_c1 = (x != tcsl) && cs_is_std(x);
	2158	}
	2159	}
	2160	#else /* not OS2 */
	2161	if ((z = cmcfm()) < 0) return(z); /* Confirm the command */
	2162	tcsl = y; /* Local character set */
	2163	#endif /* OS2 */
	2164	return(success = 1);
	2165	#endif /* NOCSETS */
	2166
	2167	#ifndef NOCSETS
	2168	#ifdef CKOUNI
	2169	case XYTUNI: /* SET TERMINAL UNICODE */
	2170	return(success = seton(&tt_unicode));
	2171	#endif /* CKOUNI */
	2172	case XYTRCS: /* SET TERMINAL REMOTE-CHARACTER-SET */
	2173	/* set terminal character-set <remote> <Graphic-set> */
	2174	if ((x = cmkey(
	2175	#ifdef CKOUNI
	2176	txrtab, ntxrtab,
	2177	#else /* CKOUNI */
	2178	ttcstab,ntermc,
	2179	#endif /* CKOUNI */
	2180	"remote terminal character-set","",xxstring)) < 0)
	2181	return(x);
	2182	#ifndef KUI
	2183	/* KUI can't have a Transparent Character Set */
	2184	#ifdef CKOUNI
	2185	if (x == TX_TRANSP)
	2186	#else /* CKOUNI */
	2187	if (x == FC_TRANSP)
	2188	#endif /* CKOUNI */
	2189	{ /* TRANSPARENT? */
	2190	if ((x = cmcfm()) < 0) /* Confirm the command */
	2191	return(x);
	2192	tcsr = tcsl; /* Make both sets the same */
	2193	#ifdef OS2
	2194	#ifdef CKOUNI
	2195	if (!cs_is_nrc(tcsl)) {
	2196	G[0].def_designation = G[i].designation = TX_ASCII;
	2197	G[0].init = TRUE;
	2198	G[0].def_c1 = G[i].c1 = FALSE;
	2199	G[0].size = cs94;
	2200	G[0].national = FALSE;
	2201	}
	2202	for (i = cs_is_nrc(tcsl) ? 0 : 1; i < 4; i++) {
	2203	G[i].def_designation = G[i].designation = tcsl;
	2204	G[i].init = TRUE;
	2205	G[i].def_c1 = G[i].c1 = FALSE;
	2206	switch (cs_size(G[i].designation)) { /* 94, 96, or 128 */
	2207	case 128:
	2208	case 96:
	2209	G[i].size = G[i].def_size = cs96;
	2210	break;
	2211	case 94:
	2212	G[i].size = G[i].def_size = cs94;
	2213	break;
	2214	default:
	2215	G[i].size = G[i].def_size = csmb;
	2216	break;
	2217	}
	2218	G[i].national = cs_is_nrc(x);
	2219	}
	2220	#else /* CKOUNI */
	2221	for (i = 0; i < 4; i++) {
	2222	G[i].def_designation = G[i].designation = FC_TRANSP;
	2223	G[i].init = FALSE;
	2224	G[i].size = G[i].def_size = cs96;
	2225	G[i].c1 = G[i].def_c1 = FALSE;
	2226	G[i].rtoi = NULL;
	2227	G[i].itol = NULL;
	2228	G[i].ltoi = NULL;
	2229	G[i].itor = NULL;
	2230	G[i].national = FALSE;
	2231	}
	2232	#endif /* CKOUNI */
	2233	#endif /* OS2 */
	2234	return(success = 1);
	2235	}
	2236	#endif /* KUI */
	2237	#ifdef OS2
	2238	if ((z = cmkey(graphsettab,ngraphset,
	2239	"DEC VT intermediate graphic set","all",xxstring)) < 0)
	2240	return(z);
	2241	{
	2242	int eol;
	2243	if ((eol = cmcfm()) < 0) /* Confirm the command */
	2244	return(eol);
	2245	}
	2246	tcsr = x; /* Remote character set */
	2247	if (z == TT_GR_ALL) {
	2248	int i;
	2249	for (i = 0; i < 4; i++) {
	2250	G[i].def_designation = G[i].designation = x;
	2251	G[i].init = TRUE;
	2252	switch (cs_size(x)) { /* 94, 96, or 128 */
	2253	case 128:
	2254	case 96:
	2255	G[i].size = G[i].def_size = cs96;
	2256	break;
	2257	case 94:
	2258	G[i].size = G[i].def_size = cs94;
	2259	break;
	2260	default:
	2261	G[i].size = G[i].def_size = csmb;
	2262	break;
	2263	}
	2264	G[i].c1 = G[i].def_c1 = x != tcsl && cs_is_std(x);
	2265	G[i].national = cs_is_nrc(x);
	2266	}
	2267	if (!cs_is_nrc(x)) {
	2268	G[0].designation = G[0].def_designation = FC_USASCII;
	2269	G[0].size = G[0].def_size = cs94;
	2270	}
	2271	} else { /* Specific Gn */
	2272	G[z].def_designation = G[z].designation = x;
	2273	G[z].init = TRUE;
	2274	switch (cs_size(x)) { /* 94, 96, or 128 */
	2275	case 128:
	2276	case 96:
	2277	G[i].size = G[i].def_size = cs96;
	2278	break;
	2279	case 94:
	2280	G[i].size = G[i].def_size = cs94;
	2281	break;
	2282	default:
	2283	G[i].size = G[i].def_size = csmb;
	2284	break;
	2285	}
	2286	G[z].c1 = G[z].def_c1 = x != tcsl && cs_is_std(x);
	2287	G[z].national = cs_is_nrc(x);
	2288	}
	2289	#else /* not OS2 */
	2290	if ((z = cmcfm()) < 0) return(z); /* Confirm the command */
	2291	tcsr = x; /* Remote character set */
	2292	#endif /* OS2 */
	2293	return(success = 1);
	2294	#endif /* NOCSETS */
	2295
	2296	case XYTEC: /* SET TERMINAL ECHO */
	2297	if ((x = cmkey(rltab,nrlt,"which side echos during CONNECT",
	2298	"remote", xxstring)) < 0) return(x);
	2299	if ((y = cmcfm()) < 0) return(y);
	2300	duplex = x;
	2301	return(success = 1);
	2302
	2303	case XYTESC: /* SET TERM ESC */
	2304	if ((x = cmkey(nabltab,2,"","enabled",xxstring)) < 0)
	2305	return(x);
	2306	if ((y = cmcfm()) < 0) return(y);
	2307	tt_escape = x;
	2308	return(1);
	2309
	2310	case XYTCRD: /* SET TERMINAL CR-DISPLAY */
	2311	if ((x = cmkey(crdtab,2,"", "normal", xxstring)) < 0) return(x);
	2312	if ((y = cmcfm()) < 0) return(y);
	2313	tt_crd = x;
	2314	return(success = 1);
	2315
	2316	#ifdef OS2
	2317	case XYTANS: { /* SET TERMINAL ANSWERBACK */
	2318	/*
	2319	NOTE: We let them enable and disable the answerback sequence, but we
	2320	do NOT let them change it, and we definitely do not let the host set it.
	2321	This is a security feature.
	2322
	2323	As of 1.1.8 we allow the SET TERM ANSWERBACK MESSAGE <string> to be
	2324	used just as MS-DOS Kermit does. C0 and C1 controls as well as DEL
	2325	are not allowed to be used as characters. They are translated to
	2326	underscore. This may not be set by APC.
	2327	*/
	2328	if ((x = cmkey(anbktab,nansbk,"", "off", xxstring)) < 0)
	2329	return(x);
	2330	if (x < 2) {
	2331	if ((y = cmcfm()) < 0)
	2332	return(y);
	2333	tt_answer = x;
	2334	return(success = 1);
	2335	} else if ( x == 2 \|\| x == 3) {
	2336	int len = 0;
	2337	extern int safeanswerbk;
	2338	extern char useranswerbk[];
	2339	if ((y = cmtxt("Answerback extension","",&s,xxstring)) < 0)
	2340	return(y);
	2341	if (apcactive == APC_LOCAL \|\|
	2342	(apcactive == APC_REMOTE && apcstatus != APC_UNCH))
	2343	return(success = 0);
	2344	len = strlen(s);
	2345	if (x == 2) {
	2346	/* Safe Answerback's don't have C0/C1 chars */
	2347	for (z = 0; z < len; z++) {
	2348	if ((s[z] & 0x7F) <= SP \|\| (s[z] & 0x7F) == DEL)
	2349	useranswerbk[z] = '_';
	2350	else
	2351	useranswerbk[z] = s[z];
	2352	}
	2353	useranswerbk[z] = '\0';
	2354	safeanswerbk = 1 ; /* TRUE */
	2355	} else {
	2356	strncpy( useranswerbk, s, 65 );
	2357	useranswerbk[65] = '\0';
	2358	safeanswerbk = 0; /* FALSE */
	2359	}
	2360	updanswerbk();
	2361	return(success = 1);
	2362	} else
	2363	return(success = 0);
	2364	}
	2365	#endif /* OS2 */
	2366
	2367	#ifdef CK_APC
	2368	case XYTAPC:
	2369	if ((y = cmkey(apctab,3,"application program command execution","",
	2370	xxstring)) < 0)
	2371	return(y);
	2372	if ((x = cmcfm()) < 0)
	2373	return(x);
	2374	if (apcactive == APC_LOCAL \|\|
	2375	(apcactive == APC_REMOTE && apcstatus != APC_UNCH))
	2376	return(success = 0);
	2377	apcstatus = y;
	2378	return(success = 1);
	2379
	2380	#ifdef CK_AUTODL
	2381	case XYTAUTODL:
	2382	return(success = seton(&autodl)); /* AUTODOWNLOAD ON, OFF */
	2383	#endif /* CK_AUTODL */
	2384	#endif /* CK_APC */
	2385
	2386	#ifdef OS2
	2387	case XYTBEL:
	2388	return(success = setbell());
	2389	#endif /* OS2 */
	2390
	2391	case XYTDEB: /* TERMINAL DEBUG */
	2392	x = debses; /* What it was before */
	2393	y = seton(&debses); /* Go parse ON or OFF */
	2394	#ifdef OS2
	2395	if (y > 0) /* Command succeeded? */
	2396	if ((x != 0) && (debses == 0)) /* It was on and we turned it off? */
	2397	os2debugoff(); /* Fix OS/2 coloration */
	2398	#endif /* OS2 */
	2399	return(y);
	2400
	2401	#ifdef OS2
	2402	case XYTROL: /* SET TERMINAL ROLL */
	2403	if ((y = cmkey(rolltab,nroll,"scrollback mode","insert",xxstring))<0)
	2404	return(y);
	2405	if ((x = cmcfm()) < 0) return(x);
	2406	tt_roll[VTERM] = y;
	2407	return(success = 1);
	2408
	2409	case XYTCTS: /* SET TERMINAL TRANSMIT-TIMEOUT */
	2410	y = cmnum("Maximum seconds to allow CTS off during CONNECT",
	2411	"5",10,&x,xxstring);
	2412	return(setnum(&tt_ctstmo,x,y,10000));
	2413
	2414	case XYTCPG: { /* SET TERMINAL CODE-PAGE */
	2415	int i;
	2416	int cp = -1;
	2417	y = cmnum("PC code page to use during terminal emulation",
	2418	"850",10,&x,xxstring);
	2419	if ((x = setnum(&cp,x,y,2000)) < 0) return(x);
	2420	if (os2setcp(cp) != 1) {
	2421	#ifdef NT
	2422	if (isWin95())
	2423	printf(
	2424	"Sorry, Windows 95 does not support code page switching\n");
	2425	else
	2426	#endif /* NT */
	2427	printf(
	2428	"Sorry, %d is not a valid code page for this system.\n",cp);
	2429	return(-9);
	2430	}
	2431	/* Force the terminal character-sets conversions to be updated */
	2432	for ( i = 0; i < 4; i++ )
	2433	G[i].init = TRUE;
	2434	return(1);
	2435	}
	2436
	2437	#ifdef COMMENT
	2438	case XYTHCU: /* SET TERMINAL HIDE-CURSOR */
	2439	return(seton(&tt_hide));
	2440	#endif /* COMMENT */
	2441
	2442	case XYTPAC: /* SET TERMINAL OUTPUT-PACING */
	2443	y = cmnum(
	2444	"Pause between sending each character during CONNECT, milliseconds",
	2445	"-1",10,&x,xxstring);
	2446	return(setnum(&tt_pacing,x,y,10000));
	2447
	2448	#ifdef OS2MOUSE
	2449	case XYTMOU: { /* SET TERMINAL MOUSE */
	2450	int old_mou = tt_mouse;
	2451	seton(&tt_mouse);
	2452	if ( tt_mouse != old_mou )
	2453	if ( tt_mouse )
	2454	os2_mouseon();
	2455	else
	2456	os2_mouseoff();
	2457	return(1);
	2458	}
	2459	#endif /* OS2MOUSE */
	2460	#endif /* OS2 */
	2461
	2462	case XYTWID: {
	2463	if ((y = cmnum(
	2464	#ifdef OS2
	2465	"number of columns in display window during CONNECT",
	2466	#else
	2467	"number of columns on your screen",
	2468	#endif /* OS2 */
	2469	"80",10,&x,xxstring)) < 0)
	2470	return(y);
	2471	if ((y = cmcfm()) < 0) return(y);
	2472	#ifdef OS2
	2473	if (x % 2) {
	2474	printf("\n?The width must be an even value\n.");
	2475	return(success = 0);
	2476	}
	2477
	2478	if ( IsOS2FullScreen() ) {
	2479	if ( x != 40 && x != 80 && x != 132 ) {
	2480	printf("\n?The width must be 40, 80,");
	2481	#ifdef NT
	2482	printf(" or 132 under Windows 95.\n.");
	2483	#else /* NT */
	2484	printf(" or 132 in a Full Screen session.\n.");
	2485	#endif /* NT */
	2486	return(success = 0);
	2487	}
	2488	} else {
	2489	if ( !IsWARPed() && x != 80 ) {
	2490	printf("\n?OS/2 version is pre-WARP: the width must equal ");
	2491	printf("80 in a Windowed Session\n.");
	2492	return(success = 0);
	2493	}
	2494	if (x < 20 \|\| x > MAXTERMCOL ) {
	2495	printf(
	2496	"\n?The width must be between 20 and %d\n.",MAXTERMCOL);
	2497	return(success = 0);
	2498	}
	2499	}
	2500	if (x > 8192/(tt_rows[VTERM]+1)) {
	2501	printf(
	2502	"\n?The max screen area is 8192 cells: %d(rows) x %d(cols) = %d cells.\n",
	2503	tt_rows[VTERM]+1,x,x*(tt_rows[VTERM]+1));
	2504	return(success = 0);
	2505	}
	2506	tt_cols[VTERM] = x;
	2507	tt_cols_usr = x;
	2508	#ifdef VSCRNINIT
	2509	VscrnSetWidth( VTERM, x);
	2510	#ifdef TCPSOCKET
	2511	if (nawsflg) {
	2512	tn_snaws();
	2513	#ifdef RLOGCODE
	2514	rlog_naws();
	2515	#endif /* RLOGCODE */
	2516	}
	2517	#endif /* TCPSOCKET */
	2518	#else /* VSCRNINIT */
	2519	VscrnSetWidth( VTERM, -1);
	2520	#endif /* VSCRNINIT */
	2521	/*
	2522	We do not set tt_szchng here because that would result in the screen buffer
	2523	being reallocated and the screen cleared. But that is not necessary when
	2524	only the screen width is being changed since the buffer allocates the full
	2525	width
	2526	*/
	2527	#else /* Not OS/2 */
	2528	tt_cols = x;
	2529	#endif /* OS2 */
	2530	return(success = 1);
	2531	}
	2532
	2533	case XYTHIG:
	2534	if ((y = cmnum(
	2535	#ifdef OS2
	2536	"number of rows in display window during CONNECT, not including status line",
	2537	#else
	2538	"number of rows on your screen",
	2539	#endif /* OS2 */
	2540	"24",10,&x,xxstring)) < 0)
	2541	return(y);
	2542	if ((y = cmcfm()) < 0) return(y);
	2543
	2544	#ifdef OS2
	2545	if (IsOS2FullScreen()) {
	2546	if (tt_status && x != 24 && x != 42 && x != 49 && x != 59) {
	2547	printf("\n?The height must be 24, 42, 49");
	2548	#ifdef NT
	2549	printf(" or 59 under Windows 95.\n.");
	2550	#else /* NT */
	2551	printf(" or 59 in a Full Screen session.\n.");
	2552	#endif /* NT */
	2553	return(success = 0);
	2554	} else if (!tt_status &&
	2555	x != 25 &&
	2556	x != 43 &&
	2557	x != 50 &&
	2558	x != 60) {
	2559	printf("\n?The height must be 25, 43, 50");
	2560	#ifdef NT
	2561	printf(" or 60 under Windows 95.\n.");
	2562	#else /* NT */
	2563	printf(" or 60 in a Full Screen session.\n.");
	2564	#endif /* NT */
	2565	return(success = 0);
	2566	}
	2567	} else {
	2568	if (x < 8 \|\| x > MAXTERMROW ) {
	2569	printf("\n?The height must be between 8 and %d\n.",MAXTERMROW);
	2570	return(success = 0);
	2571	}
	2572	}
	2573	if (x > 8192/tt_cols[VTERM]) {
	2574	printf(
	2575	"\n?The max screen area is 8192 cells: %d(rows) x %d(cols) = %d cells.\n",
	2576	x,tt_cols[VTERM],x*tt_cols[VTERM]);
	2577	return(success = 0);
	2578	}
	2579	#ifdef VSCRNINIT
	2580	tt_szchng[VTERM] = 1;
	2581	tt_rows[VTERM] = x;
	2582	VscrnInit( VTERM ); /* Height set here */
	2583	#ifdef TCPSOCKET
	2584	if (nawsflg){
	2585	tn_snaws();
	2586	#ifdef RLOGCODE
	2587	rlog_naws();
	2588	#endif /* RLOGCODE */
	2589	}
	2590	#endif /* TCPSOCKET */
	2591	#else /* VSCRNINIT */
	2592	tt_rows[VTERM] = x;
	2593	VscrnSetHeight( VTERM, -1 );
	2594	tt_szchng[VTERM] = 1;
	2595	#endif /* VSCRNINIT */
	2596	#else /* Not OS/2 */
	2597	tt_rows = x;
	2598	#endif /* OS2 */
	2599	return(success = 1);
	2600
	2601	#ifdef OS2
	2602	case XYTUPD: {
	2603	int mode, delay;
	2604	if ((mode = cmkey(scrnupd,nscrnupd,"","fast",xxstring)) < 0) {
	2605	return(mode);
	2606	} else {
	2607	y = cmnum(
	2608	"Pause between FAST screen updates in CONNECT mode, milliseconds",
	2609	"100",10,&x,xxstring
	2610	);
	2611	if (x < 0 \|\| x > 1000 ) {
	2612	printf(
	2613	"\n?The update rate must be between 0 and 1000 milliseconds.\n"
	2614	);
	2615	return(success = 0);
	2616	}
	2617	if ((y = cmcfm()) < 0) return(y);
	2618
	2619	updmode = tt_updmode = mode;
	2620	return(setnum(&tt_update,x,y,10000));
	2621	}
	2622	}
	2623	case XYTCTRL:
	2624	if ((x = cmkey(termctrl,ntermctrl,"","7",xxstring)) < 0) {
	2625	return(x);
	2626	} else {
	2627	if ((y = cmcfm()) < 0)
	2628	return(y);
	2629	switch ( x ) {
	2630	case 8:
	2631	send_c1 = send_c1_usr = TRUE;
	2632	break;
	2633	case 7:
	2634	default:
	2635	send_c1 = send_c1_usr = FALSE;
	2636	break;
	2637	}
	2638	}
	2639	return(success = TRUE);
	2640	break;
	2641
	2642	#ifdef PCFONTS
	2643	case XYTFON:
	2644	if ( !IsOS2FullScreen() ) {
	2645	printf(
	2646	"\n?SET TERMINAL FONT is only supported in Full Screen sessions.\n");
	2647	return(success = FALSE);
	2648	}
	2649
	2650	if ((x = cmkey(termfont,ntermfont,"","default",xxstring)) < 0) {
	2651	return(x);
	2652	} else {
	2653	if ((y = cmcfm()) < 0) return(y);
	2654	if ( !os2LoadPCFonts() ) {
	2655	tt_font = x;
	2656	return(success = TRUE);
	2657	} else {
	2658	printf(
	2659	"\n?PCFONTS.DLL is not available in CKERMIT executable directory.\n");
	2660	return(success = FALSE);
	2661	}
	2662	}
	2663	break;
	2664	#endif /* PCFONTS */
	2665	case XYTVCH:
	2666	if ((x = cmkey(nabltab,2,"","enabled",xxstring)) < 0)
	2667	return(x);
	2668	if ((y = cmcfm()) < 0) return(y);
	2669	tt_modechg = x;
	2670	return(1);
	2671
	2672	case XYTSTAT: {
	2673	extern int marginbot;
	2674	if ((y = cmkey(onoff,2,"","on",xxstring)) < 0) return(y);
	2675	if ((x = cmcfm()) < 0) return(x);
	2676	if (y != tt_status \|\| y != tt_status_usr) {
	2677	/* Might need to fixup the margins */
	2678	if ( marginbot == VscrnGetHeight(VTERM)-(tt_status?1:0) )
	2679	if (y) {
	2680	marginbot--;
	2681	} else {
	2682	marginbot++;
	2683	}
	2684	tt_status_usr = tt_status = y;
	2685	if (y) {
	2686	#ifdef VSCRNINIT
	2687	tt_szchng[VTERM] = 2;
	2688	tt_rows[VTERM]--;
	2689	VscrnInit(VTERM); /* Height set here */
	2690	#ifdef TCPSOCKET
	2691	if (nawsflg) {
	2692	tn_snaws();
	2693	#ifdef RLOGCODE
	2694	rlog_naws();
	2695	#endif /* RLOGCODE */
	2696	}
	2697	#endif /* TCPSOCKET */
	2698	#else /* VSCRNINIT */
	2699	tt_rows[VTERM]--;
	2700	VscrnSetHeight(VTERM, -1);
	2701	tt_szchng[VTERM] = 1;
	2702	#endif /* VSCRNINIT */
	2703	} else {
	2704	#ifdef VSCRNINIT
	2705	tt_szchng[VTERM] = 1;
	2706	tt_rows[VTERM]++;
	2707	VscrnInit(VTERM); /* Height set here */
	2708	#ifdef TCPSOCKET
	2709	if (nawsflg){
	2710	tn_snaws();
	2711	#ifdef RLOGCODE
	2712	rlog_naws();
	2713	#endif /* RLOGCODE */
	2714	}
	2715	#endif /* TCPSOCKET */
	2716	#else /* VSCRNINIT */
	2717	tt_rows[VTERM]++;
	2718	VscrnSetHeight(VTERM, -1);
	2719	tt_szchng[VTERM] = 1;
	2720	#endif /* VSCRNINIT */
	2721	}
	2722	}
	2723	return(1);
	2724	}
	2725	#endif /* OS2 */
	2726
	2727	#ifdef NT
	2728	case XYTATTBUG:
	2729	if ((y = cmkey(onoff,2,"","on",xxstring)) < 0) return(y);
	2730	if ((x = cmcfm()) < 0) return(x);
	2731	tt_attr_bug = y;
	2732	return(1);
	2733	#endif /* NT */
	2734
	2735	#ifdef OS2
	2736	case XYTSGRC:
	2737	if ((y = cmkey(onoff,2,"","on",xxstring)) < 0) return(y);
	2738	if ((x = cmcfm()) < 0) return(x);
	2739	sgrcolors = y;
	2740	return(1);
	2741
	2742	case XYTSEND:
	2743	if ((y = cmkey(onoff,2,"","on",xxstring)) < 0) return(y);
	2744	if ((x = cmcfm()) < 0) return(x);
	2745	tt_senddata = y;
	2746	return(1);
	2747
	2748	case XYTSEOB:
	2749	if ((y = cmkey(ttyseobtab,2,"","us_cr",xxstring)) < 0) return(y);
	2750	if ((x = cmcfm()) < 0) return(x);
	2751	wy_blockend = y;
	2752	return(1);
	2753
	2754	case XYTATTR:
	2755	if ((x = cmkey(ttyattrtab,nattrib,"","underline",xxstring)) < 0)
	2756	return(x);
	2757	switch ( x ) {
	2758	case TTATTBLI:
	2759	if ((y = cmkey(onoff,2,"","on",xxstring)) < 0) return(y);
	2760	if ((x = cmcfm()) < 0) return(x);
	2761	trueblink = y;
	2762	#ifndef KUI
	2763	if ( !trueblink && trueunderline ) {
	2764	trueunderline = 0;
	2765	printf("\nWarning: Underline being simulated by color.");
	2766	}
	2767
	2768	#endif /* KUI */
	2769	break;
	2770	case TTATTREV:
	2771	if ((y = cmkey(onoff,2,"","on",xxstring)) < 0) return(y);
	2772	if ((x = cmcfm()) < 0) return(x);
	2773	truereverse = y;
	2774	break;
	2775	case TTATTUND:
	2776	if ((y = cmkey(onoff,2,"","on",xxstring)) < 0) return(y);
	2777	if ((x = cmcfm()) < 0) return(x);
	2778	trueunderline = y;
	2779	#ifndef KUI
	2780	if ( !trueblink && trueunderline ) {
	2781	trueblink = 1;
	2782	printf("\nWarning: True blink mode is active.");
	2783	}
	2784	#endif /* KUI */
	2785	break;
	2786	}
	2787	return(1);
	2788
	2789	case XYTKEY: { /* SET TERMINAL KEY */
	2790	int t, x, y;
	2791	int clear = 0, deflt = 0;
	2792	int flag = 0;
	2793	int kc; /* Key code */
	2794	char s = NULL; / Key binding */
	2795	#ifndef NOKVERBS
	2796	char p = NULL; / Worker */
	2797	#endif /* NOKVERBS */
	2798	con_event defevt;
	2799	extern int os2gks;
	2800	extern int mskkeys;
	2801	extern int initvik;
	2802
	2803	if ((t = cmkey(ttkeytab,nttkey,"","",xxstring)) < 0)
	2804	return(t);
	2805	x_ifnum = 1;
	2806	y = cmnum("numeric key code, or the words CLEAR or DEFAULT,",
	2807	"",10,&kc,xxstring);
	2808	x_ifnum = 0;
	2809	if (y < 0) {
	2810	debug(F111,"SET KEY",atmbuf,y);
	2811	if (y == -2) { /* Not a valid number */
	2812	/* Check for SET TERM KEY <term> CLEAR */
	2813	if ((y = strlen(atmbuf)) < 0)
	2814	return(-2);
	2815	if (!xxstrcmp(atmbuf,"clear",y))
	2816	clear = 1;
	2817	else if (!xxstrcmp(atmbuf,"default",y))
	2818	deflt = 1;
	2819	else
	2820	return(-2);
	2821	if ((x = cmcfm()) < 0)
	2822	return(x);
	2823	if (clear)
	2824	clearkeymap(t);
	2825	if (deflt)
	2826	defaultkeymap(t);
	2827	initvik = 1; /* Update the VIK table */
	2828	return(1);
	2829	} else if (y == -3) { /* SET TERM KEY <terminal> <Return> */
	2830	/* Prompt for a keystroke */
	2831	printf(" Press key to be defined: ");
	2832	conbin((char)escape); /* Put terminal in binary mode */
	2833	os2gks = 0; /* Turn off Kverb preprocessing */
	2834	kc = congks(0); /* Get character or scan code */
	2835	os2gks = 1; /* Turn on Kverb preprocessing */
	2836	concb((char)escape); /* Restore terminal to cbreak mode */
	2837	if (kc < 0) { /* Check for error */
	2838	printf("?Error reading key\n");
	2839	return(0);
	2840	}
	2841	shokeycode(kc); /* Show current definition */
	2842	flag = 1; /* Remember it's a multiline command */
	2843	} else /* Error */
	2844	return(y);
	2845	}
	2846
	2847	/* Normal SET TERMINAL KEY <terminal> <scancode> <value> command... */
	2848
	2849	if (mskkeys)
	2850	kc = msktock(kc);
	2851
	2852	if (kc < 0 \|\| kc >= KMSIZE) {
	2853	printf("?key code must be between 0 and %d\n", KMSIZE - 1);
	2854	return(-9);
	2855	}
	2856	if (kc == escape) {
	2857	printf("Sorry, %d is the CONNECT-mode escape character\n",kc);
	2858	return(-9);
	2859	}
	2860	wideresult = -1;
	2861	if (flag) {
	2862	cmsavp(psave,PROMPTL);
	2863	cmsetp(" Enter new definition: ");
	2864	cmini(ckxech);
	2865	}
	2866	def_again:
	2867	if (flag) prompt(NULL);
	2868	if ((y = cmtxt("key definition,\n\
	2869	or Ctrl-C to cancel this command,\n\
	2870	or Enter to restore default definition",
	2871	"",&s,NULL)) < 0) {
	2872	if (flag) /* Handle parse errors */
	2873	goto def_again;
	2874	else
	2875	return(y);
	2876	}
	2877	s = brstrip(s);
	2878	#ifndef NOKVERBS
	2879	p = s; /* Save this place */
	2880	#endif /* NOKVERBS */
	2881	/*
	2882	If the definition included any \Kverbs, quote the backslash so the \Kverb
	2883	will still be in the definition when the key is pressed. We don't do this
	2884	in zzstring(), because \Kverbs are valid only in this context and nowhere
	2885	else.
	2886
	2887	We use this code active for all versions that support SET KEY, even if they
	2888	don't support \Kverbs, because otherwise \K would behave differently for
	2889	different versions.
	2890	*/
	2891	for (x = 0, y = 0; s[x]; x++, y++) { /* Convert \K to \\K */
	2892	if ((x > 0) &&
	2893	(s[x] == 'K' \|\| s[x] == 'k')
	2894	) { /* Have K */
	2895
	2896	if ((x == 1 && s[x-1] == CMDQ) \|\|
	2897	(x > 1 && s[x-1] == CMDQ && s[x-2] != CMDQ)) {
	2898	line[y++] = CMDQ; /* Make it \\K */
	2899	}
	2900	if (x > 1 && s[x-1] == '{' && s[x-2] == CMDQ) {
	2901	line[y-1] = CMDQ; /* Have \{K */
	2902	line[y++] = '{'; /* Make it \\{K */
	2903	}
	2904	}
	2905	line[y] = s[x];
	2906	}
	2907	line[y++] = NUL; /* Terminate */
	2908	s = line + y + 1; /* Point to after it */
	2909	x = LINBUFSIZ - (int) strlen(line) - 1; /* Get remaining space */
	2910	if ((x < (LINBUFSIZ / 2)) \|\|
	2911	(zzstring(line, &s, &x) < 0)) { /* Expand variables, etc. */
	2912	printf("?Key definition too long\n");
	2913	if (flag) cmsetp(psave);
	2914	return(-9);
	2915	}
	2916	s = line + y + 1; /* Point to result. */
	2917
	2918	#ifndef NOKVERBS
	2919	/*
	2920	Special case: see if the definition starts with a \Kverb.
	2921	If it does, point to it with p, otherwise set p to NULL.
	2922	*/
	2923	p = s;
	2924	if (*p++ == CMDQ) {
	2925	if (*p == '{') p++;
	2926	p = (p == 'k' \|\| p == 'K') ? p + 1 : NULL;
	2927	}
	2928	#endif /* NOKVERBS */
	2929
	2930	switch (strlen(s)) { /* Action depends on length */
	2931	case 0: /* Clear individual key def */
	2932	deletekeymap(t,kc);
	2933	break;
	2934	case 1:
	2935	defevt.type = key; /* Single character */
	2936	defevt.key.scancode = *s;
	2937	break;
	2938	default: /* Character string */
	2939	#ifndef NOKVERBS
	2940	if (p) {
	2941	y = xlookup(kverbs,p,nkverbs,&x); /* Look it up */
	2942	/* Need exact match */
	2943	debug(F101,"set key kverb lookup",0,y);
	2944	if (y > -1) {
	2945	defevt.type = kverb;
	2946	defevt.kverb.id = y;
	2947	break;
	2948	}
	2949	}
	2950	#endif /* NOKVERBS */
	2951	defevt.type = macro;
	2952	defevt.macro.string = (char *) malloc(strlen(s)+1);
	2953	if (defevt.macro.string)
	2954	strcpy(defevt.macro.string, s);
	2955	break;
	2956	}
	2957	insertkeymap(t, kc, defevt);
	2958	if (flag)
	2959	cmsetp(psave);
	2960	initvik = 1; /* Update VIK table */
	2961	return(1);
	2962	}
	2963	#endif /* OS2 */
	2964
	2965	default: /* Shouldn't get here. */
	2966	return(-2);
	2967	}
	2968	#endif /* MAC */
	2969	#ifdef COMMENT
	2970	/*
	2971	This was supposed to shut up picky compilers but instead it makes
	2972	most compilers complain about "statement not reached".
	2973	*/
	2974	return(-2);
	2975	#endif /* COMMENT */
	2976	#ifdef OS2
	2977	return(-2);
	2978	#endif /* OS2 */
	2979	}
	2980
	2981	#ifdef OS2
	2982	int
	2983	settitle(void) {
	2984	extern char usertitle[];
	2985	if ((y = cmtxt("title text","",&s,xxstring)) < 0)
	2986	return(y);
	2987	strncpy(usertitle,s,63);
	2988	return(1);
	2989	}
	2990
	2991	static struct keytab dialertab[] = { /* K95 Dialer types */
	2992	"backspace", 0, 0,
	2993	"enter", 1, 0
	2994	};
	2995	static int ndialer = 2;
	2996
	2997	int
	2998	setdialer(void) {
	2999	int t, x, y;
	3000	int clear = 0, deflt = 0;
	3001	int kc; /* Key code */
	3002	char s = NULL; / Key binding */
	3003	#ifndef NOKVERBS
	3004	char p = NULL; / Worker */
	3005	#endif /* NOKVERBS */
	3006	con_event defevt;
	3007	extern int os2gks;
	3008	extern int mskkeys;
	3009	extern int initvik;
	3010
	3011	if (( x = cmkey(dialertab, ndialer,
	3012	"Kermit-95 dialer work-arounds",
	3013	"", xxstring)) < 0 )
	3014	return(x);
	3015	switch (x) {
	3016	case 0: /* Backspace */
	3017	kc = 264;
	3018	break;
	3019	case 1: /* Enter */
	3020	kc = 269;
	3021	break;
	3022	default:
	3023	printf("Illegal value in setdialer()\n");
	3024	return(-9);
	3025	}
	3026	if ((y = cmtxt("Key definition","",&s,xxstring)) < 0)
	3027	return(y);
	3028
	3029	s = brstrip(s);
	3030	#ifndef NOKVERBS
	3031	p = s; /* Save this place */
	3032	#endif /* NOKVERBS */
	3033	/*
	3034	If the definition included any \Kverbs, quote the backslash so the \Kverb
	3035	will still be in the definition when the key is pressed. We don't do this
	3036	in zzstring(), because \Kverbs are valid only in this context and nowhere
	3037	else.
	3038
	3039	We use this code active for all versions that support SET KEY, even if they
	3040	don't support \Kverbs, because otherwise \K would behave differently for
	3041	different versions.
	3042	*/
	3043	for (x = 0, y = 0; s[x]; x++, y++) { /* Convert \K to \\K */
	3044	if ((x > 0) &&
	3045	(s[x] == 'K' \|\| s[x] == 'k')
	3046	) { /* Have K */
	3047
	3048	if ((x == 1 && s[x-1] == CMDQ) \|\|
	3049	(x > 1 && s[x-1] == CMDQ && s[x-2] != CMDQ)) {
	3050	line[y++] = CMDQ; /* Make it \\K */
	3051	}
	3052	if (x > 1 && s[x-1] == '{' && s[x-2] == CMDQ) {
	3053	line[y-1] = CMDQ; /* Have \{K */
	3054	line[y++] = '{'; /* Make it \\{K */
	3055	}
	3056	}
	3057	line[y] = s[x];
	3058	}
	3059	line[y++] = NUL; /* Terminate */
	3060	s = line + y + 1; /* Point to after it */
	3061	x = LINBUFSIZ - (int) strlen(line) - 1; /* Calculate remaining space */
	3062	if ((x < (LINBUFSIZ / 2)) \|\|
	3063	(zzstring(line, &s, &x) < 0)) { /* Expand variables, etc. */
	3064	printf("?Key definition too long\n");
	3065	return(-9);
	3066	}
	3067	s = line + y + 1; /* Point to result. */
	3068
	3069	#ifndef NOKVERBS
	3070	/*
	3071	Special case: see if the definition starts with a \Kverb.
	3072	If it does, point to it with p, otherwise set p to NULL.
	3073	*/
	3074	p = s;
	3075	if (*p++ == CMDQ) {
	3076	if (*p == '{') p++;
	3077	p = (p == 'k' \|\| p == 'K') ? p + 1 : NULL;
	3078	}
	3079	#endif /* NOKVERBS */
	3080
	3081	/* Now reprogram the default value for all terminal types */
	3082	/* remember to treat Wyse and Televideo terminals special */
	3083	/* because of their use of Kverbs for Backspace and Enter */
	3084	for (t = 0; t <= TT_MAX; t++) {
	3085	if (ISWY50(t) \|\| ISTVI(t)) {
	3086	extern char * udkfkeys[] ;
	3087	if (kc == 264) { /* \Kwybs or \Ktvibs */
	3088	if (udkfkeys[32])
	3089	free(udkfkeys[32]);
	3090	udkfkeys[32] = strdup(s);
	3091	}
	3092	if (kc == 269) { /* \Kwyenter and \Kwyreturn */
	3093	if (udkfkeys[39]) /* \Ktvienter and \Ktvireturn */
	3094	free(udkfkeys[39]);
	3095	udkfkeys[39] = strdup(s);
	3096	if (udkfkeys[49])
	3097	free(udkfkeys[49]);
	3098	udkfkeys[49] = strdup(s);
	3099	}
	3100	} else {
	3101	switch (strlen(s)) { /* Action depends on length */
	3102	case 0: /* Clear individual key def */
	3103	deletekeymap(t,kc);
	3104	break;
	3105	case 1:
	3106	defevt.type = key; /* Single character */
	3107	defevt.key.scancode = *s;
	3108	break;
	3109	default: /* Character string */
	3110	#ifndef NOKVERBS
	3111	if (p) {
	3112	y = xlookup(kverbs,p,nkverbs,&x); /* Look it up */
	3113	/* Exact match req'd */
	3114	debug(F101,"set key kverb lookup",0,y);
	3115	if (y > -1) {
	3116	defevt.type = kverb;
	3117	defevt.kverb.id = y;
	3118	break;
	3119	}
	3120	}
	3121	#endif /* NOKVERBS */
	3122	defevt.type = macro;
	3123	defevt.macro.string = (char *) malloc(strlen(s)+1);
	3124	if (defevt.macro.string)
	3125	strcpy(defevt.macro.string, s);
	3126	break;
	3127	}
	3128	insertkeymap( t, kc, defevt ) ;
	3129	initvik = 1; /* Update VIK table */
	3130	}
	3131	}
	3132	return(1);
	3133	}
	3134	#endif /* OS2 */
	3135
	3136	#ifdef NT
	3137	CHAR (*win95kcs)(CHAR) = NULL;
	3138	int win95altgr = 0;
	3139	int win95kl2 = 0;
	3140
	3141	extern CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])(CHAR);
	3142	extern struct keytab tcstab[];
	3143	extern int ntcs;
	3144	extern int maxow, owwait; /* Overlapped I/O variables */
	3145
	3146	int
	3147	setwin95( void ) {
	3148	int x, y, z;
	3149
	3150	if (( y = cmkey(win95tab, nwin95,
	3151	"Windows 95 specific work-arounds",
	3152	"keyboard-translation",
	3153	xxstring)) < 0 )
	3154	return (y);
	3155	switch ( y ) {
	3156	case XYWAGR:
	3157	if ((y = cmkey(onoff,2,"Right-Alt is Alt-Gr","off",xxstring)) < 0)
	3158	return(y);
	3159	if ((x = cmcfm()) < 0) return(x);
	3160	win95altgr = y;
	3161	return(1);
	3162
	3163	case XYWOIO:
	3164	if ((y = cmkey(onoff,2,"Use Overlapped I/O","off",xxstring)) < 0)
	3165	return(y);
	3166	if ( y ) {
	3167	if ((x = cmnum("Num of max I/O requests","1",10,&z,xxstring)) < 0)
	3168	return(x);
	3169	if ( z < 1 \|\| z > 5 ) {
	3170	printf("?max I/O requests must be between 1 and 5.\n");
	3171	return(-9);
	3172	}
	3173	} else
	3174	z = 1;
	3175	if ((x = cmcfm()) < 0) return(x);
	3176	owwait = !y;
	3177	maxow = z;
	3178	return(1);
	3179
	3180	case XYWKEY:
	3181	if (( z = cmkey(tcstab, ntcs,
	3182	"Keyboard Character Set",
	3183	"latin1-iso",
	3184	xxstring)) < 0 )
	3185	return (z);
	3186	if ((x = cmcfm()) < 0)
	3187	return(x);
	3188
	3189	win95kl2 = (z == TC_2LATIN);
	3190
	3191	if ( z == TC_TRANSP )
	3192	win95kcs = NULL;
	3193	else
	3194	win95kcs = xlr[z][tcsl];
	3195	return(1);
	3196
	3197	default:
	3198	printf("Illegal value in setwin95()\n");
	3199	return(-9);
	3200	}
	3201	}
	3202	#endif /* NT */
	3203
	3204	#ifdef OS2
	3205	int
	3206	setprty (
	3207	#ifdef CK_ANSIC
	3208	void
	3209	#endif /* CK_ANSIC */
	3210	/* setprty */ ) {
	3211	int x, y, z;
	3212
	3213	if (( y = cmkey(prtytab, nprty,
	3214	"priority level of terminal and communication threads",
	3215	"foreground-server",
	3216	xxstring)) < 0 )
	3217	return (y);
	3218
	3219	if ((x = cmcfm()) < 0)
	3220	return (x);
	3221	priority = y;
	3222	return(TRUE);
	3223	}
	3224
	3225	int
	3226	setbell(
	3227	#ifdef CK_ANSIC
	3228	void
	3229	#endif /* CK_ANSIC */
	3230	/* setbell */ ) {
	3231	int z, y, x;
	3232
	3233	if ((y = cmkey(beltab,nbeltab,
	3234	"how console and terminal bells should\nbe generated",
	3235	"audible",xxstring)) < 0)
	3236	return(y);
	3237
	3238	switch ( y ) {
	3239	case XYB_NONE:
	3240	case XYB_VIS:
	3241	if ((x = cmcfm()) < 0)
	3242	return(x);
	3243	tt_bell = y;
	3244	break;
	3245
	3246	case XYB_AUD:
	3247	if ((x = cmkey(audibletab, naudibletab,
	3248	"how audible console and terminal\nbells should be generated",
	3249	"beep",xxstring))<0)
	3250	return(x);
	3251	if ((z = cmcfm()) < 0)
	3252	return(z);
	3253	tt_bell = y \| x;
	3254	break;
	3255	}
	3256	return(1);
	3257	}
	3258	#endif /* OS2 */
	3259
	3260	#ifdef OS2MOUSE
	3261	int
	3262	setmou(
	3263	#ifdef CK_ANSIC
	3264	void
	3265	#endif /* CK_ANSIC */
	3266	/* setmou */ ) {
	3267	extern int initvik;
	3268	int button = 0, event = 0;
	3269	char * p;
	3270
	3271	if ((y = cmkey(mousetab,nmtab,"","",xxstring)) < 0)
	3272	return(y);
	3273
	3274	if (y == XYM_ON) { /* MOUSE ACTIVATION */
	3275	int old_mou = tt_mouse;
	3276	seton(&tt_mouse);
	3277	if ( tt_mouse != old_mou )
	3278	if ( tt_mouse )
	3279	os2_mouseon();
	3280	else
	3281	os2_mouseoff();
	3282	return(1);
	3283	}
	3284
	3285	if (y == XYM_CLEAR) { /* Reset Mouse Defaults */
	3286	mousemapinit(-1,-1);
	3287	initvik = 1; /* Update VIK Table */
	3288	return 1;
	3289	}
	3290	if (y != XYM_BUTTON) { /* Shouldn't happen. */
	3291	printf("Internal parsing error\n");
	3292	return(-9);
	3293	}
	3294
	3295	/* MOUSE EVENT ... */
	3296
	3297	if ((button = cmkey(mousebuttontab,nmbtab,
	3298	"Button number, one of the following","1",
	3299	xxstring)) < 0)
	3300	return(button);
	3301
	3302	if ((y = cmkey(mousemodtab,nmmtab,
	3303	"Keyboard modifier, one of the following",
	3304	"none",xxstring)) < 0)
	3305	return(y);
	3306
	3307	event \|= y; /* OR in the bits */
	3308
	3309	if ((y = cmkey(mclicktab,nmctab,"","click",xxstring)) < 0)
	3310	return(y);
	3311
	3312	/* Two bits are assigned, if neither are set then it is button one */
	3313
	3314	event \|= y; /* OR in the bit */
	3315
	3316	wideresult = -1;
	3317
	3318	if ((y = cmtxt("definition,\n\
	3319	or Ctrl-C to cancel this command,\n\
	3320	or Enter to restore default definition",
	3321	"",&s,NULL)) < 0) {
	3322	return(y);
	3323	}
	3324	s = brstrip(s);
	3325	p = s; /* Save this place */
	3326	/*
	3327	If the definition included any \Kverbs, quote the backslash so the \Kverb
	3328	will still be in the definition when the key is pressed. We don't do this
	3329	in zzstring(), because \Kverbs are valid only in this context and nowhere
	3330	else. This code copied from SET KEY, q.v. for addt'l commentary.
	3331	*/
	3332	for (x = 0, y = 0; s[x]; x++, y++) { /* Convert \K to \\K */
	3333	if ((x > 0) &&
	3334	(s[x] == 'K' \|\| s[x] == 'k')
	3335	) { /* Have K */
	3336
	3337	if ((x == 1 && s[x-1] == CMDQ) \|\|
	3338	(x > 1 && s[x-1] == CMDQ && s[x-2] != CMDQ)) {
	3339	line[y++] = CMDQ; /* Make it \\K */
	3340	}
	3341	if (x > 1 && s[x-1] == '{' && s[x-2] == CMDQ) {
	3342	line[y-1] = CMDQ; /* Have \{K */
	3343	line[y++] = '{'; /* Make it \\{K */
	3344	}
	3345	}
	3346	line[y] = s[x];
	3347	}
	3348	line[y++] = NUL; /* Terminate */
	3349	s = line + y + 1; /* Point to after it */
	3350	x = LINBUFSIZ - (int) strlen(line) - 1; /* Calculate remaining space */
	3351	if ((x < (LINBUFSIZ / 2)) \|\|
	3352	(zzstring(line, &s, &x) < 0)) { /* Expand variables, etc. */
	3353	printf("?Key definition too long\n");
	3354	return(-9);
	3355	}
	3356	s = line + y + 1; /* Point to result. */
	3357
	3358	#ifndef NOKVERBS
	3359	/*
	3360	Special case: see if the definition starts with a \Kverb.
	3361	If it does, point to it with p, otherwise set p to NULL.
	3362	*/
	3363	p = s;
	3364	if (*p++ == CMDQ) {
	3365	if (*p == '{') p++;
	3366	p = (p == 'k' \|\| p == 'K') ? p + 1 : NULL;
	3367	}
	3368	#else
	3369	p = NULL;
	3370	#endif /* NOKVERBS */
	3371
	3372	/* free the old definition if necessary */
	3373	if (mousemap[button][event].type == macro) {
	3374	free( mousemap[button][event].macro.string);
	3375	mousemap[button][event].macro.string = NULL;
	3376	}
	3377	switch (strlen(s)) { /* Action depends on length */
	3378	case 0: /* Reset to default binding */
	3379	mousemapinit( button, event );
	3380	break;
	3381	case 1: /* Single character */
	3382	mousemap[button][event].type = key;
	3383	mousemap[button][event].key.scancode = *s;
	3384	break;
	3385	default: /* Character string */
	3386	#ifndef NOKVERBS
	3387	if (p) {
	3388	y = xlookup(kverbs,p,nkverbs,&x); /* Look it up */
	3389	debug(F101,"set mouse kverb lookup",0,y); /* need exact match */
	3390	if (y > -1) {
	3391	/* Assign the kverb to the event */
	3392	mousemap[button][event].type = kverb;
	3393	mousemap[button][event].kverb.id = F_KVERB \| y;
	3394	break;
	3395	}
	3396	}
	3397	#endif /* NOKVERBS */
	3398
	3399	/* Otherwise, it's a macro, so assign the macro to the event */
	3400	mousemap[button][event].type = macro;
	3401	mousemap[button][event].macro.string = (MACRO) malloc(strlen(s)+1);
	3402	if (mousemap[button][event].macro.string)
	3403	strcpy((char *) mousemap[button][event].macro.string, s);
	3404	break;
	3405	}
	3406	initvik = 1; /* Update VIK Table */
	3407	return(1);
	3408	}
	3409	#endif /* OS2MOUSE */
	3410	#endif /* NOLOCAL */
	3411
	3412	int /* SET SEND/RECEIVE */
	3413	setsr(xx, rmsflg) int xx; int rmsflg; {
	3414	if (xx == XYRECV)
	3415	strcpy(line,"Parameter for inbound packets");
	3416	else
	3417	strcpy(line,"Parameter for outbound packets");
	3418
	3419	if (rmsflg) {
	3420	if ((y = cmkey(rsrtab,nrsrtab,line,"",xxstring)) < 0) {
	3421	if (y == -3) {
	3422	printf("?Remote receive parameter required\n");
	3423	return(-9);
	3424	} else return(y);
	3425	}
	3426	} else {
	3427	if ((y = cmkey(srtab,nsrtab,line,"",xxstring)) < 0) return(y);
	3428	}
	3429	switch (y) {
	3430	case XYQCTL: /* CONTROL-PREFIX */
	3431	if ((x = cmnum("ASCII value of control prefix","",10,&y,xxstring)) < 0)
	3432	return(x);
	3433	if ((x = cmcfm()) < 0) return(x);
	3434	if ((y > 32 && y < 63) \|\| (y > 95 && y < 127)) {
	3435	if (xx == XYRECV)
	3436	ctlq = (CHAR) y; /* RECEIVE prefix, use with caution! */
	3437	else
	3438	myctlq = (CHAR) y; /* SEND prefix, OK to change */
	3439	return(success = 1);
	3440	} else {
	3441	printf("?Illegal value for prefix character\n");
	3442	return(-9);
	3443	}
	3444
	3445	case XYEOL:
	3446	if ((y = setcc("13",&z)) < 0)
	3447	return(y);
	3448	if (z > 31) {
	3449	printf("Sorry, the legal values are 0-31\n");
	3450	return(-9);
	3451	}
	3452	if (xx == XYRECV)
	3453	eol = (CHAR) z;
	3454	else
	3455	seol = (CHAR) z;
	3456	return(success = y);
	3457
	3458	case XYLEN:
	3459	y = cmnum("Maximum number of characters in a packet","90",10,&x,
	3460	xxstring);
	3461	if (xx == XYRECV) { /* Receive... */
	3462	if ((y = setnum(&z,x,y,maxrps)) < 0)
	3463	return(y);
	3464	if (z < 10) {
	3465	printf("Sorry, 10 is the minimum\n");
	3466	return(-9);
	3467	}
	3468	if (rmsflg) {
	3469	tp = tmpbuf;
	3470	sprintf(tp,"%d",z);
	3471	sstate = setgen('S', "401", tp, "");
	3472	return((int) sstate);
	3473	} else {
	3474	if (protocol == PROTO_K) {
	3475	if (z > MAXRP) z = MAXRP;
	3476	y = adjpkl(z,wslotr,bigrbsiz);
	3477	if (y != z) {
	3478	urpsiz = y;
	3479	if (
	3480	#ifndef NOSPL
	3481	cmdlvl == 0
	3482	#else
	3483	tlevel < 0
	3484	#endif /* NOSPL */
	3485	)
	3486	if (msgflg) printf(
	3487	" Adjusting receive packet-length to %d for %d window slots\n",
	3488	y, wslotr);
	3489	}
	3490	urpsiz = y;
	3491	ptab[protocol].rpktlen = urpsiz;
	3492	rpsiz = (y > 94) ? 94 : y;
	3493	} else {
	3494	#ifdef CK_XYZ
	3495	if (protocol == PROTO_X && z != 128 && z != 1024) {
	3496	printf("Sorry, bad packet length for XMODEM.\n");
	3497	printf("Please use 128 or 1024.\n");
	3498	return(-9);
	3499	}
	3500	#endif /* CK_XYZ */
	3501	urpsiz = rpsiz = z;
	3502	}
	3503	}
	3504	} else { /* Send... */
	3505	if ((y = setnum(&z,x,y,maxsps)) < 0)
	3506	return(y);
	3507	if (z < 10) {
	3508	printf("Sorry, 10 is the minimum\n");
	3509	return(-9);
	3510	}
	3511	if (protocol == PROTO_K) {
	3512	if (z > MAXSP) z = MAXSP;
	3513	spsiz = z; /* Set it */
	3514	y = adjpkl(spsiz,wslotr,bigsbsiz);
	3515	if (y != spsiz &&
	3516	#ifndef NOSPL
	3517	cmdlvl == 0
	3518	#else
	3519	tlevel < 0
	3520	#endif /* NOSPL */
	3521	)
	3522	if (msgflg)
	3523	printf("Adjusting packet size to %d for %d window slots\n",
	3524	y,wslotr);
	3525	} else
	3526	y = z;
	3527	#ifdef CK_XYZ
	3528	if (protocol == PROTO_X && z != 128 && z != 1024) {
	3529	printf("Sorry, bad packet length for XMODEM.\n");
	3530	printf("Please use 128 or 1024.\n");
	3531	return(-9);
	3532	}
	3533	#endif /* CK_XYZ */
	3534	spsiz = spmax = spsizr = y; /* Set it and flag that it was set */
	3535	spsizf = 1; /* to allow overriding Send-Init. */
	3536	ptab[protocol].spktflg = spsizf;
	3537	ptab[protocol].spktlen = spsiz;
	3538	}
	3539	if (pflag && protocol == PROTO_K &&
	3540	#ifndef NOSPL
	3541	cmdlvl == 0
	3542	#else
	3543	tlevel < 0
	3544	#endif /* NOSPL */
	3545	) {
	3546	if (z > 94 && msgflg) {
	3547	/* printf("Extended-length packets requested.\n"); */
	3548	if (bctr < 2 && z > 200) printf("\
	3549	Remember to SET BLOCK 2 or 3 for long packets.\n");
	3550	}
	3551	if (speed <= 0L) speed = ttgspd();
	3552	#ifdef COMMENT
	3553	/*
	3554	Kermit does this now itself.
	3555	*/
	3556	if (speed <= 0L && z > 200 && msgflg) {
	3557	printf("\
	3558	Make sure your timeout interval is long enough for %d-byte packets.\n",z);
	3559	}
	3560	#endif /* COMMENT */
	3561	}
	3562	return(success = y);
	3563
	3564	case XYMARK:
	3565	#ifdef DOOMSDAY
	3566	/*
	3567	Printable start-of-packet works for UNIX and VMS only!
	3568	*/
	3569	x_ifnum = 1;
	3570	y = cmnum("Code for packet-start character","1",10,&x,xxstring);
	3571	x_ifnum = 0;
	3572	if ((y = setnum(&z,x,y,126)) < 0) return(y);
	3573	#else
	3574	if ((y = setcc("1",&z)) < 0)
	3575	return(y);
	3576	#endif /* DOOMSDAY */
	3577	if (xx == XYRECV)
	3578	stchr = (CHAR) z;
	3579	else
	3580	mystch = (CHAR) z;
	3581	return(success = y);
	3582
	3583	case XYNPAD: /* PADDING */
	3584	y = cmnum("How many padding characters for inbound packets","0",10,&x,
	3585	xxstring);
	3586	if ((y = setnum(&z,x,y,94)) < 0) return(y);
	3587	if (xx == XYRECV)
	3588	mypadn = (CHAR) z;
	3589	else
	3590	npad = (CHAR) z;
	3591	return(success = y);
	3592
	3593	case XYPADC: /* PAD-CHARACTER */
	3594	if ((y = setcc("0",&z)) < 0) return(y);
	3595	if (xx == XYRECV) mypadc = z; else padch = z;
	3596	return(success = y);
	3597
	3598	case XYTIMO: /* TIMEOUT */
	3599	if (xx == XYRECV) {
	3600	char buf[16]; /* Construct default */
	3601	sprintf(buf,"%d",URTIME);
	3602	y = cmnum("Packet timeout interval",buf,10,&x,xxstring);
	3603	if ((y = setnum(&z,x,y,94)) < 0) return(y);
	3604
	3605	if (rmsflg) { /* REMOTE SET RECEIVE TIMEOUT */
	3606	tp = tmpbuf; /* Tell Kermit server what */
	3607	sprintf(tp,"%d",z); /* timeout to ask me to use. */
	3608	sstate = setgen('S', "402", tp, "");
	3609	return((int) sstate);
	3610	} else { /* SET RECEIVE TIMEOUT */
	3611	pkttim = z; /* Value to put in my negotiation */
	3612	} /* packet for other Kermit to use */
	3613
	3614	} else { /* SET SEND TIMEOUT */
	3615	#ifdef CK_TIMERS
	3616	extern int rttflg, mintime, maxtime;
	3617	int tmin, tmax;
	3618	#endif /* CK_TIMERS */
	3619	y = cmnum("Packet timeout interval","",10,&x,xxstring);
	3620	if (y == -3) { /* They cancelled a previous */
	3621	x = DMYTIM; /* SET SEND command, so restore */
	3622	y = 0; /* the default */
	3623	timef = 0; /* and turn off the override flag */
	3624	}
	3625	#ifdef CK_TIMERS
	3626	if (y < 0) return(y);
	3627	if (x < 0) {
	3628	printf("?Out of range - %d\n",x);
	3629	return(-9);
	3630	}
	3631	if ((z = cmkey(timotab,2,"","dynamic",xxstring)) < 0) return(z);
	3632	if (z) {
	3633	if ((y = cmnum("Minimum timeout to allow",
	3634	"1",10,&tmin,xxstring)) < 0)
	3635	return(y);
	3636	if (tmin < 1) {
	3637	printf("?Out of range - %d\n",x);
	3638	return(-9);
	3639	}
	3640	if ((y = cmnum("Maximum timeout to allow",
	3641	"0",10,&tmax,xxstring)) < 0)
	3642	return(y);
	3643	/* 0 means let Kermit choose, < 0 means no maximum */
	3644	}
	3645	if ((y = cmcfm()) < 0)
	3646	return(y);
	3647	rttflg = z; /* Round-trip timer flag */
	3648	z = x;
	3649	#else
	3650	if ((y = setnum(&z,x,y,94)) < 0)
	3651	return(y);
	3652	#endif /* CK_TIMERS */
	3653	timef = 1; /* Turn on the override flag */
	3654	timint = rtimo = z; /* Override value for me to use */
	3655	if (rttflg) { /* Lower and upper bounds */
	3656	mintime = tmin;
	3657	maxtime = tmax;
	3658	}
	3659	}
	3660	return(success = 1);
	3661
	3662	case XYFPATH: /* PATHNAMES */
	3663	if ((y = cmkey(onoff,2,"","on",xxstring)) < 0) return(y);
	3664	if ((x = cmcfm()) < 0) return(x);
	3665	if (xx == XYRECV) { /* SET RECEIVE PATHNAMES */
	3666	fnrpath = 1 - y; /* OFF (with their heads!), ON */
	3667	ptab[protocol].fnrp = fnrpath;
	3668	} else { /* SET SEND PATHNAMES */
	3669	fnspath = 1 - y; /* OFF, ON */
	3670	ptab[protocol].fnsp = fnspath;
	3671	}
	3672	return(success = 1); /* Note: 0 = ON, 1 = OFF */
	3673	/* In other words, ON = leave pathnames ON, OFF = take them off. */
	3674
	3675	case XYPAUS: /* SET SEND/RECEIVE PAUSE */
	3676	y = cmnum("Milliseconds to pause between packets","0",10,&x,xxstring);
	3677	if ((y = setnum(&z,x,y,15000)) < 0)
	3678	return(y);
	3679	pktpaus = z;
	3680	return(success = 1);
	3681
	3682	default:
	3683	return(-2);
	3684	} /* End of SET SEND/RECEIVE... */
	3685	}
	3686
	3687	#ifndef NOXMIT
	3688	int
	3689	setxmit() {
	3690	if ((y = cmkey(xmitab,nxmit,"","",xxstring)) < 0) return(y);
	3691	switch (y) {
	3692	case XMITE: /* EOF */
	3693	y = cmtxt("Characters to send at end of file,\n\
	3694	Use backslash codes for control characters","",&s,xxstring);
	3695	if (y < 0) return(y);
	3696	if ((int)strlen(s) > XMBUFL) {
	3697	printf("?Too many characters, %d maximum\n",XMBUFL);
	3698	return(-2);
	3699	}
	3700	strcpy(xmitbuf,s);
	3701	return(success = 1);
	3702
	3703	case XMITF: /* Fill */
	3704	y = cmnum("Numeric code for blank-line fill character","0",10,&x,
	3705	xxstring);
	3706	if ((y = setnum(&z,x,y,127)) < 0) return(y);
	3707	xmitf = z;
	3708	return(success = 1);
	3709	case XMITL: /* Linefeed */
	3710	return(seton(&xmitl));
	3711	case XMITS: /* Locking-Shift */
	3712	return(seton(&xmits));
	3713	case XMITP: /* Prompt */
	3714	y = cmnum("Numeric code for host's prompt character, 0 for none",
	3715	"10",10,&x,xxstring);
	3716	if ((y = setnum(&z,x,y,127)) < 0) return(y);
	3717	xmitp = z;
	3718	return(success = 1);
	3719	case XMITX: /* Echo */
	3720	return(seton(&xmitx));
	3721	case XMITW: /* Pause */
	3722	y = cmnum("Number of milliseconds to pause between binary characters\n\
	3723	or text lines during transmission","0",10,&x,xxstring);
	3724	if ((y = setnum(&z,x,y,1000)) < 0) return(y);
	3725	xmitw = z;
	3726	return(success = 1);
	3727	default:
	3728	return(-2);
	3729	}
	3730	}
	3731	#endif /* NOXMIT */
	3732
	3733	/* D O R M T -- Do a remote command */
	3734
	3735	VOID
	3736	rmsg() {
	3737	if (pflag)
	3738	printf(
	3739	#ifdef CK_NEED_SIG
	3740	" Type your escape character, %s, followed by X or E to cancel.\n",
	3741	dbchr(escape)
	3742	#else
	3743	" Press the X or E key to cancel.\n"
	3744	#endif /* CK_NEED_SIG */
	3745	);
	3746	}
	3747
	3748	/* R E M C F M -- Confirm a REMOTE command */
	3749	/*
	3750	Like cmcfm(), but allows for a redirection indicator on the end,
	3751	like "> filename" or "\| command". Returns what cmcfm() would have
	3752	returned: -1 if reparse needed, etc etc blah blah. On success,
	3753	returns 1 with:
	3754
	3755	char * remdest containing the name of the file or command.
	3756	int remfile set to 1 if there is to be any redirection.
	3757	int rempipe set to 1 if remdest is a command, 0 if it is a file.
	3758	*/
	3759	static int
	3760	remcfm() {
	3761	int x;
	3762	char *s;
	3763	char c;
	3764
	3765	remfile = 0;
	3766	rempipe = 0;
	3767	if ((x = cmtxt(
	3768	"> filename, \| command,\n\
	3769	or type carriage return to confirm the command",
	3770	"",&s,xxstring)) < 0)
	3771	return(x);
	3772	if (remdest) {
	3773	free(remdest);
	3774	remdest = NULL;
	3775	}
	3776	if (!s) / No redirection indicator */
	3777	return(1);
	3778	c = s; / We have something */
	3779	if (c != '>' && c != '\|') { /* Is it > or \| ? */
	3780	printf("?Not confirmed\n"); /* No */
	3781	return(-9);
	3782	}
	3783	s++; /* See what follows */
	3784	if (c == '>' && s == '>') { / Allow for ">>" too */
	3785	s++;
	3786	remappd = 1; /* Append to output file */
	3787	}
	3788	while (s == SP \|\| s == HT) s++; /* Strip intervening whitespace */
	3789	if (!*s) {
	3790	printf("?%s missing\n", c == '>' ? "Filename" : "Command");
	3791	return(-9);
	3792	}
	3793	if (c == '>' && zchko(s) < 0) { /* Check accessibility */
	3794	printf("?Access denied - %s\n", s);
	3795	return(-9);
	3796	}
	3797	remfile = 1; /* Set global results */
	3798	rempipe = (c == '\|');
	3799	makestr(&remdest,s);
	3800	#ifndef NODEBUG
	3801	if (deblog) {
	3802	debug(F101,"remcfm remfile","",remfile);
	3803	debug(F101,"remcfm remappd","",remappd);
	3804	debug(F101,"remcfm rempipe","",rempipe);
	3805	debug(F110,"remcfm remdest",remdest, 0);
	3806	}
	3807	#endif /* NODEBUG */
	3808	return(1);
	3809	}
	3810
	3811	/* R E M T X T -- Like remcfm()... */
	3812	/*
	3813	... but for REMOTE commands that end with cmtxt().
	3814	Here we must decipher braces to discover whether the trailing
	3815	redirection indicator is intended for local use, or to be sent out
	3816	to the server, as in:
	3817
	3818	remote host blah blah > file This end
	3819	remote host { blah blah } > file This end
	3820	remote host { blah blah > file } That end
	3821	remote host { blah blah > file } > file Both ends
	3822
	3823	Pipes too:
	3824
	3825	remote host blah blah \| cmd This end
	3826	remote host { blah blah } \| cmd This end
	3827	remote host { blah blah \| cmd } That end
	3828	remote host { blah blah \| cmd } \| cmd Both ends
	3829
	3830	Or both:
	3831
	3832	remote host blah blah \| cmd > file This end, etc etc...
	3833
	3834	Note: this really only makes sense for REMOTE HOST, but why be picky?
	3835	Call after calling cmtxt(), with pointer to string that cmtxt() parsed,
	3836	as in "remtxt(&s);".
	3837
	3838	Returns:
	3839	1 on success with braces & redirection things removed & pointer updated,
	3840	-9 on failure (bad indirection), after printing error message.
	3841	*/
	3842	static int
	3843	remtxt(p) char ** p; {
	3844	int i, x, bpos, ppos;
	3845	char c, s, q;
	3846
	3847	remfile = 0; /* Initialize global results */
	3848	rempipe = 0;
	3849	remappd = 0;
	3850	if (remdest) {
	3851	free(remdest);
	3852	remdest = NULL;
	3853	}
	3854	s = *p;
	3855	if (!s) / No redirection indicator */
	3856	return(1); /* Done */
	3857
	3858	bpos = -1; /* Position of > (bracket) */
	3859	ppos = -1; /* Position of \| (pipe) */
	3860	x = strlen(s); /* Length of cmtxt() string */
	3861
	3862	for (i = x-1; i >= 0; i--) { /* Search right to left. */
	3863	c = s[i];
	3864	if (c == '}') /* Break on first right brace */
	3865	break; /* Don't look at contents of braces */
	3866	else if (c == '>') /* Record position of > */
	3867	bpos = i;
	3868	else if (c == '\|') /* and of \| */
	3869	ppos = i;
	3870	}
	3871	if (bpos < 0 && ppos < 0) { /* No redirectors. */
	3872	s = brstrip(s); /* Remove outer braces if any. */
	3873	p = s; / Point to result */
	3874	return(1); /* and return. */
	3875	}
	3876	remfile = 1; /* It's \| or > */
	3877	i = -1; /* Get leftmost symbol */
	3878	if (bpos > -1) /* Bracket */
	3879	i = bpos;
	3880	if (ppos > -1 && ppos < bpos) { /* or pipe */
	3881	i = ppos;
	3882	rempipe = 1;
	3883	}
	3884	c = s[i]; /* Copy of symbol */
	3885
	3886	if (c == '>' && s[i+1] == '>') /* ">>" for append? */
	3887	remappd = 1; /* It's not just a flag it's a number */
	3888
	3889	q = s + i + 1 + remappd; /* Point past symbol in string */
	3890	while (q == SP \|\| q == HT) q++; /* and any intervening whitespace */
	3891	if (!*q) {
	3892	printf("?%s missing\n", c == '>' ? "Filename" : "Command");
	3893	return(-9);
	3894	}
	3895	if (c == '>' && zchko(q) < 0) { /* (Doesn't work for \| cmd > file) */
	3896	printf("?Access denied - %s\n", q);
	3897	return(-9);
	3898	}
	3899	makestr(&remdest,q); /* Create the destination string */
	3900	q = s + i - 1; /* Point before symbol */
	3901	while (q > s && (q == SP \|\| q == HT)) /* Strip trailing whitespace */
	3902	q--;
	3903	(q+1) = NUL; / Terminate the string. */
	3904	s = brstrip(s); /* Remove any braces */
	3905	p = s; / Set return value */
	3906
	3907	#ifndef NODEBUG
	3908	if (deblog) {
	3909	debug(F101,"remtxt remfile","",remfile);
	3910	debug(F101,"remtxt remappd","",remappd);
	3911	debug(F101,"remtxt rempipe","",rempipe);
	3912	debug(F110,"remtxt remdest",remdest, 0);
	3913	debug(F110,"remtxt command",s,0);
	3914	}
	3915	#endif /* NODEBUG */
	3916
	3917	return(1);
	3918	}
	3919
	3920	int
	3921	dormt(xx) int xx; { /* REMOTE commands */
	3922	int x, y, retcode;
	3923	char s, sbuf[50], s2;
	3924
	3925	remfile = 0; /* Clear these */
	3926	rempipe = 0;
	3927	remappd = 0;
	3928
	3929	if (xx < 0) return(xx); /* REMOTE what? */
	3930
	3931	if (xx == XZSET) { /* REMOTE SET */
	3932	if ((y = cmkey(rmstab,nrms,"","",xxstring)) < 0) {
	3933	if (y == -3) {
	3934	printf("?Parameter name required\n");
	3935	return(-9);
	3936	} else return(y);
	3937	}
	3938	return(doprm(y,1));
	3939	}
	3940
	3941	switch (xx) { /* Others... */
	3942
	3943	case XZCWD: /* CWD (CD) */
	3944	if ((x = cmtxt("Remote directory name","",&s,xxstring)) < 0)
	3945	return(x);
	3946	if ((x = remtxt(&s)) < 0)
	3947	return(x);
	3948	debug(F111,"XZCWD: ",s,x);
	3949	*sbuf = NUL;
	3950	s2 = sbuf;
	3951	/*
	3952	The following is commented out because since the disappearance of the
	3953	DECSYSTEM-20 from the planet, no known computer requires a password for
	3954	changing directory.
	3955	*/
	3956	#ifdef DIRPWDPR
	3957	if (s != NUL) { / If directory name given, */
	3958	/* get password on separate line. */
	3959	if (tlevel > -1) { /* From take file... */
	3960
	3961	if (fgets(sbuf,50,tfile[tlevel]) == NULL)
	3962	fatal("take file ends prematurely in 'remote cwd'");
	3963	debug(F110," pswd from take file",s2,0);
	3964	for (x = (int)strlen(sbuf);
	3965	x > 0 && (sbuf[x-1] == NL \|\| sbuf[x-1] == CR);
	3966	x--)
	3967	sbuf[x-1] = '\0';
	3968
	3969	} else { /* From terminal... */
	3970
	3971	printf(" Password: "); /* get a password */
	3972	while (
	3973	#ifdef OS2
	3974	((x = is_a_tty(0) ? coninc(0) : /* with no echo ... */
	3975	getchar()) != NL) && (x != CR)
	3976	#else
	3977	((x = getchar()) != NL) && (x != CR)
	3978	#endif /* OS2 */
	3979	) {
	3980	if ((x &= 0177) == '?') {
	3981	printf("? Password of remote directory\n Password: ");
	3982	s2 = sbuf;
	3983	*sbuf = NUL;
	3984	} else if (x == ESC) /* Mini command line editor... */
	3985	bleep(BP_WARN);
	3986	else if (x == BS \|\| x == 0177)
	3987	s2--;
	3988	else if (x == 025) { /* Ctrl-U */
	3989	s2 = sbuf;
	3990	*sbuf = NUL;
	3991	} else
	3992	*s2++ = x;
	3993	}
	3994	*s2 = NUL;
	3995	putchar('\n');
	3996	}
	3997	s2 = sbuf;
	3998	} else s2 = "";
	3999	#endif /* DIRPWDPR */
	4000
	4001	debug(F110," password",s2,0);
	4002	sstate = setgen('C',s,s2,"");
	4003	retcode = 0;
	4004	break;
	4005
	4006	case XZDEL: /* Delete */
	4007	if ((x = cmtxt("Name of remote file(s) to delete",
	4008	"",&s,xxstring)) < 0) {
	4009	if (x == -3) {
	4010	printf("?Name of remote file(s) required\n");
	4011	return(-9);
	4012	} else return(x);
	4013	}
	4014	if ((x = remtxt(&s)) < 0)
	4015	return(x);
	4016	if (local) ttflui(); /* If local, flush tty input buffer */
	4017	retcode = sstate = rfilop(s,'E');
	4018	break;
	4019
	4020	case XZDIR: /* Directory */
	4021	if ((x = cmtxt("Remote directory or file specification","",&s,
	4022	xxstring)) < 0)
	4023	return(x);
	4024	if ((x = remtxt(&s)) < 0)
	4025	return(x);
	4026	if (local) ttflui(); /* If local, flush tty input buffer */
	4027	rmsg();
	4028	retcode = sstate = setgen('D',s,"","");
	4029	break;
	4030
	4031	case XZHLP: /* Help */
	4032	if ((x = remcfm()) < 0) return(x);
	4033	sstate = setgen('H',"","","");
	4034	retcode = 0;
	4035	break;
	4036
	4037	#ifndef NOPUSH
	4038	/* Why is this ifdef'd? */
	4039
	4040	case XZHOS: /* Host */
	4041	if (nopush) {
	4042	if ((x = remcfm()) < 0) return(x);
	4043	printf("?Not available - %s\n",cmdbuf);
	4044	return(-2);
	4045	}
	4046	if ((x = cmtxt("Command for remote system","",&cmarg,xxstring)) < 0)
	4047	return(x);
	4048	if ((x = remtxt(&cmarg)) < 0)
	4049	return(x);
	4050	if ((y = (int)strlen(cmarg)) < 1)
	4051	return(x);
	4052	rmsg();
	4053	retcode = sstate = 'c';
	4054	break;
	4055	#endif /* NOPUSH */
	4056
	4057	#ifndef NOFRILLS
	4058	case XZKER:
	4059	if ((x = cmtxt("Command for remote Kermit","",&cmarg,xxstring)) < 0)
	4060	return(x);
	4061	if ((x = remtxt(&cmarg)) < 0)
	4062	return(x);
	4063	if ((int)strlen(cmarg) < 1) {
	4064	if (x == -3) {
	4065	printf("?Remote Kermit command required\n");
	4066	return(-9);
	4067	} else return(x);
	4068	}
	4069	retcode = sstate = 'k';
	4070	rmsg();
	4071	break;
	4072
	4073	case XZLGI: { /* Login */
	4074	char p1, p2, *p3;
	4075	if ((x = cmfld("User ID","",&s,xxstring)) < 0)
	4076	return(x);
	4077	if ((p1 = malloc((int)strlen(s) + 1)) == NULL) {
	4078	printf("Internal error: malloc\n");
	4079	return(-2);
	4080	} else
	4081	strcpy(p1,s);
	4082	if ((x = cmfld("Password","",&s,xxstring)) < 0)
	4083	return(x);
	4084	if ((p2 = malloc((int)strlen(s) + 1)) == NULL) {
	4085	printf("Internal error: malloc\n");
	4086	return(-2);
	4087	} else
	4088	strcpy(p2,s);
	4089	if ((x = cmtxt("Account or carriage return","",
	4090	&s,xxstring)) < 0 && x != -3)
	4091	return(x);
	4092	if ((x = remtxt(&s)) < 0)
	4093	return(x);
	4094	if ((p3 = malloc((int)strlen(s) + 1)) == NULL) {
	4095	printf("Internal error: malloc\n");
	4096	return(-2);
	4097	} else
	4098	strcpy(p3,s);
	4099	sstate = setgen('I',p1,p2,p3);
	4100	if (p3) { free(p3); p3 = NULL; }
	4101	if (p2) { free(p2); p2 = NULL; }
	4102	if (p1) { free(p1); p1 = NULL; }
	4103	retcode = 0;
	4104	break;
	4105	}
	4106
	4107	case XZLGO: /* Logout */
	4108	if ((x = remcfm()) < 0) return(x);
	4109	sstate = setgen('I',"","","");
	4110	retcode = 0;
	4111	break;
	4112
	4113	case XZPRI: /* Print */
	4114	if (!atdiso \|\| !atcapr) { /* Disposition attribute off? */
	4115	printf("?Disposition Attribute is Off\n");
	4116	return(-2);
	4117	}
	4118	cmarg = "";
	4119	cmarg2 = "";
	4120	if ((x = cmifi("Local file(s) to print on remote printer","",&s,&y,
	4121	xxstring)) < 0) {
	4122	if (x == -3) {
	4123	printf("?Name of local file(s) required\n");
	4124	return(-9);
	4125	}
	4126	return(x);
	4127	}
	4128	strcpy(line,s); /* Make a safe copy of filename */
	4129	optbuf = NUL; / Wipe out any old options */
	4130	if ((x = cmtxt("Options for remote print command","",&s,xxstring)) < 0)
	4131	return(x);
	4132	if ((x = remtxt(&s)) < 0)
	4133	return(x);
	4134	strcpy(optbuf,s); /* Make a safe copy of options */
	4135	if ((int)strlen(optbuf) > 94) { /* Make sure this is legal */
	4136	printf("?Option string too long\n");
	4137	return(-9);
	4138	}
	4139	nfils = -1; /* Expand file list internally */
	4140	cmarg = line; /* Point to file list. */
	4141	rprintf = 1; /* REMOTE PRINT modifier for SEND */
	4142	sstate = 's'; /* Set start state to SEND */
	4143	if (local) displa = 1;
	4144	retcode = 0;
	4145	break;
	4146	#endif /* NOFRILLS */
	4147
	4148	case XZSPA: /* Space */
	4149	if ((x = cmtxt("Confirm, or remote directory name",
	4150	"",&s,xxstring)) < 0)
	4151	return(x);
	4152	if ((x = remtxt(&s)) < 0)
	4153	return(x);
	4154	retcode = sstate = setgen('U',s,"","");
	4155	break;
	4156
	4157	#ifndef NOFRILLS
	4158	case XZTYP: /* Type */
	4159	if ((x = cmtxt("Remote file specification","",&s,xxstring)) < 0)
	4160	return(x);
	4161	if ((int)strlen(s) < 1) {
	4162	printf("?Remote filename required\n");
	4163	return(-9);
	4164	}
	4165	if ((x = remtxt(&s)) < 0)
	4166	return(x);
	4167	rmsg();
	4168	retcode = sstate = rfilop(s,'T');
	4169	break;
	4170	#endif /* NOFRILLS */
	4171
	4172	#ifndef NOFRILLS
	4173	case XZWHO:
	4174	if ((x = cmtxt("Remote user name, or carriage return",
	4175	"",&s,xxstring)) < 0)
	4176	return(x);
	4177	if ((x = remtxt(&s)) < 0)
	4178	return(x);
	4179	retcode = sstate = setgen('W',s,"","");
	4180	break;
	4181	#endif /* NOFRILLS */
	4182
	4183	case XZPWD: /* PWD */
	4184	if ((x = remcfm()) < 0) return(x);
	4185	sstate = setgen('A',"","","");
	4186	retcode = 0;
	4187	break;
	4188
	4189	#ifndef NOSPL
	4190	case XZQUE: { /* Query */
	4191	char buf[2];
	4192	extern char querybuf[], * qbufp;
	4193	extern int qbufn;
	4194	if ((y = cmkey(vartyp,nvartyp,"","",xxstring)) < 0)
	4195	return(y);
	4196	if ((x = cmtxt("Remote variable name","",&s,NULL)) < 0) /* No eval */
	4197	return(x);
	4198	if ((x = remtxt(&s)) < 0)
	4199	return(x);
	4200	query = 1; /* QUERY is active */
	4201	qbufp = querybuf; /* Initialize query response buffer */
	4202	qbufn = 0;
	4203	querybuf[0] = NUL;
	4204	buf[0] = (char) (y & 127);
	4205	buf[1] = NUL;
	4206	retcode = sstate = setgen('V',"Q",(char *)buf,s);
	4207	break;
	4208	}
	4209
	4210	case XZASG: { /* Assign */
	4211	char buf[VNAML];
	4212	if ((y = cmfld("Remote variable name","",&s,NULL)) < 0) /* No eval */
	4213	return(y);
	4214	strcpy(buf,s);
	4215	if ((x = cmtxt("Assignment for remote variable",
	4216	"",&s,xxstring)) < 0) /* Evaluate this one */
	4217	return(x);
	4218	if ((x = remtxt(&s)) < 0)
	4219	return(x);
	4220	#ifdef COMMENT
	4221	/*
	4222	Server commands can't be long packets. In principle there's no reason
	4223	why they shouldn't be, except that we don't know at this point if the
	4224	server is capable of accepting long packets because we haven't started
	4225	the protocol yet. In practice, allowing a long packet here breaks a lot
	4226	of assumptions, causes buffer overruns and crashes, etc. To be fixed
	4227	later. (But since this is commented out, evidently I fixed it later...)
	4228	*/
	4229	if ((int)strlen(s) > 85) { /* Allow for encoding expansion */
	4230	printf("?Sorry, value is too long - 85 characters max\n");
	4231	return(-9);
	4232	}
	4233	#endif /* COMMENT */
	4234	retcode = sstate = setgen('V',"S",(char *)buf,s);
	4235	break;
	4236	}
	4237	#endif /* NOSPL */
	4238
	4239	#ifndef MAXPATHLEN
	4240	#define MAXPATHLEN 256
	4241	#endif /* MAXPATHLEN */
	4242
	4243	case XZCPY: { /* Copy */
	4244	char buf[MAXPATHLEN+1];
	4245	buf[MAXPATHLEN] = '\0';
	4246	if ((x = cmfld("Name of remote file to copy","",&s,xxstring)) < 0) {
	4247	if (x == -3) {
	4248	printf("?Name of remote file required\n");
	4249	return(-9);
	4250	}
	4251	else
	4252	return(x);
	4253	}
	4254	strncpy(buf,s,MAXPATHLEN);
	4255	if ((x = cmfld("Name of remote destination file or directory",
	4256	"",&s, xxstring)) < 0) {
	4257	if (x == -3) {
	4258	printf("?Name of remote file or directory required\n");
	4259	return(-9);
	4260	} else return(x);
	4261	}
	4262	if ((x = remcfm()) < 0)
	4263	return(x);
	4264	if (local) ttflui(); /* If local, flush tty input buffer */
	4265	retcode = sstate = setgen('K',buf,s,"");
	4266	break;
	4267	}
	4268
	4269	case XZREN: { /* Rename */
	4270	char buf[MAXPATHLEN+1];
	4271	buf[MAXPATHLEN] = '\0';
	4272	if ((x = cmfld("Name of remote file to rename",
	4273	"",&s,xxstring)) < 0) {
	4274	if (x == -3) {
	4275	printf("?Name of remote file required\n");
	4276	return(-9);
	4277	} else return(x);
	4278	}
	4279	strncpy(buf,s,MAXPATHLEN);
	4280	if ((x = cmfld("New name of remote file","",&s, xxstring)) < 0) {
	4281	if (x == -3) {
	4282	printf("?Name of remote file required\n");
	4283	return(-9);
	4284	} else return(x);
	4285	}
	4286	if ((x = remcfm()) < 0)
	4287	return(x);
	4288	if (local) ttflui(); /* If local, flush tty input buffer */
	4289	retcode = sstate = setgen('R',buf,s,"");
	4290	break;
	4291	}
	4292
	4293	default:
	4294	if ((x = remcfm()) < 0) return(x);
	4295	printf("?Not implemented - %s\n",cmdbuf);
	4296	return(-2);
	4297	}
	4298	if (local) ttflui(); /* If local, flush tty input buffer */
	4299	return(retcode);
	4300	}
	4301
	4302
	4303	/* R F I L O P -- Remote File Operation */
	4304
	4305	CHAR
	4306	#ifdef CK_ANSIC
	4307	rfilop(char * s, char t)
	4308	#else
	4309	rfilop(s,t) char *s, t;
	4310	#endif /* CK_ANSIC */
	4311	/* rfilop */ {
	4312	if (*s == NUL) {
	4313	printf("?File specification required\n");
	4314	return((CHAR) 0);
	4315	}
	4316	debug(F111,"rfilop",s,t);
	4317	return(setgen(t,s,"",""));
	4318	}
	4319
	4320	#ifdef ANYX25
	4321	int
	4322	setx25() {
	4323	if ((y = cmkey(x25tab,nx25,"X.25 call options","",xxstring)) < 0)
	4324	return(y);
	4325	switch (y) {
	4326	case XYUDAT:
	4327	if ((z = cmkey(onoff,2,"X.25 call user data","",xxstring))
	4328	< 0) return(z);
	4329	if (z == 0) {
	4330	if ((z = cmcfm()) < 0) return(z);
	4331	cudata = 0; /* disable call user data */
	4332	return (success = 1);
	4333	}
	4334	if ((x = cmtxt("X.25 call user data string","",&s,xxstring)) < 0)
	4335	return(x);
	4336	if ((int)strlen(s) == 0) {
	4337	return (-3);
	4338	} else if ((int)strlen(s) > MAXCUDATA) {
	4339	printf("?The length must be > 0 and <= %d\n",MAXCUDATA);
	4340	return(-2);
	4341	}
	4342	if ((y = cmcfm()) < 0) return(y);
	4343	strcpy(udata,s);
	4344	cudata = 1; /* X.25 call user data specified */
	4345	return (success = 1);
	4346	case XYCLOS:
	4347	if ((z = cmkey(onoff,2,"X.25 closed user group call","",xxstring))
	4348	< 0) return(z);
	4349	if (z == 0) {
	4350	if ((z = cmcfm()) < 0) return(z);
	4351	closgr = -1; /* disable closed user group */
	4352	return (success = 1);
	4353	}
	4354	if ((y = cmnum("0 <= cug index >= 99","",10,&x,xxstring)) < 0)
	4355	return(y);
	4356	if (x < 0 \|\| x > 99) {
	4357	printf("?The choices are 0 <= cug index >= 99\n");
	4358	return(-2);
	4359	}
	4360	if ((y = cmcfm()) < 0) return(y);
	4361	closgr = x; /* closed user group selected */
	4362	return (success = 1);
	4363
	4364	case XYREVC:
	4365	if((z = cmkey(onoff,2,"X.25 reverse charge call","",xxstring)) < 0)
	4366	return(z);
	4367	if ((x = cmcfm()) < 0) return(x);
	4368	revcall = z;
	4369	return (success = 1);
	4370	}
	4371	}
	4372
	4373	int
	4374	setpadp() {
	4375	if ((y = cmkey(padx3tab,npadx3,"PAD X.3 parameter name","",xxstring)) < 0)
	4376	return(y);
	4377	x = y;
	4378	switch (x) {
	4379	case PAD_BREAK_CHARACTER:
	4380	if ((y = cmnum("PAD break character value","",10,&z,xxstring)) < 0)
	4381	return(y);
	4382	if ((y = cmcfm()) < 0) return(y);
	4383	break;
	4384	case PAD_ESCAPE:
	4385	if ((y = cmnum("PAD escape","",10,&z,xxstring)) < 0) return(y);
	4386	if (z != 0 && z != 1) {
	4387	printf("?The choices are 0 or 1\n");
	4388	return(-2);
	4389	}
	4390	if ((y = cmcfm()) < 0) return(y);
	4391	break;
	4392	case PAD_ECHO:
	4393	if ((y = cmnum("PAD echo","",10,&z,xxstring)) < 0) return(y);
	4394	if (z != 0 && z != 1) {
	4395	printf("?The choices are 0 or 1\n");
	4396	return(-2);
	4397	}
	4398	if ((y = cmcfm()) < 0) return(y);
	4399	break;
	4400	case PAD_DATA_FORWARD_CHAR:
	4401	if ((y = cmnum("PAD data forward char","",10,&z,xxstring)) < 0)
	4402	return(y);
	4403	if (z != 0 && z != 2) {
	4404	printf("?The choices are 0 or 2\n");
	4405	return(-2);
	4406	}
	4407	if ((y = cmcfm()) < 0) return(y);
	4408	break;
	4409	case PAD_DATA_FORWARD_TIMEOUT:
	4410	if ((y = cmnum("PAD data forward timeout","",10,&z,xxstring)) < 0)
	4411	return(y);
	4412	if (z < 0 \|\| z > 255) {
	4413	printf("?The choices are 0 or 1 <= timeout <= 255\n");
	4414	return(-2);
	4415	}
	4416	if ((y = cmcfm()) < 0) return(y);
	4417	break;
	4418	case PAD_FLOW_CONTROL_BY_PAD:
	4419	if ((y = cmnum("PAD pad flow control","",10,&z,xxstring)) < 0)
	4420	return(y);
	4421	if (z != 0 && z != 1) {
	4422	printf("?The choices are 0 or 1\n");
	4423	return(-2);
	4424	}
	4425	if ((y = cmcfm()) < 0) return(y);
	4426	break;
	4427	case PAD_SUPPRESSION_OF_SIGNALS:
	4428	if ((y = cmnum("PAD service","",10,&z,xxstring)) < 0) return(y);
	4429	if (z != 0 && z != 1) {
	4430	printf("?The choices are 0 or 1\n");
	4431	return(-2);
	4432	}
	4433	if ((y = cmcfm()) < 0) return(y);
	4434	break;
	4435
	4436	case PAD_BREAK_ACTION:
	4437	if ((y = cmnum("PAD break action","",10,&z,xxstring)) < 0) return(y);
	4438	if (z != 0 && z != 1 && z != 2 && z != 5 && z != 8 && z != 21) {
	4439	printf("?The choices are 0, 1, 2, 5, 8 or 21\n");
	4440	return(-2);
	4441	}
	4442	if ((y = cmcfm()) < 0) return(y);
	4443	break;
	4444
	4445	case PAD_SUPPRESSION_OF_DATA:
	4446	if ((y = cmnum("PAD data delivery","",10,&z,xxstring)) < 0) return(y);
	4447	if (z != 0 && z != 1) {
	4448	printf("?The choices are 0 or 1\n");
	4449	return(-2);
	4450	}
	4451	if ((y = cmcfm()) < 0) return(y);
	4452	break;
	4453
	4454	case PAD_PADDING_AFTER_CR:
	4455	if ((y = cmnum("PAD crpad","",10,&z,xxstring)) < 0) return(y);
	4456	if (z < 0 \|\| z > 7) {
	4457	printf("?The choices are 0 or 1 <= crpad <= 7\n");
	4458	return(-2);
	4459	}
	4460	if ((y = cmcfm()) < 0) return(y);
	4461	break;
	4462
	4463	case PAD_LINE_FOLDING:
	4464	if ((y = cmnum("PAD linefold","",10,&z,xxstring)) < 0) return(y);
	4465	if (z < 0 \|\| z > 255) {
	4466	printf("?The choices are 0 or 1 <= linefold <= 255\n");
	4467	return(-2);
	4468	}
	4469	if ((y = cmcfm()) < 0) return(y);
	4470	break;
	4471
	4472	case PAD_LINE_SPEED:
	4473	if ((y = cmnum("PAD baudrate","",10,&z,xxstring)) < 0) return(y);
	4474	if (z < 0 \|\| z > 18) {
	4475	printf("?The choices are 0 <= baudrate <= 18\n");
	4476	return(-2);
	4477	}
	4478	if ((y = cmcfm()) < 0) return(y);
	4479	break;
	4480
	4481	case PAD_FLOW_CONTROL_BY_USER:
	4482	if ((y = cmnum("PAD terminal flow control","",10,&z,xxstring)) < 0)
	4483	return(y);
	4484	if (z != 0 && z != 1) {
	4485	printf("?The choices are 0 or 1\n");
	4486	return(-2);
	4487	}
	4488	if ((y = cmcfm()) < 0) return(y);
	4489	break;
	4490
	4491	case PAD_LF_AFTER_CR:
	4492	if ((y = cmnum("PAD crpad","",10,&z,xxstring)) < 0) return(y);
	4493	if (z < 0 \|\| z == 3 \|\| z > 7) {
	4494	printf("?The choices are 0, 1, 2, 4, 5, 6 or 7\n");
	4495	return(-2);
	4496	}
	4497	if ((y = cmcfm()) < 0) return(y);
	4498	break;
	4499
	4500	case PAD_PADDING_AFTER_LF:
	4501	if ((y = cmnum("PAD lfpad","",10,&z,xxstring)) < 0) return(y);
	4502	if (z < 0 \|\| z > 7) {
	4503	printf("?The choices are 0 or 1 <= lfpad <= 7\n");
	4504	return(-2);
	4505	}
	4506	if ((y = cmcfm()) < 0) return(y);
	4507	break;
	4508
	4509	case PAD_EDITING:
	4510	if ((y = cmnum("PAD edit control","",10,&z,xxstring)) < 0) return(y);
	4511	if (z != 0 && z != 1) {
	4512	printf("?The choices are 0 or 1\n");
	4513	return(-2);
	4514	}
	4515	if ((y = cmcfm()) < 0) return(y);
	4516	break;
	4517
	4518	case PAD_CHAR_DELETE_CHAR:
	4519	if ((y = cmnum("PAD char delete char","",10,&z,xxstring)) < 0)
	4520	return(y);
	4521	if (z < 0 \|\| z > 127) {
	4522	printf("?The choices are 0 or 1 <= chardelete <= 127\n");
	4523	return(-2);
	4524	}
	4525	if ((y = cmcfm()) < 0) return(y);
	4526	break;
	4527
	4528	case PAD_BUFFER_DELETE_CHAR:
	4529	if ((y = cmnum("PAD buffer delete char","",10,&z,xxstring)) < 0)
	4530	return(y);
	4531	if (z < 0 \|\| z > 127) {
	4532	printf("?The choices are 0 or 1 <= bufferdelte <= 127\n");
	4533	return(-2);
	4534	}
	4535	if ((y = cmcfm()) < 0) return(y);
	4536	break;
	4537
	4538	case PAD_BUFFER_DISPLAY_CHAR:
	4539	if ((y = cmnum("PAD display line char","",10,&z,xxstring)) < 0)
	4540	return(y);
	4541	if (z < 0 \|\| z > 127) {
	4542	printf("?The choices are 0 or 1 <= displayline <= 127\n");
	4543	return(-2);
	4544	}
	4545	if ((y = cmcfm()) < 0) return(y);
	4546	break;
	4547	}
	4548	padparms[x] = z;
	4549	return(success = 1);
	4550	}
	4551	#endif /* ANYX25 */
	4552
	4553	int
	4554	setat(rmsflg) int rmsflg; {
	4555	int xx;
	4556	if ((y = cmkey(attrtab,natr,"File Attribute packets","",xxstring)) < 0)
	4557	return(y);
	4558	if (y == AT_XALL) { /* ATTRIBUTES ALL ON or ALL OFF */
	4559	if ((z = seton(&xx)) < 0) return(z);
	4560	if (rmsflg) {
	4561	printf("Sorry, command not available\n");
	4562	return(-9);
	4563	} else {
	4564	atenci = xx; /* Encoding in */
	4565	atenco = xx; /* Encoding out */
	4566	atdati = xx; /* Date in */
	4567	atdato = xx; /* Date out */
	4568	atdisi = xx; /* Disposition in/out */
	4569	atdiso = xx;
	4570	atleni = xx; /* Length in/out (both kinds) */
	4571	atleno = xx;
	4572	atblki = xx; /* Blocksize in/out */
	4573	atblko = xx;
	4574	attypi = xx; /* File type in/out */
	4575	attypo = xx;
	4576	atsidi = xx; /* System ID in/out */
	4577	atsido = xx;
	4578	atsysi = xx; /* System-dependent params in/out */
	4579	atsyso = xx;
	4580	#ifdef STRATUS
	4581	atfrmi = xx; /* Format in/out */
	4582	atfrmo = xx;
	4583	atcrei = xx; /* Creator id in/out */
	4584	atcreo = xx;
	4585	atacti = xx; /* Account in/out */
	4586	atacto = xx;
	4587	#endif /* STRATUS */
	4588	}
	4589	return(z);
	4590	} else if (y == AT_ALLY \|\| y == AT_ALLN) { /* ATTRIBUTES ON or OFF */
	4591	if ((x = cmcfm()) < 0) return(x);
	4592	atcapr = (y == AT_ALLY) ? 1 : 0;
	4593	if (rmsflg) {
	4594	sstate = setgen('S', "132", atcapr ? "1" : "0", "");
	4595	return((int) sstate);
	4596	} else return(success = 1);
	4597	}
	4598	/* Otherwise, it's an individual attribute that wants turning off/on */
	4599
	4600	if ((z = cmkey(onoff,2,"","",xxstring)) < 0) return(z);
	4601	if ((x = cmcfm()) < 0) return(x);
	4602
	4603	/* There are better ways to do this... */
	4604	/* The real problem is that we're not separating the in and out cases */
	4605	/* and so we have to arbitrarily pick the "in" case, i.e tell the remote */
	4606	/* server to ignore incoming attributes of the specified type, rather */
	4607	/* than telling it not to send them. The protocol does not (yet) define */
	4608	/* codes for "in-and-out-at-the-same-time". */
	4609
	4610	switch(y) {
	4611	case AT_DISP:
	4612	if (rmsflg) {
	4613	sstate = setgen('S', "142", z ? "1" : "0", "");
	4614	return((int) sstate);
	4615	}
	4616	atdisi = atdiso = z; break;
	4617	case AT_ENCO:
	4618	if (rmsflg) {
	4619	sstate = setgen('S', "141", z ? "1" : "0", "");
	4620	return((int) sstate);
	4621	}
	4622	atenci = atenco = z; break;
	4623	case AT_DATE:
	4624	if (rmsflg) {
	4625	sstate = setgen('S', "135", z ? "1" : "0", "");
	4626	return((int) sstate);
	4627	}
	4628	atdati = atdato = z; break;
	4629	case AT_LENB:
	4630	case AT_LENK:
	4631	if (rmsflg) {
	4632	sstate = setgen('S', "133", z ? "1" : "0", "");
	4633	return((int) sstate);
	4634	}
	4635	atleni = atleno = z; break;
	4636	case AT_BLKS:
	4637	if (rmsflg) {
	4638	sstate = setgen('S', "139", z ? "1" : "0", "");
	4639	return((int) sstate);
	4640	}
	4641	atblki = atblko = z; break;
	4642	case AT_FTYP:
	4643	if (rmsflg) {
	4644	sstate = setgen('S', "134", z ? "1" : "0", "");
	4645	return((int) sstate);
	4646	}
	4647	attypi = attypo = z; break;
	4648	#ifdef STRATUS
	4649	case AT_CREA:
	4650	if (rmsflg) {
	4651	sstate = setgen('S', "136", z ? "1" : "0", "");
	4652	return((int) sstate);
	4653	}
	4654	atcrei = atcreo = z; break;
	4655	case AT_ACCT:
	4656	if (rmsflg) {
	4657	sstate = setgen('S', "137", z ? "1" : "0", "");
	4658	return((int) sstate);
	4659	}
	4660	atacti = atacto = z; break;
	4661	#endif /* STRATUS */
	4662	case AT_SYSI:
	4663	if (rmsflg) {
	4664	sstate = setgen('S', "145", z ? "1" : "0", "");
	4665	return((int) sstate);
	4666	}
	4667	atsidi = atsido = z; break;
	4668	#ifdef STRATUS
	4669	case AT_RECF:
	4670	if (rmsflg) {
	4671	sstate = setgen('S', "146", z ? "1" : "0", "");
	4672	return((int) sstate);
	4673	}
	4674	atfrmi = atfrmo = z; break;
	4675	#endif /* STRATUS */
	4676	case AT_SYSP:
	4677	if (rmsflg) {
	4678	sstate = setgen('S', "147", z ? "1" : "0", "");
	4679	return((int) sstate);
	4680	}
	4681	atsysi = atsyso = z; break;
	4682	default:
	4683	printf("?Not available\n");
	4684	return(-2);
	4685	}
	4686	return(1);
	4687	}
	4688
	4689	#ifndef NOSPL
	4690	int
	4691	setinp() {
	4692	if ((y = cmkey(inptab,ninp,"","",xxstring)) < 0) return(y);
	4693	switch (y) {
	4694	#ifdef OS2
	4695	case IN_PAC: /* SET INPUT PACING */
	4696	z = cmnum("milliseconds","0",10,&x,xxstring);
	4697	return(setnum(&tt_inpacing,x,z,94));
	4698	#endif /* OS2 */
	4699	case IN_DEF: /* SET INPUT DEFAULT-TIMEOUT */
	4700	z = cmnum("Positive number","",10,&x,xxstring);
	4701	return(setnum(&indef,x,z,94));
	4702	case IN_TIM: /* SET INPUT TIMEOUT-ACTION */
	4703	if ((z = cmkey(intimt,2,"","",xxstring)) < 0) return(z);
	4704	if ((x = cmcfm()) < 0) return(x);
	4705	intime[cmdlvl] = z;
	4706	return(success = 1);
	4707	case IN_CAS: /* SET INPUT CASE */
	4708	if ((z = cmkey(incast,2,"","",xxstring)) < 0) return(z);
	4709	if ((x = cmcfm()) < 0) return(x);
	4710	inpcas[cmdlvl] = z;
	4711	return(success = 1);
	4712	case IN_ECH: /* SET INPUT ECHO */
	4713	return(seton(&inecho));
	4714	case IN_SIL: /* SET INPUT SILENCE */
	4715	z = cmnum("Seconds of inactivity before INPUT fails","",10,&x,
	4716	xxstring);
	4717	return(setnum(&insilence,x,z,-1));
	4718	case IN_BUF: /* SET INPUT BUFFER-SIZE */
	4719	sprintf(tmpbuf, "%d", INPBUFSIZ);
	4720	if ((z = cmnum("Number of bytes in INPUT buffer",
	4721	tmpbuf,10,&x, xxstring)) < 0)
	4722	return(z);
	4723	if ((y = cmcfm()) < 0) return(y);
	4724	inbufsize = 0;
	4725	if (inpbuf) {
	4726	free(inpbuf);
	4727	inpbuf = NULL;
	4728	inpbp = NULL;
	4729	}
	4730	if (!(s = (char *)malloc(x + 1)))
	4731	return(0);
	4732	inpbuf = s;
	4733	inpbp = s;
	4734	inbufsize = x;
	4735	for (x = 0; x <= inbufsize; x++)
	4736	inpbuf[x] = NUL;
	4737	}
	4738	return(0);
	4739	}
	4740	#endif /* NOSPL */
	4741
	4742	#ifdef NETCONN
	4743	VOID
	4744	ndreset() {
	4745	#ifndef NODIAL /* This depends on DIAL... */
	4746	int i=0, j=0;
	4747	if (!ndinited) /* Don't free garbage... */
	4748	return;
	4749	for (i = 0; i < nhcount; i++) { /* Clean out previous list */
	4750	if (nh_p[i])
	4751	free(nh_p[i]);
	4752	nh_p[i] = NULL;
	4753	if (nh_p2[i])
	4754	free(nh_p2[i]);
	4755	nh_p2[i] = NULL;
	4756	for (j = 0; j < 4; j++) {
	4757	if (nh_px[j][i])
	4758	free(nh_px[j][i]);
	4759	nh_px[j][i] = NULL;
	4760	}
	4761	}
	4762	#endif /* NODIAL */
	4763	}
	4764
	4765	VOID
	4766	ndinit() { /* Net directory pointers */
	4767	#ifndef NODIAL /* This depends on DIAL... */
	4768	int i, j;
	4769	if (ndinited++) /* Don't do this more than once. */
	4770	return;
	4771	for (i = 0; i < MAXDDIR; i++) { /* Init all pointers to NULL */
	4772	netdir[i] = NULL;
	4773	}
	4774	for (i = 0; i < MAXDNUMS; i++) {
	4775	nh_p[i] = NULL;
	4776	nh_p2[i] = NULL;
	4777	for (j = 0; j < 4; j++)
	4778	nh_px[j][i] = NULL;
	4779	}
	4780	#endif /* NODIAL */
	4781	}
	4782
	4783	#ifndef NODIAL
	4784	#ifdef NETCONN
	4785	VOID /* Get net defaults from environment */
	4786	getnetenv() {
	4787	char *p = NULL;
	4788
	4789	makestr(&p,getenv("K_NET_DIRECTORY")); /* Dialing directories */
	4790	if (p) {
	4791	int i;
	4792	xwords(p,(MAXDDIR - 2),netdir,0);
	4793	for (i = 0; i < (MAXDDIR - 1); i++) { /* Fill in any gaps... */
	4794	if (!netdir[i+1])
	4795	break;
	4796	else
	4797	netdir[i] = netdir[i+1];
	4798	}
	4799	nnetdir = i;
	4800	}
	4801	}
	4802	#endif /* NETCONN */
	4803	#endif /* NODIAL */
	4804
	4805	int
	4806	#ifdef CK_ANSIC
	4807	lunet(char s) / s = name to look up */
	4808	#else
	4809	lunet(s) char *s;
	4810	#endif /* CK_ANSIC */
	4811	/* lunet */ {
	4812	#ifndef NODIAL /* This depends on DIAL... */
	4813	int n, n1, n3, n4, t, i, j, k, dd = 0;
	4814	int ambiguous = 0;
	4815	FILE * f;
	4816	char line = NULL, pp, *p2;
	4817	extern int dialdpy;
	4818	int netdpy = dialdpy;
	4819	char *info[8];
	4820
	4821	nhcount = 0; /* Set this before returning */
	4822
	4823	if (!s \|\| nnetdir < 1) /* Validate arguments */
	4824	return(-1);
	4825
	4826	if (isdigit(s) \|\| s == '' \|\| s == '.')
	4827	return(0);
	4828
	4829	if ((n1 = (int) strlen(s)) < 1) /* Length of string to look up */
	4830	return(-1);
	4831
	4832	if (!(line = malloc(1024))) /* Allocate input buffer */
	4833	return(-1);
	4834
	4835	lu_again:
	4836	f = NULL; /* Network directory file descriptor */
	4837	t = nhcount = 0; /* Match count */
	4838	dd = 0; /* Directory counter */
	4839
	4840	dirline = 0;
	4841	while (1) { /* We make one pass */
	4842	if (!f) { /* Directory not open */
	4843	if (dd >= nnetdir) /* No directories left? */
	4844	break; /* Done. */
	4845	if ((f = fopen(netdir[dd],"r")) == NULL) { /* Open it */
	4846	perror(netdir[dd]); /* Can't, print message saying why */
	4847	dd++;
	4848	continue; /* But go on to next one. */
	4849	}
	4850	if (netdpy)
	4851	printf("Opening %s...\n",netdir[dd]);
	4852	dd++;
	4853	}
	4854	line[0] = NUL;
	4855	if (getnct(line,1023,f,1) < 0) { /* Read a line */
	4856	if (f) { /* f can be clobbered! */
	4857	fclose(f); /* Close the file */
	4858	f = NULL; /* Indicate next one needs opening */
	4859	}
	4860	continue;
	4861	}
	4862	if (!line[0]) /* Empty line */
	4863	continue;
	4864
	4865	xwords(line,7,info,0); /* Parse it */
	4866
	4867	if (!info[1] \|\| !info[2] \|\| !info[3]) /* Required fields */
	4868	continue;
	4869	if (info[1] == ';') / Full-line comment */
	4870	continue;
	4871	if ((n = (int) strlen(info[1])) < 1) /* Length of name-tag */
	4872	continue;
	4873	if (n < n1) /* Search name is longer */
	4874	continue; /* Can't possibly match */
	4875	if (ambiguous && n != n1)
	4876	continue;
	4877	if (xxstrcmp(s,info[1],n1)) /* Compare using length of */
	4878	continue; /* search string s. */
	4879
	4880	/* Have a match */
	4881
	4882	makestr(&(nh_p[nhcount]), info[3]); /* address */
	4883	makestr(&(nh_p2[nhcount]),info[2]); /* net type */
	4884	makestr(&(nh_px[0][nhcount]),info[4]); /* net-specific stuff... */
	4885	makestr(&(nh_px[1][nhcount]),info[5]);
	4886	makestr(&(nh_px[2][nhcount]),info[6]);
	4887	makestr(&(nh_px[3][nhcount]),info[7]);
	4888
	4889	nhcount++; /* Count this match */
	4890	if (nhcount > MAXDNUMS) { /* Watch out for too many */
	4891	printf("Warning: %d matches found, %d max\n",
	4892	nhcount,
	4893	MAXDNUMS
	4894	);
	4895	nhcount = MAXDNUMS;
	4896	break;
	4897	}
	4898	if (nhcount == 1) { /* First one - save entry name */
	4899	if (n_name) { /* Free the one from before if any */
	4900	free(n_name);
	4901	n_name = NULL;
	4902	}
	4903	if (!(n_name = (char )malloc(n + 1))) { / Allocate new storage */
	4904	printf("?memory allocation error - lunet:3\n");
	4905	if (line) {
	4906	free(line);
	4907	line = NULL;
	4908	}
	4909	nhcount = 0;
	4910	return(-1);
	4911	}
	4912	t = n; /* Remember its length */
	4913	strcpy(n_name,info[1]);
	4914	} else { /* Second or subsequent one */
	4915	if ((int) strlen(info[1]) == t) /* Lengths compare */
	4916	if (!xxstrcmp(n_name,info[1],t)) /* Caseless compare OK */
	4917	continue;
	4918
	4919	/* Name given by user matches entries with different names */
	4920
	4921	if (ambiguous) /* Been here before */
	4922	break;
	4923
	4924	ambigu