expect/SOURCES/expect-5.45.4-unification-of-usage-and-man-page.patch
2022-05-17 09:16:28 +00:00

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);
}
}