ckuus2.c

linux终端仿真程序

"Syntax: PAD command",
"X.25 PAD commands:\n",
"    PAD CLEAR     - Clear the virtual call",
"    PAD STATUS    - Return the status of virtual call",
"    PAD RESET     - Send a reset packet",
"    PAD INTERRUPT - Send an interrupt packet",
""};

static char *hxyx25[] = {
"Syntax: SET X.25 option { ON [ data ], OFF }\n",
"X.25 call options:",
"  CLOSED-USER-GROUP { ON index, OFF }",
"    Enable or disable closed user group call, where index is the group",
"    index, 0 to 99.",
"  REVERSE-CHARGE { ON, OFF }",
"    Tell whether you want to reverse the charges for the call.",
"  CALL-USER-DATA { ON string, OFF }",
"    Specify call user-data for the X.25 call.",
""};
#endif /* ANYX25 */

#ifdef OS2
static char *hxyprtr[] = {
"Syntax: SET PRINTER filename\n",
"Where to send transparent-print and screen-dump material during CONNECT.",
"Default is PRN.  You can also specify a disk file name, in which case the",
"given file is created if it does not exist, or is appended to if it already",
"exists.  Use SET PRINTER NUL to discard transparent print and screen-dump",
"material.  SHOW PRINTER displays the current setting.  Note: SET PRINTER",
"does not affect the PRINT command.",
""};
#endif /* OS2 */

static char *hxyexit[] = {
"Syntax: SET EXIT ON-DISCONNECT { ON, OFF }",
"  When ON, C-Kermit EXITs automatically when a network connection",
"  is terminated either by the host or by issuing a HANGUP command.",
"  This command is not currently supported on serial connections.\n",
"Syntax: SET EXIT STATUS number",
#ifdef NOSPL
"  Set C-Kermit's program return code to the given number.",
#else
"  Set C-Kermit's program return code to the given number, which can be a",
"  constant, variable, or an \\feval() expression.",
#endif /* NOSPL */
"\nSyntax: SET EXIT WARNING { ON, OFF, ALWAYS }", 
"  When EXIT WARNING is ON, issue a warning message and ask for confirmation",
"  before EXITing if a connection to another computer might still be open.",
"  When EXIT WARNING is ALWAYS, confirmation is always requested.  The",
"  default is ON.",
"" };

#ifndef NOSPL
static char *hxxpau[] = {
"Syntax:  PAUSE [ { number-of-seconds, hh:mm:ss } ]",
"Example: PAUSE 3  or  PAUSE 14:52:30\n",
"Do nothing for the specified number of seconds or until the given time of",
"day in 24-hour hh:mm:ss notation.  If the time of day is earlier than the",
"current time, it is assumed to be tomorrow.  If no argument given, one",
"second is used.  The pause can be interrupted by typing any character on the",
"keyboard.  If interrupted, PAUSE fails, otherwise it succeeds.",
"Synonym: SLEEP.",
"" };

static char *hxxmsl[] = {
"Syntax:  MSLEEP [ number ]",
"Example: MSLEEP 500\n",
"Do nothing for the specified number of milliseconds; if no number given,",
"100 milliseconds.","" };
#endif /* NOSPL */

#ifndef NOPUSH
extern int nopush;
static char *hxxshe[] = {
"Syntax: ! [ command ] or RUN [ command ] or PUSH [ command ]\n",
"Give a command to the local operating system's command processor, and",
"display the results on the screen.\n",
"If the command is omitted, enter interactive mode; return to Kermit",
"by exiting from the system's command parser.  The command is usually",
"EXIT or QUIT or LOGOUT.",  "" };
#endif /* NOPUSH */

#ifndef NOXMIT
static char *hxxxmit[] = {
"Syntax: TRANSMIT file\n",
"The TRANSMIT command is used for sending single files to other computers",
"that don't have Kermit.  Text files are sent a line at a time; binary files",
"are sent a character at a time.  There is no guarantee that the other",
"computer will receive the file correctly and completely.  Before you start",
"the TRANSMIT command, you must put the other computer in data collection",
"mode, for example by starting a text editor.  TRANSMIT may be interrupted by",
"Ctrl-C.  Synonym: XMIT.",
"" };
#endif /* NOXMIT */

#ifndef NOCSETS
static char *hxxxla[] = {
"Syntax: TRANSLATE file1 cs1 cs2 [ file2 ]\n",
"Translates file1 from the character set cs1 into the character set cs2",
"and stores the result in file2.  The character sets can be any of",
"C-Kermit's file character sets.  If file2 is omitted, the translation",
"is displayed on the screen.  An appropriate intermediate character-set",
"is chosen automatically, if necessary.",
"Synonym: XLATE.  Example:\n",
"TRANSLATE lasagna.lat latin1 italian lasagna.nrc",
"" };
#endif /* NOCSETS */

#ifndef NOSPL
static char *hxxwai[] = {
"Syntax:  WAIT { number-of-seconds, hh:mm:ss } [modem-signal(s)]",
"Example: WAIT 5 \\cd \\cts",
"Or:      WAIT 23:59:59 \\cd",
"Waits up to the given number of seconds or the given time of day for all of",
"the specified modem signals to appear on the serial communication device.",
"Sets FAILURE if signals do not appear in the given time or if interrupted by",
"typing anything at the keyboard during the waiting period.\n",
"Signals: \\cd = Carrier Detect, \\dsr = Dataset Ready, \\cts = Clear To Send",
"" };
#endif /* NOSPL */

static char *hxxwri[] = {
"Syntax: WRITE name text\n",
"Writes the given text to the named log or file.  The text text may include",
"backslash codes, and is not terminated by a newline unless you include the",
"appropriate code.  The name parameter can be any of the following:\n",
"  DEBUG-LOG",
"  ERROR (standard error)",
#ifndef NOSPL
"  FILE (the OPEN WRITE, OPEN !WRITE, or OPEN APPEND file, see HELP OPEN)",
#endif /* NOSPL */
"  PACKET-LOG",
"  SCREEN (compare with ECHO)",
#ifndef NOLOCAL
"  SESSION-LOG",
#endif /* NOLOCAL */
"  TRANSACTION-LOG", "" };

#ifndef NODIAL
static char *hxxlook[] = { "Syntax: LOOKUP name\n",
"Looks up the given name in the dialing directory or directories, if any,",
"specified in the most recent SET DIAL DIRECTORY command.  Each matching",
"entry is shown, along with any transformations that would be applied to",
"portable-format entries based on your locale.  HELP DIAL, HELP SET DIAL",
"for further info.",
""
};

static char *hxxansw[] = { "Syntax:  ANSWER [ <seconds> ]\n",
#ifdef OS2
"Waits for a modem call to come in.  Prior SET MODEM TYPE and SET PORT", 
#else
"Waits for a modem call to come in.  Prior SET MODEM TYPE and SET LINE", 
#endif /* OS2 */
"required.  If <seconds> is 0 or not specified, Kermit waits forever or until",
"interrupted, otherwise Kermit waits the given number of seconds.  The ANSWER",
"command puts the modem in autoanswer mode.  Subsequent DIAL commands will",
"automatically put it (back) in originate mode.  SHOW MODEM, HELP SET MODEM",
"for more info.",
""
};

static char *hxxdial[] = { "Syntax:  DIAL phonenumber",
"Example: DIAL 7654321\n",
"Dials a number using an autodial modem.  First you must SET MODEM, then",
#ifdef OS2
"SET PORT, then SET SPEED.  Then give the DIAL command, including the phone",
#else
"SET LINE, then SET SPEED.  Then give the DIAL command, including the phone",
#endif /* OS2 */
"number, for example:\n",
"  DIAL 7654321\n",
#ifdef NETCONN
"If the modem is on a network modem server, SET HOST first, then SET MODEM,",
"then DIAL.  See also SET DIAL, SET MODEM, SET LINE, SET HOST, SET SPEED,",
"and REDIAL.\n",
#else
"See also SET DIAL, SET MODEM, SET LINE, SET SPEED, REDIAL.\n",
#endif /* NETCONN */
"If the phonenumber starts with a letter, and if you have used the SET DIAL",
"DIRECTORY command to specify one or more dialing-directory files, Kermit",
"looks it up in the given file(s); if it is found, the name is replaced by",
"the number or numbers associated with the name.  If it is not found, the",
"name is sent to the modem literally.\n",
"If the phonenumber starts with an equals sign (\"=\"), this forces the part",
"after the = to be send literally to the modem, even if it starts with a",
"letter, without any directory lookup.\n",
"A dialing directory is a plain text file, one entry per line:\n",
"  name  phonenumber  ;  comments\n",
"for example:\n",
"  work    9876543              ; This is a comment",
"  e-mail  +1  [phone]   ; My electronic mailbox",
"  heise   [phone]   ; Verlag Heinz Heise BBS\n",
"If a phone number starts with +, then it must include country code and",
"area code, and C-Kermit will try to handle these appropriately based on",
"the current locale (HELP SET DIAL for further info); these are called",
"PORTABLE entries.  If it does not start with +, it is dialed literally.\n",
"If more than one entry is found with the same name, Kermit dials all of",
"them until the call is completed; if the entries are in portable format,",
"Kermit dials then in cheap-to-expensive order: internal, then local, then",
"long-distance, then international, based on its knowledge of your local",
"country code and area code (see HELP SET DIAL).\n",
"Specify your dialing directory file(s) with the SET DIAL DIRECTORY command.",
 "" };
#endif /* NODIAL */

#endif /* NOHELP */

/*  D O H L P  --  Give a help message  */
 
_PROTOTYP( int dohset, (int) );

int
dohlp(xx) int xx; {
    int x,y;
 
    debug(F101,"DOHELP xx","",xx);
    if (xx < 0) return(xx);

    switch (xx) {
 
#ifdef NOHELP

case XXHLP:
    if ((x = cmcfm()) < 0)
      return(x);
    printf("\n%s, Copyright (C) 1985, 1996,",versio);
    return(hmsga(tophlp));

#else /* help is available */

#ifndef NOSPL
case XXASS:				/* assign */
    return(hmsga(hxxass));

case XXASK:				/* ask */
    return(hmsga(hxxask));

case XXASKQ:
    return(hmsga(hxxaskq));

case XXAPC:
    return(hmsg("Syntax: APC text\n\
Echoes the text in the form of a VT220/320/420 Application Program Command.\n\
Use the APC command to send commands to MS-DOS Kermit 3.13 or later."));
#endif /* NOSPL */

#ifndef NOFRILLS
case XXBUG:
    return(hmsg("Describes how to get technical support."));
#endif /* NOFRILLS */

#ifndef NOSPL
case XXBEEP:
#ifdef OS2
    return(hmsg("Syntax: BEEP [ { ERROR, INFORMATION, WARNING } ]\n\
Generates a bell according to the current settings.  If SET BELL is set to\n\
\"system-sounds\" then the appropriate System Sound will be generated.\n\
Default is INFORMATION."));
#else /* OS2 */
    return(hmsg("Syntax: BEEP\n\
Sends a BEL character to your terminal."));
#endif /* OS2 */
#endif /* NOSPL */

case XXBYE:				/* BYE */
    return(hmsg(hmxxbye));
 
case XXCHK:				/* check */
    return(hmsg("\
Syntax: CHECK name\n\
Checks to see if the named feature is included in this version of C-Kermit.\n\
To list the features you can check, type \"check ?\"."));

#ifndef NOFRILLS
case XXCLE:				/* clear */
#ifdef OS2
    return(hmsg("\
Syntax: CLEAR [ { COMMAND-SCREEN, DEVICE, DEVICE-AND-INPUT, INPUT,\n\
                  SCROLLBACK, SEND-LIST, TERMINAL-SCREEN } ]\n\
COMMAND-SCREEN clears the current command screen\n\
DEVICE clears the current port or network input buffer\n\
DEVICE-AND-INPUT, the default, clears both the device and the INPUT buffer\n\
INPUT clears the INPUT command buffer\n\
SCROLLBACK empties the scrollback buffer including the current screen\n\
SEND-LIST clears the current SEND list (see ADD)\n\
TERMINAL-SCREEN clears the current screen a places it into the scrollback\n\
    buffer."));
#else /* not OS2 */    
    return(hmsg("\
Syntax: CLEAR [ { DEVICE, INPUT, DEVICE-AND-INPUT, DIAL-STATUS, SEND-LIST }\
 ]\n\
Clears the communications device input buffer, the INPUT command buffer,\n\
or both.  CLEAR SEND-LIST clears the SEND list (see ADD).  CLEAR DIAL-STATUS\n\
clears the \\v(dialstatus) variable.  The default is DEVICE-AND-INPUT."));
#endif /* OS2 */
#endif /* NOFRILLS */

case XXCLO:				/* close */
    return(hmsga(hmxxclo));
 
case XXCOM:				/* comment */
#ifndef STRATUS /* Can't use # for comments in Stratus VOS */
    return(hmsg("\
Syntax: COMMENT text\n\
Example: COMMENT - this is a comment.\n\n\
Introduces a comment.  Beginning of command line only.  Commands may also\n\
have trailing comments, introduced by ; or #."));
#else
    return(hmsg("\
Syntax: COMMENT text\n\
Example: COMMENT - this is a comment.\n\n\
Introduces a comment.  Beginning of command line only.  Commands may also\n\
have trailing comments, introduced by ; (semicolon)."));
#endif /* STRATUS */

#ifndef NOLOCAL
case XXCON:				/* connect */
    hmsga(hmxxcon);
    printf("Your escape character is Ctrl-%c (ASCII %d, %s)\r\n",
	   ctl(escape), escape, (escape == 127 ? "DEL" : ccntab[escape]));
    return(0);
#endif /* NOLOCAL */
 
#ifndef NOFRILLS
c