Context Navigation

source: trunk/third/kermit/ckuusr.c @ 10780

Visit:

Revision 10780, 100.6 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.

Line
1	#include "ckcsym.h"
2	char *userv = "User Interface 6.0.177, 6 Sep 96";
3
4	/* C K U U S R -- "User Interface" for C-Kermit (Part 1) */
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	NOTE: Because of the massive additions in functionality, and therefore
21	the increase in the number of commands, much code was moved from here to
22	the two new modules, ckuus4.c and ckuus5.c. This module now contains only
23	the top-level command keyword table, the SET command keyword table, and
24	the top-level interactive command parser/dispatcher. ckuus3.c contains the
25	rest of the SET and REMOTE command parsers; ckuus2.c contains the help
26	command parser and help text strings, and ckuus4.c and ckuus5.c contain
27	miscellaneous pieces that logically belong in the ckuusr.c file but had to
28	be moved because of size problems with some C compilers / linkers.
29	Later... as the other modules became too large, a ckuus6.c was created.
30	Still later... ckuus7.c.
31	Also: ckuusy.c contains the UNIX-style command-line interface;
32	ckuusx.c contains routines needed by both the command-line interface and
33	the interactive command parser.
34	*/
35
36	/*
37	The ckuus*.c modules depend on the existence of C library features like fopen,
38	fgets, feof, (f)printf, argv/argc, etc. Other functions that are likely to
39	vary among Unix implementations -- like setting terminal modes or interrupts
40	-- are invoked via calls to functions that are defined in the system-
41	dependent modules, ck?[ft]io.c. The command line parser processes any
42	arguments found on the command line, as passed to main() via argv/argc. The
43	interactive parser uses the facilities of the cmd package (developed for this
44	program, but usable by any program). Any command parser may be substituted
45	for this one. The only requirements for the Kermit command parser are these:
46
47	1. Set parameters via global variables like duplex, speed, ttname, etc. See
48	ckmain.c for the declarations and descriptions of these variables.
49
50	2. If a command can be executed without the use of Kermit protocol, then
51	execute the command directly and set the variable sstate to 0. Examples
52	include 'set' commands, local directory listings, the 'connect' command.
53
54	3. If a command requires the Kermit protocol, set the following variables:
55
56	sstate string data
57	'x' (enter server mode) (none)
58	'r' (send a 'get' command) cmarg, cmarg2
59	'v' (enter receive mode) cmarg2
60	'g' (send a generic command) cmarg
61	's' (send files) nfils, cmarg & cmarg2 OR cmlist
62	'c' (send a remote host command) cmarg
63
64	cmlist is an array of pointers to strings.
65	cmarg, cmarg2 are pointers to strings.
66	nfils is an integer.
67
68	cmarg can be a filename string (possibly wild), or
69	a pointer to a prefabricated generic command string, or
70	a pointer to a host command string.
71	cmarg2 is the name to send a single file under, or
72	the name under which to store an incoming file; must not be wild.
73	If it's the name for receiving, a null value means to store the
74	file under the name it arrives with.
75	cmlist is a list of nonwild filenames, such as passed via argv.
76	nfils is an integer, interpreted as follows:
77	-1: filespec (possibly wild) in cmarg, must be expanded internally.
78	0: send from stdin (standard input).
79	>0: number of files to send, from cmlist.
80
81	The screen() function is used to update the screen during file transfer.
82	The tlog() function writes to a transaction log.
83	The debug() function writes to a debugging log.
84	The intmsg() and chkint() functions provide the user i/o for interrupting
85	file transfers.
86	*/
87
88	#ifndef NOICP
89	/* Includes */
90
91	#include "ckcdeb.h"
92	#include "ckcasc.h"
93	#include "ckcker.h"
94	#include "ckuusr.h"
95	#include "ckcxla.h"
96	#include "ckcnet.h" /* Network symbols */
97	#ifdef OS2
98	#ifndef NT
99	#define INCL_NOPM
100	#define INCL_VIO /* Needed for ckocon.h */
101	#include <os2.h>
102	#undef COMMENT
103	#else
104	#define APIRET ULONG
105	#include <windows.h>
106	#include "cknwin.h"
107	#include "ckntap.h" /* CK_TAPI definition */
108	#endif /* NT */
109	#include "ckowin.h"
110	#include "ckocon.h"
111	extern int tcp_avail;
112	extern bool viewonly;
113	extern tt_status;
114	#endif /* OS2 */
115
116	#ifdef datageneral
117	#include <packets:common.h>
118	#define fgets(stringbuf,max,fd) dg_fgets(stringbuf,max,fd)
119	#endif /* datageneral */
120
121	/* External Kermit Variables, see ckmain.c for description. */
122
123	extern xx_strp xxstring;
124	extern long xvernum;
125	extern char *ck_ver;
126
127	extern int size, local, sndsrc, xitsta, server, displa, binary, msgflg,
128	escape, duplex, nfils, quiet, tlevel, pflag, zincnt, atcapr, atdiso, verwho,
129	ckxech, carrier, deblog, sendmode, epktflg, what, moving, protocol;
130	extern int bye_active;
131	extern long sendstart;
132	#ifdef CK_TTYFD
133	extern int ttyfd;
134	#endif /* CK_TTYFD */
135
136	extern long vernum;
137	extern char versio, copyright[];
138	extern char ckxsys, cmarg, cmarg2, *cmlist;
139	#ifndef NOHELP
140	extern char *introtxt[];
141	extern char *newstxt[];
142	#endif /* NOHELP */
143	extern char PWDCMD, WHOCMD, *TYPCMD;
144	extern char ttname[];
145	#ifndef NOFRILLS
146	extern int rmailf; /* MAIL command items */
147	extern char optbuf[];
148	#endif /* NOFRILLS */
149	extern CHAR sstate;
150
151	#ifdef NETCONN
152	extern int network, /* Have active network connection */
153	nettype, /* Type of network */
154	ttnproto; /* Network Protocol */
155	#endif /* NETCONN */
156
157	#ifndef NODIAL
158	extern int dialsta, dialatmo, dialcon, dialcq; /* DIAL status, etc. */
159	#endif /* NODIAL */
160
161	#ifdef CK_APC
162	extern int apcactive, apcstatus;
163	#endif /* CK_APC */
164
165	#ifndef NOMSEND /* Multiple SEND */
166	extern char *msfiles[];
167	int filesinlist = 0; /* And ADD ... */
168	extern struct filelist * filehead;
169	extern struct filelist * filetail;
170	extern struct filelist * filenext;
171	extern int addlist;
172	static struct keytab addtab[] = {
173	"send-list", 0, 0
174	};
175	static int naddtab = sizeof(addtab)/sizeof(struct keytab);
176	#endif /* NOMSEND */
177
178	extern char fspec[]; /* Most recent filespec */
179
180	#ifndef NOCSETS
181	extern int nfilc;
182	extern struct keytab fcstab[];
183	#endif /* NOCSETS */
184
185	#ifdef CK_TMPDIR
186	int f_tmpdir = 0; /* Directory changed temporarily */
187	char savdir[TMPDIRLEN]; /* For saving current directory */
188	extern char * dldir;
189	#endif /* CK_TMPDIR */
190
191	int activecmd = -1;
192
193	#ifdef COMMENT
194	#ifdef pdp11
195	/* Normally this is defined in ckcfns.c */
196	#define ENCBUFL 200
197	CHAR encbuf[ENCBUFL];
198	#endif /* pdp11 */
199	#endif /* COMMENT */
200
201	int rcflag = 0; /* Pointer to home directory string */
202	int repars, /* Reparse needed */
203	techo = 0; /* Take echo */
204	#ifndef NOSCRIPT
205	int secho = 1;
206	#endif /* NOSCRIPT */
207
208	#ifdef OS2
209	int xitwarn = 1; /* Warn about open connection on exit */
210	#else
211	int xitwarn = 1;
212	#endif /* OS2 */
213
214	#ifndef NOXMIT
215	/* Variables for TRANSMIT command */
216
217	int xmitx = 1; /* Whether to echo during TRANSMIT */
218	int xmitf = 0; /* Character to fill empty lines */
219	int xmitl = 0; /* 0 = Don't send linefeed too */
220	int xmitp = LF; /* Host line prompt */
221	int xmits = 0; /* Use shift-in/shift-out, 0 = no */
222	int xmitw = 0; /* Milliseconds to pause during TRANSMIT */
223	#endif /* NOXMIT */
224
225	/* Declarations from ck?fio.c module */
226
227	extern char SPACMD, SPACM2; /* SPACE commands */
228
229	/* Command-oriented items */
230
231	#ifdef DCMDBUF
232	extern char cmdbuf; / Command buffers */
233	extern char *atmbuf;
234	extern char line; / Character buffer for anything */
235	extern char tmpbuf; / Short temporary string buffer */
236	extern int *ifcmd;
237	extern int *intime;
238	#else
239	extern char cmdbuf[]; /* Command buffers */
240	extern char atmbuf[];
241	extern char line[]; /* Character buffer for anything */
242	extern char tmpbuf[]; /* Temporary buffer */
243	extern int ifcmd[];
244	extern int intime[];
245	#endif /* DCMDBUF */
246
247	char lp; / Pointer to line buffer */
248
249	#ifndef NOSPL
250	char evalbuf[33]; /* EVALUATE result */
251	extern char * inpbuf; /* Buffer for INPUT and REINPUT */
252	char inpbp; / And pointer to same */
253	extern char lblbuf[]; /* Buffer for labels */
254	int m_found; /* MINPUT result */
255	int i_active = 0; /* INPUT command is active */
256	char ms[MINPMAX]; / Pointers to MINPUT strings */
257	#endif /* NOSPL */
258
259	char psave[PROMPTL] = { NUL }; /* For saving & restoring prompt */
260
261	extern int success; /* Command success/failure flag */
262
263	#ifndef NOSPL
264	int /* SET INPUT parameters. */
265	/* Note, INPUT TIMEOUT, intime[], is on the command-level stack. */
266	inbufsize = 0, /* INPUT buffer size */
267	indef = 1, /* default timeout, seconds */
268	inecho = 1, /* 1 = echo on */
269	insilence = 0; /* 0 = no silence constraint */
270
271	int maclvl = -1; /* Macro nesting level */
272	int mecho = 0; /* Macro echo, 0 = don't */
273	char varnam[6]; /* For variable names */
274	extern int macargc[]; /* ARGC from macro invocation */
275
276	extern char m_arg[MACLEVEL][NARGS]; / Stack of macro arguments */
277
278	extern char *a_ptr[]; / Array pointers */
279	extern int a_dim[]; /* Array dimensions */
280
281	#ifdef DCMDBUF
282	extern struct cmdptr cmdstk; / The command stack itself */
283	#else
284	extern struct cmdptr cmdstk[]; /* The command stack itself */
285	#endif /* DCMDBUF */
286	extern int cmdlvl; /* Current position in command stack */
287
288	long ck_alarm = 0; /* SET ALARM value */
289	char alrm_date[10] = { ' ',' ',' ',' ',' ',' ',' ',' ',' ' };
290	char alrm_time[ 8] = { ' ',' ',' ',' ',' ',' ',' ' };
291
292	#endif /* NOSPL */
293
294	static int x, y, z = 0; /* Local workers */
295	static char *s;
296
297	#define xsystem(s) zsyscmd(s)
298
299	/* Top-Level Interactive Command Keyword Table */
300	/* Keywords must be in lowercase and in alphabetical order. */
301
302	struct keytab cmdtab[] = {
303	#ifndef NOPUSH
304	"!", XXSHE, CM_INV, /* Shell escape */
305	#endif /* NOPUSH */
306	"#", XXCOM, CM_INV, /* Comment */
307	#ifndef NOSPL
308	":", XXLBL, CM_INV, /* Label */
309	#endif /* NOSPL */
310	#ifndef NOPUSH
311	#ifdef CK_REDIR
312	"<", XXFUN, CM_INV, /* REDIRECT */
313	#endif /* CK_REDIR */
314	"@", XXSHE, CM_INV, /* DCL escape */
315	#endif /* NOPUSH */
316	"about", XXVER, CM_INV, /* Synonym for VERSION */
317	#ifndef NOSPL
318	#ifndef NOMSEND
319	"add", XXADD, 0, /* ADD */
320	#endif /* NOMSEND */
321	#ifndef NODIAL
322	"answer", XXANSW, 0, /* ANSWER the phone */
323	#endif /* NODIAL */
324	"apc", XXAPC, 0, /* Application Program Command */
325	"ascii", XXASC, CM_INV,
326	"asg", XXASS, CM_INV, /* Invisible synonym for ASSIGN */
327	"ask", XXASK, 0, /* ASK for text, assign to variable */
328	"askq", XXASKQ,0, /* ASK quietly (no echo) */
329	"assign", XXASS, 0, /* ASSIGN value to variable or macro */
330	#endif /* NOSPL */
331	#ifndef NOSPL
332	"beep", XXBEEP,CM_INV, /* BEEP */
333	#endif /* NOSPL */
334	"binary", XXBIN, CM_INV,
335	#ifndef NOFRILLS
336	"bug", XXBUG, 0, /* BUG report instructions */
337	#endif /* NOFRILLS */
338	"bye", XXBYE, 0, /* BYE to remote server */
339	#ifndef NOLOCAL
340	"c", XXCON, CM_INV\|CM_ABR, /* invisible synonym for CONNECT */
341	#endif /* NOLOCAL */
342	#ifndef NOFRILLS
343	"cat", XXTYP, CM_INV, /* Invisible synonym for TYPE */
344	#endif /* NOFRILLS */
345	"cd", XXCWD, 0, /* Change Directory */
346	"check", XXCHK, 0, /* CHECK for a feature */
347	#ifndef NOFRILLS
348	"clear", XXCLE, 0, /* CLEAR input and/or device buffer */
349	#endif /* NOFRILLS */
350	"close", XXCLO, 0, /* CLOSE a log or other file */
351	#ifdef OS2
352	"cls", XXCLS, CM_INV, /* Clear Screen (CLS) */
353	#endif /* OS2 */
354	"comment", XXCOM, 0, /* Introduce a comment */
355	#ifndef NOLOCAL
356	"connect", XXCON, 0, /* Begin terminal connection */
357	#endif /* NOLOCAL */
358	#ifndef NOFRILLS
359	#ifdef ZCOPY
360	"copy", XXCPY, 0, /* COPY a file */
361	#endif /* ZCOPY */
362	#endif /* NOFRILLS */
363	"cwd", XXCWD, CM_INV, /* Invisisble synonym for cd */
364	#ifndef NOSPL
365	"date", XXDATE,0, /* DATE */
366	"dcl", XXDCL, CM_INV, /* DECLARE an array */
367	"declare", XXDCL, 0, /* DECLARE an array */
368	"decrement", XXDEC, 0, /* DECREMENT a numeric variable */
369	"define", XXDEF, 0, /* DEFINE a macro or variable */
370	#endif /* NOSPL */
371	#ifndef NOFRILLS
372	"delete", XXDEL, 0, /* DELETE a file */
373	#endif /* NOFRILLS */
374	#ifndef NODIAL
375	"dial", XXDIAL,0, /* DIAL a phone number */
376	#endif /* NODIAL */
377	"directory", XXDIR, 0, /* DIRECTORY of files */
378	#ifndef NOFRILLS
379	#ifndef NOSERVER
380	"disable", XXDIS, 0, /* DISABLE a server function */
381	#endif /* NOSERVER */
382	#endif /* NOFRILLS */
383	#ifndef NOSPL
384	"do", XXDO, 0, /* DO (execute) a macro */
385	#endif /* NOSPL */
386	"e", XXEXI, CM_INV\|CM_ABR,
387	#ifndef NOFRILLS
388	"e-packet", XXERR, CM_INV, /* Send an Error-Packet */
389	#endif /* NOFRILLS */
390	"echo", XXECH, 0, /* ECHO text */
391	"eightbit", XXEIGHT, 0, /* EIGHTBIT */
392	#ifndef NOSPL
393	"else", XXELS, CM_INV, /* ELSE part of IF statement */
394	#endif /* NOSPL */
395	#ifndef NOSERVER
396	#ifndef NOFRILLS
397	"enable", XXENA, 0, /* ENABLE a server function */
398	#endif /* NOFRILLS */
399	#endif /* NOSERVER */
400	#ifndef NOSPL
401	"end", XXEND, 0, /* END command file or macro */
402	"evaluate", XXEVAL, 0, /* EVALUATE */
403	#endif /* NOSPL */
404	"ex", XXEXI, CM_INV\|CM_ABR, /* Let "ex" still be EXIT */
405	"exit", XXEXI, 0, /* EXIT from C-Kermit */
406	#ifdef OS2
407	"extproc", XXCOM, CM_INV, /* Dummy command for OS/2 */
408	#endif /* OS2 */
409	"f", XXFIN, CM_INV\|CM_ABR, /* Invisible abbreviation for... */
410	"finish", XXFIN, 0, /* FINISH */
411	#ifndef NOSPL
412	"fo", XXFOR, CM_INV\|CM_ABR, /* Invisible abbreviation for... */
413	"for", XXFOR, 0, /* FOR loop */
414	"forward", XXFWD, CM_INV, /* FORWARD (ugh) */
415	#endif /* NOSPL */
416	#ifndef NOFRILLS
417	"fot", XXDIR, CM_INV, /* "fot" = "dir" (for Chris) */
418	#endif /* NOFRILLS */
419	#ifdef TCPSOCKET
420	"ftp", XXFTP, 0, /* FTP (for TCP/IP) */
421	#endif /* TCPSOCKET */
422	"g", XXGET, CM_INV\|CM_ABR, /* Invisible abbreviation for GET */
423	#ifndef NOSPL
424	"ge", XXGET, CM_INV\|CM_ABR, /* Ditto */
425	#endif /* NOSPL */
426	"get", XXGET, 0, /* GET */
427	#ifndef NOSPL
428	"getc", XXGETC, 0, /* GETC */
429	#ifndef NOFRILLS
430	"getok", XXGOK, 0, /* GETOK (ask for Yes/No) */
431	#endif /* NOFRILLS */
432	#endif /* NOSPL */
433	#ifndef NOSPL
434	"goto", XXGOTO,0, /* GOTO label in take file or macro */
435	#endif /* NOSPL */
436	"h", XXHLP, CM_INV\|CM_ABR, /* Invisible synonym for HELP */
437	"hangup", XXHAN, 0, /* HANGUP the connection */
438	"help", XXHLP, 0, /* Display HELP text */
439	#ifndef NOSPL
440	"i", XXINP, CM_INV\|CM_ABR, /* Invisible synonym for INPUT */
441	"if", XXIF, 0, /* IF (condition) command */
442	"in", XXINP, CM_INV\|CM_ABR, /* Invisible synonym for INPUT */
443	"increment", XXINC, 0, /* Increment a numeric variable */
444	"input", XXINP, 0, /* INPUT text from comm device */
445	#endif /* NOSPL */
446	#ifndef NOHELP
447	"introduction", XXINT, 0, /* Print introductory text */
448	#endif /* NOHELP */
449	"kermit", XXKERMI, 0, /* Hmmm what's this... */
450	#ifndef NOFRILLS
451	"l", XXLOG, CM_INV\|CM_ABR, /* Invisible synonym for log */
452	#endif /* NOFRILLS */
453	#ifndef NOSPL
454	"local", XXLOCAL, 0, /* LOCAL variable declaration */
455	#endif /* NOSPL */
456	"log", XXLOG, 0, /* Open a log file */
457	#ifndef NOFRILLS
458	#ifndef NODIAL
459	"lookup", XXLOOK,0, /* LOOKUP */
460	#endif /* NODIAL */
461	"ls", XXDIR, CM_INV, /* Invisible synonym for DIRECTORY */
462	"mail", XXMAI, 0, /* Send a file as e-mail */
463	"man", XXHLP, CM_INV, /* Synonym for HELP */
464	#endif /* NOFRILLS */
465	#ifdef CK_MKDIR
466	"md", XXMKDIR, CM_INV, /* Synonym for MKDIR */
467	#endif /* CK_MKDIR */
468	#ifdef CK_MINPUT
469	"minput", XXMINP, 0, /* MINPUT */
470	#endif /* CK_MINPUT */
471	#ifndef NOMSEND
472	"mget", XXGET, CM_INV, /* MGET = GET */
473	#endif /* NOMSEND */
474	#ifdef CK_MKDIR
475	"mkdir", XXMKDIR, 0, /* MKDIR */
476	#endif /* CK_MKDIR */
477	#ifndef NOMSEND
478	"mmove", XXMMOVE, 0, /* MMOVE */
479	#endif /* NOMSEND */
480	"move", XXMOVE, 0, /* MOVE */
481	#ifndef NOSPL
482	"mpause", XXMSL, CM_INV, /* Millisecond sleep */
483	#endif /* NOSPL */
484	#ifndef NOMSEND
485	"mput", XXMSE, CM_INV, /* MPUT = MSEND */
486	#endif /* NOMSEND */
487	#ifndef NOMSEND
488	"ms", XXMSE, CM_INV\|CM_ABR,
489	"msend", XXMSE, 0, /* Multiple SEND */
490	#endif /* NOMSEND */
491	#ifndef NOSPL
492	"msleep", XXMSL, 0, /* Millisecond sleep */
493	#endif /* NOSPL */
494	#ifndef NOFRILLS
495	"mv", XXREN, CM_INV, /* Synonym for rename */
496	#endif /* NOFRILLS */
497	"news", XXNEW, 0, /* Display NEWS of new features */
498	"nopush", XXNPSH, CM_INV, /* Disable PUSH command/features */
499	#ifndef NOSPL
500	"o", XXOUT, CM_INV\|CM_ABR, /* Invisible synonym for OUTPUT */
501	"open", XXOPE, 0, /* OPEN file for reading or writing */
502	"output", XXOUT, 0, /* OUTPUT text to comm device */
503	#endif /* NOSPL */
504	#ifdef ANYX25
505	"pad", XXPAD, 0, /* X.3 PAD commands */
506	#endif /* ANYX25 */
507	#ifndef NOSPL
508	"pause", XXPAU, 0, /* Sleep for specified interval */
509	#endif /* NOSPL */
510	#ifndef NODIAL
511	"pdial", XXPDIA,0, /* PDIAL (partial dial) */
512	#endif /* NODIAL */
513	#ifdef TCPSOCKET
514	"ping", XXPNG, 0, /* PING (for TCP/IP) */
515	#endif /* TCPSOCKET */
516	#ifndef NOSPL
517	"pop", XXEND, CM_INV, /* Invisible synonym for END */
518	#endif /* NOSPL */
519	#ifndef NOFRILLS
520	"print", XXPRI, 0, /* PRINT a file locally */
521	#ifndef NOPUSH
522	#ifdef CK_RESEND
523	"psend", XXPSEN, 0, /* PSEND */
524	#endif /* CK_RESEND */
525	"pu", XXSHE, CM_INV, /* PU = PUSH */
526	"push", XXSHE, 0, /* PUSH command (like RUN, !) */
527	#endif /* NOPUSH */
528	"put", XXSEN, CM_INV, /* PUT = SEND */
529	"pwd", XXPWD, 0, /* Print Working Directory */
530	#endif /* NOFRILLS */
531	"quit", XXQUI, 0, /* QUIT from program = EXIT */
532	"r", XXREC, CM_INV\|CM_ABR, /* Invisible synonym for RECEIVE */
533	#ifdef CK_MKDIR
534	"rd", XXRMDIR, CM_INV, /* RMDIR */
535	#endif /* CK_MKDIR */
536	#ifndef NOSPL
537	"read", XXREA, 0, /* READ a line from a file */
538	#ifdef BINREAD
539	"readblock", XXRDBL, 0, /* READ a block */
540	#endif /* BINREAD */
541	#endif /* NOSPL */
542	"receive", XXREC, 0, /* RECEIVE files */
543	#ifndef NODIAL
544	#ifdef CK_REDIR
545	"red", XXRED, CM_INV\|CM_ABR, /* Invisible synonym for REDIAL */
546	"redi", XXRED, CM_INV\|CM_ABR, /* Invisible synonym for REDIAL */
547	#endif /* CK_REDIR */
548	"redial", XXRED, 0, /* REDIAL last DIAL number */
549	#endif /* NODIAL */
550	#ifndef NOPUSH
551	#ifdef CK_REDIR
552	#ifdef OS2
553	"redirect", XXFUN, CM_INV, /* REDIRECT local command to ttyfd */
554	#else /* OS2 */
555	"redirect", XXFUN, 0, /* REDIRECT local command to ttyfd */
556	#endif /* OS2 */
557	#endif /* CK_REDIR */
558	#endif /* NOPUSH */
559	#ifdef CK_RESEND
560	"reget", XXREGET, 0, /* REGET */
561	#endif /* CK_RESEND */
562	#ifndef NOSPL
563	"reinput", XXREI, 0, /* REINPUT (from INPUT buffer) */
564	#endif /* NOSPL */
565	"remote", XXREM, 0, /* Send generic command to server */
566	#ifndef NOFRILLS
567	"rename", XXREN, 0, /* RENAME a local file */
568	"replay", XXTYP, CM_INV, /* REPLAY (for now, just type) */
569	#endif /* NOFRILLS */
570	#ifdef CK_RESEND
571	"resend", XXRSEN, 0, /* RESEND */
572	#ifndef NOSPL
573	"ret", XXRET, CM_INV\|CM_ABR,
574	#endif /* NOSPL */
575	#endif /* CK_RESEND */
576	"retrieve", XXRETR, 0, /* RETRIEVE */
577	#ifndef NOSPL
578	"return", XXRET, 0, /* RETURN from a function */
579	#endif /* NOSPL */
580	#ifndef NOPUSH
581	#ifdef CK_REXX
582	"rexx", XXREXX, 0, /* Execute a Rexx command */
583	#endif /* CK_REXX */
584	#endif /* NOPUSH */
585	#ifdef TCPSOCKET
586	#ifdef RLOGCODE
587	"rlogin", XXRLOG, 0, /* Rlogin to host */
588	#endif /* RLOGCODE */
589	#endif /* TCPSOCKET */
590	#ifndef NOFRILLS
591	"rm", XXDEL, CM_INV, /* Invisible synonym for delete */
592	#endif /* NOFRILLS */
593	#ifdef CK_MKDIR
594	"rmdir", XXRMDIR, 0, /* RMDIR */
595	#endif /* CK_MKDIR */
596	#ifndef NOPUSH
597	"run", XXSHE, 0, /* RUN a program or command */
598	#endif /* NOPUSH */
599	"s", XXSEN, CM_INV\|CM_ABR, /* Invisible synonym for send */
600	"save", XXSAVE, 0, /* SAVE parameters */
601	#ifndef NOSCRIPT
602	"script", XXLOGI,0, /* Execute a UUCP-style script */
603	#endif /* NOSCRIPT */
604	"send", XXSEN, 0, /* Send (a) file(s) */
605	#ifndef NOSERVER
606	"server", XXSER, 0, /* Be a SERVER */
607	#endif /* NOSERVER */
608	"set", XXSET, 0, /* SET parameters */
609	#ifndef NOSHOW
610	"show", XXSHO, 0, /* SHOW parameters */
611	#endif /* NOSHOW */
612	#ifndef NOSPL
613	#ifndef NOFRILLS
614	"sleep", XXPAU, CM_INV, /* SLEEP for specified interval */
615	#endif /* NOFRILLS */
616	#endif /* NOSPL */
617	#ifndef MAC
618	#ifndef NOFRILLS
619	"sp", XXSPA, CM_INV\|CM_ABR,
620	"spa", XXSPA, CM_INV\|CM_ABR,
621	#endif /* NOFRILLS */
622	"space", XXSPA, 0, /* Show available disk SPACE */
623	#endif /* MAC */
624	#ifndef NOFRILLS
625	#ifndef NOPUSH
626	"spawn", XXSHE, CM_INV, /* Synonym for PUSH, RUN */
627	#endif /* NOPUSH */
628	#endif /* NOFRILLS */
629	"statistics", XXSTA, 0, /* Display file transfer stats */
630	#ifndef NOSPL
631	"stop", XXSTO, 0, /* STOP all take files and macros */
632	#endif /* NOSPL */
633	#ifndef NOJC
634	"suspend", XXSUS, 0, /* SUSPEND C-Kermit (UNIX only) */
635	#endif /* NOJC */
636	#ifndef NOSPL
637	"switch", XXSWIT, 0, /* SWITCH */
638	#endif /* NOSPL */
639	"take", XXTAK, 0, /* TAKE commands from a file */
640	#ifndef NOFRILLS
641	#ifdef TCPSOCKET
642	"tel", XXTEL, CM_INV\|CM_ABR,
643	"telnet", XXTEL, 0, /* TELNET (TCP/IP only) */
644	"telopt", XXTELOP, CM_INV, /* TELOPT (ditto) */
645	#endif /* TCPSOCKET */
646	#ifdef DEBUG
647	"test", XXTES, CM_INV, /* (for testing) */
648	#endif /* DEBUG */
649	#endif /* NOFRILLS */
650	"text", XXASC, CM_INV,
651	#ifndef NOCSETS
652	"translate", XXXLA, 0, /* TRANSLATE local file char sets */
653	#endif
654	#ifndef NOXMIT
655	"transmit", XXTRA, 0, /* Send (upload) a file, no protocol */
656	#endif /* NOXMIT */
657	#ifndef NOFRILLS
658	"type", XXTYP, 0, /* Display a local file */
659	#endif /* NOFRILLS */
660	#ifndef NOSPL
661	"undefine", XXUNDEF, 0, /* UNDEFINE a variable or macro */
662	#endif /* NOSPL */
663	#ifdef OS2ONLY
664	"updates", XXUPD, 0, /* View UPDATES file */
665	#endif /* OS2ONLY */
666	"version", XXVER, 0, /* VERSION-number display */
667	#ifdef OS2
668	"viewonly", XXVIEW, 0, /* VIEWONLY Terminal Mode */
669	#endif /* OS2 */
670	#ifndef NOSPL
671	"wait", XXWAI, 0, /* WAIT (like pause) */
672	"while", XXWHI, 0, /* WHILE loop */
673	#endif /* NOSPL */
674	#ifndef OS2
675	#ifndef MAC
676	#ifndef NOFRILLS
677	"who", XXWHO, 0, /* WHO's logged in? */
678	#endif /* NOFRILLS */
679	#endif /* MAC */
680	#endif /* OS2 */
681	#ifndef NOSPL
682	"wr", XXWRI, CM_INV\|CM_ABR,
683	"wri", XXWRI, CM_INV\|CM_ABR,
684	"writ", XXWRI, CM_INV\|CM_ABR,
685	"write", XXWRI, 0, /* WRITE characters to a file */
686	"write-line", XXWRL, 0, /* WRITE a line to a file */
687	#ifdef BINREAD
688	"writeblock", XXWRBL, 0, /* WRITE a block */
689	#endif /* BINREAD */
690	"writeln", XXWRL, CM_INV, /* Pascalisch synonym for write-line */
691	#endif /* NOSPL */
692	"xecho", XXXECH,0, /* XECHO */
693	#ifndef NOSPL
694	"xif", XXIFX, 0, /* Extended IF command */
695	#endif /* NOSPL */
696	#ifndef NOCSETS
697	"xlate", XXXLA, CM_INV, /* Synonym for TRANSLATE */
698	#endif /* NOCSETS */
699	#ifndef NOXMIT
700	"xmit", XXTRA, CM_INV, /* Synonym for TRANSMIT */
701	#endif /* NOXMIT */
702	#ifndef OS2
703	"z", XXSUS, CM_INV, /* Synonym for SUSPEND */
704	#endif /* OS2 */
705	#ifndef NOSPL
706	"_asg", XXASX, CM_INV, /* Used internally by FOR, etc */
707	"_assign", XXASX, CM_INV, /* Used internally by FOR, etc */
708	"_define", XXDFX, CM_INV, /* Used internally by FOR, etc */
709	"_forward", XXXFWD,CM_INV, /* Used internally by SWITCH */
710	"_getargs", XXGTA, CM_INV, /* Used internally by FOR, etc */
711	"_putargs", XXPTA, CM_INV, /* Used internally by FOR, etc */
712	#endif /* NOSPL */
713	"", 0, 0
714	};
715	int ncmd = (sizeof(cmdtab) / sizeof(struct keytab)) - 1;
716
717	char toktab[] = {
718	#ifndef NOPUSH
719	'!', /* Shell escape */
720	#endif /* NOPUSH */
721	'#', /* Comment */
722	';', /* Comment */
723	#ifndef NOSPL
724	':', /* Label */
725	#endif /* NOSPL */
726	#ifndef NOPUSH
727	#ifdef CK_REDIR
728	'<', /* REDIRECT */
729	#endif /* CK_REDIR */
730	'@', /* DCL escape */
731	#endif /* NOPUSH */
732	'\0' /* End of this string */
733	};
734
735	struct keytab yesno[] = { /* Yes/No keyword table */
736	"no", 0, 0,
737	"ok", 1, 0,
738	"yes", 1, 0
739	};
740	int nyesno = (sizeof(yesno) / sizeof(struct keytab));
741
742	/* Save keyword table */
743
744	struct keytab savtab[] = {
745	#ifndef NOSETKEY
746	"keymap", XSKEY, 0
747	#else
748	"", 0, 0
749	#endif /* NOSETKEY */
750	};
751	int nsav = (sizeof(savtab) / sizeof(struct keytab));
752
753	/* Parameter keyword table */
754
755	struct keytab prmtab[] = {
756	"alarm", XYALRM, 0,
757	"attributes", XYATTR, 0,
758	"b", XYBACK, CM_INV\|CM_ABR,
759	"ba", XYBACK, CM_INV\|CM_ABR,
760	"background", XYBACK, 0,
761	#ifndef NOLOCAL
762	"baud", XYSPEE, CM_INV,
763	#endif /* NOLOCAL */
764	#ifdef OS2
765	"bell", XYBELL, 0,
766	#endif /* OS2 */
767	"block-check", XYCHKT, 0,
768	#ifdef DYNAMIC
769	"buffers", XYBUF, 0,
770	#endif /* DYNAMIC */
771	#ifndef NOLOCAL
772	#ifndef MAC
773	"carrier-watch", XYCARR, 0,
774	#endif /* MAC */
775	#endif /* NOLOCAL */
776	#ifndef NOSPL
777	"case", XYCASE, 0,
778	#endif /* NOSPL */
779	"cmd", XYCMD, CM_INV,
780	"command", XYCMD, 0,
781	#ifdef CK_SPEED
782	"con", XYQCTL, CM_INV\|CM_ABR,
783	#endif /* CK_SPEED */
784	"console", XYCMD, CM_INV,
785	#ifdef CK_SPEED
786	"control-character",XYQCTL, 0,
787	#endif /* CK_SPEED */
788	#ifndef NOSPL
789	"count", XYCOUN, 0,
790	#endif /* NOSPL */
791	"d", XYDELA, CM_INV\|CM_ABR,
792	"de", XYDELA, CM_INV\|CM_ABR,
793	"debug", XYDEBU, CM_INV,
794	#ifdef VMS
795	"default", XYDFLT, 0,
796	#else
797	#ifndef MAC
798	"default", XYDFLT, CM_INV,
799	#endif /* MAC */
800	#endif /* VMS */
801	"delay", XYDELA, 0,
802	"destination", XYDEST, 0,
803	#ifndef NODIAL
804	"dial", XYDIAL, 0,
805	#endif /* NODIAL */
806	#ifdef OS2
807	"dialer", XYDLR, CM_INV,
808	#endif /* OS2 */
809	#ifndef NOLOCAL
810	"duplex", XYDUPL, 0,
811	"escape-character", XYESC, 0,
812	#endif /* NOLOCAL */
813	"exit", XYEXIT, 0,
814	"file", XYFILE, 0,
815	"flow-control", XYFLOW, 0,
816	"handshake", XYHAND, 0,
817	#ifdef NETCONN
818	"host", XYHOST, 0,
819	#endif /* NETCONN */
820	#ifndef NOSPL
821	"i", XYINPU, CM_INV\|CM_ABR,
822	"in", XYINPU, CM_INV\|CM_ABR,
823	#endif /* NOSPL */
824	"incomplete", XYIFD, CM_INV,
825	#ifndef NOSPL
826	"input", XYINPU, 0,
827	#endif /* NOSPL */
828	#ifndef NOSETKEY
829	"key", XYKEY, 0,
830	#endif /* NOSETKEY */
831	"l", XYLINE, CM_INV\|CM_ABR,
832	#ifndef NOCSETS
833	"language", XYLANG, 0,
834	#endif /* NOCSETS */
835	"line", XYLINE, 0,
836	#ifndef NOLOCAL
837	"local-echo", XYLCLE, CM_INV,
838	#endif /* NOLOCAL */
839	"login", XYLOGIN, 0,
840	#ifndef NOSPL
841	"macro", XYMACR, 0,
842	#endif /* NOSPL */
843	#ifdef COMMENT
844	#ifdef VMS
845	"messages", XYMSGS, 0,
846	#endif /* VMS */
847	#endif /* COMMENT */
848	#ifndef NODIAL
849	"modem", XYMODM, 0,
850	#endif /* NODIAL */
851	#ifndef NOLOCAL
852	#ifdef OS2MOUSE
853	"mouse", XYMOUSE, 0,
854	#endif /* OS2MOUSE */
855	#endif /* NOLOCAL */
856	#ifdef OS2
857	"mskermit", XYMSK, 0,
858	#endif /* OS2 */
859	#ifdef NETCONN
860	"network", XYNET, 0,
861	#endif /* NETCONN */
862	#ifndef NOSPL
863	"output", XYOUTP, 0,
864	#endif /* NOSPL */
865	#ifdef ANYX25
866	"pad", XYPAD, 0,
867	#endif /* ANYX25 */
868	"parity", XYPARI, 0,
869	#ifdef OS2
870	"port", XYLINE, 0,
871	#else
872	"port", XYLINE, CM_INV,
873	#endif /* OS2 */
874	"pr", XYPROM, CM_INV\|CM_ABR,
875	"printer", XYPRTR, 0,
876	#ifdef OS2
877	"priority", XYPRTY, 0,
878	#endif /* OS2 */
879	#ifdef CK_SPEED
880	"prefixing", XYPREFIX, 0,
881	#endif /* CK_SPEED */
882	#ifndef NOFRILLS
883	"prompt", XYPROM, 0,
884	#endif /* NOFRILLS */
885	"protocol", XYPROTO, 0,
886	"quiet", XYQUIE, 0,
887	"receive", XYRECV, 0,
888	"repeat", XYREPT, 0,
889	"retry-limit", XYRETR, 0,
890	#ifndef NOSCRIPT
891	"script", XYSCRI, 0,
892	#endif /* NOSCRIPT */
893	"send", XYSEND, 0,
894	#ifndef NOSERVER
895	"server", XYSERV, 0,
896	#endif /* NOSERVER */
897
898	#ifndef NOLOCAL
899	#ifdef UNIX
900	"session-log", XYSESS, 0,
901	#else
902	#ifdef OSK
903	"session-log", XYSESS, 0,
904	#endif /* OSK */
905	#endif /* UNIX */
906	#endif /* NOLOCAL */
907
908	#ifndef NOLOCAL
909	"speed", XYSPEE, 0,
910	#endif /* NOLOCAL */
911
912	#ifndef NOSPL
913	"startup-file", XYSTARTUP, CM_INV,
914	#endif /* NOSPL */
915
916	#ifndef NOJC
917	"suspend", XYSUSP, 0,
918	#endif /* NOJC */
919	"take", XYTAKE, 0,
920	#ifdef CK_TAPI
921	"tapi", XYTAPI, 0,
922	#endif /* CK_TAPI */
923	#ifndef NOTCPOPTS
924	#ifdef TCPSOCKET
925	#ifdef SOL_SOCKET
926	"tcp", XYTCP, 0,
927	#endif /* SOL_SOCKET */
928	#endif /* TCPSOCKET */
929	#endif /* NOTCPOPTS */
930	#ifdef TNCODE
931	"telnet", XYTEL, 0,
932	#endif /* TNCODE */
933	"temp-directory", XYTMPDIR,0,
934	#ifndef NOLOCAL
935	"terminal", XYTERM, 0,
936	#endif /* NOLOCAL */
937	#ifdef OS2
938	"title", XYTITLE, 0,
939	#endif /* OS2 */
940	"transfer", XYXFER, 0,
941	#ifndef NOXMIT
942	"transmit", XYXMIT, 0,
943	#endif /* NOXMIT */
944	#ifndef NOCSETS
945	"unknown-char-set", XYUNCS, 0,
946	#endif /* NOCSETS */
947	#ifndef NOPUSH
948	#ifdef UNIX
949	"wildcard-expansion", XYWILD, 0,
950	#endif /* UNIX */
951	#endif /* NOPUSH */
952	#ifdef NT
953	"w", XYWIND, CM_INV\|CM_ABR,
954	"wi", XYWIND, CM_INV\|CM_ABR,
955	"win", XYWIND, CM_INV\|CM_ABR,
956	#endif /* NT */
957	"window-size", XYWIND, 0,
958	#ifdef NT
959	"win95", XYWIN95, CM_INV,
960	#endif /* NT */
961	#ifdef ANYX25
962	"x.25", XYX25, 0,
963	"x25", XYX25, CM_INV,
964	#endif /* ANYX25 */
965	"xfer", XYXFER, CM_INV,
966	#ifndef NOXMIT
967	"xmit", XYXMIT, CM_INV,
968	#endif /* NOXMIT */
969	"", 0, 0
970	};
971	int nprm = (sizeof(prmtab) / sizeof(struct keytab)) - 1; /* How many */
972
973	/* Table of networks */
974	#ifdef NETCONN
975	struct keytab netcmd[] = {
976	/*
977	This is for SET NETWORK { DIRECTORY, TYPE }.
978	The old form, SET NETWORK <name-of-network> is retained for compatibility,
979	but made invisible. See netkey[], just below. NOTE that the values for the
980	keywords in both tables should be consistent, and that the network-thing
981	keyword (DIRECTORY, TYPE) values must be distinct from the network-type
982	keywords values. (This is exactly the same situation we have with SET MODEM
983	vs SET MODEM TYPE...)
984	*/
985	#ifdef DECNET /* DECnet / PATHWORKS */
986	"decnet", NET_DEC, CM_INV,
987	#endif /* DECNET */
988
989	"directory", XYNET_D, 0, /* DIRECTORY (no more yuk) */
990
991	#ifdef NETFILE
992	"file", NET_FILE, CM_INV, /* FILE (real crude) */
993	#endif /* NETFILE */
994
995	#ifdef NPIPE /* Named Pipes */
996	"named-pipe", NET_PIPE, CM_INV,
997	#endif /* NPIPE */
998
999	#ifdef CK_NETBIOS
1000	"netbios", NET_BIOS, CM_INV, /* NETBIOS */
1001	#endif /* CK_NETBIOS */
1002
1003	#ifdef SUPERLAT
1004	"superlat", NET_SLAT, CM_INV, /* Meridian Technologies' SuperLAT */
1005	#endif /* SUPERLAT */
1006
1007	#ifdef TCPSOCKET /* TCP/IP sockets library */
1008	"tcp/ip", NET_TCPB, CM_INV,
1009	#endif /* TCPSOCKET */
1010	#ifdef SUPERLAT
1011	"tes32", NET_SLAT, CM_INV, /* Emulux TES32 */
1012	#endif /* SUPERLAT */
1013	"type", XYNET_T, 0,
1014	#ifdef ANYX25 /* X.25 */
1015	#ifdef SUNX25
1016	"x", NET_SX25, CM_INV\|CM_ABR,
1017	"x.25", NET_SX25, CM_INV,
1018	"x25", NET_SX25, CM_INV,
1019	#else
1020	#ifdef STRATUSX25
1021	"x", NET_VX25, CM_INV\|CM_ABR,
1022	"x.25", NET_VX25, CM_INV,
1023	"x25", NET_VX25, CM_INV,
1024	#endif /* STRATUSX25 */
1025	#endif /* SUNX25 */
1026	#endif /* ANYX25 */
1027	"", 0, 0
1028	};
1029	int nnets = (sizeof(netcmd) / sizeof(struct keytab)) - 1;
1030
1031	struct keytab netkey[] = {
1032	/*
1033	These are the network types.
1034	*/
1035	#ifdef DECNET /* DECnet / PATHWORKS */
1036	"decnet", NET_DEC, 0,
1037	#endif /* DECNET */
1038
1039	#ifdef NETFILE
1040	"file", NET_FILE, CM_INV, /* FILE (real crude) */
1041	#endif /* NETFILE */
1042
1043	#ifdef NPIPE /* Named Pipes */
1044	"named-pipe", NET_PIPE, 0,
1045	#endif /* NPIPE */
1046
1047	#ifdef CK_NETBIOS
1048	"netbios", NET_BIOS, 0, /* NETBIOS */
1049	#endif /* CK_NETBIOS */
1050
1051	#ifdef SUPERLAT
1052	"superlat", NET_SLAT, 0, /* Meridian Technologies' SuperLAT */
1053	#endif /* SUPERLAT */
1054
1055	#ifdef TCPSOCKET /* TCP/IP sockets library */
1056	"tcp/ip", NET_TCPB, 0,
1057	#endif /* TCPSOCKET */
1058	#ifdef SUPERLAT
1059	"tes32", NET_SLAT, 0, /* Emulux TES32 */
1060	#endif /* SUPERLAT */
1061	#ifdef ANYX25 /* X.25 */
1062	#ifdef SUNX25
1063	"x", NET_SX25, CM_INV\|CM_ABR,
1064	"x.25", NET_SX25, 0,
1065	"x25", NET_SX25, CM_INV,
1066	#else
1067	#ifdef STRATUSX25
1068	"x", NET_VX25, CM_INV\|CM_ABR,
1069	"x.25", NET_VX25, 0,
1070	"x25", NET_VX25, CM_INV,
1071	#endif /* STRATUSX25 */
1072	#endif /* SUNX25 */
1073	#endif /* ANYX25 */
1074	"", 0, 0
1075	};
1076	int nnetkey = (sizeof(netkey) / sizeof(struct keytab)) - 1;
1077
1078	#ifndef NOTCPOPTS
1079	#ifdef TCPSOCKET
1080	#ifdef SOL_SOCKET
1081
1082	/* TCP options */
1083
1084	struct keytab tcpopt[] = {
1085	#ifdef SO_KEEPALIVE
1086	"keepalive", XYTCP_KEEPALIVE, 0,
1087	#endif /* SO_KEEPALIVE */
1088	#ifdef SO_LINGER
1089	"linger", XYTCP_LINGER, 0,
1090	#endif /* SO_LINGER */
1091	#ifdef TCP_NODELAY
1092	"nagle", XYTCP_NODELAY, CM_INV,
1093	"nodelay", XYTCP_NODELAY, 0,
1094	#endif /* TCP_NODELAY */
1095	#ifdef SO_RCVBUF
1096	"recvbuf", XYTCP_RECVBUF, 0,
1097	#endif /* SO_RCVBUF */
1098	#ifdef SO_SNDBUF
1099	"sendbuf", XYTCP_SENDBUF, 0,
1100	#endif /* SO_SNDBUF */
1101	"",0,0
1102	};
1103	int ntcpopt = (sizeof(tcpopt) / sizeof(struct keytab));
1104	#endif /* SOL_SOCKET */
1105	#endif /* TCPSOCKET */
1106	#endif /* NOTCPOPTS */
1107
1108	#endif /* NETCONN */
1109
1110	/* Remote Command Table */
1111
1112	struct keytab remcmd[] = {
1113	#ifndef NOSPL
1114	"as", XZASG, CM_INV\|CM_ABR,
1115	"asg", XZASG, CM_INV,
1116	"assign", XZASG, 0,
1117	#endif /* NOSPL */
1118	"cd", XZCWD, 0,
1119	"copy", XZCPY, 0,
1120	"cwd", XZCWD, CM_INV,
1121	"delete", XZDEL, 0,
1122	"directory", XZDIR, 0,
1123	"help", XZHLP, 0,
1124	#ifndef NOPUSH
1125	"host", XZHOS, 0,
1126	#endif /* NOPUSH */
1127	#ifndef NOFRILLS
1128	"kermit", XZKER, 0,
1129	"login", XZLGI, 0,
1130	"logout", XZLGO, 0,
1131	"print", XZPRI, 0,
1132	#endif /* NOFRILLS */
1133	"pwd", XZPWD, 0,
1134	#ifndef NOSPL
1135	"query", XZQUE, 0,
1136	#endif /* NOSPL */
1137	"rename", XZREN, 0,
1138	"set", XZSET, 0,
1139	"space", XZSPA, 0
1140	#ifndef NOFRILLS
1141	, "type", XZTYP, 0,
1142	"who", XZWHO, 0
1143	#endif /* NOFRILLS */
1144	};
1145	int nrmt = (sizeof(remcmd) / sizeof(struct keytab));
1146
1147	struct keytab logtab[] = {
1148	#ifdef DEBUG
1149	"debugging", LOGD, 0,
1150	#endif /* DEBUG */
1151	"packets", LOGP, 0
1152	#ifndef NOLOCAL
1153	, "session", LOGS, 0
1154	#endif /* NOLOCAL */
1155	#ifdef TLOG
1156	, "transactions", LOGT, 0
1157	#endif /* TLOG */
1158	};
1159	int nlog = (sizeof(logtab) / sizeof(struct keytab));
1160
1161	struct keytab writab[] = {
1162	#ifndef NOSPL
1163	"append-file", LOGW, CM_INV,
1164	#endif /* NOSPL */
1165	"debug-log", LOGD, 0,
1166	"error", LOGE, 0,
1167	#ifndef NOSPL
1168	"file", LOGW, 0,
1169	#endif /* NOSPL */
1170	"packet-log", LOGP, 0,
1171	"screen", LOGX, 0,
1172	#ifndef NOLOCAL
1173	"session-log", LOGS, 0,
1174	#endif /* NOLOCAL */
1175	"sys$output", LOGX, CM_INV,
1176	"transaction-log", LOGT, 0
1177	#ifdef COMMENT
1178	, "transactions", LOGT, CM_INV
1179	#endif /* COMMENT */
1180	};
1181	int nwri = (sizeof(writab) / sizeof(struct keytab));
1182
1183	static struct keytab clrtab[] = { /* Keywords for CLEAR command */
1184	#ifndef NOSPL
1185	#ifdef CK_APC
1186	"apc", CLR_APC, 0,
1187	#endif /* CK_APC */
1188	"both", CLR_DEV\|CLR_INP, CM_INV,
1189	#endif /* NOSPL */
1190	#ifdef OS2
1191	"command-screen", CLR_CMD, 0,
1192	#endif /* OS2 */
1193	#ifndef NOSPL
1194	"device", CLR_DEV, CM_INV\|CM_ABR,
1195	"device-and-input", CLR_DEV\|CLR_INP, 0,
1196	#endif /* NOSPL */
1197	"device-buffer", CLR_DEV, 0,
1198	#ifndef NODIAL
1199	"dial-status", CLR_DIA, 0,
1200	#endif /* NODIAL */
1201	#ifndef NOSPL
1202	"input-buffer", CLR_INP, 0,
1203	#endif /* NOSPL */
1204	"send-list", CLR_SFL, 0,
1205	#ifdef OS2
1206	"scrollback", CLR_SCL, CM_INV,
1207	"terminal-screen", CLR_TRM, 0,
1208	#endif /* OS2 */
1209	"", 0, 0
1210	};
1211	int nclear = (sizeof(clrtab) / sizeof(struct keytab)) - 1;
1212
1213	struct keytab clstab[] = { /* Keywords for CLOSE command */
1214	#ifndef NOSPL
1215	"append-file", LOGW, CM_INV,
1216	#endif /* NOSPL */
1217	#ifdef DEBUG
1218	"debug-log", LOGD, 0,
1219	#endif /* DEBUG */
1220	"packet-log", LOGP, 0
1221	#ifndef NOSPL
1222	, "read-file", LOGR, 0
1223	#endif /* NOSPL */
1224	#ifndef NOLOCAL
1225	, "session-log", LOGS, 0
1226	#endif /* NOLOCAL */
1227	#ifdef TLOG
1228	, "transaction-log", LOGT, 0
1229	#endif /* TLOG */
1230	#ifndef NOSPL
1231	, "write-file", LOGW, 0
1232	#endif /* NOSPL */
1233	};
1234	int ncls = (sizeof(clstab) / sizeof(struct keytab));
1235
1236	/* SHOW command arguments */
1237
1238	struct keytab shotab[] = {
1239	#ifndef NOSPL
1240	"alarm", SHALRM, 0,
1241	"arg", SHARG, CM_INV\|CM_ABR,
1242	"arguments", SHARG, 0,
1243	"args", SHARG, CM_INV,
1244	"arrays", SHARR, 0,
1245	#endif /* NOSPL */
1246	"attributes", SHATT, 0,
1247	"character-sets", SHCSE, 0,
1248	"cmd", SHCMD, CM_INV,
1249	"com", SHCOM, CM_INV\|CM_ABR,
1250	"comm", SHCOM, CM_INV\|CM_ABR,
1251	"communications", SHCOM, 0,
1252	"command", SHCMD, 0,
1253	#ifdef CK_SPEED
1254	"control-prefixing", SHCTL, 0,
1255	#endif /* CK_SPEED */
1256	#ifndef NOSPL
1257	"count", SHCOU, 0,
1258	#endif /* NOSPL */
1259	"d", SHDIA, CM_INV\|CM_ABR,
1260	#ifdef VMS
1261	"default", SHDFLT, 0,
1262	#else
1263	"default", SHDFLT, CM_INV,
1264	#endif /* VMS */
1265	#ifndef NODIAL
1266	"dial", SHDIA, 0,
1267	#endif /* NODIAL */
1268	#ifndef NOLOCAL
1269	"escape", SHESC, 0,
1270	#endif /* NOLOCAL */
1271	"exit", SHEXI, 0,
1272	"features", SHFEA, 0,
1273	"file", SHFIL, 0,
1274	#ifndef NOSPL
1275	"functions", SHFUN, 0,
1276	"globals", SHVAR, 0,
1277	#endif /* NOSPL */
1278	#ifndef NOSETKEY
1279	"k", SHKEY, CM_INV\|CM_ABR,
1280	"key", SHKEY, 0,
1281	#ifndef NOKVERBS
1282	"kverbs", SHKVB, 0,
1283	#endif /* NOKVERBS */
1284	#endif /* NOSETKEY */
1285	#ifdef CK_LABELED
1286	"labeled-file-info", SHLBL, 0,
1287	#endif /* CK_LABELED */
1288	#ifndef NOCSETS
1289	"languages", SHLNG, 0,
1290	#endif /* NOCSETS */
1291	#ifndef NOSPL
1292	"macros", SHMAC, 0,
1293	#endif /* NOSPL */
1294	#ifndef NODIAL
1295	"modem", SHMOD, 0,
1296	#else
1297	"modem-signals", SHCOM, CM_INV,
1298	#endif /* NODIAL */
1299	#ifndef NOLOCAL
1300	#ifdef OS2MOUSE
1301	"mouse", SHMOU, 0,
1302	#endif /* OS2MOUSE */
1303	#endif /* NOLOCAL */
1304	#ifdef NETCONN
1305	"network", SHNET, 0,
1306	#endif /* NETCONN */
1307	#ifdef ANYX25
1308	"pad", SHPAD, 0,
1309	#endif /* ANYX25 */
1310	"parameters", SHPAR, CM_INV,
1311	"printer", SHPRT, 0,
1312	#ifdef CK_SPEED
1313	"prefixing", SHCTL, CM_INV,
1314	#endif /* CK_SPEED */
1315	"protocol", SHPRO, 0,
1316	#ifndef NOSPL
1317	"scripts", SHSCR, 0,
1318	#endif /* NOSPL */
1319	"send-list", SHSFL, 0,
1320	#ifndef NOSERVER
1321	"server", SHSER, 0,
1322	#endif /* NOSERVER */
1323	"status", SHSTA, 0
1324	#ifdef MAC
1325	, "stack", SHSTK, 0 /* debugging */
1326	#endif /* MAC */
1327	#ifndef NOLOCAL
1328	#ifdef OS2
1329	, "tabs",SHTAB, CM_INV
1330	#endif /* OS2 */
1331	, "terminal", SHTER, 0
1332	#endif /* NOLOCAL */
1333	#ifndef NOXMIT
1334	, "transmit", SHXMI, 0
1335	#endif /* NOXMIT */
1336	#ifndef NOSETKEY
1337	#ifndef NOKVERBS
1338	#ifdef OS2
1339	, "udk", SHUDK, 0
1340	#endif /* OS2 */
1341	#endif /* NOKVERBS */
1342	#endif /* NOSETKEY */
1343	#ifndef NOSPL
1344	, "variables", SHBUI, 0
1345	#endif /* NOSPL */
1346	#ifndef NOFRILLS
1347	, "versions", SHVER, 0
1348	#endif /* NOFRILLS */
1349	#ifdef OS2
1350	, "vscrn", SHVSCRN, CM_INV
1351	#endif /* OS2 */
1352	#ifndef NOXMIT
1353	, "xmit", SHXMI, CM_INV
1354	#endif /* NOXMIT */
1355	};
1356	int nsho = (sizeof(shotab) / sizeof(struct keytab));
1357
1358	#ifdef ANYX25
1359	struct keytab padtab[] = { /* PAD commands */
1360	"clear", XYPADL, 0,
1361	"interrupt", XYPADI, 0,
1362	"reset", XYPADR, 0,
1363	"status", XYPADS, 0
1364	};
1365	int npadc = (sizeof(padtab) / sizeof(struct keytab));
1366	#endif /* ANYX25 */
1367
1368	#ifndef NOSERVER
1369	static struct keytab kmstab[] = {
1370	"both", 3, 0,
1371	"remote", 2, 0,
1372	"local", 1, 0
1373	};
1374
1375	static struct keytab enatab[] = { /* ENABLE commands */
1376	"all", EN_ALL, 0,
1377	#ifndef NOSPL
1378	"as", EN_ASG, CM_INV\|CM_ABR,
1379	"asg", EN_ASG, CM_INV,
1380	"assign", EN_ASG, 0,
1381	#endif /* NOSPL */
1382	#ifndef datageneral
1383	"bye", EN_BYE, 0,
1384	#endif /* datageneral */
1385	"cd", EN_CWD, 0,
1386	#ifdef ZCOPY
1387	"copy", EN_CPY, 0,
1388	#endif /* ZCOPY */
1389	"cwd", EN_CWD, CM_INV,
1390	"delete", EN_DEL, 0,
1391	"directory", EN_DIR, 0,
1392	"finish", EN_FIN, 0,
1393	"get", EN_GET, 0,
1394	"host", EN_HOS, 0,
1395	"mail", EN_MAI, 0,
1396	#ifndef NOSPL
1397	"query", EN_QUE, 0,
1398	#endif /* NOSPL */
1399	"print", EN_PRI, 0,
1400	"rename", EN_REN, 0,
1401	"retrieve", EN_RET, 0,
1402	"send", EN_SEN, 0,
1403	"set", EN_SET, 0,
1404	"space", EN_SPA, 0,
1405	"type", EN_TYP, 0,
1406	"who", EN_WHO, 0
1407	};
1408	static int nena = (sizeof(enatab) / sizeof(struct keytab));
1409	#endif /* NOSERVER */
1410
1411	#ifndef NOLOCAL
1412	static struct keytab conntab[] = { /* CONNECT options */
1413	"/quietly", 1, 0
1414	};
1415	#endif /* NOLOCAL */
1416
1417	#ifndef NOSPL
1418	#ifdef COMMENT
1419	struct mtab mactab[MAC_MAX] = { /* Preinitialized macro table */
1420	NULL, NULL, 0
1421	};
1422	#else
1423	struct mtab mactab; / Dynamically allocated macro table */
1424	#endif /* COMMENT */
1425	int nmac = 0;
1426
1427	struct keytab mackey[MAC_MAX]; /* Macro names as command keywords */
1428	#endif /* NOSPL */
1429
1430	#ifndef NOSPL
1431	#ifdef OS2
1432	struct keytab beeptab[] = { /* Beep options */
1433	"error", BP_FAIL, 0,
1434	"information", BP_NOTE, 0,
1435	"warning", BP_WARN, 0
1436	};
1437	int nbeeptab = sizeof(beeptab)/sizeof(struct keytab);
1438
1439	#define CLR_C_ALL 0
1440	#define CLR_C_BOL 1
1441	#define CLR_C_BOS 2
1442	#define CLR_C_EOL 3
1443	#define CLR_C_EOS 4
1444	#define CLR_C_LIN 5
1445	#define CLR_C_SCR 6
1446
1447	struct keytab clrcmdtab[] = { /* CLEAR COMMMAND-SCREEN options */
1448	"all", CLR_C_ALL, 0,
1449	"bol", CLR_C_BOL, 0,
1450	"bos", CLR_C_BOS, 0,
1451	"eol", CLR_C_EOL, 0,
1452	"eos", CLR_C_EOS, 0,
1453	"line", CLR_C_LIN, 0,
1454	"scrollback", CLR_C_SCR, 0
1455	};
1456	int nclrcmd = sizeof(clrcmdtab)/sizeof(struct keytab);
1457	#endif /* OS2 */
1458	#endif /* NOSPL */
1459
1460	#ifndef NODIAL
1461	static struct keytab looktab[] = {
1462	"dial", 0, 0
1463	};
1464	#endif /* NODIAL */
1465
1466	/* Forward declarations of functions */
1467
1468	_PROTOTYP (int doask, ( int ) );
1469	_PROTOTYP (int dodef, ( int ) );
1470	_PROTOTYP (int dodel, ( void ) );
1471	_PROTOTYP (int dodial, ( int ) );
1472	_PROTOTYP (int dodir, ( void ) );
1473	_PROTOTYP (int doelse, ( void ) );
1474	_PROTOTYP (int dofor, ( void ) );
1475	_PROTOTYP (int dogta, ( int ) );
1476	_PROTOTYP (int doincr, ( int ) );
1477	_PROTOTYP (int dopaus, ( int ) );
1478	_PROTOTYP (int doping, ( void ) );
1479	_PROTOTYP (int doftp, ( void ) );
1480	#ifndef NOFRILLS
1481	_PROTOTYP (int dorenam, ( void ) );
1482	#endif /* NOFRILLS */
1483	#ifdef ZCOPY
1484	_PROTOTYP (int docopy, ( void ) );
1485	#endif /* ZCOPY */
1486	#ifdef CK_REXX
1487	_PROTOTYP (int dorexx, ( void ) );
1488	#endif /* CK_REXX */
1489	#ifdef CK_REDIR
1490	_PROTOTYP (int ttruncmd, ( char * ) );
1491	#endif /* CK_REDIR */
1492	_PROTOTYP (int dotype, ( char * ) );
1493
1494	#ifdef TCPSOCKET
1495	static struct keytab telcmd[] = {
1496	"do", DO, 0,
1497	"dont", DONT, 0,
1498	"will", WILL, 0,
1499	"wont", WONT, 0
1500	};
1501
1502	static struct keytab tnopts[] = {
1503	"binary", TELOPT_BINARY, 0,
1504	"echo", TELOPT_ECHO, 0,
1505	#ifdef CK_NAWS
1506	"naws", TELOPT_NAWS, 0,
1507	#endif /* CK_NAWS */
1508	"sga", TELOPT_SGA, 0,
1509	"ttype", TELOPT_TTYPE, 0,
1510	"", 0, 0
1511	};
1512	static int ntnopts = (sizeof(tnopts) / sizeof(struct keytab)) - 1;
1513
1514	int
1515	doftp() {
1516	char *p;
1517	int x;
1518
1519	if (network) /* If we have a current connection */
1520	strcpy(line,ttname); /* get the host name */
1521	else line = '\0'; / as default host */
1522	for (p = line; p; p++) / Remove ":service" from end. */
1523	if (p == ':') { p = '\0'; break; }
1524	if ((x = cmtxt("IP host name or number", line, &s, xxstring)) < 0)
1525	return(x);
1526	/* Construct FTP command */
1527	#ifdef VMS
1528	#ifdef MULTINET /* TGV MultiNet */
1529	sprintf(line,"multinet ftp %s",s);
1530	#else
1531	sprintf(line,"ftp %s",s); /* Other VMS TCP/IP's */
1532	#endif /* MULTINET */
1533	#else /* Not VMS */
1534	sprintf(line,"ftp %s",s);
1535	#endif /* VMS */
1536	conres(); /* Make console normal */
1537	#ifdef DEC_TCPIP
1538	printf("\n"); /* Prevent prompt-stomping */
1539	#endif /* DEC_TCPIP */
1540	x = zshcmd(line);
1541	concb((char)escape);
1542	return(success = x);
1543	}
1544
1545	int
1546	doping() {
1547	char *p;
1548	int x;
1549
1550	if (network) /* If we have a current connection */
1551	strcpy(line,ttname); /* get the host name */
1552	else line = '\0'; / as default host to be pinged. */
1553	for (p = line; p; p++) / Remove ":service" from end. */
1554	if (p == ':') { p = '\0'; break; }
1555	if ((x = cmtxt("IP host name or number", line, &s, xxstring)) < 0)
1556	return(x);
1557	/* Construct PING command */
1558	#ifdef VMS
1559	#ifdef MULTINET /* TGV MultiNet */
1560	sprintf(line,"multinet ping %s /num=1",s);
1561	#else
1562	sprintf(line,"ping %s 56 1",s); /* Other VMS TCP/IP's */
1563	#endif /* MULTINET */
1564	#else /* Not VMS */
1565	sprintf(line,"ping %s",s);
1566	#endif /* VMS */
1567	conres(); /* Make console normal */
1568	#ifdef DEC_TCPIP
1569	printf("\n"); /* Prevent prompt-stomping */
1570	#endif /* DEC_TCPIP */
1571	x = zshcmd(line);
1572	concb((char)escape);
1573	return(success = x);
1574	}
1575	#endif /* TCPSOCKET */
1576
1577	/* D O C M D -- Do a command */
1578
1579	/*
1580	Returns:
1581	-2: user typed an illegal command
1582	-1: reparse needed
1583	0: parse was successful (even tho command may have failed).
1584	*/
1585	int
1586	docmd(cx) int cx; {
1587
1588	debug(F101,"docmd entry, cx","",cx);
1589	activecmd = cx;
1590
1591	/*
1592	Massive switch() broken up into many smaller ones, for the benefit of
1593	compilers that run out of space when trying to handle large switch
1594	statements.
1595	*/
1596	switch (cx) {
1597	case -4: /* EOF */
1598	#ifdef OSK
1599	if (msgflg) printf("\n");
1600	#else
1601	if (msgflg) printf("\r\n");
1602	#endif /* OSK */
1603	doexit(GOOD_EXIT,xitsta);
1604	case -3: /* Null command */
1605	return(0);
1606	case -9: /* Like -2, but errmsg already done */
1607	case -1: /* Reparse needed */
1608	return(cx);
1609	case -6: /* Special */
1610	case -2: /* Error, maybe */
1611	#ifndef NOSPL
1612	/*
1613	Maybe they typed a macro name. Let's look it up and see.
1614	*/
1615	if (cx == -6) /* If they typed CR */
1616	strcat(cmdbuf,"\015"); /* add it back to command buffer. */
1617	if (ifcmd[cmdlvl] == 2) /* Watch out for IF commands. */
1618	ifcmd[cmdlvl]--;
1619	repars = 1; /* Force reparse */
1620	cmres();
1621	cx = XXDO; /* Try DO command */
1622	#else
1623	return(cx);
1624	#endif /* NOSPL */
1625	default:
1626	break;
1627	}
1628
1629	#ifndef NOSPL
1630	/* Copy macro args from/to two levels up, used internally by _floop et al. */
1631	if (cx == XXGTA \|\| cx == XXPTA) { /* _GETARGS, _PUTARGS */
1632	int x;
1633	debug(F101,"docmd XXGTA","",XXGTA);
1634	debug(F101,"docmd cx","",cx);
1635	debug(F101,"docmd XXGTA maclvl","",maclvl);
1636	x = dogta(cx);
1637	debug(F101,"docmd dogta returns","",x);
1638	debug(F101,"docmd dogta maclvl","",maclvl);
1639	return(x);
1640	}
1641	#endif /* NOSPL */
1642
1643	#ifndef NOSPL
1644	/* ASK, ASKQ, READ */
1645	if (cx == XXASK \|\| cx == XXASKQ \|\| cx == XXREA \|\|
1646	cx == XXRDBL \|\| cx == XXGETC) {
1647	return(doask(cx));
1648	}
1649	#endif /* NOSPL */
1650
1651	#ifndef NOFRILLS
1652	if (cx == XXBUG) { /* BUG */
1653	if ((x = cmcfm()) < 0) return(x);
1654	return(dobug());
1655	}
1656	#endif /* NOFRILLS */
1657
1658	if (cx == XXBYE) { /* BYE */
1659	bye_active = 1;
1660	#ifdef CK_XYZ
1661	if (protocol != PROTO_K) {
1662	printf("Sorry, BYE only works with Kermit protocol\n");
1663	return(-9);
1664	}
1665	#endif /* CK_XYZ */
1666	if ((x = cmcfm()) < 0) return(x);
1667	sstate = setgen('L',"","","");
1668	if (local) ttflui(); /* If local, flush tty input buffer */
1669	return(0);
1670	}
1671
1672	#ifndef NOSPL
1673	if ( cx == XXBEEP ) { /* BEEP */
1674	int x;
1675	#ifdef OS2
1676	int y;
1677	if ((y = cmkey( beeptab, nbeeptab, "which kind of beep", "information",
1678	xxstring)) < 0 )
1679	return (y);
1680	if ((x = cmcfm()) < 0) return(x);
1681	bleep(y); /* y is one of the BP_ values */
1682	#else /* OS2 */
1683	if ((x = cmcfm()) < 0) return(x);
1684	bleep(BP_NOTE);
1685	#endif /* OS2 */
1686	return(0);
1687	}
1688	#endif /* NOSPL */
1689
1690	#ifndef NOFRILLS
1691	if (cx == XXCLE) { /* CLEAR */
1692	if ((x = cmkey(clrtab,nclear,"item to clear",
1693	#ifdef NOSPL
1694	"device-buffer"
1695	#else
1696	"device-and-input"
1697	#endif /* NOSPL */
1698	,xxstring)) < 0) return(x);
1699	#ifndef NOSPL
1700	#ifdef OS2
1701	if ( x == CLR_CMD \|\| x == CLR_TRM ) {
1702	if ((z = cmkey(clrcmdtab,nclrcmd,"how much screen to clear\n",
1703	"all",xxstring)) < 0)
1704	return(z);
1705	}
1706	#endif /* OS2 */
1707	#endif /* NOSPL */
1708	if ((y = cmcfm()) < 0) return(y);
1709
1710	/* Clear device input buffer if requested */
1711	y = (x & CLR_DEV) ? ttflui() : 0;
1712	#ifndef NOSPL
1713	/* Clear INPUT command buffer if requested */
1714	if (x & CLR_INP) {
1715	for (x = 0; x < inbufsize; x++)
1716	inpbuf[x] = NUL;
1717	inpbp = inpbuf;
1718	y = 0;
1719	}
1720	#ifdef CK_APC
1721	if (x & CLR_APC) {
1722	apcactive = 0;
1723	y = 0;
1724	}
1725	#endif /* CK_APC */
1726	#endif /* NOSPL */
1727
1728	#ifndef NODIAL
1729	if (x & CLR_DIA) {
1730	dialsta = DIA_UNK;
1731	y = 0;
1732	}
1733	#endif /* NODIAL */
1734
1735	#ifndef NOMSEND
1736	if (x & CLR_SFL) { /* CLEAR SEND-LIST */
1737	if (filehead) {
1738	struct filelist * flp, * next;
1739	flp = filehead;
1740	while (flp) {
1741	if (flp->fl_name)
1742	free(flp->fl_name);
1743	if (flp->fl_alias)
1744	free(flp->fl_alias);
1745	next = flp->fl_next;
1746	free(flp);
1747	flp = next;
1748	}
1749	}
1750	filesinlist = 0;
1751	filehead = NULL;
1752	filetail = NULL;
1753	y = 0;
1754	}
1755	#endif /* NOMSEND */
1756
1757	#ifdef OS2
1758	switch (x) {
1759	case CLR_SCL:
1760	clearscrollback(VTERM);
1761	break;
1762	case CLR_CMD:
1763	switch ( z ) {
1764	case CLR_C_ALL:
1765	clear();
1766	break;
1767	case CLR_C_BOS:
1768	clrboscr_escape(VCMD,SP);
1769	break;
1770	case CLR_C_BOL:
1771	clrbol_escape(VCMD,SP);
1772	break;
1773	case CLR_C_EOL:
1774	clrtoeoln(VCMD,SP);
1775	break;
1776	case CLR_C_EOS:
1777	clreoscr_escape(VCMD,SP);
1778	break;
1779	case CLR_C_LIN:
1780	clrline_escape(VCMD,SP);
1781	break;
1782	case CLR_C_SCR:
1783	clearscrollback(VCMD);
1784	break;
1785	default:
1786	printf("Not implemented yet, sorry.\n");
1787	break;
1788	}
1789	break;
1790
1791	case CLR_TRM:
1792	switch ( z ) {
1793	case CLR_C_ALL:
1794	if (VscrnGetBufferSize(VTERM) > 0 ) {
1795	VscrnScroll(VTERM, UPWARD, 0,
1796	VscrnGetHeight(VTERM)-(tt_status?2:1),
1797	VscrnGetHeight(VTERM) -
1798	(tt_status?1:0), TRUE, SP
1799	);
1800	cleartermscreen(VTERM);
1801	}
1802	break;
1803	case CLR_C_BOS:
1804	clrboscr_escape(VTERM,SP);
1805	break;
1806	case CLR_C_BOL:
1807	clrbol_escape(VTERM,SP);
1808	break;
1809	case CLR_C_EOL:
1810	clrtoeoln(VTERM,SP);
1811	break;
1812	case CLR_C_EOS:
1813	clreoscr_escape(VTERM,SP);
1814	break;
1815	case CLR_C_LIN:
1816	clrline_escape(VTERM,SP);
1817	break;
1818	case CLR_C_SCR:
1819	clearscrollback(VTERM);
1820	break;
1821	default:
1822	printf("Not implemented yet, sorry.\n");
1823	break;
1824	}
1825	break;
1826	}
1827	y = 0;
1828	#endif /* OS2 */
1829	return(success = (y == 0));
1830	}
1831	#endif /* NOFRILLS */
1832
1833	if (cx == XXCOM) { /* COMMENT */
1834	if ((x = cmtxt("Text of comment line","",&s,NULL)) < 0)
1835	return(x);
1836	/* Don't change SUCCESS flag for this one */
1837	return(0);
1838	}
1839
1840	#ifndef NOLOCAL
1841	if (cx == XXCON) { /* CONNECT */
1842	if ((x = cmkey(conntab,1,"Carriage return to confirm, or option",
1843	"",xxstring)) < 0) {
1844	if (x == -3)
1845	return(success = doconect(0));
1846	else return(x);
1847	}
1848	if ((y = cmcfm()) < 0)
1849	return(y);
1850	return(success = doconect(x));
1851	}
1852	#endif /* NOLOCAL */
1853
1854	#ifndef NOFRILLS
1855	#ifdef ZCOPY
1856	if (cx == XXCPY) { /* COPY a file */
1857	#ifdef CK_APC
1858	if (apcactive == APC_LOCAL \|\|
1859	apcactive == APC_REMOTE && apcstatus != APC_UNCH) return(success = 0);
1860	#endif /* CK_APC */
1861	return(docopy());
1862	}
1863	#endif /* ZCOPY */
1864	#endif /* NOFRILLS */
1865
1866	if (cx == XXCWD) /* CWD */
1867	return(success = docd());
1868
1869	if (cx == XXCHK) /* CHECK */
1870	return(success = dochk());
1871
1872	if (cx == XXCLO) { /* CLOSE */
1873	x = cmkey(clstab,ncls,"Which log or file to close","",xxstring);
1874	if (x == -3) {
1875	printf("?You must say which file or log\n");
1876	return(-9);
1877	}
1878	if (x < 0) return(x);
1879	if ((y = cmcfm()) < 0) return(y);
1880	y = doclslog(x);
1881	success = (y == 1);
1882	return(success);
1883	}
1884
1885	#ifndef NOSPL
1886	if (cx == XXDEC \|\| cx == XXINC) /* DECREMENT, INCREMENT */
1887	return(doincr(cx));
1888
1889	if (cx == XXEVAL) {
1890	char *p;
1891	if ((x = cmtxt("Integer arithmetic expression","",&s,xxstring)) < 0)
1892	return(x);
1893	p = evala(s);
1894	if (!p) p = "";
1895	if (*p)
1896	printf("%s\n", p);
1897	strncpy(evalbuf,p,32);
1898	return(success = *p ? 1 : 0);
1899	}
1900	#endif /* NOSPL */
1901
1902	#ifndef NOSPL
1903	if (cx == XXDEF \|\| cx == XXASS \|\|
1904	cx == XXDFX \|\| cx == XXASX \|\| cx == XXUNDEF)
1905	return(dodef(cx)); /* DEFINE, ASSIGN, etc... */
1906	#endif /* NOSPL */
1907
1908	#ifndef NOSPL
1909	if (cx == XXDCL) { /* DECLARE an array */
1910	if ((y = cmfld("Array name","",&s,NULL)) < 0) {
1911	if (y == -3) {
1912	printf("?Array name required\n");
1913	return(-9);
1914	} else return(y);
1915	}
1916	if ((y = arraynam(s,&x,&z)) < 0) return(y);
1917	if ((y = cmcfm()) < 0) return(y);
1918	if (dclarray((char)x,z) < 0) {
1919	printf("?Declare failed\n");
1920	return(success = 0);
1921	}
1922	return(success = 1);
1923	}
1924	#endif /* NOSPL */
1925
1926	#ifndef NODIAL
1927	if (cx == XXRED \|\| cx == XXDIAL \|\| cx == XXPDIA \|\|
1928	cx == XXANSW \|\| cx == XXLOOK) { /* DIAL, REDIAL etc */
1929	x = dodial(cx);
1930	debug(F101,"dodial returns","",x);
1931	if ((cx == XXDIAL \|\| cx == XXRED) &&
1932	(x > 0) && /* If DIAL or REDIAL succeeded */
1933	(dialcon > 0)) {
1934	if ( dialcon == 1 \|\| /* And DIAL CONNECT is ON, */
1935	(dialcon == 2 && /* or DIAL CONNECT is AUTO */
1936	#ifndef NOSPL /* and we're at top level... */
1937	cmdlvl == 0
1938	#else
1939	tlevel == -1
1940	#endif /* NOSPL */
1941	)) /* Or AUTO */
1942	x = doconect(dialcq); /* Then also CONNECT */
1943	}
1944	return(success = x);
1945	}
1946	#endif /* NODIAL */
1947
1948	#ifndef NOPUSH
1949	#ifdef CK_REXX
1950	if (cx == XXREXX) { /* REXX */
1951	extern int nopush;
1952	if ( nopush )
1953	return(success=0);
1954	return(dorexx());
1955	}
1956	#endif /* CK_REXX */
1957	#endif /* NOPUSH */
1958
1959	#ifndef NOFRILLS
1960	if (cx == XXDEL) { /* DELETE */
1961	#ifdef CK_APC
1962	if (apcactive == APC_LOCAL \|\|
1963	apcactive == APC_REMOTE && apcstatus != APC_UNCH) return(success = 0);
1964	#endif /* CK_APC */
1965	return(dodel());
1966	}
1967	#endif /* NOFRILLS */
1968
1969	if (cx == XXDIR) /* DIRECTORY */
1970	return(dodir());
1971
1972	#ifndef NOSPL
1973	if (cx == XXELS) /* ELSE */
1974	return(doelse());
1975	#endif /* NOSPL */
1976
1977	#ifndef NOSERVER
1978	#ifndef NOFRILLS
1979	if (cx == XXENA \|\| cx == XXDIS) { /* ENABLE, DISABLE */
1980	s = (cx == XXENA) ?
1981	"Server function to enable" :
1982	"Server function to disable";
1983
1984	if ((x = cmkey(enatab,nena,s,"",xxstring)) < 0) {
1985	if (x == -3) {
1986	printf("?Name of server function required\n");
1987	return(-9);
1988	} else return(x);
1989	}
1990	if ((y = cmkey(kmstab,3,"mode","both",xxstring)) < 0) {
1991	if (y == -3) {
1992	printf("?Please specify remote, local, or both\n");
1993	return(-9);
1994	} else return(y);
1995	}
1996	if (cx == XXDIS) /* Disabling, not enabling */
1997	y = 3 - y;
1998	if ((z = cmcfm()) < 0) return(z);
1999	#ifdef CK_APC
2000	if (apcactive == APC_LOCAL \|\|
2001	apcactive == APC_REMOTE && apcstatus != APC_UNCH)
2002	return(success = 0);
2003	#endif /* CK_APC */
2004	return(doenable(y,x));
2005	}
2006	#endif /* NOFRILLS */
2007	#endif /* NOSERVER */
2008
2009	#ifndef NOSPL
2010	if (cx == XXRET) { /* RETURN */
2011	if (cmdlvl == 0) { /* At top level, nothing happens... */
2012	if ((x = cmcfm()) < 0)
2013	return(x);
2014	return(success = 1);
2015	} else if (cmdstk[cmdlvl].src == CMD_TF) { /* In TAKE file, like POP */
2016	if ((x = cmtxt("optional return value","",&s,NULL)) < 0)
2017	return(x); /* Allow trailing text, but ignore. */
2018	if ((x = cmcfm()) < 0)
2019	return(x);
2020	popclvl(); /* pop command level */
2021	return(success = 1); /* always succeeds */
2022	} else if (cmdstk[cmdlvl].src == CMD_MD) { /* Within macro */
2023	if ((x = cmtxt("optional return value","",&s,NULL)) < 0)
2024	return(x);
2025	return(doreturn(s)); /* Trailing text is return value. */
2026	} else return(-2);
2027	}
2028	#endif /* NOSPL */
2029
2030	#ifndef NOSPL
2031	if (cx == XXDO) { /* DO (a macro) */
2032	if (nmac == 0) {
2033	printf("\n?No macros defined\n");
2034	return(-2);
2035	}
2036	for (y = 0; y < nmac; y++) { /* copy the macro table */
2037	mackey[y].kwd = mactab[y].kwd; /* into a regular keyword table */
2038	mackey[y].kwval = y; /* with value = pointer to macro tbl */
2039	mackey[y].flgs = mactab[y].flgs;
2040	}
2041	/* parse name as keyword */
2042	if ((x = cmkey(mackey,nmac,"macro","",xxstring)) < 0) {
2043	if (x == -3) {
2044	printf("?Macro name required\n");
2045	return(-9);
2046	} else return(x);
2047	}
2048	if ((y = cmtxt("optional arguments","",&s,xxstring)) < 0)
2049	return(y); /* get args */
2050	return(dodo(x,s,cmdstk[cmdlvl].ccflgs) < 1 ? (success = 0) : 1);
2051	}
2052	#endif /* NOSPL */
2053
2054	if (cx == XXECH \|\| cx == XXXECH
2055	#ifndef NOSPL
2056	\|\| cx == XXAPC
2057	#endif /* NOSPL */
2058	) { /* ECHO or APC */
2059	if ((x = cmtxt((cx == XXECH \|\| cx == XXXECH) ?
2060	"Text to be echoed" :
2061	"Application Program Command text",
2062	"",&s,xxstring)) < 0)
2063	return(x);
2064	s = brstrip(s); /* Strip braces */
2065	if (cx == XXECH) { /* ECHO */
2066	printf("%s\n",s);
2067	} else if (cx == XXXECH) { /* XECHO */
2068	printf("%s",s);
2069	} else { /* APC */
2070	#ifdef CK_APC
2071	if (apcactive == APC_LOCAL \|\|
2072	apcactive == APC_REMOTE && apcstatus != APC_UNCH)
2073	return(success = 0);
2074	#endif /* CK_APC */
2075	if (!local) {
2076	printf("%c_%s%c\\",ESC,s,ESC);
2077	#ifdef UNIX
2078	fflush(stdout);
2079	#endif /* UNIX */
2080
2081	} else {
2082	#ifndef NOSPL
2083	sprintf(tmpbuf,"%c_%s%c\\",ESC,s,ESC);
2084	return(success = dooutput(tmpbuf));
2085	#else
2086	printf("%c_%s%c\\",ESC,s,ESC);
2087	#endif /* NOSPL */
2088	}
2089	}
2090	return(1); /* Always succeeds */
2091	}
2092
2093	#ifndef NOSPL
2094	if (cx == XXOPE) /* OPEN */
2095	return(doopen());
2096	#endif /* NOSPL */
2097
2098	#ifndef NOSPL
2099	if (cx == XXOUT) { /* OUTPUT */
2100	int i;
2101
2102	if ((x = cmtxt("Text to be output","",&s,NULL)) < 0)
2103	return(x);
2104	#ifdef CK_APC
2105	if (apcactive == APC_LOCAL \|\|
2106	apcactive == APC_REMOTE && apcstatus != APC_UNCH)
2107	return(success = 0);
2108	#endif /* CK_APC */
2109	debug(F110,"OUTPUT 1",s,0);
2110	s = brstrip(s); /* Strip enclosing braces, */
2111	debug(F110,"OUTPUT 2",s,0);
2112	/*
2113	I don't think I could ever fully explain this in a million years...
2114	We have read the user's string without calling the variable-expander
2115	function. Now, before we call it, we have to double backslashes that
2116	appear before \N, \B, \L, and \ itself, so the expander function will
2117	reduce them back to single backslashes, so when we call dooutput()...
2118	But it's more complicated than that.
2119	*/
2120	if (cmdgquo()) { /* Only if COMMAND QUOTING ON ... */
2121	for (x = 0, y = 0; s[x]; x++, y++) {
2122	if (s[x] == CMDQ) {
2123	char c = s[x+1];
2124	if (c == 'n' \|\| c == 'N' \|\|
2125	c == 'b' \|\| c == 'B' \|\|
2126	c == 'l' \|\| c == 'L' \|\|
2127	c == CMDQ)
2128	line[y++] = CMDQ;
2129	}
2130	line[y] = s[x];
2131	}
2132	line[y++] = '\0'; /* Now expand variables, etc. */
2133	debug(F110,"OUTPUT 3",line,0);
2134	s = line+y+1;
2135	x = LINBUFSIZ - (int) strlen(line) - 1;
2136	debug(F101,"OUTPUT size","",x);
2137	if (zzstring(line,&s,&x) < 0)
2138	return(success = 0);
2139	s = line+y+1;
2140	debug(F110,"OUTPUT 4",s,0);
2141	}
2142	success = dooutput(s);
2143	return(success);
2144	}
2145	#endif /* NOSPL */
2146
2147	#ifdef ANYX25
2148	if (cx == XXPAD) { /* PAD commands */
2149	x = cmkey(padtab,npadc,"PAD command","",xxstring);
2150	if (x == -3) {
2151	printf("?You must specify a PAD command to execute\n");
2152	return(-2);
2153	}
2154	if (x < 0) return(x);
2155
2156	switch (x) {
2157	case XYPADL:
2158	if (x25stat() < 0)
2159	printf("Sorry, you must 'set network' & 'set host' first\r\n");
2160	else {
2161	x25clear();
2162	initpad();
2163	}
2164	break;
2165	case XYPADS:
2166	if (x25stat() < 0)
2167	printf("Not connected\r\n");
2168	else {
2169	extern int linkid, lcn;
2170	conol("Connected thru ");
2171	conol(ttname);
2172	printf(", Link id %d, Logical channel number %d\r\n",
2173	linkid,lcn);
2174	}
2175	break;
2176	case XYPADR:
2177	if (x25stat() < 0)
2178	printf("Sorry, you must 'set network' & 'set host' first\r\n");
2179	else
2180	x25reset(0,0);
2181	break;
2182	case XYPADI:
2183	if (x25stat() < 0)
2184	printf("Sorry, you must 'set network' & 'set host' first\r\n");
2185	else
2186	x25intr(0);
2187	}
2188	return(0);
2189	}
2190	#endif /* ANYX25 */
2191
2192	#ifndef NOSPL
2193	if (cx == XXPAU \|\| cx == XXWAI \|\| cx == XXMSL) /* PAUSE, WAIT, etc */
2194	return(dopaus(cx));
2195	#endif /* NOSPL */
2196
2197	#ifndef NOFRILLS
2198	if (cx == XXPRI) {
2199	if ((x = cmifi("File to print","",&s,&y,xxstring)) < 0) {
2200	if (x == -3) {
2201	printf("?A file specification is required\n");
2202	return(-9);
2203	} else return(x);
2204	}
2205	if (y != 0) {
2206	printf("?Wildcards not allowed\n");
2207	return(-9);
2208	}
2209	strcpy(line,s);
2210	s = "";
2211	#ifndef NT
2212	if ((x = cmtxt("Local print command options, or carriage return","",&s,
2213	xxstring)) < 0)
2214	return(x);
2215	#endif /* NT */
2216	if ((x = cmcfm()) < 0)
2217	return(x);
2218	return(success = (zprint(s,line) == 0) ? 1 : 0);
2219	}
2220
2221	#ifdef TCPSOCKET
2222	if (cx == XXPNG) /* PING an IP host */
2223	return(doping());
2224
2225	if ( cx == XXFTP ) /* FTP an IP host */
2226	return(doftp());
2227	#endif /* TCPSOCKET */
2228
2229	if (cx == XXPWD) { /* PWD */
2230	#ifdef MAC
2231	char *pwp;
2232	#else
2233	#ifdef OS2
2234	char *pwp;
2235	#endif
2236	#endif /* MAC */
2237	if ((x = cmcfm()) < 0)
2238	return(x);
2239	#ifndef MAC
2240	#ifndef OS2
2241	xsystem(PWDCMD);
2242	return(success = 1); /* blind faith */
2243	#else
2244	if (pwp = zgtdir()) {
2245	printf("%s\n",pwp);
2246	return(success = ((int)strlen(pwp) > 0));
2247	} else return(success = 0);
2248	#endif
2249	#else
2250	if (pwp = zgtdir()) {
2251	printf("%s\n",pwp);
2252	return(success = ((int)strlen(pwp) > 0));
2253	} else return(success = 0);
2254	#endif /* MAC */
2255	}
2256
2257	#endif /* NOFRILLS */
2258
2259	if (cx == XXQUI \|\| cx == XXEXI) { /* EXIT, QUIT */
2260	if ((y = cmnum("exit status code","",10,&x,xxstring)) < 0) {
2261	if (y == -3)
2262	x = xitsta;
2263	else return(y);
2264	}
2265	if ((y = cmcfm()) < 0) return(y);
2266
2267	if (!hupok(0)) /* Check if connection still open */
2268	return(success = 0);
2269	#ifdef COMMENT
2270	#ifndef NODIAL
2271	mdmhup();
2272	#endif /* NODIAL */
2273	#endif /* COMMENT */
2274
2275	#ifdef VMS
2276	doexit(GOOD_EXIT,x);
2277	#else
2278	#ifdef OSK
2279	/* Returning any codes here makes the OS-9 shell print an error message. */
2280	doexit(GOOD_EXIT,-1);
2281	#else
2282	#ifdef datageneral
2283	doexit(GOOD_EXIT,x);
2284	#else
2285	doexit(x,-1);
2286	#endif /* datageneral */
2287	#endif /* OSK */
2288	#endif /* VMS */
2289	}
2290
2291	#ifndef NOFRILLS
2292	if (cx == XXERR) { /* ERROR */
2293	#ifdef CK_XYZ
2294	if (protocol != PROTO_K) {
2295	printf("Sorry, E-PACKET only works with Kermit protocol\n");
2296	return(-9);
2297	}
2298	#endif /* CK_XYZ */
2299	if ((x = cmcfm()) < 0) return(x);
2300	ttflui();
2301	epktflg = 1;
2302	sstate = 'a';
2303	return(0);
2304	}
2305	#endif /* NOFRILLS */
2306
2307	if (cx == XXFIN) { /* FINISH */
2308	#ifdef CK_XYZ
2309	if (protocol != PROTO_K) {
2310	printf("Sorry, FINISH only works with Kermit protocol\n");
2311	return(-9);
2312	}
2313	#endif /* CK_XYZ */
2314	if ((x = cmcfm()) < 0) return(x);
2315	sstate = setgen('F',"","","");
2316	if (local) ttflui(); /* If local, flush tty input buffer */
2317	return(0);
2318	}
2319
2320	#ifndef NOSPL
2321	if (cx == XXFOR) /* FOR loop */
2322	return(dofor());
2323	#endif /* NOSPL */
2324
2325	/* GET MGET REGET RETRIEVE etc */
2326	if (cx == XXGET \|\| cx == XXREGET \|\| cx == XXRETR) {
2327	#ifdef CK_XYZ
2328	if (protocol != PROTO_K) {
2329	printf("Sorry, \"%s\" only works with Kermit protocol\n", atmbuf);
2330	return(-9);
2331	}
2332	#endif /* CK_XYZ */
2333	x = cmtxt("Name of remote file(s), or carriage return","",&cmarg,
2334	xxstring);
2335	#ifndef NOFRILLS
2336	if ((x == -2) \|\| (x == -1)) return(x);
2337	#else
2338	if (x < 0) return(x);
2339	#endif /* NOFRILLS */
2340	cmarg = brstrip(cmarg); /* Strip braces */
2341	x = doget(cx);
2342	#ifdef MAC
2343	what = W_RECV;
2344	if (sstate == 'r')
2345	scrcreate();
2346	#endif /* MAC */
2347	return(x);
2348	}
2349
2350	#ifndef NOSPL
2351	#ifndef NOFRILLS
2352	if (cx == XXGOK) { /* GETOK */
2353	return(success = doask(cx));
2354	}
2355	#endif /* NOFRILLS */
2356	#endif /* NOSPL */
2357
2358	if (cx == XXHLP) { /* HELP */
2359	#ifdef NOHELP
2360	return(dohlp(XXHLP));
2361	#else
2362	x = cmkey2(cmdtab,ncmd,"C-Kermit command","help",toktab,xxstring,1);
2363	debug(F101,"HELP command x","",x);
2364	if (x == -5) {
2365	y = chktok(toktab);
2366	debug(F101,"top-level cmkey token","",y);
2367	ungword();
2368	switch (y) {
2369	#ifndef NOPUSH
2370	case '!': x = XXSHE; break;
2371	#endif /* NOPUSH */
2372	case '#': x = XXCOM; break;
2373	case ';': x = XXCOM; break;
2374	#ifndef NOSPL
2375	case ':': x = XXLBL; break;
2376	#endif /* NOSPL */
2377	case '&': x = XXECH; break;
2378	default:
2379	printf("\n?Invalid - %s\n",cmdbuf);
2380	x = -2;
2381	}
2382	}
2383	return(dohlp(x));
2384	#endif /* NOHELP */
2385	}
2386
2387	#ifndef NOHELP
2388	if (cx == XXINT) /* INTRO */
2389	return(hmsga(introtxt));
2390	if (cx == XXNEW) /* NEWS */
2391	return(hmsga(newstxt));
2392	#ifdef OS2ONLY
2393	if (cx == XXUPD) { /* View UPDATE file */
2394	extern char exedir[];
2395	char * pTopic;
2396	char updstr[2048];
2397	if ((x = cmtxt("topic name","",&pTopic,xxstring)) < 0)
2398	return x;
2399	sprintf(updstr,
2400	"start view %s\\docs\\k2.inf+%s\\docs\\using_ck.inf+\
2401	%s\\docs\\dialing.inf+%s\\docs\\modems.inf %s",
2402	exedir,exedir,exedir,exedir,pTopic
2403	);
2404	system(updstr);
2405	return(success = 1);
2406	}
2407	#endif /* OS2ONLY */
2408	#endif /* NOHELP */
2409
2410	if (cx == XXHAN) { /* HANGUP */
2411	if ((x = cmcfm()) < 0) return(x);
2412	#ifndef NODIAL
2413	if ((x = mdmhup()) < 1)
2414	#endif /* NODIAL */
2415	x = (tthang() > -1);
2416	#ifdef OS2
2417	if (x)
2418	DialerSend(OPT_KERMIT_HANGUP, 0);
2419	#endif /* OS2 */
2420	return(success = x);
2421	}
2422
2423	#ifndef NOSPL
2424	if (cx == XXGOTO \|\| cx == XXFWD \|\| cx == XXXFWD) { /* GOTO or FORWARD */
2425	/* Note, here we don't set SUCCESS/FAILURE flag */
2426	if ((y = cmfld("label","",&s,xxstring)) < 0) {
2427	if (y == -3) {
2428	printf("?Label name required\n");
2429	return(-9);
2430	} else return(y);
2431	}
2432	strncpy(lblbuf,s,LBLSIZ);
2433	if ((x = cmcfm()) < 0) return(x);
2434	s = lblbuf;
2435	return(dogoto(s,cx));
2436	}
2437	#endif /* NOSPL */
2438
2439	#ifndef NOSPL
2440	/* IF, Extended IF, WHILE */
2441	if (cx == XXIF \|\| cx == XXIFX \|\| cx == XXWHI) {
2442	return(doif(cx));
2443	}
2444	if (cx == XXSWIT) {
2445	return(doswitch());
2446	}
2447	#endif /* NOSPL */
2448
2449	#ifndef NOSPL
2450	/* INPUT, REINPUT, and MINPUT */
2451
2452	if (cx == XXINP \|\| cx == XXREI
2453	#ifdef CK_MINPUT
2454	\|\| cx == XXMINP
2455	#endif /* CK_MINPUT */
2456	) {
2457	long zz;
2458	extern int x_ifnum;
2459
2460	sprintf(tmpbuf,"%d",indef);
2461	zz = -1L;
2462	x_ifnum = 1; /* Turn off internal complaints */
2463	y = cmnum("seconds to wait for input, or time of day hh:mm:ss",
2464	(char *)tmpbuf, 10, &x, xxstring
2465	);
2466	x_ifnum = 0;
2467	if (y < 0) {
2468	if (y == -2) { /* Invalid number or expression */
2469	zz = tod2sec(atmbuf); /* Convert to secs since midnight */
2470	if (zz < 0L) {
2471	printf("?Number, expression, or time of day required\n");
2472	return(-9);
2473	} else {
2474	char now[32]; /* Current time */
2475	char *p;
2476	long tnow;
2477	p = now;
2478	ztime(&p);
2479	tnow = atol(p+11) * 3600L + atol(p+14) * 60L + atol(p+17);
2480	if (zz < tnow) /* User's time before now */
2481	zz += 86400L; /* So make it tomorrow */
2482	zz -= tnow; /* Seconds from now. */
2483	}
2484	} else
2485	return(y);
2486	}
2487	if (zz > -1L) {
2488	x = zz;
2489	if (zz != (long) x) {
2490	printf(
2491	"Sorry, arithmetic overflow - hh:mm:ss not usable on this platform.\n"
2492	);
2493	return(-9);
2494	}
2495	}
2496	for (y = 0; y < MINPMAX; y++) { /* Initialize strings */
2497	if (ms[y]) {
2498	free(ms[y]); /* Free old strings, if any */
2499	ms[y] = NULL;
2500	}
2501	}
2502	#ifdef CK_MINPUT
2503	if (cx == XXMINP) { /* MINPUT */
2504	int res = 0;
2505	for (y = 0; y < MINPMAX; y++) { /* Parse up to MINPMAX strings */
2506	res = cmfld("List of input strings","",&s,xxstring);
2507	if (res < 0) return(res);
2508	debug(F110,"MINPUT cmfld returns",s,0);
2509	if (*s == '{') {
2510	char *ss;
2511	int n;
2512	ss = s; n = 0;
2513	while (ss) {ss = *(ss+1); ss++; n++; }
2514	while (--n > 0) if (s[n] == '}') break;
2515	if (n > 0) {
2516	ss = s + n;
2517	while (ss) {ss = *(ss+1); ss++; n++; }
2518	}
2519	}
2520	if (!(ms[y] = malloc((int)strlen(s) + 1))) { /* Get memory */
2521	printf("?Memory allocation failure\n");
2522	return(-9);
2523	}
2524	strcpy(ms[y],s); /* Got memory, copy. */
2525	if (res == 1) break;
2526	}
2527	for (y++; y < MINPMAX; y++) { /* Clean up old strings */
2528	if (ms[y]) {
2529	free(ms[y]); /* Free old strings, if any */
2530	ms[y] = NULL;
2531	}
2532	}
2533	#ifdef DEBUG
2534	if (deblog) { /* Check the parsing */
2535	for (y = 0; y < MINPMAX; y++)
2536	if (ms[y]) debug(F111,"MINPUT",ms[y],y);
2537	}
2538	#endif /* DEBUG */
2539
2540	} else
2541	#endif /* CK_MINPUT */
2542	{
2543	if ((y = cmtxt("Material to be input","",&s,xxstring)) < 0)
2544	return(y);
2545
2546	s = brstrip(s);
2547	if (!(ms[0] = malloc((int)strlen(s) + 1))) { /* Get memory */
2548	printf("?Memory allocation failure\n");
2549	return(-9);
2550	}
2551	strcpy(ms[0],s); /* Got memory, copy. */
2552	ms[1] = NULL;
2553	}
2554	if (cx == XXINP /* INPUT */
2555	#ifdef CK_MINPUT
2556	\|\| cx == XXMINP /* or MINPUT */
2557	#endif /* CK_MINPUT */
2558	) {
2559	i_active = 1;
2560	success = doinput(x,ms); /* Go try to input the search string */
2561	i_active = 0;
2562	} else { /* REINPUT */
2563	debug(F110,"xxrei line",s,0);
2564	success = doreinp(x,s);
2565	}
2566	if (intime[cmdlvl] && !success) { /* TIMEOUT-ACTION = QUIT? */
2567	popclvl(); /* If so, pop command level. */
2568	if (pflag && cmdlvl == 0) {
2569	if (cx == XXINP) printf("?INPUT timed out\n");
2570	if (cx == XXMINP) printf("?MINPUT timed out\n");
2571	if (cx == XXREI) printf("?REINPUT failed\n");
2572	}
2573	}
2574	return(success); /* Return do(re)input's return code */
2575	}
2576
2577	#endif /* NOSPL */
2578
2579	#ifndef NOSPL
2580	if (cx == XXLBL) { /* LABEL */
2581	if ((x = cmfld("label","",&s,xxstring)) < 0) {
2582	if (x == -3) {
2583	printf("?Label name required\n");
2584	return(-9);
2585	} else return(x);
2586	}
2587	if ((x = cmcfm()) < 0) return(x);
2588	return(0);
2589	}
2590	#endif /* NOSPL */
2591
2592	if (cx == XXLOG) { /* LOG */
2593	x = cmkey(logtab,nlog,"What to log","",xxstring);
2594	if (x == -3) {
2595	printf("?Type of log required\n");
2596	return(-9);
2597	}
2598	if (x < 0) return(x);
2599	x = dolog(x);
2600	if (x < 0)
2601	return(x);
2602	else
2603	return(success = x);
2604	}
2605
2606	#ifndef NOSCRIPT
2607	if (cx == XXLOGI) { /* UUCP-style script */
2608	if ((x = cmtxt("expect-send expect-send ...","",&s,xxstring)) < 0)
2609	return(x);
2610	#ifdef CK_APC
2611	if (apcactive == APC_LOCAL \|\|
2612	apcactive == APC_REMOTE && apcstatus != APC_UNCH) return(success = 0);
2613	#endif /* CK_APC */
2614	#ifdef VMS
2615	conres(); /* For Ctrl-C to work... */
2616	#endif /* VMS */
2617	return(success = dologin(s)); /* Return 1=completed, 0=failed */
2618	}
2619	#endif /* NOSCRIPT */
2620
2621	if (cx == XXREC) { /* RECEIVE */
2622	cmarg2 = "";
2623
2624	#ifdef COMMENT /* wrong place for this -- see protocol module */
2625	#ifdef CK_TMPDIR
2626	if (dldir && !f_tmpdir) { /* If they have a download directory */
2627	if (s = zgtdir()) { /* Get current directory */
2628	if (zchdir(dldir)) { /* Change to download directory */
2629	strncpy(savdir,s,TMPDIRLEN);
2630	f_tmpdir = 1; /* Remember that we did this */
2631	}
2632	}
2633	}
2634	#endif /* CK_TMPDIR */
2635	#endif /* COMMENT */
2636
2637	#ifdef CK_XYZ
2638	if (protocol == PROTO_X) {
2639	x = cmofi("Name for incoming file", "", &s, xxstring);
2640	} else {
2641	#endif /* CK_XYZ */
2642	x = cmofi(
2643	#ifdef CK_TMPDIR
2644	"\nName under which to store the (first) incoming file, or:\n\
2645	name of directory in which to store all the file(s), or:\n\
2646	confirm the command now to store the files in the current\n\
2647	directory under their own names.",
2648	#else
2649	"Name under which to store the file, or confirm to accept\n\
2650	the file with its own name.",
2651	#endif /* CK_TMPDIR */
2652	"", &s, xxstring
2653	);
2654	#ifdef CK_XYZ
2655	}
2656	#endif /* CK_XYZ */
2657	if ((x == -1) \|\| (x == -2) \|\| (x == -9)) {
2658	#ifdef CK_TMPDIR
2659	if (f_tmpdir) {
2660	zchdir(savdir);
2661	f_tmpdir = 0;
2662	}
2663	#endif /* CK_TMPDIR */
2664	return(x);
2665	}
2666	#ifdef CK_XYZ
2667	if (protocol == PROTO_X && x == -3) {
2668	printf(
2669	"Sorry, you must specify a name when receiving a file with XMODEM protocol\n");
2670	#ifdef CK_TMPDIR
2671	if (f_tmpdir) {
2672	zchdir(savdir);
2673	f_tmpdir = 0;
2674	}
2675	#endif /* CK_TMPDIR */
2676	return(-9);
2677	}
2678	#endif /* CK_XYZ */
2679	strcpy(line,s);
2680	if ((x = cmcfm()) < 0) {
2681	#ifdef CK_TMPDIR
2682	if (f_tmpdir) {
2683	zchdir(savdir);
2684	f_tmpdir = 0;
2685	}
2686	#endif /* CK_TMPDIR */
2687	return(x);
2688	}
2689	#ifdef CK_TMPDIR
2690	/*
2691	User can give a device &/or directory specification here,
2692	rather than an alternative filename.
2693	*/
2694	x = strlen(line);
2695	if (
2696	#ifdef OS2
2697	(isalpha(line[0]) &&
2698	line[1] == ':' &&
2699	line[2] == '\0') \|\|
2700	isdir(line)
2701	#else
2702	#ifdef UNIX
2703	(x > 0 && line[x-1] == '/') \|\| isdir(line)
2704	#else
2705	#ifdef VMS
2706	(x > 0) && isdir(line)
2707	#else
2708	/*
2709	Others -- Maybe this will work; if not, add another #ifdef..#endif.
2710	CK_TMPDIR should not be defined without an isdir() function.
2711	*/
2712	(x > 0) && isdir(line)
2713	#endif /* VMS */
2714	#endif /* UNIX */
2715	#endif /* OS2 */
2716	) {
2717	debug(F110,"DOWNLOAD arg disk or dir",line,0);
2718	if (!f_tmpdir) { /* If not already cd'd to download directory */
2719	s = zgtdir(); /* Get current directory */
2720	if (s) { /* Save it */
2721	strncpy(savdir,s,TMPDIRLEN);
2722	f_tmpdir = 1; /* Remember that we did this */
2723	cmarg2 = ""; /* and we don't have an as-name. */
2724	} else {
2725	printf("?Can't get current directory\n");
2726	return(-9);
2727	}
2728	}
2729	if (!zchdir(line)) { /* Change to given disk/directory, */
2730	printf("?Can't access %s\n",line);
2731	return(-9);
2732	}
2733	} else /* It's an alternative filename */
2734	#endif /* CK_TMPDIR */
2735	cmarg2 = line;
2736
2737	debug(F111,"cmofi cmarg2",cmarg2,x);
2738	sstate = 'v';
2739	#ifdef MAC
2740	what = W_RECV;
2741	scrcreate();
2742	#endif /* MAC */
2743	if (local) displa = 1;
2744	return(0);
2745	}
2746
2747	if (cx == XXREM) { /* REMOTE */
2748	#ifdef CK_XYZ
2749	if (protocol != PROTO_K) {
2750	printf("Sorry, REMOTE commands only work with Kermit protocol\n");
2751	return(-9);
2752	}
2753	#endif /* CK_XYZ */
2754	x = cmkey(remcmd,nrmt,"Remote Kermit server command","",xxstring);
2755	if (x == -3) {
2756	printf("?You must specify a command for the remote server\n");
2757	return(-9);
2758	}
2759	return(dormt(x));
2760	}
2761
2762	#ifndef NOFRILLS
2763	if (cx == XXREN) { /* RENAME */
2764	#ifdef CK_APC
2765	if (apcactive == APC_LOCAL \|\|
2766	apcactive == APC_REMOTE && apcstatus != APC_UNCH)
2767	return(success = 0);
2768	#endif /* CK_APC */
2769	return(dorenam());
2770	}
2771	#endif /* NOFRILLS */
2772
2773	if (cx == XXEIGHT) { /* EIGHTBIT */
2774	extern int parity, cmask, cmdmsk;
2775	if ((x = cmcfm()) < 0)
2776	return(x);
2777	parity = 0;
2778	cmask = 0xff;
2779	cmdmsk = 0xff;
2780	return(success = 1);
2781	}
2782
2783	if (cx == XXSEN \|\| cx == XXMAI /* SEND, MAIL */
2784	\|\| cx == XXMOVE /* MOVE */
2785	\|\| cx == XXADD /* ADD */
2786	#ifdef CK_RESEND
2787	\|\| cx == XXRSEN \|\| cx == XXPSEN /* RESEND, PSEND */
2788	#endif /* CK_RESEND */
2789	) {
2790
2791	#ifdef CK_RESEND
2792	int seekto = 0;
2793	int filemode = XYFT_B;
2794	#endif /* CK_RESEND */
2795
2796	#ifndef NOMSEND
2797	char * fmode = "";
2798	int xmode = 0;
2799
2800	if (cx == XXADD) {
2801	if ((x = cmkey(addtab,
2802	naddtab,"Name of list","send-list",xxstring)) < 0)
2803	return(x);
2804	#ifndef XYZ_INTERNAL
2805	if (protocol != PROTO_K) {
2806	printf(
2807	"?Sorry, ADD SEND-LIST does not work with external protocols\n"
2808	);
2809	return(-9);
2810	}
2811	#endif /* XYZ_INTERNAL */
2812	}
2813	#endif /* NOMSEND */
2814
2815	#ifdef CK_RESEND
2816	if (cx == XXRSEN && binary != XYFT_B
2817	#ifdef VMS
2818	&& binary != XYFT_I
2819	#endif /* VMS */
2820	) {
2821	printf(
2822	#ifdef VMS
2823	"?Sorry, FILE TYPE must be BINARY\n"
2824	#else
2825	"?Sorry, FILE TYPE must be BINARY or IMAGE\n"
2826	#endif /* VMS */
2827	);
2828	return(-9);
2829	}
2830	#ifdef CK_XYZ
2831	if (cx == XXRSEN) {
2832	if (protocol != PROTO_K && protocol != PROTO_Z) {
2833	printf(
2834	"Sorry, RESEND is only possible with Kermit or ZMODEM protocol\n"
2835	);
2836	return(-9);
2837
2838	}
2839	}
2840	#endif /* CK_XYZ */
2841	#endif /* CK_RESEND */
2842	if ((cx == XXMAI /* MAIL */
2843	#ifdef CK_RESEND
2844	\|\| cx == XXRSEN /* RESEND */
2845	#endif /* CK_RESEND */
2846	) &&
2847	(!atdiso \|\| !atcapr)) { /* Disposition attribute off? */
2848	printf("?Sorry, ATTRIBUTE DISPOSITION must be ON\n");
2849	return(-9);
2850	}
2851	cmarg = cmarg2 = "";
2852	#ifdef CK_XYZ
2853	if (protocol == PROTO_X)
2854	x = cmifi("File to send","",&s,&y,xxstring);
2855	else
2856	#endif /* CK_XYZ */
2857	x = cmifi("File(s) to send","",&s,&y,xxstring);
2858	if (x < 0) {
2859	if (x == -3) {
2860	#ifndef NOMSEND
2861	if (filehead) { /* SEND by itself with ADD list? */
2862	nfils = filesinlist;
2863	sndsrc = nfils; /* Like MSEND */
2864	addlist = 1; /* But using a different list... */
2865	filenext = filehead;
2866	sstate = 's';
2867	goto sendend;
2868	} else { /* Oops, no list. */
2869	printf("?No send list - use ADD to make one.\n");
2870	return(-9);
2871	}
2872	#else
2873	printf("?A file specification is required\n");
2874	return(-9);
2875	#endif /* NOMSEND */
2876	} else return(x);
2877	}
2878	#ifdef CK_XYZ
2879	if (y != 0 && protocol == PROTO_X) {
2880	printf(
2881	"Sorry, you can only send one file at a time with XMODEM protocol\n"
2882	);
2883	return(-9);
2884	}
2885	#endif /* CK_XYZ */
2886
2887	nfils = -1; /* Files come from internal list. */
2888	#ifndef NOMSEND
2889	addlist = 0; /* Don't use SEND-LIST. */
2890	filenext = NULL;
2891	#endif /* NOMSEND */
2892	strcpy(line,s); /* Save copy of string just parsed. */
2893	#ifndef NOMSEND
2894	if (cx == XXADD) {
2895	if (filesinlist == 0) /* Take care of \v(filespec) */
2896	fspec[0] = NUL;
2897	if (((int)strlen(fspec) + (int)strlen(s) + 1) < CKMAXPATH) {
2898	strcat(fspec,s);
2899	strcat(fspec," ");
2900	} else printf("WARNING - \\v(filespec) buffer overflow\n");
2901	} else
2902	#endif /* NOMSEND */
2903	strncpy(fspec,s,CKMAXPATH);
2904
2905	#ifdef CK_RESEND
2906	if (cx == XXPSEN) { /* PSEND */
2907	if (y != 0) {
2908	printf("?Sorry, wildcards not permitted in this command\n");
2909	return(-9);
2910	}
2911	if (sizeof(int) < 4) {
2912	printf("?Sorry, this command needs 32-bit integers\n");
2913	return(-9);
2914	}
2915	#ifdef CK_XYZ
2916	if (protocol != PROTO_K) {
2917	printf("?Sorry, PSEND works only with Kermit protocol\n");
2918	return(-9);
2919	}
2920	#endif /* CK_XYZ */
2921	x = cmnum("starting position (byte number)",
2922	"",10,&seekto,xxstring);
2923	if (x < 0)
2924	return(x);
2925	}
2926	#endif /* CK_RESEND */
2927	#ifndef NOMSEND
2928	if (cx == XXADD) {
2929	extern struct keytab fttab[];
2930	extern int nfttyp;
2931
2932	fmode = gfmode(binary);
2933	if ((x = cmkey(fttab,nfttyp,
2934	"type of file transfer", fmode, xxstring)) < 0)
2935	return(x);
2936	xmode = x;
2937	}
2938	#endif /* NOMSEND */
2939	if (cx == XXSEN /* SEND command */
2940	\|\| cx == XXMOVE /* MOVE command */
2941	\|\| cx == XXADD /* ADD command */
2942	#ifdef CK_RESEND
2943	\|\| cx == XXRSEN \|\| cx == XXPSEN /* RESEND or PSEND command */
2944	#endif /* CK_RESEND */
2945	) {
2946	debug(F101,"Send: wild","",y);
2947	if (y == 0) {
2948	if ((x = cmtxt("Name to send it with","",&cmarg2,
2949	xxstring)) < 0)
2950	return(x);
2951	} else {
2952	if ((x = cmcfm()) < 0) return(x);
2953	}
2954	cmarg = line; /* File to send */
2955	debug(F110,"Sending:",cmarg,0);
2956	if (*cmarg2 != '\0') debug(F110," as:",cmarg2,0);
2957	} else { /* MAIL */
2958	#ifndef NOFRILLS
2959	#ifdef CK_XYZ
2960	if (protocol != PROTO_K) {
2961	printf("Sorry, MAIL can be sent using Kermit protocol\n");
2962	return(-9);
2963	}
2964	#endif /* CK_XYZ */
2965	if (!atdiso \|\| !atcapr) { /* Disposition attribute off? */
2966	printf("?Disposition Attribute is Off\n");
2967	return(-9);
2968	}
2969	debug(F101,"Mail: wild","",y);
2970	optbuf = NUL; / Wipe out any old options */
2971	if ((x = cmtxt("Address to mail to","",&s,xxstring)) < 0)
2972	return(x);
2973	if ((int)strlen(s) == 0) {
2974	printf("?Address required\n");
2975	return(-9);
2976	}
2977	strcpy(optbuf,s);
2978	if ((int)strlen(optbuf) > 94) { /* Ensure legal size */
2979	printf("?Option string too long\n");
2980	return(-9);
2981	}
2982	cmarg = line; /* File to send */
2983	debug(F110,"Mailing:",cmarg,0);
2984	debug(F110,"To:",optbuf,0);
2985	rmailf = 1; /* MAIL modifier flag for SEND */
2986	#else
2987	printf("?Sorry, MAIL feature not configured.\n");
2988	return(-9);
2989	#endif /* NOFRILLS */
2990	}
2991	#ifdef CK_RESEND
2992	if (cx == XXPSEN) /* Partial-send starting position */
2993	sendstart = seekto;
2994	else
2995	sendstart = 0L;
2996	#endif /* CK_RESEND */
2997	if (cx == XXMOVE)
2998	moving = 1;
2999	#ifndef NOMSEND
3000	if (cx != XXADD) { /* Not ADD, really sending... */
3001	#endif /* NOMSEND */
3002	sstate = 's'; /* Set start state to SEND */
3003	#ifndef NOMSEND
3004	addlist = 0;
3005	filenext = NULL;
3006	} else { /* Just ADDing... */
3007	struct filelist * flp;
3008	flp = (struct filelist *) malloc(sizeof(struct filelist));
3009	if (flp) {
3010	if (filetail)
3011	filetail->fl_next = flp;
3012	filetail = flp;
3013	if (!filehead)
3014	filehead = flp;
3015	x = (int) strlen(line); /* Length of filename */
3016	s = (char *) malloc(x + 1);
3017	if (s) {
3018	strcpy(s,line);
3019	flp->fl_name = s;
3020	flp->fl_mode = xmode;
3021	x = (int) strlen(cmarg2); /* Length of as-name */
3022	if (x < 1) {
3023	flp->fl_alias = NULL;
3024	} else {
3025	s = (char *) malloc(x + 1);
3026	if (s) {
3027	strcpy(s,cmarg2);
3028	flp->fl_alias = s;
3029	} else {
3030	printf("Sorry, can't allocate space for as-name");
3031	return(-9);
3032	}
3033	}
3034	flp->fl_next = NULL;
3035	filesinlist++; /* Count this node */
3036	return(0); /* Finished adding this node */
3037	} else {
3038	printf("Sorry, can't allocate space for name");
3039	return(-9);
3040	}
3041	} else {
3042	printf("Sorry, can't allocate file list node");
3043	return(-9);
3044	}
3045	}
3046	#endif /* NOMSEND */
3047	sendend:
3048
3049	#ifdef CK_RESEND
3050	switch (cx) {
3051	case XXRSEN: sendmode = SM_RESEND; break;
3052	case XXPSEN: sendmode = SM_PSEND; break;
3053	case XXSEN:
3054	default: sendmode = SM_SEND; break;
3055	}
3056	#else
3057	sendmode = SM_SEND;
3058	#endif /* CK_RESEND */
3059	#ifdef MAC
3060	what = W_SEND;
3061	scrcreate();
3062	#endif /* MAC */
3063	if (local) { /* If in local mode, */
3064	displa = 1; /* turn on file transfer display */
3065	}
3066	return(0);
3067	}
3068
3069	#ifndef NOMSEND
3070	if (cx == XXMSE \|\| cx == XXMMOVE) { /* MSEND and MMOVE commands */
3071	nfils = 0; /* Like getting a list of */
3072	lp = line; /* files on the command line */
3073	addlist = 0; /* Do not use SEND-LIST */
3074	filenext = NULL; /* Ditto ! */
3075	#ifdef CK_XYZ
3076	if (protocol == PROTO_X) {
3077	printf(
3078	"Sorry, you can only send one file at a time with XMODEM protocol\n"
3079	);
3080	return(-9);
3081	}
3082	#endif /* CK_XYZ */
3083
3084	while (1) {
3085	char *p;
3086	if ((x = cmifi("Names of files to send, separated by spaces","",
3087	&s,&y,xxstring)) < 0) {
3088	if (x == -3) {
3089	if (nfils <= 0) {
3090	printf("?A file specification is required\n");
3091	return(-9);
3092	} else break;
3093	}
3094	return(x);
3095	}
3096	msfiles[nfils++] = lp; /* Got one, count it, point to it, */
3097	p = lp; /* remember pointer, */
3098	while (lp++ = s++) /* and copy it into buffer */
3099	if (lp > (line + LINBUFSIZ)) { /* Avoid memory leak */
3100	printf("?MSEND list too long\n");
3101	line[0] = NUL;
3102	return(-9);
3103	}
3104	debug(F111,"msfiles",msfiles[nfils-1],nfils-1);
3105	if (nfils == 1) fspec = NUL; / Take care of \v(filespec) */
3106	if (((int)strlen(fspec) + (int)strlen(p) + 1) < CKMAXPATH) {
3107	strcat(fspec,p);
3108	strcat(fspec," ");
3109	} else printf("WARNING - \\v(filespec) buffer overflow\n");
3110	}
3111	cmlist = msfiles; /* Point cmlist to pointer array */
3112	cmarg2 = ""; /* No internal expansion list (yet) */
3113	sndsrc = nfils; /* Filenames come from cmlist */
3114	sendmode = SM_MSEND; /* Remember this kind of SENDing */
3115	sstate = 's'; /* Set start state for SEND */
3116	if (cx == XXMMOVE) /* If MMOVE'ing, */
3117	moving = 1; /* set this flag. */
3118	#ifdef MAC
3119	what = W_SEND;
3120	scrcreate();
3121	#endif /* MAC */
3122	if (local) { /* If in local mode, */
3123	displa = 1; /* turn on file transfer display */
3124	ttflui(); /* and flush tty input buffer. */
3125	}
3126	return(0);
3127	}
3128	#endif /* NOMSEND */
3129
3130	#ifndef NOSERVER
3131	if (cx == XXSER) { /* SERVER */
3132	#ifdef CK_XYZ
3133	if (protocol != PROTO_K) {
3134	printf("Sorry, SERVER only works with Kermit protocol\n");
3135	return(-9);
3136	}
3137	#endif /* CK_XYZ */
3138	#ifdef COMMENT
3139	/*
3140	Parse for time limit, but since we don't use it yet,
3141	the parsing is commented out.
3142	*/
3143	x_ifnum = 1; /* Turn off internal complaints */
3144	y = cmnum("optional time limit, seconds, or time of day as hh:mm:ss",
3145	"0", 10, &x, xxstring
3146	);
3147	x_ifnum = 0;
3148	if (y < 0) {
3149	if (y == -2) { /* Invalid number or expression */
3150	zz = tod2sec(atmbuf); /* Convert to secs since midnight */
3151	if (zz < 0L) {
3152	printf("?Number, expression, or time of day required\n");
3153	return(-9);
3154	} else {
3155	char now[32]; /* Current time */
3156	char *p;
3157	long tnow;
3158	p = now;
3159	ztime(&p);
3160	tnow = atol(p+11) * 3600L + atol(p+14) * 60L + atol(p+17);
3161	if (zz < tnow) /* User's time before now */
3162	zz += 86400L; /* So make it tomorrow */
3163	zz -= tnow; /* Seconds from now. */
3164	}
3165	} else
3166	return(y);
3167	}
3168	if (zz > -1L) {
3169	x = zz;
3170	if (zz != (long) x) {
3171	printf(
3172	"Sorry, arithmetic overflow - hh:mm:ss not usable on this platform.\n"
3173	);
3174	return(-9);
3175	}
3176	}
3177	if (x < 0)
3178	x = 0;
3179	#endif /* COMMENT */
3180
3181	if ((x = cmcfm()) < 0) return(x);
3182	sstate = 'x';
3183	#ifdef MAC
3184	what = W_RECV;
3185	scrcreate();
3186	#endif /* MAC */
3187	if (local) displa = 1;
3188	#ifdef AMIGA
3189	reqoff(); /* No DOS requestors while server */
3190	#endif /* AMIGA */
3191	return(0);
3192	}
3193	#endif /* NOSERVER */
3194
3195	if (cx == XXSAVE) { /* SAVE command */
3196	x = cmkey(savtab,nsav,"option","keymap",xxstring);
3197	if (x == -3) {
3198	printf("?You must specify an option to save\n");
3199	return(-9);
3200	}
3201	if (x < 0) return(x);
3202	/* have to set success separately for each item in doprm()... */
3203	/* actually not really, could have just had doprm return 0 or 1 */
3204	/* and set success here... */
3205	y = dosave(x);
3206	if (y == -3) {
3207	printf("?More fields required\n");
3208	return(-9);
3209	} else return(y);
3210	}
3211
3212	if (cx == XXSET) { /* SET command */
3213	x = cmkey(prmtab,nprm,"Parameter","",xxstring);
3214	if (x == -3) {
3215	printf("?You must specify a parameter to set\n");
3216	return(-9);
3217	}
3218	if (x < 0) return(x);
3219	/* have to set success separately for each item in doprm()... */
3220	/* actually not really, could have just had doprm return 0 or 1 */
3221	/* and set success here... */
3222	y = doprm(x,0);
3223	if (y == -3) {
3224	printf("?More fields required\n");
3225	return(-9);
3226	} else return(y);
3227	}
3228
3229	#ifndef NOPUSH
3230	if (cx == XXSHE) { /* SHELL (system) command */
3231	extern int nopush;
3232	if (cmtxt("System command to execute","",&s,xxstring) < 0)
3233	return(-1);
3234
3235	if (nopush)
3236	return(success = 0);
3237	#ifdef CK_APC
3238	if (apcactive == APC_REMOTE && apcstatus != APC_UNCH)
3239	return(success = 0);
3240	#endif /* CK_APC */
3241	conres(); /* Make console normal */
3242	x = zshcmd(s);
3243	debug(F101,"RUN zshcmd code","",x);
3244	concb((char)escape);
3245	return(success = x);
3246	}
3247	#ifdef CK_REDIR
3248	if (cx == XXFUN) { /* REDIRECT */
3249	extern int nopush;
3250
3251	if (nopush) {
3252	printf("?REDIRECT disabled\n");
3253	return(success=0);
3254	}
3255	#ifdef CK_APC
3256	if (apcactive == APC_LOCAL \|\|
3257	apcactive == APC_REMOTE && apcstatus != APC_UNCH) return(success = 0);
3258	#endif /* CK_APC */
3259	if (!local) {
3260	printf("?SET LINE or SET HOST required first\n");
3261	return(-9);
3262	}
3263	#ifdef OS2ONLY
3264	#ifdef NETCONN
3265	if (network) {
3266	printf("?Sorry, REDIRECT doesn't work on network connections\n");
3267	return(-9);
3268	}
3269	#endif /* NETCONN */
3270	#endif /* OS2ONLY */
3271
3272	sprintf(tmpbuf,
3273	"Local command to run,\n\
3274	with its standard input/output redirected to %s\n",
3275	ttname);
3276	if ((x = cmtxt(tmpbuf,"",&s,xxstring)) < 0)
3277	return(x);
3278	return(success = ttruncmd(s));
3279	}
3280	#endif /* CK_REDIR */
3281	#endif /* NOPUSH */
3282
3283	#ifndef NOSHOW
3284	if (cx == XXSHO) { /* SHOW */
3285	x = cmkey(shotab,nsho,"","parameters",xxstring);
3286	if (x < 0) return(x);
3287	return(doshow(x));
3288	}
3289	#endif /* NOSHOW */
3290
3291	#ifndef MAC
3292	if (cx == XXSPA) { /* SPACE */
3293	#ifdef datageneral
3294	/* AOS/VS can take an argument after its "space" command. */
3295	if ((x = cmtxt("Confirm, or local directory name","",&s,xxstring)) < 0)
3296	return(x);
3297	if (*s == NUL) {
3298	xsystem(SPACMD);
3299	} else {
3300	sprintf(line,"space %s",s);
3301	xsystem(line);
3302	}
3303	#else
3304	#ifdef OS2
3305	if ((x = cmtxt("Press Enter for current disk,\n\
3306	or specify a disk letter like A:","",&s,xxstring)) < 0)
3307	return(x);
3308	if (s == NUL) { / Current disk */
3309	printf(" Free space: %ldK\n", zdskspace(0)/1024L);
3310	} else {
3311	int drive = toupper(*s);
3312	printf(" Drive %c: %ldK free\n", drive,
3313	zdskspace(drive - 'A' + 1) / 1024L);
3314	}
3315	#else
3316	#ifdef OSK
3317	#define UNIX
3318	#endif /* OSK */
3319	#ifdef UNIX
3320	#ifdef COMMENT
3321	if ((x = cmtxt("Confirm for current disk,\n\
3322	or specify a disk device or directory","",&s,xxstring)) < 0)
3323	return(x);
3324	#else
3325	x = cmdir("Confirm for current disk,\n\
3326	or specify a disk device or directory","",&s,xxstring);
3327	if (x == -3)
3328	s = "";
3329	else if (x < 0)
3330	return(x);
3331	if ((x = cmcfm()) < 0) return(x);
3332	#endif /* COMMENT */
3333	if (s == NUL) { / Current disk */
3334	xsystem(SPACMD);
3335	} else { /* Specified disk */
3336	sprintf(line,"%s %s",SPACM2,s);
3337	xsystem(line);
3338	}
3339	#ifdef OSK
3340	#undef UNIX
3341	#endif /* OSK */
3342	#else
3343	if ((x = cmcfm()) < 0) return(x);
3344	xsystem(SPACMD);
3345	#endif /* UNIX */
3346	#endif /* OS2 */
3347	#endif /* datageneral */
3348	return(success = 1); /* Pretend it worked */
3349	}
3350	#endif /* MAC */
3351
3352	if (cx == XXSTA) { /* STATISTICS */
3353	if ((x = cmcfm()) < 0) return(x);
3354	return(success = dostat());
3355	}
3356
3357	if (cx == XXSTO \|\| cx == XXEND) { /* STOP, END, or POP */
3358	if ((y = cmnum("exit status code","0",10,&x,xxstring)) < 0)
3359	return(y);
3360	if ((y = cmtxt("Message to print","",&s,xxstring)) < 0)
3361	return(y);
3362	s = brstrip(s);
3363	if (*s) printf("%s\n",s);
3364	if (cx == XXSTO) {
3365	dostop();
3366	} else {
3367	#ifndef NOSPL
3368	/* Pop from all FOR/WHILE/XIFs */
3369	debug(F101,"END maclvl 1","",maclvl);
3370	while ((maclvl > 0) &&
3371	(m_arg[maclvl-1][0]) &&
3372	(cmdstk[cmdlvl].src == CMD_MD) &&
3373	(!strncmp(m_arg[maclvl-1][0],"_xif",4) \|\|
3374	!strncmp(m_arg[maclvl-1][0],"_for",4) \|\|
3375	!strncmp(m_arg[maclvl-1][0],"_whi",4))) {
3376	debug(F110,"END popping",m_arg[maclvl-1][0],0);
3377	dogta(XXPTA); /* Put args back */
3378	popclvl(); /* Pop up two levels */
3379	popclvl();
3380	debug(F101,"END maclvl 2","",maclvl);
3381	}
3382	#endif /* NOSPL */
3383	popclvl(); /* Now pop out of macro or TAKE file */
3384	#ifndef NOSPL
3385	debug(F101,"END maclvl 3","",maclvl);
3386	#endif /* NOSPL */
3387	}
3388	return(success = (x == 0));
3389	}
3390
3391	if (cx == XXSUS) { /* SUSPEND */
3392	if ((y = cmcfm()) < 0) return(y);
3393	#ifdef NOJC
3394	printf("Sorry, this version of Kermit cannot be suspended\n");
3395	#else
3396	stptrap(0);
3397	#endif /* NOJC */
3398	return(0);
3399	}
3400
3401	if (cx == XXTAK) { /* TAKE */
3402	#ifdef OS2
3403	extern char startupdir[],exedir[],inidir[];
3404	char * scriptenv, * keymapenv;
3405	#endif /* OS2 */
3406	char takepath[1024];
3407
3408	if (tlevel > MAXTAKE-1) {
3409	printf("?Take files nested too deeply\n");
3410	return(-2);
3411	}
3412	#ifdef OS2
3413	#ifdef NT
3414	scriptenv = getenv("K95SCRIPTS");
3415	keymapenv = getenv("K95KEYMAPS");
3416	#else /* NT */
3417	scriptenv = getenv("K2SCRIPTS");
3418	keymapenv = getenv("K2KEYMAPS");
3419	#endif /* NT */
3420	if (!scriptenv)
3421	scriptenv = getenv("CK_SCRIPTS");
3422	if (!keymapenv)
3423	keymapenv = getenv("CK_KEYMAPS");
3424
3425	sprintf(takepath,
3426	/* semicolon-separated path list */
3427	"%s%s%s%s%s;%s%s;%s%s;%s;%s%s;%s%s;%s;%s%s;%s%s",
3428	scriptenv?scriptenv:"",
3429	(scriptenv && scriptenv[strlen(scriptenv)-1]==';')?"":";",
3430	keymapenv?keymapenv:"",
3431	(keymapenv && keymapenv[strlen(keymapenv)-1]==';')?"":";",
3432	startupdir,
3433	startupdir, "SCRIPTS/",
3434	startupdir, "KEYMAPS/",
3435	inidir,
3436	inidir, "SCRIPTS/",
3437	inidir, "KEYMAPS/",
3438	exedir,
3439	exedir, "SCRIPTS/",
3440	exedir, "KEYMAPS/"
3441	);
3442	#else /* not OS2 */
3443	y = 1024;
3444	s = takepath;
3445	zzstring("\\v(home)",&s,&y);
3446	#endif /* OS2 */
3447
3448	if ((y = cmifip("C-Kermit command file",
3449	"",&s,&x,0,takepath,xxstring)) < 0) {
3450	if (y == -3) {
3451	printf("?A file name is required\n");
3452	return(-9);
3453	} else
3454	return(y);
3455	}
3456	if (x != 0) {
3457	printf("?Wildcards not allowed in command file name\n");
3458	return(-9);
3459	}
3460	strcpy(line,s);
3461	if ((y = cmcfm()) < 0) return(y);
3462	return(success = dotake(line));
3463	}
3464
3465	#ifdef OS2
3466	if (cx == XXVIEW) { /* VIEW Only Terminal mode */
3467	viewonly = TRUE;
3468	success = doconect(0);
3469	viewonly = FALSE;
3470	return success;
3471	}
3472	#endif /* OS2 */
3473
3474	#ifdef NETCONN
3475	if (cx == XXTEL) { /* TELNET */
3476	int x,z;
3477	#ifdef OS2
3478	if (!tcp_avail) {
3479	printf("?Sorry, either TCP/IP is not available on this system or\n\
3480	necessary DLLs did not load. Use SHOW NETWORK to check network status.\n");
3481	success = 0;
3482	return(-9);
3483	} else
3484	#endif /* OS2 */
3485	{
3486	x = nettype; /* Save net type in case of failure */
3487	z = ttnproto; /* Save protocol in case of failure */
3488	nettype = NET_TCPB;
3489	ttnproto = NP_TELNET;
3490	if ((y = setlin(XYHOST,0)) < 0) {
3491	nettype = x; /* Failed, restore net type. */
3492	ttnproto = z; /* and protocol */
3493	success = 0;
3494	return(y);
3495	}
3496	}
3497	return (success = (y == 0) ? 0 : doconect(0));
3498	}
3499
3500
3501	#ifdef RLOGCODE
3502	if (cx == XXRLOG) { /* RLOGIN */
3503	int x,z;
3504	#ifdef OS2
3505	if ( !tcp_avail ) {
3506	printf("?Sorry, either TCP/IP is not available on this system or\n\
3507	necessary DLLs did not load. Use SHOW NETWORK to check network status.\n"
3508	);
3509	success = 0;
3510	return(-9);
3511	} else {
3512	#endif /* OS2 */
3513	x = nettype; /* Save net type in case of failure */
3514	z = ttnproto; /* Save protocol in case of failure */
3515	nettype = NET_TCPB;
3516	ttnproto = NP_RLOGIN;
3517	if ((y = setlin(XYHOST,0)) < 0) {
3518	nettype = x; /* Failed, restore net type. */
3519	ttnproto = z; /* and protocol */
3520	success = 0;
3521	return(y);
3522	}
3523	#ifdef OS2
3524	}
3525	#endif /* OS2 */
3526	return (success = (y == 0) ? 0 : doconect(0));
3527	}
3528	#endif /* RLOGCODE */
3529	#endif /* NETCONN */
3530
3531	#ifndef NOXMIT
3532	if (cx == XXTRA) { /* TRANSMIT */
3533	if ((x = cmifi("File to transmit","",&s,&y,xxstring)) < 0) {
3534	if (x == -3) {
3535	printf("?Name of an existing file\n");
3536	return(-9);
3537	} else return(x);
3538	}
3539	if (y != 0) {
3540	printf("?Only a single file may be transmitted\n");
3541	return(-2);
3542	}
3543	strcpy(line,s); /* Save copy of string just parsed. */
3544	if ((y = cmcfm()) < 0) return(y); /* Confirm the command */
3545	#ifdef CK_APC
3546	if (apcactive == APC_LOCAL \|\|
3547	apcactive == APC_REMOTE && apcstatus != APC_UNCH) return(success = 0);
3548	#endif /* CK_APC */
3549	debug(F111,"calling transmit",line,xmitp);
3550	return(success = transmit(line,(char)xmitp)); /* Do the command */
3551	}
3552	#endif /* NOXMIT */
3553
3554	#ifndef NOFRILLS
3555	if (cx == XXTYP) { /* TYPE */
3556	if ((x = cmifi("File to type","",&s,&y,xxstring)) < 0) {
3557	if (x == -3) {
3558	printf("?Name of an existing file\n");
3559	return(-9);
3560	} else return(x);
3561	}
3562	if (y != 0) {
3563	printf("?A single file please\n");
3564	return(-2);
3565	}
3566	strcpy(line,s);
3567	if ((y = cmcfm()) < 0) /* Confirm the command */
3568	return(y);
3569	debug(F110,"TYPE",line,0);
3570	return(success = dotype(line));
3571	}
3572	#endif /* NOFRILLS */
3573
3574	#ifndef NOFRILLS
3575	if (cx == XXTES) { /* TEST */
3576	/* Fill this in with whatever is being tested... */
3577	if ((y = cmcfm()) < 0) return(y); /* Confirm the command */
3578
3579	#define CK_DUMPLOCALS /* Define one or more of these. */
3580
3581	#ifdef CK_DUMPARRAYS
3582	#ifndef NOSPL
3583	{ int d, i, j; /* Dump all arrays */
3584	char c, **p;
3585	for (i = 0; i < 27; i++) {
3586	p = a_ptr[i];
3587	d = a_dim[i];
3588	c = (i == 0) ? 64 : i + 96;
3589	if (d && p) {
3590	fprintf(stderr,"&%c[%d]\n",c,d);
3591	for (j = 0; j <= d; j++) {
3592	if (p[j]) {
3593	fprintf(stderr," &%c[%2d] = [%s]\n",c,j,p[j]);
3594	}
3595	}
3596	}
3597	}
3598	}
3599	#endif /* NOSPL */
3600	#endif /* CK_DUMPARRAYS */
3601
3602	#ifdef CK_DUMPSTACK
3603	#ifndef NOSPL
3604	printf("cmdlvl = %d, tlevel = %d, maclvl = %d\n",
3605	cmdlvl,tlevel,maclvl);
3606	if (maclvl < 0) {
3607	printf("%s\n",
3608	"Call me from inside a macro and I'll dump the argument stack");
3609	return(0);
3610	}
3611	printf("Macro level: %d, ARGC = %d\n ",maclvl,macargc[maclvl]);
3612	for (y = 0; y < 10; y++) printf("%7d",y);
3613	for (x = 0; x <= maclvl; x++) {
3614	printf("\n%2d: ",x);
3615	for (y = 0; y < 10; y++) {
3616	s = m_arg[x][y];
3617	printf("%7s",s ? s : "(none)");
3618	}
3619	}
3620	printf("\n");
3621
3622	#endif /* NOSPL */
3623	#endif /* CK_DUMPSTACK */
3624
3625	#ifdef CK_DUMPLOCALS
3626	#ifndef NOSPL
3627	{
3628	extern struct localvar * localhead[];
3629	struct localvar * v;
3630	int i;
3631	printf("Command Level: %d\n",cmdlvl);
3632	for (i = 0; i <= cmdlvl; i++) {
3633	v = localhead[i];
3634	if (!v) continue;
3635	printf("Level %d\n",i);
3636	while (v) {
3637	printf("%s [%s]\n",v->lv_name,v->lv_value);
3638	v = v->lv_next;
3639	}
3640	}
3641	}
3642	#endif /* NOSPL */
3643	#endif /* CK_DUMPLOCALS */
3644
3645	return(0);
3646	}
3647	#endif /* NOFRILLS */
3648
3649	#ifndef NOCSETS
3650	if (cx == XXXLA) { /* TRANSLATE <ifn> from-cs to-cs <ofn> */
3651	int incs, outcs;
3652	if ((x = cmifi("File to translate","",&s,&y,xxstring)) < 0) {
3653	if (x == -3) {
3654	printf("?Name of an existing file\n");
3655	return(-9);
3656	} else return(x);
3657	}
3658	if (y != 0) {
3659	printf("?A single file please\n");
3660	return(-2);
3661	}
3662	strcpy(line,s); /* Save copy of string just parsed. */
3663
3664	if ((incs = cmkey(fcstab,nfilc,"from character-set","",xxstring)) < 0)
3665	return(incs);
3666	if ((outcs = cmkey(fcstab,nfilc,"to character-set","",xxstring)) < 0)
3667	return(outcs);
3668	if ((x = cmofi("output file",CTTNAM,&s,xxstring)) < 0) return(x);
3669	if (x > 1) {
3670	printf("?Directory name not allowed\n");
3671	return(-9);
3672	}
3673	strncpy(tmpbuf,s,TMPBUFSIZ);
3674	if ((y = cmcfm()) < 0) return(y); /* Confirm the command */
3675	return(success = xlate(line,tmpbuf,incs,outcs)); /* Execute it */
3676	}
3677	#endif /* NOCSETS */
3678
3679	if (cx == XXVER) { /* VERSION */
3680	if ((y = cmcfm()) < 0)
3681	return(y);
3682
3683	printf("%s, for%s\n Numeric: %ld",versio,ckxsys,vernum);
3684	if (xvernum)
3685	printf("C-Kermit %s\n",ck_ver);
3686	if (verwho)
3687	printf("-%d\n",verwho);
3688	else printf("\n");
3689	hmsga(copyright);
3690	#ifdef OS2
3691	shoreg();
3692	#endif /* OS2 */
3693
3694	return(success = 1);
3695	}
3696
3697	#ifndef MAC /* Only for multiuser systems */
3698	#ifndef NOFRILLS
3699	if (cx == XXWHO) { /* WHO */
3700	char *wc;
3701	#ifdef datageneral
3702	xsystem(WHOCMD);
3703	#else
3704	if ((y = cmtxt("user name","",&s,xxstring)) < 0) return(y);
3705	if (!(wc = getenv("CK_WHO"))) wc = WHOCMD;
3706	if (wc)
3707	if ((int) strlen(wc) > 0) {
3708	sprintf(line,"%s %s",wc,s);
3709	xsystem(line);
3710	}
3711	#endif /* datageneral */
3712	return(success = 1);
3713	}
3714	#endif /* NOFRILLS */
3715	#endif /* MAC */
3716
3717	#ifndef NOFRILLS
3718	if (cx == XXWRI \|\| cx == XXWRL \|\| cx == XXWRBL) { /* WRITE */
3719	#ifdef BINREAD
3720	if (cx == XXWRBL) {
3721	extern CHAR * readbuf;
3722	extern int readsize;
3723	if ((y = cmcfm()) < 0) return(y);
3724	y = zsoutx(ZWFILE, readbuf, readsize);
3725	printf("WRITEBLOCK = %d\n",y);
3726	return(y);
3727	}
3728	#endif /* BINREAD */
3729	if ((x = cmkey(writab,nwri,"to file or log","",xxstring)) < 0) {
3730	if (x == -3) printf("?Write to what?\n");
3731	return(x);
3732	}
3733	if ((y = cmtxt("text","",&s,xxstring)) < 0) return(y);
3734	s = brstrip(s);
3735	switch (x) {
3736	case LOGD: y = ZDFILE; break;
3737	case LOGP: y = ZPFILE; break;
3738	#ifndef NOLOCAL
3739	case LOGS: y = ZSFILE; break;
3740	#endif /* NOLOCAL */
3741	case LOGT: y = ZTFILE; break;
3742	#ifndef NOSPL
3743	case LOGW: y = ZWFILE; break;
3744	#endif /* NOSPL */
3745	case LOGX:
3746	case LOGE:
3747
3748	#ifndef MAC
3749	if (x == LOGE) fprintf(stderr,"%s",s);
3750	else
3751	#endif /* MAC */
3752	printf("%s",s);
3753	if (
3754	#ifndef NOSPL
3755	cmdlvl == 0
3756	#else
3757	tlevel == -1
3758	#endif /* NOSPL */
3759	)
3760	#ifndef MAC
3761	if (x == LOGE) fprintf(stderr,"\n");
3762	else
3763	#endif /* MAC */
3764	printf("\n");
3765	return(success = 1);
3766	default: return(-2);
3767	}
3768	if (chkfn(y) > 0) {
3769	x = (cx == XXWRI) ? zsout(y,s) : zsoutl(y,s);
3770	if (x < 0) printf("?Write error\n");
3771	} else {
3772	x = -1;
3773	printf("?File or log not open\n");
3774	}
3775	return(success = (x == 0) ? 1 : 0);
3776	}
3777	#endif /* NOFRILLS */
3778
3779	if (cx == XXASC \|\| cx == XXBIN) {
3780	if ((x = cmcfm()) < 0) return(x);
3781	binary = (cx == XXASC) ? XYFT_T : XYFT_B;
3782	return(success = 1);
3783	}
3784	#ifdef OS2
3785	if (cx == XXCLS) {
3786	if ((x = cmcfm()) < 0) return(x);
3787	clear();
3788	return(success = 1);
3789	}
3790	#endif /* OS2 */
3791
3792	#ifdef CK_MKDIR
3793	if (cx == XXMKDIR) {
3794	if ((x = cmofi("Name for new directory", "", &s, xxstring)) < 0)
3795	return(x);
3796	strcpy(line,s);
3797	if ((x = cmcfm()) < 0) return(x);
3798	/* Unfortunately, zmkdir() is not quite what we want here... */
3799	x =
3800	#ifdef OS2
3801	_mkdir(line)
3802	#else
3803	#ifdef UNIX
3804	mkdir(line,0777)
3805	#else
3806	-1
3807	#endif /* UNIX */
3808	#endif /* OS2 */
3809	;
3810	return(success = (x < 0) ? 0 : 1);
3811	}
3812	if (cx == XXRMDIR) {
3813	if ((x = cmofi("Name of empty directory to remove",
3814	"", &s, xxstring)) < 0)
3815	return(x);
3816	strcpy(line,s);
3817	if ((x = cmcfm()) < 0) return(x);
3818	x =
3819	#ifdef NT
3820	_rmdir(line)
3821	#else
3822	#ifdef UNIX
3823	rmdir(line)
3824	#else
3825	-1
3826	#endif /* UNIX */
3827	#endif /* NT */
3828	;
3829	return(success = (x < 0) ? 0 : 1);
3830	}
3831	#ifdef TCPSOCKET
3832	if (cx == XXTELOP) {
3833	if ((x = cmkey( telcmd, 4, "TELNET command", "", xxstring)) < 0 )
3834	return(x);
3835	if ((y = cmkey( tnopts, ntnopts, "TELNET option", "", xxstring)) < 0 )
3836	return(y);
3837	if ((z = cmcfm()) < 0) return(z);
3838	if (local) {
3839	return((tn_sopt(x,y) > -1) ? 1 : 0);
3840	} else {
3841	printf("ff%02x%02x\n",x,y);
3842	return(0);
3843	}
3844	}
3845	#endif /* TCPSOCKET */
3846
3847	#endif /* CK_MKDIR */
3848
3849	#ifndef NOPUSH
3850	if ( cx == XXNPSH ) {
3851	extern int nopush;
3852	#ifndef NOSERVER
3853	extern int en_hos;
3854	#endif /* NOSERVER */
3855	if ((z = cmcfm()) < 0) return(z);
3856	nopush = 1;
3857	#ifndef NOSERVER
3858	en_hos = 0;
3859	#endif /* NOSERVER */
3860	return(success = 1);
3861	}
3862	#endif /* NOPUSH */
3863
3864	#ifndef NOSPL
3865	if (cx == XXLOCAL) /* LOCAL variable declarations */
3866	return(success = dolocal());
3867	#endif /* NOSPL */
3868
3869	if (cx == XXKERMI) {
3870	char * list[64];
3871	extern char **xargv;
3872	extern int xargc;
3873	int i;
3874	if ((y = cmtxt("kermit command-line arguments, -h for help",
3875	"",&s,xxstring)) < 0)
3876	return(y);
3877	strcpy(line,"kermit ");
3878	strcat(line,s);
3879	xwords(line,64,list,0);
3880	for (i = 1; i < 64; i++) {
3881	if (!list[i])
3882	break;
3883	}
3884	i--;
3885	xargc = i;
3886	xargv = list;
3887	xargv++;
3888	if (sstate = cmdlin()) {
3889	proto();
3890	return(success);
3891	} else return(success = 1);
3892	}
3893	if (cx == XXDATE) {
3894	if ((z = cmcfm()) < 0) return(z);
3895	ztime(&s);
3896	printf("%s\n",s);
3897	return(success = 1);
3898	}
3899
3900	debug(F101,"docmd unk arg","",cx);
3901	return(-2); /* None of the above. */
3902	} /* end of docmnd() */
3903
3904	#endif /* NOICP */

Note: See TracBrowser for help on using the repository browser.

Download in other formats: