ckuusr.c

C-Kermit源码。是使用串口/Modem和网络通讯的程序

    "write",       XXWRI, 0,		/* WRITE characters to a file */
    "write-line",  XXWRL, CM_INV,	/* WRITE a line to a file */
    "writeln",     XXWRL, CM_INV,	/* Pascalisch synonym for write-line */
#else
    "wr",          XXNOTAV, CM_INV,
    "wri",         XXNOTAV, CM_INV,
    "writ",        XXNOTAV, CM_INV,
    "write",       XXNOTAV, CM_INV,
    "write-line",  XXNOTAV, CM_INV,
    "writeln",     XXNOTAV, CM_INV,
#endif /* NOSPL */

#ifndef NOFRILLS
    "xecho",       XXXECH,0,		/* XECHO */
#endif /* NOFRILLS */

#ifndef NOSPL
    "xif",         XXIFX, CM_INV,	/* Extended IF command (obsolete) */
#else
    "xif",         XXNOTAV, CM_INV,
#endif /* NOSPL */

#ifndef NOCSETS
    "xlate",       XXXLA, CM_INV,	/* Synonym for TRANSLATE */
#else
    "xlate",       XXNOTAV, CM_INV,
#endif /* NOCSETS */

#ifndef NOXMIT
    "xmit",        XXTRA, CM_INV,	/* Synonym for TRANSMIT */
#else
    "xmit",        XXNOTAV, CM_INV,
#endif /* NOXMIT */

#ifndef OS2
#ifndef NOJC
    "z",           XXSUS, CM_INV,	/* Synonym for SUSPEND */
#else
    "z",           XXNOTAV, CM_INV,
#endif /* NOJC */
#endif /* OS2 */

#ifdef CK_RECALL
    "^",           XXREDO,CM_INV|CM_NOR, /* Synonym for REDO */
#endif /* CK_RECALL */
#ifndef NOSPL
    "_asg",        XXASX,   CM_INV,	/* Used internally by FOR, etc */
    "_assign",     XXASX,   CM_INV,	/* Used internally by FOR, etc */
    "_decrement",  XX_DECR, CM_INV,
    "_define",     XXDFX,   CM_INV,	/* Used internally by FOR, etc */
    "_evaluate",   XX_EVAL, CM_INV,
    "_forward",    XXXFWD,  CM_INV,	/* Used internally by SWITCH   */
    "_getargs",    XXGTA,   CM_INV,	/* Used internally by FOR, etc */
    "_increment",  XX_INCR, CM_INV,
    "_putargs",    XXPTA,   CM_INV,	/* Used internally by FOR, etc */
#endif /* NOSPL */
      "", 0, 0
};
int ncmd = (sizeof(cmdtab) / sizeof(struct keytab)) - 1;

char toktab[] = {
#ifndef NOPUSH
    '!',				/* Shell escape */
#endif /* NOPUSH */
    '#',				/* Comment */
#ifndef NOSPL
    '.',				/* Assignment */
#endif /* NOSPL */
    ';',				/* Comment */
#ifndef NOSPL
    ':',				/* Label */
#endif /* NOSPL */
#ifndef NOPUSH
#ifdef CK_REDIR
    '<',				/* REDIRECT */
#endif /* CK_REDIR */
    '@',				/* DCL escape */
#endif /* NOPUSH */
#ifdef CK_RECALL
    '^',				/* Command recall */
#endif /* CK_RECALL */
#ifndef NOSPL
    '{',				/* Immediate macro */
#endif /* NOSPL */
    '\0'				/* End of this string */
};
int xxdot = 0;				/* Used with "." token */

struct keytab yesno[] = {		/* Yes/No keyword table */
    "no",    0, 0,
    "ok",    1, 0,
    "yes",   1, 0
};
int nyesno = (sizeof(yesno) / sizeof(struct keytab));

/* Save keyword table */

struct keytab savtab[] = {
#ifdef OS2
    "command",  XSCMD, 0,
#endif /* OS2 */
#ifndef NOSETKEY
    "keymap",   XSKEY, 0,
#endif	/* NOSETKEY */
#ifdef OS2
    "terminal", XSTERM, 0,
#endif /* OS2 */
	"", 	0, 	0
};
int nsav = (sizeof(savtab) / sizeof(struct keytab)) - 1;

/* Parameter keyword table */

struct keytab prmtab[] = {
    "alarm",            XYALRM,  0,
    "ask-timer",        XYTIMER, 0,
#ifndef NOXFER
    "attributes",       XYATTR,  0,
#endif /* NOXFER */
#ifdef CK_AUTHENTICATION
    "authentication",   XYAUTH,  0,
#else /* CK_AUTHENTICATION */
#ifdef CK_SSL
    "authentication",   XYAUTH,  0,
#endif /* CK_SSL */
#endif /* CK_AUTHENTICATION */
    "b",		XYBACK,  CM_INV|CM_ABR,
    "ba",		XYBACK,  CM_INV|CM_ABR,
#ifdef VMS
    "background",       XYBACK,  CM_INV,
    "batch",            XYBACK,  0,
#else
    "background",       XYBACK,  0,
    "batch",            XYBACK,  CM_INV,
#endif /* VMS */
#ifndef NOLOCAL
    "baud",	        XYSPEE,  CM_INV,
#endif /* NOLOCAL */
    "bell",             XYBELL,  0,
#ifndef NOXFER
    "block-check",  	XYCHKT,  0,
#endif /* NOXFER */
#ifdef OS2
#ifdef BPRINT
    "bprinter",         XYBDCP,  CM_INV,
#endif /* BPRINT */
#endif /*  OS2 */
#ifdef BROWSER
    "browser",          XYBROWSE,0,
#endif /* BROWSER */
#ifndef NOXFER
#ifdef DYNAMIC
    "buffers",          XYBUF,   0,
#endif /* DYNAMIC */
#endif /* NOXFER */
#ifndef NOLOCAL
#ifndef MAC
    "carrier-watch",    XYCARR,  0,
#endif /* MAC */
#endif /* NOLOCAL */
#ifndef NOSPL
    "case",             XYCASE,  0,
#endif /* NOSPL */
    "cd",               XYCD,    0,
#ifndef NOXFER
    "cl",               XYCLEAR, CM_INV|CM_ABR,
    "cle",              XYCLEAR, CM_INV|CM_ABR,
    "clea",             XYCLEAR, CM_INV|CM_ABR,
    "clear",            XYCLEAR, CM_INV|CM_ABR,
    "clear-channel",    XYCLEAR, 0,
    "clearchannel",     XYCLEAR, CM_INV,
#endif /* NOXFER */
#ifndef NOLOCAL
    "close-on-disconnect", XYDISC, CM_INV,
#endif /* NOLOCAL */
    "cmd",              XYCMD,   CM_INV,
    "command",          XYCMD,   0,
#ifdef CK_SPEED
    "con",              XYQCTL,  CM_INV|CM_ABR,
#endif /* CK_SPEED */
    "console",          XYCMD,   CM_INV,
#ifdef CK_SPEED
    "control-character",XYQCTL,  0,
#endif /* CK_SPEED */
#ifndef NOSPL
    "count",            XYCOUN,  0,
#endif /* NOSPL */
#ifndef NOXFER
    "d",		XYDELA,  CM_INV|CM_ABR,
    "de",		XYDELA,  CM_INV|CM_ABR,
#endif /* NOXFER */
    "debug",            XYDEBU,  CM_INV,
#ifdef VMS
    "default",          XYDFLT,  0,
#else
#ifndef MAC
    "default",          XYDFLT,  CM_INV,
#endif /* MAC */
#endif /* VMS */
#ifndef NOXFER
    "delay",	    	XYDELA,  0,
    "destination",	XYDEST,  0,
#endif /* NOXFER */
#ifndef NODIAL
    "di",		XYDIAL,  CM_INV|CM_ABR,
    "dia",		XYDIAL,  CM_INV|CM_ABR,
    "dial",             XYDIAL,  0,
#endif /* NODIAL */
#ifdef OS2
    "dialer",		XYDLR,   CM_INV,
#endif /* OS2 */
#ifndef NOLOCAL
    "disconnect",       XYDISC,  0,
    "duplex",	    	XYDUPL,  0,
#endif /* NOLOCAL */
#ifndef NOPUSH
#ifndef NOFRILLS
    "editor",           XYEDIT,  0,
#endif /*  NOFRILLS */
#endif /* NOPUSH */
#ifdef CK_CTRLZ
    "eof",              XYEOF,   CM_INV,
#endif /* CK_CTRLZ */
#ifndef NOLOCAL
    "escape-character", XYESC,   0,
#endif /* NOLOCAL */
#ifndef NOSPL
    "evaluate",         XYEVAL,  CM_INV,
#endif /* NOSPL */
    "exit",		XYEXIT,  0,
#ifndef NOXFER
    "f-ack-bug",        XYFACKB, CM_INV,
    "f-ack-path",       XYFACKP, CM_INV,
#endif /* NOXFER */
    "file", 	  	XYFILE,  0,
    "fl",           	XYFLOW,  CM_INV|CM_ABR,
#ifndef NOSPL
    "flag",             XYFLAG,  0,
#endif /* NOSPL */
#ifdef BROWSER
    "ftp-client",       XYFTP,   0,
#endif /* BROWSER */
    "flow-control", 	XYFLOW,  0,
#ifndef NOSPL
    "function",         XYFUNC,  0,
#endif /* NOSPL */
    "handshake",    	XYHAND,  0,
    "hints",            XYHINTS, 0,
#ifdef NETCONN
    "host",             XYHOST,  0,
#endif /* NETCONN */
#ifndef NOSPL
    "i",		XYINPU,  CM_INV|CM_ABR,
    "in",		XYINPU,  CM_INV|CM_ABR,
#endif /* NOSPL */
#ifndef NOXFER
    "incomplete",   	XYIFD,   CM_INV,
#endif /* NOXFER */
#ifndef NOSPL
    "input",            XYINPU,  0,
#endif /* NOSPL */
#ifndef NOSETKEY
    "key",		XYKEY,   0,
#endif /* NOSETKEY */
    "l",                XYLINE,  CM_INV|CM_ABR,
#ifndef NOCSETS
    "language",         XYLANG,  0,
#endif /* NOCSETS */
#ifndef NOLOCAL
    "line",             XYLINE,  0,
    "local-echo",	XYLCLE,  CM_INV,
#endif /* NOLOCAL */
#ifndef NOSPL
    "login",		XYLOGIN, 0,
#endif /* NOSPL */
#ifndef NOSPL
    "macro",            XYMACR,  0,
#endif /* NOSPL */
#ifdef COMMENT
#ifdef VMS
    "messages",         XYMSGS,  0,
#endif /* VMS */
#endif /* COMMENT */
#ifndef NODIAL
    "modem",		XYMODM,	 0,
#endif /* NODIAL */
#ifndef NOLOCAL
#ifdef OS2MOUSE
    "mouse",		XYMOUSE, 0,
#endif /* OS2MOUSE */
#endif /* NOLOCAL */
#ifdef OS2
    "mskermit",         XYMSK,   0,
#endif /* OS2 */
#ifdef NETCONN
    "network",          XYNET,   0,
#endif /* NETCONN */
#ifndef NOSPL
    "output",           XYOUTP,  0,
#endif /* NOSPL */
    "options",          XYOPTS,  0,
    "pause",            XYSLEEP, CM_INV,
#ifdef ANYX25
#ifndef IBMX25
    "pad",              XYPAD,   0,
#endif /* IBMX25 */
#endif /* ANYX25 */
    "parity",	    	XYPARI,   0,
#ifndef NOLOCAL
#ifdef OS2
    "port",             XYLINE,   0,
#else
    "port",             XYLINE,   CM_INV,
#endif /* OS2 */
#endif /* NOLOCAL */
#ifndef NOFRILLS
    "pr",   	    	XYPROM,  CM_INV|CM_ABR,
    "printer",          XYPRTR,  0,
#endif /* NOFRILLS */
#ifdef OS2
    "priority",         XYPRTY,  0,
#endif /* OS2 */
#ifdef CK_SPEED
    "prefixing",        XYPREFIX, 0,
#endif /* CK_SPEED */
#ifndef NOFRILLS
    "prompt",	    	XYPROM,  0,
#endif /* NOFRILLS */
#ifndef NOXFER
    "protocol",		XYPROTO, 0,
#endif /* NOXFER */
    "q",		XYQUIE,  CM_INV|CM_ABR,
#ifndef NOXFER
    "q8flag",           XYQ8FLG, CM_INV,
#endif /* NOXFER */
#ifdef QNX
    "qnx-port-lock",    XYQNXPL, 0,
#else
    "qnx-port-lock",    XYQNXPL, CM_INV,
#endif /* QNX */
    "quiet",		XYQUIE,  0,
#ifndef NOXFER
    "rec",              XYRECV,  CM_INV|CM_ABR,
    "receive",          XYRECV,  0,
    "recv",             XYRECV,  CM_INV,
#endif /* NOXFER */
    "reliable",         XYRELY,  0,
#ifndef NOXFER
    "repeat",           XYREPT,  0,
    "retry-limit",      XYRETR,  0,
#endif /* NOXFER */
#ifndef NOSCRIPT
    "script",		XYSCRI,  0,
#endif /* NOSCRIPT */
#ifndef NOXFER
    "send",             XYSEND,  0,
#ifndef NOLOCAL
#ifndef NOSERVER
    "ser",              XYSERV,  CM_INV|CM_ABR,
#endif /* NOSERVER */
#endif /* NOXFER */
    "serial",           XYSERIAL,0,
#endif /* NOLOCAL */
#ifndef NOSERVER
    "server",           XYSERV,  0,
#endif /* NOSERVER */
#ifdef SESLIMIT
#ifndef NOLOCAL
    "session-l",        XYSESS,  CM_INV|CM_ABR,
#endif /* NOLOCAL */
    "session-limit",    XYLIMIT, CM_INV,        /* Session Limit */
#endif /* SESLIMIT */

#ifndef NOLOCAL
#ifdef OS2ORUNIX
    "session-log",      XYSESS,  0,
#else
#ifdef OSK
    "session-log",      XYSESS,  0,
#endif /* OSK */
#endif /* OS2ORUNIX */
#endif /* NOLOCAL */

    "sleep",            XYSLEEP, 0,

#ifndef NOLOCAL
    "speed",	        XYSPEE,  0,
#endif /* NOLOCAL */

#ifndef NOSPL
    "startup-file",     XYSTARTUP, CM_INV,
#endif /* NOSPL */

#ifndef NOLOCAL
#ifdef HWPARITY
    "stop-bits",        XYSTOP, 0,
#endif /* HWPARITY */
#endif /* NOLOCAL */

#ifndef NOXFER
#ifdef STREAMING
    "streaming",        XYSTREAM, 0,
#endif /* STREAMING */
#endif /* NOXFER */

#ifndef NOJC
    "suspend",          XYSUSP,  0,
#endif /* NOJC */
#ifdef CKSYSLOG
    "syslog",           XYSYSL,  CM_INV,
#endif /* CKSYSLOG */
    "take",             XYTAKE,  0,

#ifdef CK_TAPI
    "tapi",             XYTAPI,  0,
#endif /* CK_TAPI */

#ifndef NOTCPOPTS
#ifdef TCPSOCKET
    "tcp",              XYTCP, 0,
#endif /* TCPSOCKET */
#endif /* NOTCPOPTS */

#ifdef TNCODE
    "tel",              XYTEL,   CM_INV|CM_ABR,
    "telnet",           XYTEL,   0,
    "telopt",           XYTELOP, 0,
#endif /* TNCODE */

#ifndef NOSPL
    "temp-directory",   XYTMPDIR,0,
#endif /* NOSPL */

#ifndef NOLOCAL
    "terminal",         XYTERM,  0,
#endif /* NOLOCAL */

#ifdef OS2
    "title",		XYTITLE, 0,
#endif /* OS2 */
#ifdef TLOG
    "transaction-log",  XYTLOG,  0,
#endif /* TLOG */
#ifndef NOXFER
    "transfer",         XYXFER,  0,
#endif /* NOXFER */
#ifndef NOXMIT
    "transmit",         XYXMIT,  0,
#endif /* NOXMIT */
#ifndef NOXFER
#ifndef NOCSETS
    "unknown-char-set", XYUNCS,  0,
#endif /* NOCSETS */
#endif /* NOXFER */
    "wait",             XYSLEEP, CM_INV,
#ifndef NOPUSH
#ifdef UNIX
    "wildcard-expansion", XYWILD, 0,
#endif /* UNIX */
#endif /* NOPUSH */
#ifdef NT
    "w",                XYWIND,  CM_INV|CM_ABR,
    "wi",               XYWIND,  CM_INV|CM_ABR,
    "win",              XYWIND,  CM_INV|CM_ABR,
#endif /* NT */
    "window-size",      XYWIND,  0,
#ifdef NT
    "win95",            XYWIN95, 0,
#endif /* NT */
#ifdef ANYX25
    "x.25",             XYX25,   0,
    "x25",              XYX25,   CM_INV,
#endif /* ANYX25 */
    "xfer",             XYXFER,  CM_INV,
#ifndef NOXMIT
    "xmit",             XYXMIT,  CM_INV,
#endif /* NOXMIT */
    "", 0, 0
};
int nprm = (sizeof(prmtab) / sizeof(struct keytab)) - 1; /* How many */

struct keytab scntab[] = {
    "clear",   SCN_CLR, 0,
    "cleol",   SCN_CLE, 0,
    "move-to", SCN_MOV, 0
};
int nscntab = (sizeof(scntab) / sizeof(struct keytab)); /* How many */

/* Table of networks */
#ifdef NETCONN
struct keytab netkey[] = {
    "directory",     XYNET_D,  0,
    "type",          XYNET_T,  0