ckuus2.c

KERMIT工具 这在办公室下载不了,很多人都没有载不到.

" ",
"SET INPUT CASE { IGNORE, OBSERVE }",
"  Tells whether alphabetic case is to be significant in string comparisons.",
"  This setting is local to the current macro or command file, and is",
"  inherited by subordinate macros and take files.",
" ",
"SET INPUT ECHO { ON, OFF }",
"  Tells whether to display arriving characters read by INPUT on the screen.",
" ",
#ifdef CKFLOAT
"SET INPUT SCALE-FACTOR <number>",
"  A number to multiply all INPUT timeouts by, which may include a fractional",
"  part, e.g. 2.5.  All INPUT commands that specify a timeout in seconds",
"  (as opposed to a specific time of day) have their time limit adjusted",
"  automatically by this factor, which is also available in the built-in",
"  read-only variable \\v(inscale).  The default value is 1.0.",
" ",

#endif	/* CKFLOAT */

"SET INPUT SILENCE <number>",
"  The maximum number to seconds of silence (no input at all) before the",
"  INPUT command times out, 0 for no maximum.",
" ",
#ifdef OS2
"SET INPUT TERMINAL { ON, OFF }",
"  Determines whether the data received during an INPUT command is displayed",
"  in the terminal window.  Default is ON.",
" ",
#endif /* OS2 */
"SET INPUT TIMEOUT-ACTION { PROCEED, QUIT }",
"  Tells whether to proceed or quit from a script program if an INPUT command",
"  fails.  PROCEED (default) allows use of IF SUCCESS / IF FAILURE commands.",
"  This setting is local to the current macro or command file, and is",
"  inherited by subordinate macros and take files.",
"" };

static char *hxyfunc[] = {
"SET FUNCTION DIAGNOSTICS { ON, OFF }",
"  Whether to issue diagnostic messages for illegal function calls and",
"  references to nonexistent built-in variables.  ON by default.",
" ",
"SET FUNCTION ERROR { ON, OFF }",
"  Whether an illegal function call or reference to a nonexistent built-in",
"  variable should cause a command to fail.  OFF by default.",
"" };
#endif /* NOSPL */

static char *hxyxyz[] = {
#ifdef CK_XYZ
#ifdef XYZ_INTERNAL

/* This is for built-in protocols */

"Syntax: SET PROTOCOL { KERMIT, XMODEM, YMODEM, ZMODEM } [ s1 s2 [ s3 ] ]",
"  Selects protocol to use for transferring files.  String s1 is a command to",
"  send to the remote host prior to SENDing files with this protocol in",
"  binary mode; string s2 is the same thing but for text mode.  Use \"%\" in",
"  any of these strings to represent the filename(s).  If the protocol is",
"  KERMIT, you may also specify a string s3, the command to start a Kermit",
"  server on the remote host when you give a GET, REGET, REMOTE, or other",
"  client command.  Use { braces } if any command contains spaces.  Examples:",
" ",
"    set proto xmodem {rx %s} {rx -a %s}",
"    set proto kermit {kermit -YQir} {kermit -YQTr} {kermit -YQx}",

#else /* This is for when non-Kermit protocols are external */

"Syntax: \
SET PROTOCOL { KERMIT, XMODEM, YMODEM, ZMODEM } [ s1 s2 s3 s4 s5 s6 ]",
"  Selects protocol to use for transferring files.  s1 and s2 are commands to",
"  output prior to SENDing with this protocol, to automatically start the",
"  RECEIVE process on the other end in binary or text mode, respectively.",
"  If the protocol is KERMIT, s3 is the command to start a Kermit server on",
"  the remote computer, and there are no s4-s6 commands.  Otherwise, s3 and",
"  s4 are commands used on this computer for sending files with this protocol",
"  in binary or text mode, respectively; s5 and s6 are the commands for",
"  receiving files with this protocol.  Use \"%s\" in any of these strings",
"  to represent the filename(s).  Use { braces } if any command contains",
"  spaces.  Examples:",
" ",
"    set proto kermit {kermit -YQir} {kermit -YQTr} {kermit -YQx}",
"    set proto ymodem rb {rb -a} {sb %s} {sb -a %s} rb rb",
" ",
"External protocols require REDIRECT and external file transfer programs that",
"use redirectable standard input/output.",
#endif /* XYZ_INTERNAL */
#else
"Syntax: \
SET PROTOCOL KERMIT [ s1 [ s2 [ s3 ] ] ]",
"  Lets you specify the autoupload binary, autoupload text, and autoserver",
"  command strings to be sent to the remote system in advance of any SEND",
"  or GET commands.  By default these are \"kermit -ir\", \"kermit -r\", and",
"  \"kermit -x\".  Use { braces } around any command that contains spaces.",
"  Example:",
" ",
"    set proto kermit {kermit -Yir} {kermit -YTr} {kermit -Yx}",
#endif /* CK_XYZ */
" ",
"  SHOW PROTOCOL displays the current settings.",
""};

static char *hmxxbye = "Syntax: BYE\n\
  Shut down and log out a remote Kermit server";

#ifdef CK_PERMS
#ifdef UNIX
static char *hmxxchmod[] = {
"Syntax: CHMOD [ switches ] code filespec",
"  UNIX only.  Changes permissions of the given file(s) to the given code,",
"  which must be an octal number such as 664 or 775.  Optional switches:",
" ",
"   /FILES        Only change permissions of regular files.",
"   /DIRECTORIES  Only change permissions of directory files.",
"   /TYPE:BINARY  Only change permissions of binary files.",
"   /TYPE:TEXT    Only change permissions of text files.",
"   /DOTFILES     Include files whose names begin with dot (.).",
"   /RECURSIVE    Change permissions in subdirectories too.",
"   /LIST         List each file (synonym: /VERBOSE).",
"   /NOLIST       Operate silently (synonym: /QUIET).",
"   /PAGE         When listing, pause at end of each screen (implies /LIST).",
"   /NOPAGE       When listing, don't pause at end of each screen.",
"   /SIMULATE     Show what would be done but don't actually do it.",
""
};
#endif /* UNIX */
#endif /* CK_PERMS */

#ifndef NOSPL
#ifndef NOSEXP
static char *hmxxsexp[] = {
"Syntax: (operation operand [ operand [ ... ] ])",
" ",
"  C-Kermit includes a simple LISP-like S-Expression parser operating on",
"  numbers only.  An S-Expression is always enclosed in parentheses.  The",
"  parentheses can contain (a) a number, (b) a variable, (c) a function that",
"  returns a number, or (d) an operator followed by one or more operands.",
"  Operands can be any of (a) through (c) or an S-Expression.  Numbers can be",
"  integers or floating-point.  Any operand that is not a number and does not",
"  start with backslash (\\) is treated as a Kermit macro name.  Operators:",
" ",
" Operator  Action                                 Example           Value",
"  EVAL (.)  Returns the contained value            (6)               6",
"  QUOTE (') Inhibits evaluation of following value (quote a)         a",
"  SETQ      Assigns a value to a global variable   (setq a 2)        2",
"  LET       Assigns a value to a local variable    (let b -1.3)     -1.3",
"  +         Adds all operands (1 or more)          (+ a b)           0.7",
"  -         Subtracts all operands (1 or more)     (- 9 5 2 1)       1",
"  *         Multiplies all operands (1 or more)    (* a (+ b 1) 3)  -1.8",
"  /         Divides all operands (1 or more)       (/ b a 2)        -0.325",
"  ^         Raise given number to given power      (^ 3 2)           9",
"  ++        Increments a variable                  (++ a 1.2)        3.2",
"  --        Decrements a variable                  (-- a)            1",
"  ABS       Absolute value of 1 operand            (abs (* a b 3))   7.8",
"  MAX       Maximum of all operands (1 or more)    (max 1 2 3 4)     4",
"  MIN       Minimum of all operands (1 or more)    (min 1 2 3 4)     1",
"  MOD       Modulus of all operands (1 or more)    (mod 7 4 2)       1",
"  TRUNCATE  Integer part of floating-point operand (truncate 1.333)  1",
"  CEILING   Ceiling of floating-point operand      (ceiling 1.25)    2",
"  FLOOR     Floor of floating-point operand        (floor 1.25)      1",
"  ROUND     Operand rounded to nearest integer     (round 1.75)      2",
"  SQRT      Square root of 1 operand               (sqrt 2)          1.414..",
"  EXP       e (2.71828..) to the given power       (exp -1)          0.367..",
"  SIN       Sine of angle expressed in radians     (sin (/ pi 2))    1.0",
"  COS       Cosine of given number                 (cos pi)         -1.0",
"  TAN       Tangent of given number                (tan pi)          0.0",
"  LOG       Natural log (base e) of given number   (log 2.7183)      1.000..",
"  LOG10     Log base 10 of given number            (log10 1000)      3.0",
" ",
"Predicate operators return 0 if false, 1 if true, and if it is the outermost",
"operator, sets SUCCESS or FAILURE accordingly:",
" ",
"  <         Operands in strictly descending order  (< 6 5 4 3 2 1)   1",
"  <=        Operands in descending order           (<= 6 6 5 4 3 2)  1",
"  !=        Operands are not equal                 (!= 1 1 1.0)      0",
"  =   (==)  All operands are equal                 (= 3 3 3 3)       1",
"  >         Operands in strictly ascending order   (> 1 2 3 4 5 6)   1",
"  >=        Operands in ascending order            (> 1 1 2 3 4 5)   1",
"  AND (&&)  Operands are all true                  (and 1 1 1 1 0)   0",
"  OR  (||)  At least one operand is true           (or 1 1 1 1 0)    1",
"  XOR       Logical Exclusive OR                   (xor 3 1)         0",
"  NOT (!)   Reverses truth value of operand        (not 3)           0",
" ",
"Bit-oriented operators:",
" ",
"  &         Bitwise AND                            (& 7 2)           2",
"  |         Bitwise OR                             (| 1 2 3 4)       7",
"  #         Bitwise Exclusive OR                   (# 3 1)           2",
"  ~         Reverses all bits                      (~ 3)            -4",
" ",
"Operators that work on truth values:",
" ",
"  IF        Conditional evaluation                 (if (1) 2 3)      2",
" ",
"Operators can also be names of Kermit macros that return either numeric",
"values or no value at all.",
" ",
"Built-in constants are:",
" ",
"  t         True (1)",
"  nil       False (empty)",
"  pi        The value of Pi (3.1415926...)",
" ",
"If SET SEXPRESSION ECHO-RESULT is AUTO (the default), the value of the",
"S-Expression is printed if the S-Expression is given at top level; if ON,",
"it is printed at any level; if OFF it is not printed.  At all levels, the",
"variable \\v(sexpression) is set to the most recent S-Expression, and",
"\\v(svalue) is set to its value.  You can use the \\fsexpresssion() function",
"to evaluate an S-Expression anywhere in a Kermit command.",
""
};
#endif /* NOSEXP */
#endif /* NOSPL */

static char *hmxxgrep[] = {
#ifdef UNIXOROSK
"Syntax: GREP [ options ] pattern filespec",
#else
"Syntax: FIND [ options ] pattern filespec",
#endif /* UNIXOROSK */
"  Searches through the given file or files for the given character string",
"  or pattern.  In the normal case, all lines containing any text that matches"
,
"  the pattern are printed.  Pattern syntax is as described in HELP PATTERNS",
"  except that '*' is implied at the beginning unless the pattern starts with",
"  '^' and also at the end unless the pattern ends with '$'.  Therefore,",
"  \"grep something *.txt\" lists all lines in all *.txt files that contain",
"  the word \"something\", but \"grep ^something *.txt\" lists only the lines",
"  that START with \"something\".  The command succeeds if any of the given",
"  files contained any lines that match the pattern, otherwise it fails.",
#ifdef UNIXOROSK
"  Synonym: FIND.",
#else
"  Synonym: GREP.",
#endif /* UNIXOROSK */
" ",
"File selection options:",
"  /NOBACKUPFILES",
"    Excludes backup files (like oofa.txt.~3~) from the search.",
"  /DOTFILES",
"    Includes files whose names start with dot (.) in the search.",
"  /NODOTFILES",
"    Excludes files whose names start with dot (.) from the search.",
#ifdef RECURSIVE
"  /RECURSIVE",
"    Searches through files in subdirectories too.",
#endif /* RECURSIVE */
"  /TYPE:TEXT",
"    Search only text files (requires FILE SCAN ON).",
"  /TYPE:BINARY",
"    Search only binary files (requires FILE SCAN ON).",
" ",
"Pattern-matching options:",
"  /NOCASE",
"    Ignores case of letters (ASCII only) when comparing.",
"  /NOMATCH",
"    Searches for lines that do NOT match the pattern.",
" ",
"Display options:",
"  /COUNT:variable-name",
"    For each file, prints only the filename and a count of matching lines",
"    and assigns the total match count to the variable, if one is given.",
"  /NAMEONLY",
"    Prints the name of each file that contains at least one matching line,",
"    one name per line, rather than showing each matching line.",
"  /NOLIST",
"    Doesn't print anything (but sets SUCCESS or FAILURE appropriately).",
"  /LINENUMBERS",
"    Precedes each file line by its line number within the file.",
"  /PAGE",
"    Pauses after each screenful.",
"  /NOPAGE",
"    Doesn't pause after each screenful.",
"  /OUTPUT:name",
"    Sends results to the given file.  If this switch is omitted, the",
"    results appear on your screen.  This switch overrides any express or",
"    implied /PAGE switch.",
""};

static char *hmxxdir[] = {
#ifdef DOMYDIR
"Syntax: DIRECTORY [ switches ] [ filespec [ filespec [ ... ] ] ]",
#ifdef LOCUS
"  If LOCUS is REMOTE or LOCUS is AUTO and you have an FTP connection,",
"  this command is equivalent to REMOTE DIRECTORY (RDIR).  Otherwise:",
" ",
#endif /* LOCUS */
"  Lists local files.  The filespec may be a filename, possibly containing",
"  wildcard characters, or a directory name.  If no filespec is given, all",
"  files in the current directory are listed.  If a directory name is given,",
"  all the  files in it are listed.  Multiple filespecs can be given.",
"  Optional switches:",
" ",
"   /BRIEF           List filenames only.",
#ifdef CK_PERMS
"   /VERBOSE       + Also list permissions, size, and date.",
#else
"   /VERBOSE       + Also list date and size.",
#endif /* CK_PERMS */
"   /FILES           Show files but not directories.",
"   /DIRECTORIES     Show directories but not files.",
"   /ALL           + Show both files and directories.",
"   /ARRAY:&a        Store file list in specified array (e.g. \\%a[]).",
"   /PAGE            Pause after each screenful.",
"   /NOPAGE          Don't pause after each screenful.",
#ifdef UNIXOROSK
"   /DOTFILES        Include files whose names start with dot (period).",
"   /NODOTFILES    + Don't include files whose names start with dot.",
"   /FOLLOWLINKS     Follow symbolic links.",
"   /NOFOLLOWLINKS + Don't follow symbolic links.",
"   /BACKUP        + Include backup files (names end with .~n~).",
"   /NOBACKUPFILES   Don't include backup files.",
#endif /* UNIXOROSK */
"   /OUTPUT:file     Store directory listing in the given file.",
"   /HEADING         Include heading and summary.",
"   /NOHEADING     + Don't include heading or summary.",
"   /SUMMARY         Print only count and total size of matching files.",
"   /XFERMODE        Show pattern-based transfer mode (T=Text, B=Binary).",
"   /TYPE:           Show only files of the specified type (text or binary).",
"   /MESSAGE:text    Add brief message to each listing line.",
"   /NOMESSAGE     + Don't add message to each listing line.",
"   /NOXFERMODE    + Don't show pattern-based transfer mode",
"   /ISODATE       + In verbose listings, show date in ISO 8061 format.",
"   /ENGLISHDATE     In verbose listings, show date in \"English\" format.",
#ifdef RECURSIVE
"   /RECURSIVE       Descend through subdirectories.",
"   /NORECURSIVE   + Don't descend through subdirectories.",
#endif /* RECURSIVE */
"   /SORT:key        Sort by key, NAME, DATE, or SIZE; default key is NAME.",
"   /NOSORT        + Don't sort.",
"   /ASCENDING     + If sorting, sort in ascending order.",
"   /REVERSE         If sorting, sort in reverse order.",
" ",
"Factory defaults are marked with +.  Default for paging depends on SET",
"COMMAND MORE-PROMPTING.  Use SET OPTIONS DIRECTORY [ switches ] to change",
"defaults; use SHOW OPTIONS to display customized defaults.",
#else
"Syntax: DIRECTORY [ filespec ]",
"  Lists the specified file or files.  If no filespec is given, all files",
"  in the current director