68 lines
2.3 KiB
Diff
68 lines
2.3 KiB
Diff
|
diff -up expect5.45.4/expect.man.orig expect5.45.4/expect.man
|
||
|
|
--- expect5.45.4/expect.man.orig 2018-08-29 10:43:24.112949065 +0200
|
||
|
|
+++ expect5.45.4/expect.man 2018-08-29 10:45:47.652044587 +0200
|
||
|
|
@@ -4,7 +4,7 @@ expect \- programmed dialogue with inter
|
||
|
|
.SH SYNOPSIS
|
||
|
|
.B expect
|
||
|
|
[
|
||
|
|
-.B \-dDinN
|
||
|
|
+.B \-dDhinNv
|
||
|
|
]
|
||
|
|
[
|
||
|
|
.B \-c
|
||
|
|
@@ -180,6 +180,9 @@ problems when reading from a fifo or std
|
||
|
|
If the string "\-" is supplied as a filename, standard input is read instead.
|
||
|
|
(Use "./\-" to read from a file actually named "\-".)
|
||
|
|
.PP
|
||
|
|
+.B \-h
|
||
|
|
+causes Expect to print its usage message and exit.
|
||
|
|
+.PP
|
||
|
|
The
|
||
|
|
.B \-i
|
||
|
|
flag causes
|
||
|
|
diff -up expect5.45.4/exp_main_sub.c.orig expect5.45.4/exp_main_sub.c
|
||
|
|
--- expect5.45.4/exp_main_sub.c.orig 2018-02-04 11:43:58.000000000 +0100
|
||
|
|
+++ expect5.45.4/exp_main_sub.c 2018-08-29 11:04:44.307916140 +0200
|
||
|
|
@@ -72,7 +72,21 @@ usage(interp)
|
||
|
|
Tcl_Interp *interp;
|
||
|
|
{
|
||
|
|
char buffer [] = "exit 1";
|
||
|
|
- expErrorLog("usage: expect [-div] [-c cmds] [[-f] cmdfile] [args]\r\n");
|
||
|
|
+ expErrorLog("usage: expect [-dDhinNv] [-c cmds] [[-[f|b]] cmdfile] [args]\r\n"
|
||
|
|
+ " Flags are as follows:\r\n"
|
||
|
|
+ " -b prefaces a file from which to read commands from\r\n"
|
||
|
|
+ " (expect reads one line at a timei from the file)\r\n"
|
||
|
|
+ " -c prefaces a command to be executed before any in the script,\r\n"
|
||
|
|
+ " may be used multiple times\r\n"
|
||
|
|
+ " -d enables diagnostic output\r\n"
|
||
|
|
+ " -D enables interactive debugger\r\n"
|
||
|
|
+ " -f prefaces a file from which to read commands from\r\n"
|
||
|
|
+ " (expect reads the whole file at once)\r\n"
|
||
|
|
+ " -h prints this usage message and exits\r\n"
|
||
|
|
+ " -i interactively prompts for commands\r\n"
|
||
|
|
+ " -n expect doesn't read personal rc file\r\n"
|
||
|
|
+ " -N expect doesn't read system-wide rc file\r\n"
|
||
|
|
+ " -v prints version and exits\r\n");
|
||
|
|
|
||
|
|
/* SF #439042 -- Allow overide of "exit" by user / script
|
||
|
|
*/
|
||
|
|
@@ -700,7 +714,7 @@ char **argv;
|
||
|
|
* and generate a usage message.
|
||
|
|
*/
|
||
|
|
|
||
|
|
- while ((c = getopt(argc, argv, "+b:c:dD:f:inN-v")) != EOF) {
|
||
|
|
+ while ((c = getopt(argc, argv, "+b:c:dD:f:inN-vh")) != EOF) {
|
||
|
|
switch(c) {
|
||
|
|
case '-':
|
||
|
|
/* getopt already handles -- internally, however */
|
||
|
|
@@ -768,6 +782,9 @@ char **argv;
|
||
|
|
Tcl_Eval(interp, buffer);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
+ case 'h':
|
||
|
|
+ usage(interp);
|
||
|
|
+ break;
|
||
|
|
default: usage(interp);
|
||
|
|
}
|
||
|
|
}
|