import expect-5.45.4-15.el9
This commit is contained in:
commit
a9dc4193e8
1
.expect.metadata
Normal file
1
.expect.metadata
Normal file
@ -0,0 +1 @@
|
|||||||
|
a97b2f377c6a799928d6728c2ada55beb7f57d96 SOURCES/expect5.45.4.tar.gz
|
1
.gitignore
vendored
Normal file
1
.gitignore
vendored
Normal file
@ -0,0 +1 @@
|
|||||||
|
SOURCES/expect5.45.4.tar.gz
|
19
SOURCES/expect-5.32.2-random.patch
Normal file
19
SOURCES/expect-5.32.2-random.patch
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
diff -up expect-5.44.1.15/example/mkpasswd.orig expect-5.44.1.15/example/mkpasswd
|
||||||
|
--- expect-5.44.1.15/example/mkpasswd.orig 2010-03-08 16:01:05.518378075 +0100
|
||||||
|
+++ expect-5.44.1.15/example/mkpasswd 2010-03-08 16:01:27.408388162 +0100
|
||||||
|
@@ -92,7 +92,14 @@ proc insert {pvar char} {
|
||||||
|
}
|
||||||
|
|
||||||
|
proc rand {m} {
|
||||||
|
- expr {int($m*rand())}
|
||||||
|
+ set device /dev/urandom ;# /dev/random can block
|
||||||
|
+ set fileId [open $device r]
|
||||||
|
+ binary scan [read $fileId 4] i1 number
|
||||||
|
+ set clipped [expr $number % $m]
|
||||||
|
+# puts "number is $number"
|
||||||
|
+# puts "clipped is $clipped"
|
||||||
|
+ close $fileId
|
||||||
|
+ return $clipped
|
||||||
|
}
|
||||||
|
|
||||||
|
# choose left or right starting hand
|
12
SOURCES/expect-5.43.0-log_file.patch
Normal file
12
SOURCES/expect-5.43.0-log_file.patch
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
diff -up expect5.45.4/exp_log.c.orig expect5.45.4/exp_log.c
|
||||||
|
--- expect5.45.4/exp_log.c.orig 2018-02-02 20:15:52.000000000 +0100
|
||||||
|
+++ expect5.45.4/exp_log.c 2018-06-27 10:46:53.065655463 +0200
|
||||||
|
@@ -499,7 +499,7 @@ expLogChannelOpen(interp,filename,append
|
||||||
|
Tcl_DStringAppend(&tsdPtr->logFilename,filename,-1);
|
||||||
|
}
|
||||||
|
|
||||||
|
- tsdPtr->logChannel = Tcl_OpenFileChannel(interp,newfilename,mode,0777);
|
||||||
|
+ tsdPtr->logChannel = Tcl_OpenFileChannel(interp,newfilename,mode,0666);
|
||||||
|
if (!tsdPtr->logChannel) {
|
||||||
|
Tcl_DStringFree(&tsdPtr->logFilename);
|
||||||
|
return TCL_ERROR;
|
46
SOURCES/expect-5.43.0-pkgpath.patch
Normal file
46
SOURCES/expect-5.43.0-pkgpath.patch
Normal file
@ -0,0 +1,46 @@
|
|||||||
|
diff -up expect5.45/configure.in.orig expect5.45/configure.in
|
||||||
|
--- expect5.45/configure.in.orig 2011-01-18 16:58:14.860806442 +0100
|
||||||
|
+++ expect5.45/configure.in 2011-01-18 16:58:30.378753210 +0100
|
||||||
|
@@ -977,6 +977,7 @@ AC_SUBST(EXP_CC_SEARCH_FLAGS)
|
||||||
|
AC_SUBST(SETUID)
|
||||||
|
AC_SUBST(SETPGRP_VOID)
|
||||||
|
AC_SUBST(DEFAULT_STTY_ARGS)
|
||||||
|
+AC_SUBST(TCL_VERSION)
|
||||||
|
# Expect uses these from tclConfig.sh to make the main executable
|
||||||
|
AC_SUBST(TCL_DL_LIBS)
|
||||||
|
AC_SUBST(TCL_CC_SEARCH_FLAGS)
|
||||||
|
diff -up expect5.45/Makefile.in.orig expect5.45/Makefile.in
|
||||||
|
--- expect5.45/Makefile.in.orig 2011-01-18 16:58:37.787723824 +0100
|
||||||
|
+++ expect5.45/Makefile.in 2011-01-18 17:05:10.697636907 +0100
|
||||||
|
@@ -121,8 +121,8 @@ includedir = @includedir@
|
||||||
|
DESTDIR =
|
||||||
|
|
||||||
|
PKG_DIR = $(PACKAGE_NAME)$(PACKAGE_VERSION)
|
||||||
|
-pkgdatadir = $(datadir)/$(PKG_DIR)
|
||||||
|
-pkglibdir = $(libdir)/$(PKG_DIR)
|
||||||
|
+pkgdatadir = $(datadir)/tcl@TCL_VERSION@/$(PKG_DIR)
|
||||||
|
+pkglibdir = $(libdir)/tcl@TCL_VERSION@/$(PKG_DIR)
|
||||||
|
pkgincludedir = $(includedir)/$(PKG_DIR)
|
||||||
|
|
||||||
|
top_builddir = .
|
||||||
|
@@ -263,7 +263,7 @@ install-doc: doc
|
||||||
|
else true; fi ; \
|
||||||
|
done
|
||||||
|
|
||||||
|
-test: binaries libraries
|
||||||
|
+test: binaries libraries pkgIndex.tcl-test
|
||||||
|
$(TCLSH) `@CYGPATH@ $(srcdir)/tests/all.tcl` $(TESTFLAGS)
|
||||||
|
|
||||||
|
shell: binaries libraries
|
||||||
|
@@ -331,6 +331,11 @@ pkgIndex.tcl:
|
||||||
|
pkgIndex.tcl-hand:
|
||||||
|
(echo 'if {![package vsatisfies [package provide Tcl] @TCL_VERSION@]} {return}' ; \
|
||||||
|
echo 'package ifneeded Expect $(PACKAGE_VERSION) \
|
||||||
|
+ [list load [file join $$dir .. .. $(PKG_LIB_FILE)]]'\
|
||||||
|
+ ) > pkgIndex.tcl
|
||||||
|
+
|
||||||
|
+pkgIndex.tcl-test:
|
||||||
|
+ (echo 'package ifneeded Expect $(PACKAGE_VERSION) \
|
||||||
|
[list load [file join $$dir $(PKG_LIB_FILE)]]'\
|
||||||
|
) > pkgIndex.tcl
|
||||||
|
|
29
SOURCES/expect-5.45-check-telnet.patch
Normal file
29
SOURCES/expect-5.45-check-telnet.patch
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
diff -up expect5.45/example/passmass.orig expect5.45/example/passmass
|
||||||
|
--- expect5.45/example/passmass.orig 2011-07-27 16:09:31.013843393 +0200
|
||||||
|
+++ expect5.45/example/passmass 2011-07-27 16:10:55.667843578 +0200
|
||||||
|
@@ -107,6 +107,10 @@ for {set i 0} {$i<$argc} {incr i} {
|
||||||
|
set login "ssh"
|
||||||
|
continue
|
||||||
|
} "-telnet" {
|
||||||
|
+ if {[file executable /usr/bin/telnet] == 0} {
|
||||||
|
+ send_user "It seems that telnet is not installed. Please install telnet in order to use the script with this option.\n"
|
||||||
|
+ exit 1
|
||||||
|
+ }
|
||||||
|
set login "telnet"
|
||||||
|
continue
|
||||||
|
} "-program" {
|
||||||
|
diff -up expect5.45/example/weather.orig expect5.45/example/weather
|
||||||
|
--- expect5.45/example/weather.orig 2011-07-27 15:49:57.878843862 +0200
|
||||||
|
+++ expect5.45/example/weather 2011-07-27 16:08:48.067843491 +0200
|
||||||
|
@@ -33,6 +33,11 @@ set timeout 60
|
||||||
|
|
||||||
|
set env(TERM) vt100 ;# actual value doesn't matter, just has to be set
|
||||||
|
|
||||||
|
+if {[file executable /usr/bin/telnet] == 0} {
|
||||||
|
+ send_user "It seems that telnet is not installed. Please install telnet in order to use this script.\n"
|
||||||
|
+ exit 1
|
||||||
|
+}
|
||||||
|
+
|
||||||
|
spawn telnet rainmaker.wunderground.com 3000
|
||||||
|
while {1} {
|
||||||
|
expect timeout {
|
39
SOURCES/expect-5.45-exp-log-buf-overflow.patch
Normal file
39
SOURCES/expect-5.45-exp-log-buf-overflow.patch
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
diff -up expect5.45/exp_log.c.orig expect5.45/exp_log.c
|
||||||
|
--- expect5.45/exp_log.c.orig 2013-12-12 12:43:38.527854189 +0100
|
||||||
|
+++ expect5.45/exp_log.c 2013-12-12 12:49:26.866576387 +0100
|
||||||
|
@@ -176,7 +176,7 @@ expStdoutLog TCL_VARARGS_DEF(int,arg1)
|
||||||
|
|
||||||
|
if ((!tsdPtr->logUser) && (!force_stdout) && (!tsdPtr->logAll)) return;
|
||||||
|
|
||||||
|
- (void) vsprintf(bigbuf,fmt,args);
|
||||||
|
+ (void) vsnprintf(bigbuf,sizeof(bigbuf),fmt,args);
|
||||||
|
expDiagWriteBytes(bigbuf,-1);
|
||||||
|
if (tsdPtr->logAll || (LOGUSER && tsdPtr->logChannel)) Tcl_WriteChars(tsdPtr->logChannel,bigbuf,-1);
|
||||||
|
if (LOGUSER) fprintf(stdout,"%s",bigbuf);
|
||||||
|
@@ -222,7 +222,7 @@ expErrorLog TCL_VARARGS_DEF(char *,arg1)
|
||||||
|
va_list args;
|
||||||
|
|
||||||
|
fmt = TCL_VARARGS_START(char *,arg1,args);
|
||||||
|
- (void) vsprintf(bigbuf,fmt,args);
|
||||||
|
+ (void) vsnprintf(bigbuf,sizeof(bigbuf),fmt,args);
|
||||||
|
|
||||||
|
expDiagWriteChars(bigbuf,-1);
|
||||||
|
fprintf(stderr,"%s",bigbuf);
|
||||||
|
@@ -264,7 +264,7 @@ expDiagLog TCL_VARARGS_DEF(char *,arg1)
|
||||||
|
|
||||||
|
fmt = TCL_VARARGS_START(char *,arg1,args);
|
||||||
|
|
||||||
|
- (void) vsprintf(bigbuf,fmt,args);
|
||||||
|
+ (void) vsnprintf(bigbuf,sizeof(bigbuf),fmt,args);
|
||||||
|
|
||||||
|
expDiagWriteBytes(bigbuf,-1);
|
||||||
|
if (tsdPtr->diagToStderr) {
|
||||||
|
@@ -307,7 +307,7 @@ expPrintf TCL_VARARGS_DEF(char *,arg1)
|
||||||
|
int len, rc;
|
||||||
|
|
||||||
|
fmt = TCL_VARARGS_START(char *,arg1,args);
|
||||||
|
- len = vsprintf(bigbuf,arg1,args);
|
||||||
|
+ len = vsnprintf(bigbuf,sizeof(bigbuf),arg1,args);
|
||||||
|
retry:
|
||||||
|
rc = write(2,bigbuf,len);
|
||||||
|
if ((rc == -1) && (errno == EAGAIN)) goto retry;
|
12
SOURCES/expect-5.45-fd-leak.patch
Normal file
12
SOURCES/expect-5.45-fd-leak.patch
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
diff -up expect5.45/exp_clib.c.orig expect5.45/exp_clib.c
|
||||||
|
--- expect5.45/exp_command.c.orig 2014-09-04 12:12:21.075837835 +0200
|
||||||
|
+++ expect5.45/exp_command.c 2014-09-04 12:13:39.098593465 +0200
|
||||||
|
@@ -1161,7 +1161,7 @@ Exp_SpawnObjCmd(
|
||||||
|
/* if stty finds dev(stderr) != dev(stdout) */
|
||||||
|
|
||||||
|
/* save error fd while we're setting up new one */
|
||||||
|
- errorfd = fcntl(2,F_DUPFD,3);
|
||||||
|
+ errorfd = fcntl(2,F_DUPFD_CLOEXEC,3);
|
||||||
|
/* and here is the macro to restore it */
|
||||||
|
#define restore_error_fd {close(2);fcntl(errorfd,F_DUPFD,2);}
|
||||||
|
|
13
SOURCES/expect-5.45-format-security.patch
Normal file
13
SOURCES/expect-5.45-format-security.patch
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
--- exp_clib.c.orig 2017-03-24 10:34:37.269183513 -0400
|
||||||
|
+++ exp_clib.c 2017-03-24 10:34:41.171117943 -0400
|
||||||
|
@@ -1938,8 +1938,8 @@
|
||||||
|
char *str;
|
||||||
|
{
|
||||||
|
if (exp_is_debugging) {
|
||||||
|
- fprintf(stderr,str);
|
||||||
|
- if (exp_logfile) fprintf(exp_logfile,str);
|
||||||
|
+ fprintf(stderr, "%s", str);
|
||||||
|
+ if (exp_logfile) fprintf(exp_logfile, "%s", str);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
39
SOURCES/expect-5.45-man-page.patch
Normal file
39
SOURCES/expect-5.45-man-page.patch
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
diff --git a/example/autoexpect.man b/example/autoexpect.man
|
||||||
|
index 45f24a4..79fc059 100644
|
||||||
|
--- a/example/autoexpect.man
|
||||||
|
+++ b/example/autoexpect.man
|
||||||
|
@@ -136,7 +136,7 @@ using the date command while running autoexpect is a sure way to
|
||||||
|
produce a script that will require editing in order for it to work.
|
||||||
|
|
||||||
|
The \-p flag puts autoexpect into "prompt mode". In this mode,
|
||||||
|
-autoexpect will only look for the the last line of program output \-
|
||||||
|
+autoexpect will only look for the last line of program output \-
|
||||||
|
which is usually the prompt. This handles the date problem (see
|
||||||
|
above) and most others.
|
||||||
|
|
||||||
|
diff --git a/example/tknewsbiff.man b/example/tknewsbiff.man
|
||||||
|
index dc5d4ad..63aec9f 100644
|
||||||
|
--- a/example/tknewsbiff.man
|
||||||
|
+++ b/example/tknewsbiff.man
|
||||||
|
@@ -177,7 +177,7 @@ The "server" variable names an NNTP news-server.
|
||||||
|
The default is "news". The "server" variable is
|
||||||
|
only used if the "active_file" variable is not set.
|
||||||
|
|
||||||
|
-The "server_timeout" variable describes how how many seconds to wait
|
||||||
|
+The "server_timeout" variable describes how many seconds to wait
|
||||||
|
for a response from the server before giving up. -1 means wait
|
||||||
|
forever or until the server itself times out. The default is 60
|
||||||
|
seconds.
|
||||||
|
diff --git a/expect.man b/expect.man
|
||||||
|
index 1edff14..10352b6 100644
|
||||||
|
--- a/expect.man
|
||||||
|
+++ b/expect.man
|
||||||
|
@@ -623,7 +623,7 @@ patterns are specified as with Tcl's
|
||||||
|
command. (Such patterns are also similar to C-shell regular expressions
|
||||||
|
usually referred to as "glob" patterns). The
|
||||||
|
.B \-gl
|
||||||
|
-flag may may
|
||||||
|
+flag may
|
||||||
|
be used to protect patterns that might otherwise match
|
||||||
|
.B expect
|
||||||
|
flags from doing so.
|
17
SOURCES/expect-5.45-match-gt-numchars-segfault.patch
Normal file
17
SOURCES/expect-5.45-match-gt-numchars-segfault.patch
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
diff -up expect5.45/expect.c.orig expect5.45/expect.c
|
||||||
|
--- expect5.45/expect.c.orig 2012-02-06 14:15:13.469490744 +0100
|
||||||
|
+++ expect5.45/expect.c 2012-02-06 14:16:23.596837896 +0100
|
||||||
|
@@ -2363,7 +2363,12 @@ expMatchProcess(
|
||||||
|
|
||||||
|
/* "!e" means no case matched - transfer by default */
|
||||||
|
if (!e || e->transfer) {
|
||||||
|
- int remainder = numchars-match;
|
||||||
|
+ int remainder;
|
||||||
|
+ if (match > numchars) {
|
||||||
|
+ match = numchars;
|
||||||
|
+ eo->matchlen = match;
|
||||||
|
+ }
|
||||||
|
+ remainder = numchars-match;
|
||||||
|
/* delete matched chars from input buffer */
|
||||||
|
esPtr->printed -= match;
|
||||||
|
if (numchars != 0) {
|
13
SOURCES/expect-5.45-mkpasswd-dash.patch
Normal file
13
SOURCES/expect-5.45-mkpasswd-dash.patch
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
diff -up expect5.45/example/mkpasswd.orig expect5.45/example/mkpasswd
|
||||||
|
--- expect5.45/example/mkpasswd.orig 2011-03-16 13:23:23.125480017 +0100
|
||||||
|
+++ expect5.45/example/mkpasswd 2011-03-16 13:24:08.739353139 +0100
|
||||||
|
@@ -202,7 +202,8 @@ if {[info exists user]} {
|
||||||
|
expect {
|
||||||
|
"assword*:" {
|
||||||
|
# some systems say "Password (again):"
|
||||||
|
- send "$password\r"
|
||||||
|
+ send -- "$password\r"
|
||||||
|
+ # "--" because of passwords beginning with dash
|
||||||
|
exp_continue
|
||||||
|
}
|
||||||
|
}
|
38
SOURCES/expect-5.45-mkpasswd-man.patch
Normal file
38
SOURCES/expect-5.45-mkpasswd-man.patch
Normal file
@ -0,0 +1,38 @@
|
|||||||
|
diff -up expect5.45/example/mkpasswd.man.mkpasswd-man expect5.45/example/mkpasswd.man
|
||||||
|
--- expect5.45/example/mkpasswd.man.mkpasswd-man 2000-08-04 20:01:56.000000000 +0200
|
||||||
|
+++ expect5.45/example/mkpasswd.man 2013-08-13 16:36:26.860711972 +0200
|
||||||
|
@@ -40,8 +40,8 @@ The following example creates a 20 chara
|
||||||
|
|
||||||
|
The
|
||||||
|
.B \-d
|
||||||
|
-flag defines the minimum number of digits that must be in the password.
|
||||||
|
-The default is 2. The following example creates a password with at least
|
||||||
|
+flag defines the number of digits that must be in the password.
|
||||||
|
+The default is 2. The following example creates a password with
|
||||||
|
3 digits.
|
||||||
|
|
||||||
|
mkpasswd -d 3
|
||||||
|
@@ -53,12 +53,12 @@ The default is 2.
|
||||||
|
|
||||||
|
The
|
||||||
|
.B \-C
|
||||||
|
-flag defines the minimum number of uppercase alphabetic characters that must be in the password.
|
||||||
|
+flag defines the number of uppercase alphabetic characters that must be in the password.
|
||||||
|
The default is 2.
|
||||||
|
|
||||||
|
The
|
||||||
|
.B \-s
|
||||||
|
-flag defines the minimum number of special characters that must be in the password.
|
||||||
|
+flag defines the number of special characters that must be in the password.
|
||||||
|
The default is 1.
|
||||||
|
|
||||||
|
The
|
||||||
|
@@ -80,7 +80,7 @@ By default, it is suppressed.
|
||||||
|
|
||||||
|
.SH EXAMPLE
|
||||||
|
The following example creates a 15-character password
|
||||||
|
-that contains at least 3 digits and 5 uppercase characters.
|
||||||
|
+that contains 3 digits and 5 uppercase characters.
|
||||||
|
|
||||||
|
mkpasswd -l 15 -d 3 -C 5
|
||||||
|
|
12
SOURCES/expect-5.45-passmass-su-full-path.patch
Normal file
12
SOURCES/expect-5.45-passmass-su-full-path.patch
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
diff -up expect5.45/example/passmass.orig expect5.45/example/passmass
|
||||||
|
--- expect5.45/example/passmass.orig 2011-09-06 13:04:41.439875491 +0200
|
||||||
|
+++ expect5.45/example/passmass 2011-09-06 13:04:54.663874571 +0200
|
||||||
|
@@ -178,7 +178,7 @@ for {set i 0} {$i<$argc} {incr i} {
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($su) {
|
||||||
|
- send "su -\r"
|
||||||
|
+ send "/bin/su -\r"
|
||||||
|
expect -nocase "password:"
|
||||||
|
send "$password(old)\r"
|
||||||
|
expect "# "
|
14
SOURCES/expect-5.45-re-memleak.patch
Normal file
14
SOURCES/expect-5.45-re-memleak.patch
Normal file
@ -0,0 +1,14 @@
|
|||||||
|
diff -up expect5.45/expect.c.orig expect5.45/expect.c
|
||||||
|
--- expect5.45/expect.c.orig 2013-10-02 13:16:31.462430482 +0200
|
||||||
|
+++ expect5.45/expect.c 2013-10-02 13:17:18.420599495 +0200
|
||||||
|
@@ -185,9 +185,9 @@ free_ecase(
|
||||||
|
{
|
||||||
|
if (ec->i_list->duration == EXP_PERMANENT) {
|
||||||
|
if (ec->pat) { Tcl_DecrRefCount(ec->pat); }
|
||||||
|
- if (ec->gate) { Tcl_DecrRefCount(ec->gate); }
|
||||||
|
if (ec->body) { Tcl_DecrRefCount(ec->body); }
|
||||||
|
}
|
||||||
|
+ if (ec->gate) { Tcl_DecrRefCount(ec->gate); }
|
||||||
|
|
||||||
|
if (free_ilist) {
|
||||||
|
ec->i_list->ecount--;
|
553
SOURCES/expect-5.45-segfault-with-stubs.patch
Normal file
553
SOURCES/expect-5.45-segfault-with-stubs.patch
Normal file
@ -0,0 +1,553 @@
|
|||||||
|
diff -up expect5.45/exp_clib.c.orig expect5.45/exp_clib.c
|
||||||
|
--- expect5.45/exp_clib.c.orig 2010-09-01 00:20:27.000000000 +0200
|
||||||
|
+++ expect5.45/exp_clib.c 2015-05-19 12:01:22.413349423 +0200
|
||||||
|
@@ -84,6 +84,8 @@ would appreciate credit if this program
|
||||||
|
#ifndef _STDLIB
|
||||||
|
#define _STDLIB
|
||||||
|
|
||||||
|
+#include <tcl.h>
|
||||||
|
+
|
||||||
|
extern void abort _ANSI_ARGS_((void));
|
||||||
|
extern double atof _ANSI_ARGS_((CONST char *string));
|
||||||
|
extern int atoi _ANSI_ARGS_((CONST char *string));
|
||||||
|
@@ -114,7 +116,6 @@ extern unsigned long strtoul _ANSI_ARGS_
|
||||||
|
#include <stdlib.h> /* for malloc */
|
||||||
|
#endif
|
||||||
|
|
||||||
|
-#include <tcl.h>
|
||||||
|
#include "expect.h"
|
||||||
|
#define TclRegError exp_TclRegError
|
||||||
|
|
||||||
|
@@ -1465,6 +1466,467 @@ TclGetRegError()
|
||||||
|
*/
|
||||||
|
|
||||||
|
/*
|
||||||
|
+ * following stolen from tcl8.0.4/generic/tclPosixStr.c
|
||||||
|
+ */
|
||||||
|
+
|
||||||
|
+/*
|
||||||
|
+ *----------------------------------------------------------------------
|
||||||
|
+ *
|
||||||
|
+ * Tcl_ErrnoMsg --
|
||||||
|
+ *
|
||||||
|
+ * Return a human-readable message corresponding to a given
|
||||||
|
+ * errno value.
|
||||||
|
+ *
|
||||||
|
+ * Results:
|
||||||
|
+ * The return value is the standard POSIX error message for
|
||||||
|
+ * errno. This procedure is used instead of strerror because
|
||||||
|
+ * strerror returns slightly different values on different
|
||||||
|
+ * machines (e.g. different capitalizations), which cause
|
||||||
|
+ * problems for things such as regression tests. This procedure
|
||||||
|
+ * provides messages for most standard errors, then it calls
|
||||||
|
+ * strerror for things it doesn't understand.
|
||||||
|
+ *
|
||||||
|
+ * Side effects:
|
||||||
|
+ * None.
|
||||||
|
+ *
|
||||||
|
+ *----------------------------------------------------------------------
|
||||||
|
+ */
|
||||||
|
+
|
||||||
|
+static
|
||||||
|
+char *
|
||||||
|
+Tcl_ErrnoMsg(err)
|
||||||
|
+ int err; /* Error number (such as in errno variable). */
|
||||||
|
+{
|
||||||
|
+ switch (err) {
|
||||||
|
+#ifdef E2BIG
|
||||||
|
+ case E2BIG: return "argument list too long";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EACCES
|
||||||
|
+ case EACCES: return "permission denied";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EADDRINUSE
|
||||||
|
+ case EADDRINUSE: return "address already in use";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EADDRNOTAVAIL
|
||||||
|
+ case EADDRNOTAVAIL: return "can't assign requested address";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EADV
|
||||||
|
+ case EADV: return "advertise error";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EAFNOSUPPORT
|
||||||
|
+ case EAFNOSUPPORT: return "address family not supported by protocol family";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EAGAIN
|
||||||
|
+ case EAGAIN: return "resource temporarily unavailable";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EALIGN
|
||||||
|
+ case EALIGN: return "EALIGN";
|
||||||
|
+#endif
|
||||||
|
+#if defined(EALREADY) && (!defined(EBUSY) || (EALREADY != EBUSY ))
|
||||||
|
+ case EALREADY: return "operation already in progress";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EBADE
|
||||||
|
+ case EBADE: return "bad exchange descriptor";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EBADF
|
||||||
|
+ case EBADF: return "bad file number";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EBADFD
|
||||||
|
+ case EBADFD: return "file descriptor in bad state";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EBADMSG
|
||||||
|
+ case EBADMSG: return "not a data message";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EBADR
|
||||||
|
+ case EBADR: return "bad request descriptor";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EBADRPC
|
||||||
|
+ case EBADRPC: return "RPC structure is bad";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EBADRQC
|
||||||
|
+ case EBADRQC: return "bad request code";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EBADSLT
|
||||||
|
+ case EBADSLT: return "invalid slot";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EBFONT
|
||||||
|
+ case EBFONT: return "bad font file format";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EBUSY
|
||||||
|
+ case EBUSY: return "file busy";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ECHILD
|
||||||
|
+ case ECHILD: return "no children";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ECHRNG
|
||||||
|
+ case ECHRNG: return "channel number out of range";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ECOMM
|
||||||
|
+ case ECOMM: return "communication error on send";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ECONNABORTED
|
||||||
|
+ case ECONNABORTED: return "software caused connection abort";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ECONNREFUSED
|
||||||
|
+ case ECONNREFUSED: return "connection refused";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ECONNRESET
|
||||||
|
+ case ECONNRESET: return "connection reset by peer";
|
||||||
|
+#endif
|
||||||
|
+#if defined(EDEADLK) && (!defined(EWOULDBLOCK) || (EDEADLK != EWOULDBLOCK))
|
||||||
|
+ case EDEADLK: return "resource deadlock avoided";
|
||||||
|
+#endif
|
||||||
|
+#if defined(EDEADLOCK) && (!defined(EDEADLK) || (EDEADLOCK != EDEADLK))
|
||||||
|
+ case EDEADLOCK: return "resource deadlock avoided";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EDESTADDRREQ
|
||||||
|
+ case EDESTADDRREQ: return "destination address required";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EDIRTY
|
||||||
|
+ case EDIRTY: return "mounting a dirty fs w/o force";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EDOM
|
||||||
|
+ case EDOM: return "math argument out of range";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EDOTDOT
|
||||||
|
+ case EDOTDOT: return "cross mount point";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EDQUOT
|
||||||
|
+ case EDQUOT: return "disk quota exceeded";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EDUPPKG
|
||||||
|
+ case EDUPPKG: return "duplicate package name";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EEXIST
|
||||||
|
+ case EEXIST: return "file already exists";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EFAULT
|
||||||
|
+ case EFAULT: return "bad address in system call argument";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EFBIG
|
||||||
|
+ case EFBIG: return "file too large";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EHOSTDOWN
|
||||||
|
+ case EHOSTDOWN: return "host is down";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EHOSTUNREACH
|
||||||
|
+ case EHOSTUNREACH: return "host is unreachable";
|
||||||
|
+#endif
|
||||||
|
+#if defined(EIDRM) && (!defined(EINPROGRESS) || (EIDRM != EINPROGRESS))
|
||||||
|
+ case EIDRM: return "identifier removed";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EINIT
|
||||||
|
+ case EINIT: return "initialization error";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EINPROGRESS
|
||||||
|
+ case EINPROGRESS: return "operation now in progress";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EINTR
|
||||||
|
+ case EINTR: return "interrupted system call";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EINVAL
|
||||||
|
+ case EINVAL: return "invalid argument";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EIO
|
||||||
|
+ case EIO: return "I/O error";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EISCONN
|
||||||
|
+ case EISCONN: return "socket is already connected";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EISDIR
|
||||||
|
+ case EISDIR: return "illegal operation on a directory";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EISNAME
|
||||||
|
+ case EISNAM: return "is a name file";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ELBIN
|
||||||
|
+ case ELBIN: return "ELBIN";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EL2HLT
|
||||||
|
+ case EL2HLT: return "level 2 halted";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EL2NSYNC
|
||||||
|
+ case EL2NSYNC: return "level 2 not synchronized";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EL3HLT
|
||||||
|
+ case EL3HLT: return "level 3 halted";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EL3RST
|
||||||
|
+ case EL3RST: return "level 3 reset";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ELIBACC
|
||||||
|
+ case ELIBACC: return "can not access a needed shared library";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ELIBBAD
|
||||||
|
+ case ELIBBAD: return "accessing a corrupted shared library";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ELIBEXEC
|
||||||
|
+ case ELIBEXEC: return "can not exec a shared library directly";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ELIBMAX
|
||||||
|
+ case ELIBMAX: return
|
||||||
|
+ "attempting to link in more shared libraries than system limit";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ELIBSCN
|
||||||
|
+ case ELIBSCN: return ".lib section in a.out corrupted";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ELNRNG
|
||||||
|
+ case ELNRNG: return "link number out of range";
|
||||||
|
+#endif
|
||||||
|
+#if defined(ELOOP) && (!defined(ENOENT) || (ELOOP != ENOENT))
|
||||||
|
+ case ELOOP: return "too many levels of symbolic links";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EMFILE
|
||||||
|
+ case EMFILE: return "too many open files";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EMLINK
|
||||||
|
+ case EMLINK: return "too many links";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EMSGSIZE
|
||||||
|
+ case EMSGSIZE: return "message too long";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EMULTIHOP
|
||||||
|
+ case EMULTIHOP: return "multihop attempted";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENAMETOOLONG
|
||||||
|
+ case ENAMETOOLONG: return "file name too long";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENAVAIL
|
||||||
|
+ case ENAVAIL: return "not available";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENET
|
||||||
|
+ case ENET: return "ENET";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENETDOWN
|
||||||
|
+ case ENETDOWN: return "network is down";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENETRESET
|
||||||
|
+ case ENETRESET: return "network dropped connection on reset";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENETUNREACH
|
||||||
|
+ case ENETUNREACH: return "network is unreachable";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENFILE
|
||||||
|
+ case ENFILE: return "file table overflow";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOANO
|
||||||
|
+ case ENOANO: return "anode table overflow";
|
||||||
|
+#endif
|
||||||
|
+#if defined(ENOBUFS) && (!defined(ENOSR) || (ENOBUFS != ENOSR))
|
||||||
|
+ case ENOBUFS: return "no buffer space available";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOCSI
|
||||||
|
+ case ENOCSI: return "no CSI structure available";
|
||||||
|
+#endif
|
||||||
|
+#if defined(ENODATA) && (!defined(ECONNREFUSED) || (ENODATA != ECONNREFUSED))
|
||||||
|
+ case ENODATA: return "no data available";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENODEV
|
||||||
|
+ case ENODEV: return "no such device";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOENT
|
||||||
|
+ case ENOENT: return "no such file or directory";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOEXEC
|
||||||
|
+ case ENOEXEC: return "exec format error";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOLCK
|
||||||
|
+ case ENOLCK: return "no locks available";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOLINK
|
||||||
|
+ case ENOLINK: return "link has be severed";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOMEM
|
||||||
|
+ case ENOMEM: return "not enough memory";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOMSG
|
||||||
|
+ case ENOMSG: return "no message of desired type";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENONET
|
||||||
|
+ case ENONET: return "machine is not on the network";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOPKG
|
||||||
|
+ case ENOPKG: return "package not installed";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOPROTOOPT
|
||||||
|
+ case ENOPROTOOPT: return "bad proocol option";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOSPC
|
||||||
|
+ case ENOSPC: return "no space left on device";
|
||||||
|
+#endif
|
||||||
|
+#if defined(ENOSR) && (!defined(ENAMETOOLONG) || (ENAMETOOLONG != ENOSR))
|
||||||
|
+ case ENOSR: return "out of stream resources";
|
||||||
|
+#endif
|
||||||
|
+#if defined(ENOSTR) && (!defined(ENOTTY) || (ENOTTY != ENOSTR))
|
||||||
|
+ case ENOSTR: return "not a stream device";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOSYM
|
||||||
|
+ case ENOSYM: return "unresolved symbol name";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOSYS
|
||||||
|
+ case ENOSYS: return "function not implemented";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOTBLK
|
||||||
|
+ case ENOTBLK: return "block device required";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOTCONN
|
||||||
|
+ case ENOTCONN: return "socket is not connected";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOTDIR
|
||||||
|
+ case ENOTDIR: return "not a directory";
|
||||||
|
+#endif
|
||||||
|
+#if defined(ENOTEMPTY) && (!defined(EEXIST) || (ENOTEMPTY != EEXIST))
|
||||||
|
+ case ENOTEMPTY: return "directory not empty";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOTNAM
|
||||||
|
+ case ENOTNAM: return "not a name file";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOTSOCK
|
||||||
|
+ case ENOTSOCK: return "socket operation on non-socket";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOTSUP
|
||||||
|
+ case ENOTSUP: return "operation not supported";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOTTY
|
||||||
|
+ case ENOTTY: return "inappropriate device for ioctl";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENOTUNIQ
|
||||||
|
+ case ENOTUNIQ: return "name not unique on network";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ENXIO
|
||||||
|
+ case ENXIO: return "no such device or address";
|
||||||
|
+#endif
|
||||||
|
+#if defined(EOPNOTSUPP) && (!defined(ENOTSUP) || (ENOTSUP != EOPNOTSUPP))
|
||||||
|
+ case EOPNOTSUPP: return "operation not supported on socket";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EPERM
|
||||||
|
+ case EPERM: return "not owner";
|
||||||
|
+#endif
|
||||||
|
+#if defined(EPFNOSUPPORT) && (!defined(ENOLCK) || (ENOLCK != EPFNOSUPPORT))
|
||||||
|
+ case EPFNOSUPPORT: return "protocol family not supported";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EPIPE
|
||||||
|
+ case EPIPE: return "broken pipe";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EPROCLIM
|
||||||
|
+ case EPROCLIM: return "too many processes";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EPROCUNAVAIL
|
||||||
|
+ case EPROCUNAVAIL: return "bad procedure for program";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EPROGMISMATCH
|
||||||
|
+ case EPROGMISMATCH: return "program version wrong";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EPROGUNAVAIL
|
||||||
|
+ case EPROGUNAVAIL: return "RPC program not available";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EPROTO
|
||||||
|
+ case EPROTO: return "protocol error";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EPROTONOSUPPORT
|
||||||
|
+ case EPROTONOSUPPORT: return "protocol not suppored";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EPROTOTYPE
|
||||||
|
+ case EPROTOTYPE: return "protocol wrong type for socket";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ERANGE
|
||||||
|
+ case ERANGE: return "math result unrepresentable";
|
||||||
|
+#endif
|
||||||
|
+#if defined(EREFUSED) && (!defined(ECONNREFUSED) || (EREFUSED != ECONNREFUSED))
|
||||||
|
+ case EREFUSED: return "EREFUSED";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EREMCHG
|
||||||
|
+ case EREMCHG: return "remote address changed";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EREMDEV
|
||||||
|
+ case EREMDEV: return "remote device";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EREMOTE
|
||||||
|
+ case EREMOTE: return "pathname hit remote file system";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EREMOTEIO
|
||||||
|
+ case EREMOTEIO: return "remote i/o error";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EREMOTERELEASE
|
||||||
|
+ case EREMOTERELEASE: return "EREMOTERELEASE";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EROFS
|
||||||
|
+ case EROFS: return "read-only file system";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ERPCMISMATCH
|
||||||
|
+ case ERPCMISMATCH: return "RPC version is wrong";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ERREMOTE
|
||||||
|
+ case ERREMOTE: return "object is remote";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ESHUTDOWN
|
||||||
|
+ case ESHUTDOWN: return "can't send afer socket shutdown";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ESOCKTNOSUPPORT
|
||||||
|
+ case ESOCKTNOSUPPORT: return "socket type not supported";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ESPIPE
|
||||||
|
+ case ESPIPE: return "invalid seek";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ESRCH
|
||||||
|
+ case ESRCH: return "no such process";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ESRMNT
|
||||||
|
+ case ESRMNT: return "srmount error";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ESTALE
|
||||||
|
+ case ESTALE: return "stale remote file handle";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ESUCCESS
|
||||||
|
+ case ESUCCESS: return "Error 0";
|
||||||
|
+#endif
|
||||||
|
+#if defined(ETIME) && (!defined(ELOOP) || (ETIME != ELOOP))
|
||||||
|
+ case ETIME: return "timer expired";
|
||||||
|
+#endif
|
||||||
|
+#if defined(ETIMEDOUT) && (!defined(ENOSTR) || (ETIMEDOUT != ENOSTR))
|
||||||
|
+ case ETIMEDOUT: return "connection timed out";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ETOOMANYREFS
|
||||||
|
+ case ETOOMANYREFS: return "too many references: can't splice";
|
||||||
|
+#endif
|
||||||
|
+#ifdef ETXTBSY
|
||||||
|
+ case ETXTBSY: return "text file or pseudo-device busy";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EUCLEAN
|
||||||
|
+ case EUCLEAN: return "structure needs cleaning";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EUNATCH
|
||||||
|
+ case EUNATCH: return "protocol driver not attached";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EUSERS
|
||||||
|
+ case EUSERS: return "too many users";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EVERSION
|
||||||
|
+ case EVERSION: return "version mismatch";
|
||||||
|
+#endif
|
||||||
|
+#if defined(EWOULDBLOCK) && (!defined(EAGAIN) || (EWOULDBLOCK != EAGAIN))
|
||||||
|
+ case EWOULDBLOCK: return "operation would block";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EXDEV
|
||||||
|
+ case EXDEV: return "cross-domain link";
|
||||||
|
+#endif
|
||||||
|
+#ifdef EXFULL
|
||||||
|
+ case EXFULL: return "message tables full";
|
||||||
|
+#endif
|
||||||
|
+ default:
|
||||||
|
+#ifdef NO_STRERROR
|
||||||
|
+ return "unknown POSIX error";
|
||||||
|
+#else
|
||||||
|
+ return strerror(errno);
|
||||||
|
+#endif
|
||||||
|
+ }
|
||||||
|
+}
|
||||||
|
+
|
||||||
|
+/*
|
||||||
|
+ * end of excerpt from tcl8.0.X/generic/tclPosixStr.c
|
||||||
|
+ */
|
||||||
|
+
|
||||||
|
+/*
|
||||||
|
* stolen from exp_log.c - this function is called from the Expect library
|
||||||
|
* but the one that the library supplies calls Tcl functions. So we supply
|
||||||
|
* our own.
|
||||||
|
diff -up expect5.45/expect.h.orig expect5.45/expect.h
|
||||||
|
--- expect5.45/expect.h.orig 2010-09-01 00:20:27.000000000 +0200
|
||||||
|
+++ expect5.45/expect.h 2015-05-19 12:00:58.674248152 +0200
|
||||||
|
@@ -258,6 +258,46 @@ typedef long LONG;
|
||||||
|
typedef struct Tcl_RegExp_ *Tcl_RegExp;
|
||||||
|
|
||||||
|
/*
|
||||||
|
+ * The following declarations either map ckalloc and ckfree to
|
||||||
|
+ * malloc and free, or they map them to procedures with all sorts
|
||||||
|
+ * of debugging hooks defined in tclCkalloc.c.
|
||||||
|
+ */
|
||||||
|
+
|
||||||
|
+#ifdef TCL_MEM_DEBUG
|
||||||
|
+
|
||||||
|
+# define Tcl_Alloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__)
|
||||||
|
+# define Tcl_Free(x) Tcl_DbCkfree(x, __FILE__, __LINE__)
|
||||||
|
+# define Tcl_Realloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__)
|
||||||
|
+# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__)
|
||||||
|
+# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__)
|
||||||
|
+# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__)
|
||||||
|
+
|
||||||
|
+#else
|
||||||
|
+
|
||||||
|
+/*
|
||||||
|
+ * If USE_TCLALLOC is true, then we need to call Tcl_Alloc instead of
|
||||||
|
+ * the native malloc/free. The only time USE_TCLALLOC should not be
|
||||||
|
+ * true is when compiling the Tcl/Tk libraries on Unix systems. In this
|
||||||
|
+ * case we can safely call the native malloc/free directly as a performance
|
||||||
|
+ * optimization.
|
||||||
|
+ */
|
||||||
|
+
|
||||||
|
+# if USE_TCLALLOC
|
||||||
|
+# define ckalloc(x) Tcl_Alloc(x)
|
||||||
|
+# define ckfree(x) Tcl_Free(x)
|
||||||
|
+# define ckrealloc(x,y) Tcl_Realloc(x,y)
|
||||||
|
+# else
|
||||||
|
+# define ckalloc(x) malloc(x)
|
||||||
|
+# define ckfree(x) free(x)
|
||||||
|
+# define ckrealloc(x,y) realloc(x,y)
|
||||||
|
+# endif
|
||||||
|
+# define Tcl_DumpActiveMemory(x)
|
||||||
|
+# define Tcl_ValidateAllMemory(x,y)
|
||||||
|
+
|
||||||
|
+#endif /* !TCL_MEM_DEBUG */
|
||||||
|
+
|
||||||
|
+
|
||||||
|
+/*
|
||||||
|
* These function have been renamed. The old names are deprecated, but we
|
||||||
|
* define these macros for backwards compatibilty.
|
||||||
|
*/
|
||||||
|
@@ -268,6 +308,14 @@ typedef struct Tcl_RegExp_ *Tcl_RegExp;
|
||||||
|
#define Tcl_Return Tcl_SetResult
|
||||||
|
#define Tcl_TildeSubst Tcl_TranslateFileName
|
||||||
|
|
||||||
|
+/*
|
||||||
|
+ * In later releases, Tcl_Panic will be the correct name to use. For now
|
||||||
|
+ * we leave it as panic to avoid breaking existing binaries.
|
||||||
|
+ */
|
||||||
|
+
|
||||||
|
+#define Tcl_Panic panic
|
||||||
|
+#define Tcl_PanicVA panicVA
|
||||||
|
+
|
||||||
|
#endif /* RESOURCE_INCLUDED */
|
||||||
|
|
||||||
|
#undef TCL_STORAGE_CLASS
|
107
SOURCES/expect-5.45.4-covscan-fixes.patch
Normal file
107
SOURCES/expect-5.45.4-covscan-fixes.patch
Normal file
@ -0,0 +1,107 @@
|
|||||||
|
diff -up expect5.45.4/exp_chan.c.orig expect5.45.4/exp_chan.c
|
||||||
|
--- expect5.45.4/exp_chan.c.orig 2018-02-02 20:15:52.000000000 +0100
|
||||||
|
+++ expect5.45.4/exp_chan.c 2018-10-09 14:14:44.851965292 +0200
|
||||||
|
@@ -51,6 +51,8 @@ static void ExpWatchProc _ANSI_ARGS_((C
|
||||||
|
int mask));
|
||||||
|
static int ExpGetHandleProc _ANSI_ARGS_((ClientData instanceData,
|
||||||
|
int direction, ClientData *handlePtr));
|
||||||
|
+void exp_background_channelhandler _ANSI_ARGS_((ClientData,
|
||||||
|
+ int));
|
||||||
|
|
||||||
|
/*
|
||||||
|
* This structure describes the channel type structure for Expect-based IO:
|
||||||
|
diff -up expect5.45.4/exp_clib.c.orig expect5.45.4/exp_clib.c
|
||||||
|
--- expect5.45.4/exp_clib.c.orig 2018-10-09 14:14:44.841965281 +0200
|
||||||
|
+++ expect5.45.4/exp_clib.c 2018-10-09 14:14:44.873965319 +0200
|
||||||
|
@@ -37,6 +37,14 @@ would appreciate credit if this program
|
||||||
|
# endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
+#ifdef HAVE_UNISTD_H
|
||||||
|
+# include <unistd.h>
|
||||||
|
+#endif
|
||||||
|
+
|
||||||
|
+//#ifdef HAVE_SYS_WAIT_H
|
||||||
|
+# include <sys/wait.h>
|
||||||
|
+//#endif
|
||||||
|
+
|
||||||
|
#ifdef HAVE_SYS_FCNTL_H
|
||||||
|
# include <sys/fcntl.h>
|
||||||
|
#else
|
||||||
|
@@ -2196,6 +2204,7 @@ int exp_getptyslave();
|
||||||
|
#define sysreturn(x) return(errno = x, -1)
|
||||||
|
|
||||||
|
void exp_init_pty();
|
||||||
|
+void exp_init_tty();
|
||||||
|
|
||||||
|
/*
|
||||||
|
The following functions are linked from the Tcl library. They
|
||||||
|
@@ -2715,6 +2724,7 @@ exp_spawnl TCL_VARARGS_DEF(char *,arg1)
|
||||||
|
argv[i] = va_arg(args,char *);
|
||||||
|
if (!argv[i]) break;
|
||||||
|
}
|
||||||
|
+ va_end(args);
|
||||||
|
i = exp_spawnv(argv[0],argv+1);
|
||||||
|
free((char *)argv);
|
||||||
|
return(i);
|
||||||
|
@@ -3188,6 +3198,7 @@ exp_expectl TCL_VARARGS_DEF(int,arg1)
|
||||||
|
/* Ultrix 4.2 compiler refuses enumerations comparison!? */
|
||||||
|
if ((int)type < 0 || (int)type >= (int)exp_bogus) {
|
||||||
|
fprintf(stderr,"bad type (set %d) in exp_expectl\n",i);
|
||||||
|
+ va_end(args);
|
||||||
|
sysreturn(EINVAL);
|
||||||
|
}
|
||||||
|
|
||||||
|
@@ -3253,6 +3264,7 @@ exp_fexpectl TCL_VARARGS_DEF(FILE *,arg1
|
||||||
|
/* Ultrix 4.2 compiler refuses enumerations comparison!? */
|
||||||
|
if ((int)type < 0 || (int)type >= (int)exp_bogus) {
|
||||||
|
fprintf(stderr,"bad type (set %d) in exp_expectl\n",i);
|
||||||
|
+ va_end(args);
|
||||||
|
sysreturn(EINVAL);
|
||||||
|
}
|
||||||
|
|
||||||
|
diff -up expect5.45.4/exp_log.c.orig expect5.45.4/exp_log.c
|
||||||
|
--- expect5.45.4/exp_log.c.orig 2018-10-09 14:14:44.838965277 +0200
|
||||||
|
+++ expect5.45.4/exp_log.c 2018-10-09 14:14:44.852965294 +0200
|
||||||
|
@@ -174,7 +174,10 @@ expStdoutLog TCL_VARARGS_DEF(int,arg1)
|
||||||
|
force_stdout = TCL_VARARGS_START(int,arg1,args);
|
||||||
|
fmt = va_arg(args,char *);
|
||||||
|
|
||||||
|
- if ((!tsdPtr->logUser) && (!force_stdout) && (!tsdPtr->logAll)) return;
|
||||||
|
+ if ((!tsdPtr->logUser) && (!force_stdout) && (!tsdPtr->logAll)) {
|
||||||
|
+ va_end(args);
|
||||||
|
+ return;
|
||||||
|
+ }
|
||||||
|
|
||||||
|
(void) vsnprintf(bigbuf,sizeof(bigbuf),fmt,args);
|
||||||
|
expDiagWriteBytes(bigbuf,-1);
|
||||||
|
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-10-09 14:14:44.848965289 +0200
|
||||||
|
+++ expect5.45.4/exp_main_sub.c 2018-10-09 14:14:44.852965294 +0200
|
||||||
|
@@ -57,6 +57,7 @@ int exp_cmdlinecmds = FALSE;
|
||||||
|
int exp_interactive = FALSE;
|
||||||
|
int exp_buffer_command_input = FALSE;/* read in entire cmdfile at once */
|
||||||
|
int exp_fgets();
|
||||||
|
+int exp_tty_cooked_echo(Tcl_Interp *interp, exp_tty *tty_old, int *was_raw, int *was_echo);
|
||||||
|
|
||||||
|
Tcl_Interp *exp_interp; /* for use by signal handlers who can't figure out */
|
||||||
|
/* the interpreter directly */
|
||||||
|
diff -up expect5.45.4/pty_termios.c.orig expect5.45.4/pty_termios.c
|
||||||
|
--- expect5.45.4/pty_termios.c.orig 2018-10-09 14:17:00.132127498 +0200
|
||||||
|
+++ expect5.45.4/pty_termios.c 2018-10-09 14:33:59.393315570 +0200
|
||||||
|
@@ -105,6 +105,7 @@ with openpty which supports 4000 while p
|
||||||
|
|
||||||
|
void expDiagLog();
|
||||||
|
void expDiagLogPtr();
|
||||||
|
+char *expErrnoMsg(int errorNo);
|
||||||
|
|
||||||
|
#include <errno.h>
|
||||||
|
/*extern char *sys_errlist[];*/
|
||||||
|
@@ -189,6 +190,7 @@ static char slave_name[MAXPTYNAMELEN];
|
||||||
|
#endif /* HAVE_SCO_CLIST_PTYS */
|
||||||
|
|
||||||
|
#ifdef HAVE_OPENPTY
|
||||||
|
+#include <pty.h>
|
||||||
|
static char master_name[64];
|
||||||
|
static char slave_name[64];
|
||||||
|
#endif
|
@ -0,0 +1,67 @@
|
|||||||
|
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);
|
||||||
|
}
|
||||||
|
}
|
673
SPECS/expect.spec
Normal file
673
SPECS/expect.spec
Normal file
@ -0,0 +1,673 @@
|
|||||||
|
%{!?tcl_version: %global tcl_version %(echo 'puts $tcl_version' | tclsh)}
|
||||||
|
%{!?tcl_sitearch: %global tcl_sitearch %{_libdir}/tcl%{tcl_version}}
|
||||||
|
%global majorver 5.45.4
|
||||||
|
|
||||||
|
Summary: A program-script interaction and testing utility
|
||||||
|
Name: expect
|
||||||
|
Version: %{majorver}
|
||||||
|
Release: 15%{?dist}
|
||||||
|
License: Public Domain
|
||||||
|
URL: https://core.tcl.tk/expect/index
|
||||||
|
Source: http://downloads.sourceforge.net/%{name}/%{name}%{version}.tar.gz
|
||||||
|
Buildrequires: gcc tcl-devel autoconf automake chrpath
|
||||||
|
BuildRequires: make
|
||||||
|
# Patch0: fixes change log file permissions
|
||||||
|
Patch0: expect-5.43.0-log_file.patch
|
||||||
|
# Patch1: fixes install location, change pkgIndex
|
||||||
|
Patch1: expect-5.43.0-pkgpath.patch
|
||||||
|
# Patch2: fixes minor man page formatting issue
|
||||||
|
Patch2: expect-5.45-man-page.patch
|
||||||
|
# Patch3: fixes segmentation fault during matching characters
|
||||||
|
Patch3: expect-5.45-match-gt-numchars-segfault.patch
|
||||||
|
# Patch4: fixes memory leak when using -re, http://sourceforge.net/p/expect/patches/13/
|
||||||
|
Patch4: expect-5.45-re-memleak.patch
|
||||||
|
# Patch5: use vsnprintf instead of vsprintf to avoid buffer overflow
|
||||||
|
Patch5: expect-5.45-exp-log-buf-overflow.patch
|
||||||
|
# Patch6: fixes segfaults if Tcl is built with stubs and Expect is used directly
|
||||||
|
# from C program rhbz#1091060
|
||||||
|
Patch6: expect-5.45-segfault-with-stubs.patch
|
||||||
|
# Patch7: fixes leaked fd, patch by Matej Mužila, rhbz#1001220
|
||||||
|
Patch7: expect-5.45-fd-leak.patch
|
||||||
|
# Patch8: unificates usage message of expect binary and man page, adds -h flag
|
||||||
|
Patch8: expect-5.45.4-unification-of-usage-and-man-page.patch
|
||||||
|
# Patch9: fixes issues detected by static analysis
|
||||||
|
Patch9: expect-5.45.4-covscan-fixes.patch
|
||||||
|
# examples patches
|
||||||
|
# Patch100: changes random function
|
||||||
|
Patch100: expect-5.32.2-random.patch
|
||||||
|
# Patch101: fixes bz674184 - mkpasswd fails randomly
|
||||||
|
Patch101: expect-5.45-mkpasswd-dash.patch
|
||||||
|
# Patch102: fixes bz703702 - let user know that telnet is needed for
|
||||||
|
# running some examples
|
||||||
|
Patch102: expect-5.45-check-telnet.patch
|
||||||
|
# Patch103: use full path to 'su', it's safer
|
||||||
|
Patch103: expect-5.45-passmass-su-full-path.patch
|
||||||
|
# Patch104: rhbz 963889, fixes inaccuracy in mkpasswd man page
|
||||||
|
Patch104: expect-5.45-mkpasswd-man.patch
|
||||||
|
# Patch105: Fix error with -Werror=format-security
|
||||||
|
Patch105: expect-5.45-format-security.patch
|
||||||
|
|
||||||
|
%description
|
||||||
|
Expect is a tcl application for automating and testing
|
||||||
|
interactive applications such as telnet, ftp, passwd, fsck,
|
||||||
|
rlogin, tip, etc. Expect makes it easy for a script to
|
||||||
|
control another program and interact with it.
|
||||||
|
|
||||||
|
This package contains expect and some scripts that use it.
|
||||||
|
|
||||||
|
%package devel
|
||||||
|
Summary: A program-script interaction and testing utility
|
||||||
|
Requires: expect = %{version}-%{release}
|
||||||
|
|
||||||
|
%description devel
|
||||||
|
Expect is a tcl application for automating and testing
|
||||||
|
interactive applications such as telnet, ftp, passwd, fsck,
|
||||||
|
rlogin, tip, etc. Expect makes it easy for a script to
|
||||||
|
control another program and interact with it.
|
||||||
|
|
||||||
|
This package contains development files for the expect library.
|
||||||
|
|
||||||
|
%package -n expectk
|
||||||
|
Summary: A program-script interaction and testing utility
|
||||||
|
Requires: expect = %{version}-%{release}
|
||||||
|
|
||||||
|
%description -n expectk
|
||||||
|
Expect is a tcl application for automating and testing
|
||||||
|
interactive applications such as telnet, ftp, passwd, fsck,
|
||||||
|
rlogin, tip, etc. Expect makes it easy for a script to
|
||||||
|
control another program and interact with it.
|
||||||
|
|
||||||
|
This package originally contained expectk and some scripts
|
||||||
|
that used it. As expectk was removed from upstream tarball
|
||||||
|
in expect-5.45, now the package contains just these scripts.
|
||||||
|
Please use tclsh with package require Tk and Expect instead
|
||||||
|
of expectk.
|
||||||
|
|
||||||
|
%prep
|
||||||
|
%setup -q -n expect%{version}
|
||||||
|
%patch0 -p1 -b .log_file
|
||||||
|
%patch1 -p1 -b .pkgpath
|
||||||
|
%patch2 -p1 -b .man-page
|
||||||
|
%patch3 -p1 -b .match-gt-numchars-segfault
|
||||||
|
%patch4 -p1 -b .re-memleak
|
||||||
|
%patch5 -p1 -b .exp-log-buf-overflow
|
||||||
|
%patch6 -p1 -b .segfault-with-stubs
|
||||||
|
%patch7 -p1 -b .fd-leak
|
||||||
|
%patch8 -p1 -b .unification-of-usage-and-man-page
|
||||||
|
%patch9 -p1 -b .covscan-fixes
|
||||||
|
# examples fixes
|
||||||
|
%patch100 -p1 -b .random
|
||||||
|
%patch101 -p1 -b .mkpasswd-dash
|
||||||
|
%patch102 -p1 -b .check-telnet
|
||||||
|
%patch103 -p1 -b .passmass-su-full-path
|
||||||
|
%patch104 -p1 -b .mkpasswd-man
|
||||||
|
%patch105 -p0 -b .format-security
|
||||||
|
# -pkgpath.patch touch configure.in
|
||||||
|
aclocal
|
||||||
|
autoconf
|
||||||
|
( cd testsuite
|
||||||
|
autoconf -I.. )
|
||||||
|
|
||||||
|
%build
|
||||||
|
%configure --with-tcl=%{_libdir} --with-tk=%{_libdir} --enable-shared \
|
||||||
|
--with-tclinclude=%{_includedir}/tcl-private/generic
|
||||||
|
make %{?_smp_mflags}
|
||||||
|
|
||||||
|
%check
|
||||||
|
make test
|
||||||
|
|
||||||
|
%install
|
||||||
|
rm -rf "$RPM_BUILD_ROOT"
|
||||||
|
make install DESTDIR="$RPM_BUILD_ROOT"
|
||||||
|
|
||||||
|
# move
|
||||||
|
mv "$RPM_BUILD_ROOT"%{tcl_sitearch}/expect%{version}/libexpect%{version}.so "$RPM_BUILD_ROOT"%{_libdir}
|
||||||
|
|
||||||
|
# for linking with -lexpect
|
||||||
|
ln -s libexpect%{majorver}.so "$RPM_BUILD_ROOT"%{_libdir}/libexpect.so
|
||||||
|
|
||||||
|
# remove cryptdir/decryptdir, as Linux has no crypt command (bug 6668).
|
||||||
|
rm -f "$RPM_BUILD_ROOT"%{_bindir}/{cryptdir,decryptdir}
|
||||||
|
rm -f "$RPM_BUILD_ROOT"%{_mandir}/man1/{cryptdir,decryptdir}.1*
|
||||||
|
rm -f "$RPM_BUILD_ROOT"%{_bindir}/autopasswd
|
||||||
|
|
||||||
|
# rename mkpasswd, as it collides with more powerful variant from whois package (bug 1649456)
|
||||||
|
mv "$RPM_BUILD_ROOT"%{_bindir}/mkpasswd "$RPM_BUILD_ROOT"%{_bindir}/mkpasswd-expect
|
||||||
|
mv "$RPM_BUILD_ROOT"%{_mandir}/man1/mkpasswd.1 "$RPM_BUILD_ROOT"%{_mandir}/man1/mkpasswd-expect.1
|
||||||
|
sed -i 's/mkpasswd/mkpasswd-expect/g;s/MKPASSWD/MKPASSWD-EXPECT/g' "$RPM_BUILD_ROOT"%{_mandir}/man1/mkpasswd-expect.1
|
||||||
|
sed -i 's/mkpasswd/mkpasswd-expect/g' "$RPM_BUILD_ROOT"%{_bindir}/mkpasswd-expect
|
||||||
|
|
||||||
|
# remove rpath
|
||||||
|
chrpath --delete $RPM_BUILD_ROOT%{_libdir}/libexpect%{version}.so
|
||||||
|
|
||||||
|
|
||||||
|
%files
|
||||||
|
%doc FAQ HISTORY NEWS README
|
||||||
|
%{_bindir}/expect
|
||||||
|
%{_bindir}/autoexpect
|
||||||
|
%{_bindir}/dislocate
|
||||||
|
%{_bindir}/ftp-rfc
|
||||||
|
%{_bindir}/kibitz
|
||||||
|
%{_bindir}/lpunlock
|
||||||
|
%{_bindir}/mkpasswd-expect
|
||||||
|
%{_bindir}/passmass
|
||||||
|
%{_bindir}/rftp
|
||||||
|
%{_bindir}/rlogin-cwd
|
||||||
|
%{_bindir}/timed-read
|
||||||
|
%{_bindir}/timed-run
|
||||||
|
%{_bindir}/unbuffer
|
||||||
|
%{_bindir}/weather
|
||||||
|
%{_bindir}/xkibitz
|
||||||
|
%dir %{tcl_sitearch}/expect%{version}
|
||||||
|
%{tcl_sitearch}/expect%{version}/pkgIndex.tcl
|
||||||
|
%{_libdir}/libexpect%{version}.so
|
||||||
|
%{_libdir}/libexpect.so
|
||||||
|
%{_mandir}/man1/autoexpect.1.gz
|
||||||
|
%{_mandir}/man1/dislocate.1.gz
|
||||||
|
%{_mandir}/man1/expect.1.gz
|
||||||
|
%{_mandir}/man1/kibitz.1.gz
|
||||||
|
%{_mandir}/man1/mkpasswd-expect.1.gz
|
||||||
|
%{_mandir}/man1/passmass.1.gz
|
||||||
|
%{_mandir}/man1/unbuffer.1.gz
|
||||||
|
%{_mandir}/man1/xkibitz.1.gz
|
||||||
|
|
||||||
|
%files devel
|
||||||
|
%{_mandir}/man3/libexpect.3*
|
||||||
|
%{_includedir}/*
|
||||||
|
|
||||||
|
%files -n expectk
|
||||||
|
%{_bindir}/multixterm
|
||||||
|
%{_bindir}/tknewsbiff
|
||||||
|
%{_bindir}/tkpasswd
|
||||||
|
%{_bindir}/xpstat
|
||||||
|
%{_mandir}/man1/multixterm.1*
|
||||||
|
%{_mandir}/man1/tknewsbiff.1*
|
||||||
|
|
||||||
|
%changelog
|
||||||
|
* Mon Aug 09 2021 Mohan Boddu <mboddu@redhat.com> - 5.45.4-15
|
||||||
|
- Rebuilt for IMA sigs, glibc 2.34, aarch64 flags
|
||||||
|
Related: rhbz#1991688
|
||||||
|
|
||||||
|
* Thu Apr 15 2021 Mohan Boddu <mboddu@redhat.com> - 5.45.4-14
|
||||||
|
- Rebuilt for RHEL 9 BETA on Apr 15th 2021. Related: rhbz#1947937
|
||||||
|
|
||||||
|
* Tue Jan 26 2021 Fedora Release Engineering <releng@fedoraproject.org> - 5.45.4-13
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_34_Mass_Rebuild
|
||||||
|
|
||||||
|
* Mon Jul 27 2020 Fedora Release Engineering <releng@fedoraproject.org> - 5.45.4-12
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
|
||||||
|
|
||||||
|
* Tue Jan 28 2020 Fedora Release Engineering <releng@fedoraproject.org> - 5.45.4-11
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild
|
||||||
|
|
||||||
|
* Thu Jul 25 2019 Fedora Release Engineering <releng@fedoraproject.org> - 5.45.4-10
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_31_Mass_Rebuild
|
||||||
|
|
||||||
|
* Thu Jan 31 2019 Fedora Release Engineering <releng@fedoraproject.org> - 5.45.4-9
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_30_Mass_Rebuild
|
||||||
|
|
||||||
|
* Thu Nov 22 2018 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45.4-8
|
||||||
|
- Rename mkpasswd to mkpasswd-expect
|
||||||
|
Resolves: #1649456
|
||||||
|
|
||||||
|
* Wed Oct 10 2018 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45.4-7
|
||||||
|
- Fix issues detected by static analysis
|
||||||
|
|
||||||
|
* Wed Aug 29 2018 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45.4-6
|
||||||
|
- Unificate and improve both man page and usage message of expect
|
||||||
|
|
||||||
|
* Fri Jul 13 2018 Fedora Release Engineering <releng@fedoraproject.org> - 5.45.4-5
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_29_Mass_Rebuild
|
||||||
|
|
||||||
|
* Wed Jun 27 2018 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45.4-4
|
||||||
|
- Fix wrong log file permissions
|
||||||
|
|
||||||
|
* Wed Jun 20 2018 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45.4-3
|
||||||
|
- Fix upstream URL
|
||||||
|
|
||||||
|
* Tue Feb 27 2018 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45.4-2
|
||||||
|
- Add BuildRequires gcc
|
||||||
|
|
||||||
|
* Tue Feb 06 2018 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45.4-1
|
||||||
|
- New upstream release 5.45.4
|
||||||
|
Resolves: #1541735
|
||||||
|
|
||||||
|
* Mon Oct 23 2017 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45.3-1
|
||||||
|
- New upstream release 5.45.3
|
||||||
|
Resolves: #1503372
|
||||||
|
- Removed 'Group' tag from spec file
|
||||||
|
|
||||||
|
* Wed Aug 02 2017 Fedora Release Engineering <releng@fedoraproject.org> - 5.45-28
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Binutils_Mass_Rebuild
|
||||||
|
|
||||||
|
* Wed Jul 26 2017 Fedora Release Engineering <releng@fedoraproject.org> - 5.45-27
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
|
||||||
|
|
||||||
|
* Mon Apr 24 2017 Nils Philippsen <nils@redhat.com> - 5.45-26
|
||||||
|
- remove unnecessary tk-devel and libXft-devel build dependencies
|
||||||
|
|
||||||
|
* Tue Mar 28 2017 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-25
|
||||||
|
- tknewsbiff man page should be only in expectk - removed its duplicate
|
||||||
|
from expect package
|
||||||
|
|
||||||
|
* Fri Mar 24 2017 Stephen Gallagher <sgallagh@redhat.com> - 5.45-24
|
||||||
|
- Fix build failures with -Werror=format-security
|
||||||
|
|
||||||
|
* Fri Feb 10 2017 Fedora Release Engineering <releng@fedoraproject.org> - 5.45-23
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
|
||||||
|
|
||||||
|
* Wed Feb 03 2016 Fedora Release Engineering <releng@fedoraproject.org> - 5.45-22
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild
|
||||||
|
|
||||||
|
* Tue Jan 05 2016 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-21
|
||||||
|
- Replace 'define' with 'global'
|
||||||
|
|
||||||
|
* Wed Jun 17 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.45-20
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
|
||||||
|
|
||||||
|
* Wed May 20 2015 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-19
|
||||||
|
- Use different and probably better approach of fixing segfaults if Tcl is
|
||||||
|
built with stubs and Expect is used directly from C program
|
||||||
|
|
||||||
|
* Tue Sep 09 2014 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-18
|
||||||
|
- Fix leaked fd (patch by Matej Mužila)
|
||||||
|
Resolves: #1001220
|
||||||
|
|
||||||
|
* Sat Aug 16 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.45-17
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_22_Mass_Rebuild
|
||||||
|
|
||||||
|
* Sat Jun 07 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.45-16
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild
|
||||||
|
|
||||||
|
* Wed May 21 2014 Jaroslav Škarvada <jskarvad@redhat.com> - 5.45-15
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Changes/f21tcl86
|
||||||
|
|
||||||
|
* Mon Apr 28 2014 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-14
|
||||||
|
- Fix segfaults if Tcl is built with stubs and Expect is used directly from C program
|
||||||
|
(patch taken from Debian project, written by Sergei Golovan)
|
||||||
|
|
||||||
|
* Thu Dec 12 2013 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-13
|
||||||
|
- Use vsnprintf instead of vsprintf to avoid buffer overflow
|
||||||
|
(it happens e.g. when running systemtap testsuite)
|
||||||
|
|
||||||
|
* Wed Oct 02 2013 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-12
|
||||||
|
- Fix memory leak when using -re option
|
||||||
|
|
||||||
|
* Tue Aug 27 2013 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-11
|
||||||
|
- Fix inaccuracy in mkpasswd man page
|
||||||
|
Resolves: #963889
|
||||||
|
|
||||||
|
* Sat Aug 03 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.45-10
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
|
||||||
|
|
||||||
|
* Thu Apr 04 2013 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-9
|
||||||
|
- Fix repeated words in man pages
|
||||||
|
|
||||||
|
* Wed Feb 13 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.45-8
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
|
||||||
|
|
||||||
|
* Thu Jul 19 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.45-7
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild
|
||||||
|
|
||||||
|
* Mon Feb 06 2012 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-6
|
||||||
|
- Fix character matching to avoid segmentation fault
|
||||||
|
- Move libexpect link out of -devel subpackage
|
||||||
|
|
||||||
|
* Fri Jan 13 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.45-5
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild
|
||||||
|
|
||||||
|
* Tue Sep 06 2011 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-4
|
||||||
|
- Let user know when expample script needs telnet and it is missing
|
||||||
|
Resolves: #703702
|
||||||
|
- Use full path to 'su' in passmass example, it's safer
|
||||||
|
- Fix expect man page minor formatting issue
|
||||||
|
|
||||||
|
* Wed Mar 16 2011 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-3
|
||||||
|
- Fix mkpasswd fails randomly
|
||||||
|
Resolves: #674184
|
||||||
|
|
||||||
|
* Tue Feb 08 2011 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.45-2
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
|
||||||
|
|
||||||
|
* Tue Jan 18 2011 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45-1
|
||||||
|
- Update to expect-5.45
|
||||||
|
|
||||||
|
* Wed Mar 10 2010 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.44.1.15-1
|
||||||
|
- Update to 5.44.1.15 from upstream CVS
|
||||||
|
Resolves: #528654, Resolves: #501820
|
||||||
|
- Remove config.sub (no longer needed), remove unused patches (few are
|
||||||
|
upstream now, few are pointless with new version), comment patches
|
||||||
|
- Fix unbuffer to return exit code of ubuffered program
|
||||||
|
Resolves: #547686
|
||||||
|
- Fix Tk initialization
|
||||||
|
Resolves: #456738
|
||||||
|
|
||||||
|
* Mon Aug 10 2009 Ville Skyttä <ville.skytta@iki.fi> - 5.43.0-19
|
||||||
|
- Use bzipped upstream tarball.
|
||||||
|
|
||||||
|
* Fri Jul 24 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.43.0-18
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
|
||||||
|
|
||||||
|
* Tue Feb 24 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.43.0-17
|
||||||
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
|
||||||
|
|
||||||
|
* Wed Feb 11 2009 Vitezslav Crhonek <vcrhonek@redhat.com> - 5:43.0-16
|
||||||
|
- Modify and rebuild for new Tcl
|
||||||
|
|
||||||
|
* Thu Sep 25 2008 Vitezslav Crhonek <vcrhonek@redhat.com> - 5:43.0-15
|
||||||
|
- Rediff all patches to work with patch --fuzz=0
|
||||||
|
|
||||||
|
* Mon Jun 9 2008 Vitezslav Crhonek <vcrhonek@redhat.com> - 5:43.0-14
|
||||||
|
- Use latest config.sub file for package build
|
||||||
|
Resolves: #449560
|
||||||
|
|
||||||
|
* Mon Feb 11 2008 Vitezslav Crhonek <vcrhonek@redhat.com> - 5:43.0-13
|
||||||
|
- Rebuild
|
||||||
|
|
||||||
|
* Mon Jan 14 2008 Wart <wart@kobold.org> - 5.43.0-12
|
||||||
|
- Update install locations to reflect updated auto_path in the tcl 8.5 package
|
||||||
|
|
||||||
|
* Mon Jan 07 2008 Adam Tkac <atkac redhat com> - 5.43.0-11
|
||||||
|
- updated "tcl8.5" patch
|
||||||
|
|
||||||
|
* Sat Jan 5 2008 Alex Lancaster <alexlan[AT]fedoraproject org> - 5.43.0-10
|
||||||
|
- Rebuild for new Tcl 8.5
|
||||||
|
|
||||||
|
* Thu Aug 23 2007 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.43.0-9
|
||||||
|
- rebuild
|
||||||
|
|
||||||
|
* Sat Feb 10 2007 Jakub Jelinek <jakub@redhat.com> - 5.43.0-8
|
||||||
|
- Update to build this time with Tcl 8.4
|
||||||
|
|
||||||
|
* Thu Feb 8 2007 Miloslav Trmac <mitr@redhat.com> - 5.43.0-7
|
||||||
|
- s/%%{buildroot}/"$RPM_BUILD_ROOT"/g
|
||||||
|
- s,/usr/share/man,%%{_mandir},g
|
||||||
|
- Use the Fedora-specified Buildroot:
|
||||||
|
- Remove BuildRequires: libX11-devel
|
||||||
|
- Don't install pkgIndex.tcl as an executable file
|
||||||
|
- Drop the incorrect expect-5.32.2-fixcat.patch
|
||||||
|
- Remove comments from *.h.in because they confuse config.status; this makes
|
||||||
|
the workaround expect-5.43.0-cfg-setpgrp.patch unnecesary.
|
||||||
|
|
||||||
|
* Sat Feb 3 2007 Miloslav Trmac <mitr@redhat.com> - 5.43.0-6
|
||||||
|
- Update to build with Tcl 8.5
|
||||||
|
- Drop static libraries
|
||||||
|
- Ship more documentation
|
||||||
|
- Use %%check for (make test), remove the conditional
|
||||||
|
|
||||||
|
* Wed Jul 12 2006 Jesse Keating <jkeating@redhat.com> - 5.43.0-5.1
|
||||||
|
- rebuild
|
||||||
|
|
||||||
|
* Mon May 15 2006 David Cantrell <dcantrell@redhat.com> - 5.43.0-5
|
||||||
|
- BuildRequires libX11-devel
|
||||||
|
|
||||||
|
* Fri Feb 24 2006 David Cantrell <dcantrell@redhat.com> - 5.43.0-4
|
||||||
|
- Patch expLogChannelOpen() to create files with 0666 permissions (#182724)
|
||||||
|
|
||||||
|
* Fri Feb 10 2006 Jesse Keating <jkeating@redhat.com> - 5.43.0-3.1
|
||||||
|
- bump again for double-long bug on ppc(64)
|
||||||
|
|
||||||
|
* Tue Feb 07 2006 David Cantrell <dcantrell@redhat.com> - 5.43.0-3
|
||||||
|
- Rebuilt
|
||||||
|
|
||||||
|
* Fri Dec 09 2005 Jesse Keating <jkeating@redhat.com>
|
||||||
|
- rebuilt
|
||||||
|
|
||||||
|
* Tue May 31 2005 Jens Petersen <petersen@redhat.com> - 5.43.0-2
|
||||||
|
- fix flushing of unbuffer script (Charles Sullivan, #143963)
|
||||||
|
with unbuffer-child-flush-143963.patch (Don Libes)
|
||||||
|
- make autoconf include parent dir in testsuite to avoid error
|
||||||
|
(Robert Scheck, 150369)
|
||||||
|
- separate the examples scripts patches from the rest
|
||||||
|
|
||||||
|
* Mon Mar 7 2005 Jens Petersen <petersen@redhat.com>
|
||||||
|
- replace expect-5.32.2-setpgrp.patch by expect-5.43.0-cfg-setpgrp.patch
|
||||||
|
to set SETPGRP_VOID correctly
|
||||||
|
|
||||||
|
* Mon Mar 7 2005 Jens Petersen <petersen@redhat.com> - 5.43.0-1
|
||||||
|
- run test make target by default
|
||||||
|
- can be turned off with --without check
|
||||||
|
|
||||||
|
* Sat Mar 05 2005 Robert Scheck <redhat@linuxnetz.de>
|
||||||
|
- update to 5.43.0 (150369)
|
||||||
|
- no longer need expect-5.39.0-64bit-82547.patch,
|
||||||
|
expect-5.38.0-autopasswd-9917.patch
|
||||||
|
and expect-5.42-mkpasswd-verbose-user-141454.patch
|
||||||
|
- run aclocal and configure with current autoconf (116777)
|
||||||
|
- buildrequire autoconf and automake instead of autoconf213
|
||||||
|
|
||||||
|
* Fri Dec 3 2004 Jens Petersen <petersen@redhat.com> - 5.42.1-2
|
||||||
|
- fix "mkpasswd -v" failure when user not specified with
|
||||||
|
expect-5.42-mkpasswd-verbose-user-141454.patch (J F Wheeler, 141454)
|
||||||
|
|
||||||
|
* Thu Aug 5 2004 Jens Petersen <petersen@redhat.com> - 5.42.1-1
|
||||||
|
- update to 5.42.1 (Robert Scheck, 126536)
|
||||||
|
- no longer need expect-5.32.2-kibitz.patch
|
||||||
|
- update expect-5.38.0-autopasswd-9917.patch
|
||||||
|
- drop explicit tcl and tk requires
|
||||||
|
|
||||||
|
* Mon Jun 21 2004 Alan Cox <alan@redhat.com>
|
||||||
|
- Autopasswd doesnt work and isnt ever going to work with pam around
|
||||||
|
since password setting depends on the modules in use (think "fingerprint"
|
||||||
|
or "smartcard"..). Remove it.
|
||||||
|
|
||||||
|
* Tue Jun 15 2004 Elliot Lee <sopwith@redhat.com>
|
||||||
|
- rebuilt
|
||||||
|
|
||||||
|
* Tue Mar 02 2004 Elliot Lee <sopwith@redhat.com>
|
||||||
|
- rebuilt
|
||||||
|
|
||||||
|
* Fri Feb 13 2004 Elliot Lee <sopwith@redhat.com>
|
||||||
|
- rebuilt
|
||||||
|
|
||||||
|
* Fri Nov 28 2003 Jens Petersen <petersen@redhat.com> - 5.39.0-95
|
||||||
|
- new package split out from tcltk
|
||||||
|
- build against installed tcl and tk
|
||||||
|
- filtered changelog for expect
|
||||||
|
- buildrequire autoconf213 (#110583) [mvd@mylinux.com.ua]
|
||||||
|
|
||||||
|
* Mon Nov 17 2003 Thomas Woerner <twoerner@redhat.com> 8.3.5-94
|
||||||
|
- fixed RPATH for expect and expectk: expect-5.39.0-libdir.patch
|
||||||
|
|
||||||
|
* Wed Oct 15 2003 Jens Petersen <petersen@redhat.com> - 8.3.5-93
|
||||||
|
- update expect to 5.39.0 (fixes #58317)
|
||||||
|
- drop first hunk of 64bit patch and rename to expect-5.39.0-64bit-82547.patch
|
||||||
|
- expect-5.32.2-weather.patch and expect-5.32.2-expectk.patch no longer needed
|
||||||
|
|
||||||
|
* Wed Sep 17 2003 Matt Wilson <msw@redhat.com> 8.3.5-92
|
||||||
|
- rebuild again for #91211
|
||||||
|
|
||||||
|
* Wed Sep 17 2003 Matt Wilson <msw@redhat.com> 8.3.5-91
|
||||||
|
- rebuild to fix gzipped file md5sums (#91211)
|
||||||
|
|
||||||
|
* Fri Jul 04 2003 Jens Petersen <petersen@redhat.com> - 8.3.5-90
|
||||||
|
- make sure expect and itcl are linked against buildroot not installroot libs
|
||||||
|
|
||||||
|
* Tue Jan 28 2003 Jens Petersen <petersen@redhat.com> - 8.3.5-87
|
||||||
|
- bring back expect alpha patch, renamed to 64bit patch (#82547)
|
||||||
|
|
||||||
|
* Fri Jan 17 2003 Jens Petersen <petersen@redhat.com> - 8.3.5-85
|
||||||
|
- add some requires
|
||||||
|
|
||||||
|
* Tue Jan 14 2003 Jens Petersen <petersen@redhat.com> - 8.3.5-84
|
||||||
|
- drop synthetic lib provides
|
||||||
|
- remove obsolete patches from srpm
|
||||||
|
- update buildrequires
|
||||||
|
- use buildroot instead of RPM_BUILD_ROOT
|
||||||
|
- install all man pages under mandir, instead of moving some from /usr/man
|
||||||
|
- introduce _genfilelist macro for clean single-sweep find filelist generation
|
||||||
|
for each package
|
||||||
|
- use perl to remove buildroot prefix from filelists
|
||||||
|
|
||||||
|
* Tue Jan 7 2003 Jeff Johnson <jbj@redhat.com> 8.3.5-80
|
||||||
|
- rebuild to generate deps for4 DSO's w/o DT_SONAME correctly.
|
||||||
|
|
||||||
|
* Sat Jan 4 2003 Jeff Johnson <jbj@redhat.com> 8.3.5-79
|
||||||
|
- set execute bits on library so that requires are generated.
|
||||||
|
|
||||||
|
* Tue Dec 10 2002 Jens Petersen <petersen@redhat.com> 8.3.5-78
|
||||||
|
- make lib symlinks to .so not .so.0
|
||||||
|
|
||||||
|
* Mon Dec 9 2002 Jens Petersen <petersen@redhat.com> 8.3.5-76
|
||||||
|
- make it build on x86_64 (details below)
|
||||||
|
- add 100 to expect patches
|
||||||
|
- patch expect configure to get EXP_LIB_SPEC to use libdir
|
||||||
|
- don't explicitly update config.{guess,sub} since %%configure does it for us
|
||||||
|
- added "--without check" rpmbuild option to disable running tests in future
|
||||||
|
- generate filelists from datadir and not from mandir from now on
|
||||||
|
|
||||||
|
* Tue Dec 3 2002 Jens Petersen <petersen@redhat.com>
|
||||||
|
- build without all makecfg patches for now
|
||||||
|
- in particular use upstream versioned library name convention
|
||||||
|
- add backward compatible lib symlinks for now
|
||||||
|
- add unversioned symlinks for versioned bindir files
|
||||||
|
- use make's -C option rather than jumping in and out of source dirs
|
||||||
|
during install
|
||||||
|
- use INSTALL_ROOT destdir-like make variable instead of makeinstall
|
||||||
|
for all subpackages except tix and itcl
|
||||||
|
|
||||||
|
* Mon Oct 21 2002 Jens Petersen <petersen@redhat.com>
|
||||||
|
- move expectk and expect-devel files out of expect into separate packages
|
||||||
|
(#9832)
|
||||||
|
- drop the crud compat dir symlinks in libdir
|
||||||
|
- correct expect license
|
||||||
|
- don't explicitly provide 64bit libs on ia64 and sparc64
|
||||||
|
|
||||||
|
* Tue Aug 20 2002 Jens Petersen <petersen@redhat.com> 8.3.3-74
|
||||||
|
- fix compat symlink from /usr/lib/expect (#71606)
|
||||||
|
|
||||||
|
* Wed Aug 14 2002 Jens Petersen <petersen@redhat.com> 8.3.3-73
|
||||||
|
- update to expect spawn patch from hjl@gnu.org (bug 43310)
|
||||||
|
|
||||||
|
* Tue Aug 13 2002 Jens Petersen <petersen@redhat.com> 8.3.3-72
|
||||||
|
- update expect to 5.38.0
|
||||||
|
- fixes #71113 (reported by yarnall@lvc.edu)
|
||||||
|
|
||||||
|
* Mon Jan 07 2002 Florian La Roche <Florian.LaRoche@redhat.de>
|
||||||
|
- quick hack to have a correct setpgrp() call in expect
|
||||||
|
- fix config.guess and config.sub to newer versions
|
||||||
|
|
||||||
|
* Tue Aug 28 2001 Adrian Havill <havill@redhat.com>
|
||||||
|
- expect's fixline1 busted for expectk scripts (tkpasswd/tknewsbiff/tkterm)
|
||||||
|
|
||||||
|
* Wed Aug 8 2001 Adrian Havill <havill@redhat.com>
|
||||||
|
- re-enable glibc string and math inlines; recent gcc is a-ok.
|
||||||
|
- optimize at -O2 instead of -O
|
||||||
|
- rename "soname" patches related to makefile/autoconf changes
|
||||||
|
|
||||||
|
* Wed Jul 25 2001 Adrian Havill <havill@redhat.com>
|
||||||
|
- fixed 64 bit RPM provides for dependencies
|
||||||
|
|
||||||
|
* Thu Jul 19 2001 Adrian Havill <havill@redhat.com>
|
||||||
|
- used %%makeinstall to brute force fix any remaining unflexible makefile dirs
|
||||||
|
- improved randomness of expect's mkpasswd script via /dev/random (bug 9507)
|
||||||
|
- revert --enable-threads, linux is (still) not ready (yet) (bug 49251)
|
||||||
|
|
||||||
|
* Sun Jul 8 2001 Adrian Havill <havill@redhat.com>
|
||||||
|
- refresh all sources to latest stable (TODO: separate expect/expectk)
|
||||||
|
- massage out some build stuff to patches (TODO: libtoolize hacked constants)
|
||||||
|
- remove patches already rolled into the upstream
|
||||||
|
- removed RPATH (bugs 45569, 46085, 46086), added SONAMEs to ELFs
|
||||||
|
- changed shared object filenames to something less gross
|
||||||
|
- reenable threads which seem to work now
|
||||||
|
- fixed spawn/eof read problem with expect (bug 43310)
|
||||||
|
- made compile-friendly for IA64
|
||||||
|
|
||||||
|
* Fri Mar 23 2001 Bill Nottingham <notting@redhat.com>
|
||||||
|
- bzip2 sources
|
||||||
|
|
||||||
|
* Mon Mar 19 2001 Bill Nottingham <notting@redhat.com>
|
||||||
|
- build with -D_GNU_SOURCE - fixes expect on ia64
|
||||||
|
|
||||||
|
* Mon Mar 19 2001 Preston Brown <pbrown@redhat.com>
|
||||||
|
- build fix from ahavill.
|
||||||
|
|
||||||
|
* Wed Feb 21 2001 Tim Powers <timp@redhat.com>
|
||||||
|
- fixed weather expect script using wrong server (#28505)
|
||||||
|
|
||||||
|
* Tue Feb 13 2001 Adrian Havill <havill@redhat.com>
|
||||||
|
- rebuild so make check passes
|
||||||
|
|
||||||
|
* Fri Oct 20 2000 Than Ngo <than@redhat.com>
|
||||||
|
- rebuild with -O0 on alpha (bug #19461)
|
||||||
|
|
||||||
|
* Thu Aug 17 2000 Jeff Johnson <jbj@redhat.com>
|
||||||
|
- summaries from specspo.
|
||||||
|
|
||||||
|
* Thu Jul 27 2000 Jeff Johnson <jbj@redhat.com>
|
||||||
|
- rebuild against "working" util-linux col.
|
||||||
|
|
||||||
|
* Fri Jun 16 2000 Jeff Johnson <jbj@redhat.com>
|
||||||
|
- don't mess with %%{_libdir}, it's gonna be a FHS pita.
|
||||||
|
|
||||||
|
* Fri Jun 2 2000 Jeff Johnson <jbj@redhat.com>
|
||||||
|
- FHS packaging changes.
|
||||||
|
- revert --enable-threads, linux is not ready (yet) (#11789).
|
||||||
|
- expect: update to 5.31.7+ (#11595).
|
||||||
|
|
||||||
|
* Sat Mar 18 2000 Jeff Johnson <jbj@redhat.com>
|
||||||
|
- update to (tcl,tk}-8.2.3, expect-5.31, and itcl-3.1.0, URL's as well.
|
||||||
|
- use perl to drill out pre-pended RPM_BUILD_ROOT.
|
||||||
|
- configure with --enable-threads (experimental).
|
||||||
|
- autopasswd needs to handle password starting with hyphen (#9917).
|
||||||
|
- handle 553 ftp status in rftp expect script (#7869).
|
||||||
|
- remove cryptdir/decryptdir, as Linux has not crypt command (#6668).
|
||||||
|
- correct hierarchy spelling (#7082).
|
||||||
|
- fix "expect -d ...", format string had int printed as string (#7775).
|
||||||
|
|
||||||
|
* Tue Mar 7 2000 Jeff Johnson <jbj@redhat.com>
|
||||||
|
- rebuild for sparc baud rates > 38400.
|
||||||
|
|
||||||
|
* Mon Feb 7 2000 Bill Nottingham <notting@redhat.com>
|
||||||
|
- handle compressed manpages
|
||||||
|
|
||||||
|
* Thu Feb 03 2000 Elliot Lee <sopwith@redhat.com>
|
||||||
|
- Make changes from bug number 7602
|
||||||
|
- Apply patch from bug number 7537
|
||||||
|
- Apply fix from bug number 7157
|
||||||
|
- Add fixes from bug #7601 to the runtcl patch
|
||||||
|
|
||||||
|
* Wed Feb 02 2000 Cristian Gafton <gafton@redhat.com>
|
||||||
|
- fix descriptions
|
||||||
|
- man pages are compressed (whatapain)
|
||||||
|
|
||||||
|
* Tue Nov 30 1999 Jakub Jelinek <jakub@redhat.com>
|
||||||
|
- compile on systems where SIGPWR == SIGLOST.
|
||||||
|
|
||||||
|
* Thu Apr 8 1999 Jeff Johnson <jbj@redhat.com>
|
||||||
|
- use /usr/bin/write in kibitz (#1320).
|
||||||
|
- use cirrus.sprl.umich.edu in weather (#1926).
|
||||||
|
|
||||||
|
* Tue Feb 16 1999 Jeff Johnson <jbj@redhat.com>
|
||||||
|
- expect does unaligned access on alpha (#989)
|
||||||
|
- upgrade expect to 5.28.
|
||||||
|
|
||||||
|
* Tue Jan 12 1999 Cristian Gafton <gafton@redhat.com>
|
||||||
|
- call libtoolize to allow building on the arm
|
||||||
|
- build for glibc 2.1
|
||||||
|
- strip binaries
|
||||||
|
|
||||||
|
* Thu Sep 10 1998 Jeff Johnson <jbj@redhat.com>
|
||||||
|
- update tcl/tk/tclX to 8.0.3, expect is updated also.
|
||||||
|
|
||||||
|
* Mon Jun 29 1998 Jeff Johnson <jbj@redhat.com>
|
||||||
|
- expect: mkpasswd needs delay before sending password (problem #576)
|
||||||
|
|
||||||
|
* Thu May 07 1998 Prospector System <bugs@redhat.com>
|
||||||
|
- translations modified for de, fr, tr
|
||||||
|
|
||||||
|
* Sat May 02 1998 Cristian Gafton <gafton@redhat.com>
|
||||||
|
- fixed expect binaries exec permissions
|
||||||
|
|
||||||
|
* Wed Oct 22 1997 Otto Hammersmith <otto@redhat.com>
|
||||||
|
- fixed src urls
|
||||||
|
|
||||||
|
* Mon Oct 06 1997 Erik Troan <ewt@redhat.com>
|
||||||
|
- removed version numbers from descriptions
|
||||||
|
|
||||||
|
* Mon Sep 22 1997 Erik Troan <ewt@redhat.com>
|
||||||
|
- updated to tcl/tk 8.0 and related versions of packages
|
||||||
|
|
||||||
|
* Tue Jun 17 1997 Erik Troan <ewt@redhat.com>
|
||||||
|
- built against glibc
|
||||||
|
- fixed dangling tclx/tkx symlinks
|
Loading…
Reference in New Issue
Block a user