You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
67 lines
2.3 KiB
67 lines
2.3 KiB
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); |
|
} |
|
}
|
|
|