Sisyphus repository
Last update: 1 october 2023 | SRPMs: 18631 | Visits: 37045430
en ru br
ALT Linux repos
S:5.45.4-alt4
5.0: 5.44-alt3
4.1: 5.44-alt2
4.0: 5.43-alt3
3.0: 5.43-alt1

Other repositories
Upstream:5.44.1

Group :: Development/Tcl
RPM: expect

 Main   Changelog   Spec   Patches   Sources   Download   Gear   Bugs and FR  Repocop 

Patch: expect-5.45.4-unification-of-usage-and-man-page.patch
Download


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);
 		}
 	}
 
design & coding: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
current maintainer: Michael Shigorin