Attachment "depend.patch" to
ticket [447042ffff]
added by
dgp
2001-08-02 11:10:21.
Index: mkIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/mkIndex.tcl,v
retrieving revision 1.4
diff -u -r1.4 mkIndex.tcl
--- mkIndex.tcl 2000/05/30 23:59:59 1.4
+++ mkIndex.tcl 2001/08/02 04:00:16
@@ -26,7 +26,7 @@
puts $index "}"
puts $index "package ifneeded $package $version {"
foreach module $modules {
- puts $index "\tpackage require $module"
+ puts $index "\tcatch {package require $module}"
}
puts $index "\tpackage provide $package $version"
puts $index "}"
Index: modules/base64/base64.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/base64/base64.n,v
retrieving revision 1.1
diff -u -r1.1 base64.n
--- modules/base64/base64.n 2001/07/31 23:47:51 1.1
+++ modules/base64/base64.n 2001/08/02 04:00:16
@@ -11,6 +11,8 @@
.SH NAME
::base64 \- Procedures to encode and decode base64
.SH SYNOPSIS
+\fBpackage require Tcl 8\fR
+.sp
\fBpackage require base64 ?2.2?\fR
.sp
\fB::base64::encode\fR ?-maxlen \fImaxlen\fR? ?-wrapchar \fIchar\fR? \fIstring\fR
Index: modules/base64/base64.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/base64/base64.tcl,v
retrieving revision 1.11
diff -u -r1.11 base64.tcl
--- modules/base64/base64.tcl 2001/07/10 20:39:46 1.11
+++ modules/base64/base64.tcl 2001/08/02 04:00:16
@@ -15,6 +15,7 @@
# Version 2.1 fixes various decode bugs and adds options to encode
# Version 2.2 is much faster, Tcl8.0 compatible
+package require Tcl 8
namespace eval base64 {
}
Index: modules/base64/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/base64/pkgIndex.tcl,v
retrieving revision 1.3
diff -u -r1.3 pkgIndex.tcl
--- modules/base64/pkgIndex.tcl 2001/06/22 14:33:07 1.3
+++ modules/base64/pkgIndex.tcl 2001/08/02 04:00:16
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8]} {return}
package ifneeded base64 2.2 [list source [file join $dir base64.tcl]]
Index: modules/cmdline/cmdline.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/cmdline/cmdline.n,v
retrieving revision 1.1
diff -u -r1.1 cmdline.n
--- modules/cmdline/cmdline.n 2001/07/31 23:47:51 1.1
+++ modules/cmdline/cmdline.n 2001/08/02 04:00:16
@@ -11,6 +11,8 @@
.SH NAME
::cmdline \- Procedures to process command lines and options.
.SH SYNOPSIS
+\fBpackage require Tcl 8.2\fR
+.sp
\fBpackage require cmdline ?1.1?\fR
.sp
\fB::cmdline::getopt\fR \fIargvVar optstring optVar valVar\fR
Index: modules/cmdline/cmdline.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/cmdline/cmdline.tcl,v
retrieving revision 1.8
diff -u -r1.8 cmdline.tcl
--- modules/cmdline/cmdline.tcl 2001/07/10 20:39:46 1.8
+++ modules/cmdline/cmdline.tcl 2001/08/02 04:00:16
@@ -11,6 +11,7 @@
#
# RCS: @(#) $Id: cmdline.tcl,v 1.8 2001/07/10 20:39:46 andreas_kupries Exp $
+package require Tcl 8.2
package provide cmdline 1.1
namespace eval cmdline {
namespace export getArgv0 getopt getfiles getoptions usage
Index: modules/cmdline/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/cmdline/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/cmdline/pkgIndex.tcl 2000/03/01 23:26:59 1.1
+++ modules/cmdline/pkgIndex.tcl 2001/08/02 04:00:16
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
-package ifneeded cmdline 1.0 [list source [file join $dir cmdline.tcl]]
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
+package ifneeded cmdline 1.1 [list source [file join $dir cmdline.tcl]]
Index: modules/counter/counter.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/counter/counter.n,v
retrieving revision 1.2
diff -u -r1.2 counter.n
--- modules/counter/counter.n 2001/07/06 18:30:52 1.2
+++ modules/counter/counter.n 2001/08/02 04:00:16
@@ -11,7 +11,9 @@
.SH NAME
::counter \- Procedures for counters and histograms.
.SH SYNOPSIS
-.BS
+\fBpackage require Tcl 8\fR
+.sp
+\fBpackage require counter ?2.0?\fR
.sp
\fBcounter::init\fR \fItag\fR \fIargs\fR
.sp
Index: modules/counter/counter.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/counter/counter.tcl,v
retrieving revision 1.6
diff -u -r1.6 counter.tcl
--- modules/counter/counter.tcl 2001/07/10 20:39:46 1.6
+++ modules/counter/counter.tcl 2001/08/02 04:00:16
@@ -9,6 +9,8 @@
#
# RCS: @(#) $Id: counter.tcl,v 1.6 2001/07/10 20:39:46 andreas_kupries Exp $
+package require Tcl 8
+
namespace eval counter:: {
# Variables of name counter::T-$tagname
Index: modules/counter/counter.test
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/counter/counter.test,v
retrieving revision 1.3
diff -u -r1.3 counter.test
--- modules/counter/counter.test 2001/07/09 17:20:38 1.3
+++ modules/counter/counter.test 2001/08/02 04:00:16
@@ -179,6 +179,7 @@
counter::count hits 4
after [expr 4000]
counter::count hits 8
+ set result [list]
foreach {n v} [counter::get hits -hist] {
if {$v > 0} {
lappend result [expr {$n - $min0}] $v
Index: modules/counter/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/counter/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/counter/pkgIndex.tcl 2000/10/03 03:53:00 1.1
+++ modules/counter/pkgIndex.tcl 2001/08/02 04:00:16
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8]} {return}
package ifneeded counter 2.0 [list source [file join $dir counter.tcl]]
Index: modules/csv/csv.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/csv/csv.n,v
retrieving revision 1.4
diff -u -r1.4 csv.n
--- modules/csv/csv.n 2001/07/06 22:58:05 1.4
+++ modules/csv/csv.n 2001/08/02 04:00:16
@@ -11,6 +11,8 @@
.SH NAME
::csv \- Procedures to handle CSV data
.SH SYNOPSIS
+\fBpackage require Tcl 8.3\fR
+.sp
\fBpackage require csv ?0.1?\fR
.sp
\fB::csv::join\fR \fIvalues {sepChar ,}\fR
Index: modules/csv/csv.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/csv/csv.tcl,v
retrieving revision 1.3
diff -u -r1.3 csv.tcl
--- modules/csv/csv.tcl 2001/07/10 20:39:46 1.3
+++ modules/csv/csv.tcl 2001/08/02 04:00:16
@@ -9,6 +9,7 @@
#
# RCS: @(#) $Id: csv.tcl,v 1.3 2001/07/10 20:39:46 andreas_kupries Exp $
+package require Tcl 8.3
package provide csv 0.1
namespace eval ::csv {
Index: modules/csv/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/csv/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/csv/pkgIndex.tcl 2001/05/01 19:01:24 1.1
+++ modules/csv/pkgIndex.tcl 2001/08/02 04:00:16
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.3]} {return}
package ifneeded csv 0.1 [list source [file join $dir csv.tcl]]
Index: modules/fileutil/fileutil.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/fileutil/fileutil.n,v
retrieving revision 1.2
diff -u -r1.2 fileutil.n
--- modules/fileutil/fileutil.n 2001/07/31 23:58:55 1.2
+++ modules/fileutil/fileutil.n 2001/08/02 04:00:16
@@ -11,6 +11,8 @@
.SH NAME
::fileutil \- Procedures implementing some file utilities
.SH SYNOPSIS
+\fBpackage require Tcl 8\fR
+.sp
\fBpackage require fileutil ?1.1?\fR
.sp
\fB::fileutil::grep\fR \fIpattern\fR ?\fIfiles\fR?
Index: modules/fileutil/fileutil.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/fileutil/fileutil.tcl,v
retrieving revision 1.6
diff -u -r1.6 fileutil.tcl
--- modules/fileutil/fileutil.tcl 2001/06/22 15:29:18 1.6
+++ modules/fileutil/fileutil.tcl 2001/08/02 04:00:16
@@ -9,6 +9,7 @@
#
# RCS: @(#) $Id: fileutil.tcl,v 1.6 2001/06/22 15:29:18 andreas_kupries Exp $
+package require Tcl 8
package provide fileutil 1.1
namespace eval ::fileutil {
Index: modules/fileutil/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/fileutil/pkgIndex.tcl,v
retrieving revision 1.2
diff -u -r1.2 pkgIndex.tcl
--- modules/fileutil/pkgIndex.tcl 2001/03/26 16:50:21 1.2
+++ modules/fileutil/pkgIndex.tcl 2001/08/02 04:00:16
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8]} {return}
package ifneeded fileutil 1.1 [list source [file join $dir fileutil.tcl]]
Index: modules/ftp/ftp.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/ftp.tcl,v
retrieving revision 1.13
diff -u -r1.13 ftp.tcl
--- modules/ftp/ftp.tcl 2001/08/02 01:05:35 1.13
+++ modules/ftp/ftp.tcl 2001/08/02 04:00:16
@@ -36,6 +36,7 @@
# ftp::Quote <s> <arg1> <arg2> ...
#
+package require Tcl 8.2
package provide ftp [lindex {Revision: 2.2 } 1]
namespace eval ftp {
Index: modules/ftp/ftpdemo.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/ftpdemo.tcl,v
retrieving revision 1.3
diff -u -r1.3 ftpdemo.tcl
--- modules/ftp/ftpdemo.tcl 2001/06/22 15:29:18 1.3
+++ modules/ftp/ftpdemo.tcl 2001/08/02 04:00:17
@@ -22,6 +22,8 @@
#
########################################################################
+package require Tcl 8
+package require Tk
package require ftp 2.0
# set palette under X
Index: modules/ftp/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/pkgIndex.tcl,v
retrieving revision 1.3
diff -u -r1.3 pkgIndex.tcl
--- modules/ftp/pkgIndex.tcl 2000/09/04 06:20:02 1.3
+++ modules/ftp/pkgIndex.tcl 2001/08/02 04:00:17
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded ftp 2.2 [list source [file join $dir ftp.tcl]]
Index: modules/ftpd/ftpd.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftpd/ftpd.n,v
retrieving revision 1.2
diff -u -r1.2 ftpd.n
--- modules/ftpd/ftpd.n 2001/07/06 18:30:52 1.2
+++ modules/ftpd/ftpd.n 2001/08/02 04:00:17
@@ -11,6 +11,8 @@
.SH NAME
ftpd \- Tcl FTP server implementation
.SH SYNOPSIS
+\fBpackage require Tcl 8.2\fR
+.sp
\fBpackage require ftpd ?1.1?\fR
.sp
\fB::ftpd::server\fR \fR?\fImyaddr\fR?\fR
Index: modules/ftpd/ftpd.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftpd/ftpd.tcl,v
retrieving revision 1.8
diff -u -r1.8 ftpd.tcl
--- modules/ftpd/ftpd.tcl 2001/06/22 15:29:18 1.8
+++ modules/ftpd/ftpd.tcl 2001/08/02 04:00:17
@@ -14,6 +14,7 @@
# Define the ftpd package version 1.1.1
+package require Tcl 8.2
namespace eval ::ftpd {
# The listening port.
Index: modules/ftpd/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftpd/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/ftpd/pkgIndex.tcl 2000/10/28 03:46:04 1.1
+++ modules/ftpd/pkgIndex.tcl 2001/08/02 04:00:17
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
-package ifneeded ftpd 1.1 [list source [file join $dir ftpd.tcl]]
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
+package ifneeded ftpd 1.1.1 [list source [file join $dir ftpd.tcl]]
Index: modules/html/html.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/html/html.n,v
retrieving revision 1.11
diff -u -r1.11 html.n
--- modules/html/html.n 2001/07/06 18:30:52 1.11
+++ modules/html/html.n 2001/08/02 04:00:17
@@ -13,6 +13,10 @@
.SH SYNOPSIS
.BS
.sp
+\fBpackage require Tcl 8.2\fR
+.sp
+\fBpackage require html ?1.1?\fR
+.sp
\fBhtml::author\fR \fIauthor\fR
.sp
\fBhtml::bodyTag\fR \fIargs\fR
Index: modules/html/html.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/html/html.tcl,v
retrieving revision 1.22
diff -u -r1.22 html.tcl
--- modules/html/html.tcl 2001/08/01 20:42:43 1.22
+++ modules/html/html.tcl 2001/08/02 04:00:17
@@ -12,6 +12,7 @@
#
# Originally by Brent Welch, with help from Dan Kuchler and Melissa Chawla
+package require Tcl 8.2
package provide html 1.1
namespace eval html:: {
Index: modules/html/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/html/pkgIndex.tcl,v
retrieving revision 1.2
diff -u -r1.2 pkgIndex.tcl
--- modules/html/pkgIndex.tcl 2001/06/16 01:25:46 1.2
+++ modules/html/pkgIndex.tcl 2001/08/02 04:00:17
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded html 1.1 [list source [file join $dir html.tcl]]
Index: modules/htmlparse/htmlparse.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/htmlparse/htmlparse.n,v
retrieving revision 1.2
diff -u -r1.2 htmlparse.n
--- modules/htmlparse/htmlparse.n 2001/07/06 18:30:52 1.2
+++ modules/htmlparse/htmlparse.n 2001/08/02 04:00:17
@@ -11,7 +11,13 @@
.SH NAME
::htmlparse \- Procedures to parse HTML string
.SH SYNOPSIS
-\fBpackage require htmlparse ?1.0?\fR
+\fBpackage require Tcl 8.2\fR
+.sp
+\fBpackage require struct 1\fR
+.sp
+\fBpackage require cmdline 1.1\fR
+.sp
+\fBpackage require htmlparse ?0.2?\fR
.sp
\fB::htmlparse::parse\fR ?-cmd \fIcmd\fR? ?-vroot \fItag\fR? ?-split \fIn\fR? ?-incvar \fIvar\fR? ?-queue \fIq\fR? \fIhtml\fR
.sp
Index: modules/htmlparse/htmlparse.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/htmlparse/htmlparse.tcl,v
retrieving revision 1.3
diff -u -r1.3 htmlparse.tcl
--- modules/htmlparse/htmlparse.tcl 2001/07/10 20:39:46 1.3
+++ modules/htmlparse/htmlparse.tcl 2001/08/02 04:00:17
@@ -16,8 +16,9 @@
# Copyright (c) 2001 by ActiveState Tool Corp.
# See the file license.terms.
-package require struct
-package require cmdline
+package require Tcl 8.2
+package require struct 1
+package require cmdline 1.1
package provide htmlparse 0.2
namespace eval ::htmlparse {
Index: modules/htmlparse/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/htmlparse/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/htmlparse/pkgIndex.tcl 2001/03/26 16:50:21 1.1
+++ modules/htmlparse/pkgIndex.tcl 2001/08/02 04:00:17
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded htmlparse 0.2 [list source [file join $dir htmlparse.tcl]]
Index: modules/javascript/javascript.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/javascript/javascript.n,v
retrieving revision 1.2
diff -u -r1.2 javascript.n
--- modules/javascript/javascript.n 2001/07/06 18:30:52 1.2
+++ modules/javascript/javascript.n 2001/08/02 04:00:17
@@ -15,6 +15,12 @@
.SH SYNOPSIS
.BS
.sp
+\fBpackage require Tcl 8\fR
+.sp
+\fBpackage require ncgi 1\fR
+.sp
+\fBpackage require javascript ?1.0?\fR
+.sp
\fBjavascript::makeSelectorWidget\fR \fIid leftLabel leftValueList rightLabel rightValueList rightNameList length {minWidth 32}\fR
.sp
\fBjavascript::makeSubmitButton\fR \fIname value\fR
Index: modules/javascript/javascript.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/javascript/javascript.tcl,v
retrieving revision 1.1
diff -u -r1.1 javascript.tcl
--- modules/javascript/javascript.tcl 2000/11/02 19:26:57 1.1
+++ modules/javascript/javascript.tcl 2001/08/02 04:00:17
@@ -14,9 +14,10 @@
#
# RCS: @(#) $Id: javascript.tcl,v 1.1 2000/11/02 19:26:57 kuchler Exp $
+package require Tcl 8
+package require ncgi 1
package provide javascript 1.0
-package require ncgi
namespace eval javascript {
Index: modules/javascript/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/javascript/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/javascript/pkgIndex.tcl 2000/11/02 19:26:57 1.1
+++ modules/javascript/pkgIndex.tcl 2001/08/02 04:00:17
@@ -8,4 +8,7 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8]} {return}
+if {[string match "" [package provide ncgi]]} {return}
+if {![package vsatisfies [package provide ncgi] 1]} {return}
package ifneeded javascript 1.0 [list source [file join $dir javascript.tcl]]
Index: modules/log/log.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/log/log.n,v
retrieving revision 1.2
diff -u -r1.2 log.n
--- modules/log/log.n 2001/07/06 18:30:52 1.2
+++ modules/log/log.n 2001/08/02 04:00:17
@@ -11,6 +11,8 @@
.SH NAME
::log \- Procedures to log messages of libraries and applications.
.SH SYNOPSIS
+\fBpackage require Tcl 8\fR
+.sp
\fBpackage require log ?1.0?\fR
.sp
\fB::log::levels\fR
Index: modules/log/log.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/log/log.tcl,v
retrieving revision 1.1
diff -u -r1.1 log.tcl
--- modules/log/log.tcl 2001/03/26 16:50:21 1.1
+++ modules/log/log.tcl 2001/08/02 04:00:17
@@ -6,6 +6,7 @@
# Copyright (c) 2001 by ActiveState Tool Corp.
# See the file license.terms.
+package require Tcl 8
package provide log 1.0
namespace eval ::log {
Index: modules/log/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/log/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/log/pkgIndex.tcl 2001/03/26 16:50:21 1.1
+++ modules/log/pkgIndex.tcl 2001/08/02 04:00:17
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8]} {return}
package ifneeded log 1.0 [list source [file join $dir log.tcl]]
Index: modules/math/math.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/math/math.n,v
retrieving revision 1.6
diff -u -r1.6 math.n
--- modules/math/math.n 2000/10/06 21:10:41 1.6
+++ modules/math/math.n 2001/08/02 04:00:17
@@ -11,6 +11,8 @@
.SH NAME
math \- Tcl math library
.SH SYNOPSIS
+\fBpackage require Tcl 8.2\fR
+.sp
\fBpackage require math ?1.0?\fR
.sp
\fB::math::cov\fR \fIvalue\fR \fIvalue\fR ?\fIvalue\fR? ?\fIvalue\fR \fI...\fR?
Index: modules/math/math.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/math/math.tcl,v
retrieving revision 1.8
diff -u -r1.8 math.tcl
--- modules/math/math.tcl 2001/06/22 15:29:18 1.8
+++ modules/math/math.tcl 2001/08/02 04:00:17
@@ -9,6 +9,7 @@
#
# RCS: @(#) $Id: math.tcl,v 1.8 2001/06/22 15:29:18 andreas_kupries Exp $
+package require Tcl 8.2 ;# uses [lindex $l end-$integer]
namespace eval ::math {
}
Index: modules/math/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/math/pkgIndex.tcl,v
retrieving revision 1.2
diff -u -r1.2 pkgIndex.tcl
--- modules/math/pkgIndex.tcl 2000/09/09 01:46:25 1.2
+++ modules/math/pkgIndex.tcl 2001/08/02 04:00:17
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded math 1.1 [list source [file join $dir math.tcl]]
Index: modules/md5/md5.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/md5/md5.n,v
retrieving revision 1.3
diff -u -r1.3 md5.n
--- modules/md5/md5.n 2001/07/06 18:30:52 1.3
+++ modules/md5/md5.n 2001/08/02 04:00:17
@@ -11,7 +11,9 @@
.SH NAME
::md5::md5 \- Perform md5 hashing
.SH SYNOPSIS
-\fBpackage require md5 ?1.2?\fR
+\fBpackage require Tcl 8.2\fR
+.sp
+\fBpackage require md5 ?1.4?\fR
.sp
\fB::md5::md5\fR \fImsg\fR?
.sp
Index: modules/md5/md5.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/md5/md5.tcl,v
retrieving revision 1.6
diff -u -r1.6 md5.tcl
--- modules/md5/md5.tcl 2001/07/10 20:39:46 1.6
+++ modules/md5/md5.tcl 2001/08/02 04:00:17
@@ -22,6 +22,7 @@
# Modified by Miguel Sofer to use inlines and simple variables
##################################################
+package require Tcl 8.2
namespace eval ::md5 {
}
Index: modules/md5/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/md5/pkgIndex.tcl,v
retrieving revision 1.3
diff -u -r1.3 pkgIndex.tcl
--- modules/md5/pkgIndex.tcl 2001/06/22 14:33:07 1.3
+++ modules/md5/pkgIndex.tcl 2001/08/02 04:00:17
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded md5 1.4 [list source [file join $dir md5.tcl]]
Index: modules/mime/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/pkgIndex.tcl,v
retrieving revision 1.2
diff -u -r1.2 pkgIndex.tcl
--- modules/mime/pkgIndex.tcl 2000/08/04 02:33:55 1.2
+++ modules/mime/pkgIndex.tcl 2001/08/02 04:00:17
@@ -1,2 +1,3 @@
+if {![package vsatisfies [package provide Tcl] 8.3]} {return}
package ifneeded mime 1.2 [list source [file join $dir mime.tcl]]
package ifneeded smtp 1.2 [list source [file join $dir smtp.tcl]]
Index: modules/mime/smtp.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/smtp.tcl,v
retrieving revision 1.12
diff -u -r1.12 smtp.tcl
--- modules/mime/smtp.tcl 2001/07/10 20:39:46 1.12
+++ modules/mime/smtp.tcl 2001/08/02 04:00:17
@@ -6,10 +6,9 @@
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-
-package provide smtp 1.2
-
+package require Tcl 8.3
package require mime 1.0
+package provide smtp 1.2
if {[catch {package require Trf 2.0}]} {
# Trf is not available, but we can live without it as long as the
Index: modules/ncgi/ncgi.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ncgi/ncgi.n,v
retrieving revision 1.6
diff -u -r1.6 ncgi.n
--- modules/ncgi/ncgi.n 2001/07/06 18:30:52 1.6
+++ modules/ncgi/ncgi.n 2001/08/02 04:00:17
@@ -13,6 +13,10 @@
.SH SYNOPSIS
.BS
.sp
+\fBpackage require Tcl 8.2\fR
+.sp
+\fBpackage require ncgi ?1.1?\fR
+.sp
\fBncgi::cookie\fR \fIcookie\fR
.sp
\fBncgi::decode\fR \fIstr\fR
Index: modules/ncgi/ncgi.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ncgi/ncgi.tcl,v
retrieving revision 1.20
diff -u -r1.20 ncgi.tcl
--- modules/ncgi/ncgi.tcl 2001/08/01 20:43:28 1.20
+++ modules/ncgi/ncgi.tcl 2001/08/02 04:00:18
@@ -24,7 +24,7 @@
# of decoding them.
# We use newer string routines
-package require Tcl 8.1
+package require Tcl 8.2
package provide ncgi 1.1
Index: modules/ncgi/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ncgi/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/ncgi/pkgIndex.tcl 2000/03/10 19:54:36 1.1
+++ modules/ncgi/pkgIndex.tcl 2001/08/02 04:00:18
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
-package ifneeded ncgi 1.0 [list source [file join $dir ncgi.tcl]]
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
+package ifneeded ncgi 1.1 [list source [file join $dir ncgi.tcl]]
Index: modules/nntp/nntp.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/nntp/nntp.n,v
retrieving revision 1.4
diff -u -r1.4 nntp.n
--- modules/nntp/nntp.n 2001/07/10 23:56:55 1.4
+++ modules/nntp/nntp.n 2001/08/02 04:00:18
@@ -11,6 +11,8 @@
.SH NAME
nntp \- Tcl client for the NNTP protocol
.SH SYNOPSIS
+\fBpackage require Tcl 8.2\fR
+.sp
\fBpackage require nntp ?0.1?\fR
.sp
\fB::nntp::nntp\fR \fR?\fIhost\fR? \fR?\fIport\fR? \fR?\fInntpName\fR?
Index: modules/nntp/nntp.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/nntp/nntp.tcl,v
retrieving revision 1.4
diff -u -r1.4 nntp.tcl
--- modules/nntp/nntp.tcl 2001/07/10 20:39:46 1.4
+++ modules/nntp/nntp.tcl 2001/08/02 04:00:18
@@ -7,6 +7,7 @@
#
# RCS: @(#) $Id: nntp.tcl,v 1.4 2001/07/10 20:39:46 andreas_kupries Exp $
+package require Tcl 8.2
package provide nntp 0.1
namespace eval ::nntp {
Index: modules/nntp/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/nntp/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/nntp/pkgIndex.tcl 2000/06/16 20:54:24 1.1
+++ modules/nntp/pkgIndex.tcl 2001/08/02 04:00:18
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded nntp 0.1 [list source [file join $dir nntp.tcl]]
Index: modules/pop3/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/pop3/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/pop3/pkgIndex.tcl 2000/03/06 18:57:55 1.1
+++ modules/pop3/pkgIndex.tcl 2001/08/02 04:00:18
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
-package ifneeded pop3 1.0 [list source [file join $dir pop3.tcl]]
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
+package ifneeded pop3 1.2 [list source [file join $dir pop3.tcl]]
Index: modules/pop3/pop3.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/pop3/pop3.n,v
retrieving revision 1.4
diff -u -r1.4 pop3.n
--- modules/pop3/pop3.n 2001/07/06 18:30:52 1.4
+++ modules/pop3/pop3.n 2001/08/02 04:00:18
@@ -11,7 +11,9 @@
.SH NAME
pop3 \- Tcl client for POP3 email protocol
.SH SYNOPSIS
-\fBpackage require pop3 ?1.0?\fR
+\fBpackage require Tcl 8.2\fR
+.sp
+\fBpackage require pop3 ?1.2?\fR
.sp
\fB::pop3::open\fR \fIhost user Ipassword \fR?\fIport\fR?
.sp
Index: modules/pop3/pop3.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/pop3/pop3.tcl,v
retrieving revision 1.10
diff -u -r1.10 pop3.tcl
--- modules/pop3/pop3.tcl 2001/06/22 15:29:18 1.10
+++ modules/pop3/pop3.tcl 2001/08/02 04:00:18
@@ -12,6 +12,7 @@
#
# RCS: @(#) $Id: pop3.tcl,v 1.10 2001/06/22 15:29:18 andreas_kupries Exp $
+package require Tcl 8.2
package provide pop3 1.2
namespace eval ::pop3 {
Index: modules/profiler/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/profiler/pkgIndex.tcl,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 pkgIndex.tcl
--- modules/profiler/pkgIndex.tcl 2000/02/24 17:44:43 1.1.1.1
+++ modules/profiler/pkgIndex.tcl 2001/08/02 04:00:18
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.3]} {return}
package ifneeded profiler 0.1 [list source [file join $dir profiler.tcl]]
Index: modules/profiler/profiler.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/profiler/profiler.n,v
retrieving revision 1.4
diff -u -r1.4 profiler.n
--- modules/profiler/profiler.n 2000/05/31 00:00:02 1.4
+++ modules/profiler/profiler.n 2001/08/02 04:00:18
@@ -11,6 +11,8 @@
.SH NAME
profiler \- Tcl source code profiler
.SH SYNOPSIS
+\fBpackage require Tcl 8.3\fR
+.sp
\fBpackage require profiler ?0.1?\fR
.sp
\fB::profiler::init\fR
Index: modules/profiler/profiler.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/profiler/profiler.tcl,v
retrieving revision 1.15
diff -u -r1.15 profiler.tcl
--- modules/profiler/profiler.tcl 2001/07/31 23:47:51 1.15
+++ modules/profiler/profiler.tcl 2001/08/02 04:00:18
@@ -9,6 +9,7 @@
#
# RCS: @(#) $Id: profiler.tcl,v 1.15 2001/07/31 23:47:51 andreas_kupries Exp $
+package require Tcl 8.3 ;# uses [clock clicks -milliseconds]
package provide profiler 0.1
namespace eval ::profiler {
Index: modules/report/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/report/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/report/pkgIndex.tcl 2001/05/01 19:01:24 1.1
+++ modules/report/pkgIndex.tcl 2001/08/02 04:00:18
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded report 0.1 [list source [file join $dir report.tcl]]
Index: modules/report/report.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/report/report.n,v
retrieving revision 1.3
diff -u -r1.3 report.n
--- modules/report/report.n 2001/07/06 18:30:52 1.3
+++ modules/report/report.n 2001/08/02 04:00:18
@@ -11,7 +11,9 @@
.SH NAME
::report::report \- Create and manipulate report objects
.SH SYNOPSIS
-\fBpackage require report ?1.0?\fR
+\fBpackage require Tcl 8.2\fR
+.sp
+\fBpackage require report ?0.1?\fR
.sp
\fB::report::report\fR \fIreportName columns\fR ?\fBstyle\fR \fIstyle arg...\fR?
.sp
Index: modules/report/report.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/report/report.tcl,v
retrieving revision 1.3
diff -u -r1.3 report.tcl
--- modules/report/report.tcl 2001/07/10 20:39:47 1.3
+++ modules/report/report.tcl 2001/08/02 04:00:18
@@ -9,6 +9,7 @@
#
# RCS: @(#) $Id: report.tcl,v 1.3 2001/07/10 20:39:47 andreas_kupries Exp $
+package require Tcl 8.2
package provide report 0.1
namespace eval ::report {
Index: modules/sha1/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/sha1/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/sha1/pkgIndex.tcl 2001/06/22 14:33:07 1.1
+++ modules/sha1/pkgIndex.tcl 2001/08/02 04:00:18
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded sha1 1.0 [list source [file join $dir sha1.tcl]]
Index: modules/sha1/sha1.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/sha1/sha1.n,v
retrieving revision 1.2
diff -u -r1.2 sha1.n
--- modules/sha1/sha1.n 2001/07/06 18:30:52 1.2
+++ modules/sha1/sha1.n 2001/08/02 04:00:18
@@ -11,6 +11,8 @@
.SH NAME
::sha1::sha1 \- Perform sha1 hashing
.SH SYNOPSIS
+\fBpackage require Tcl 8.2\fR
+.sp
\fBpackage require sha1 ?1.0?\fR
.sp
\fB::sha1::sha1\fR \fImsg\fR?
Index: modules/sha1/sha1.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/sha1/sha1.tcl,v
retrieving revision 1.2
diff -u -r1.2 sha1.tcl
--- modules/sha1/sha1.tcl 2001/06/22 15:29:18 1.2
+++ modules/sha1/sha1.tcl 2001/08/02 04:00:18
@@ -26,6 +26,7 @@
### Changed the code to use Trf if this package is present on the
### system requiring the sha1 package. Analogous to md5.
+package require Tcl 8.2
namespace eval ::sha1 {
}
Index: modules/struct/graph.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/graph.n,v
retrieving revision 1.3
diff -u -r1.3 graph.n
--- modules/struct/graph.n 2001/07/06 18:30:52 1.3
+++ modules/struct/graph.n 2001/08/02 04:00:18
@@ -11,6 +11,8 @@
.SH NAME
::struct::graph \- Create and manipulate directed graph objects
.SH SYNOPSIS
+\fBpackage require Tcl 8.2\fR
+.sp
\fBpackage require struct ?1.0?\fR
.sp
\fB::struct::graph\fR \fIgraphName\fR
Index: modules/struct/matrix.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/matrix.n,v
retrieving revision 1.4
diff -u -r1.4 matrix.n
--- modules/struct/matrix.n 2001/07/10 23:56:55 1.4
+++ modules/struct/matrix.n 2001/08/02 04:00:18
@@ -11,7 +11,9 @@
.SH NAME
::struct::matrix \- Create and manipulate matrix objects
.SH SYNOPSIS
-\fBpackage require struct ?1.0?\fR
+\fBpackage require Tcl 8.2\fR
+.sp
+\fBpackage require struct ?1.1?\fR
.sp
\fB::struct::matrix\fR \fImatrixName\fR
.sp
Index: modules/struct/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/pkgIndex.tcl,v
retrieving revision 1.2
diff -u -r1.2 pkgIndex.tcl
--- modules/struct/pkgIndex.tcl 2001/05/01 19:01:24 1.2
+++ modules/struct/pkgIndex.tcl 2001/08/02 04:00:18
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded struct 1.1 [list source [file join $dir struct.tcl]]
Index: modules/struct/queue.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/queue.n,v
retrieving revision 1.2
diff -u -r1.2 queue.n
--- modules/struct/queue.n 2000/05/31 00:00:03 1.2
+++ modules/struct/queue.n 2001/08/02 04:00:18
@@ -11,6 +11,8 @@
.SH NAME
::struct::queue \- Create and manipulate queue objects
.SH SYNOPSIS
+\fBpackage require Tcl 8.2\fR
+.sp
\fBpackage require struct ?1.0?\fR
.sp
\fB::struct::queue\fR \fIqueueName\fR
Index: modules/struct/stack.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/stack.n,v
retrieving revision 1.2
diff -u -r1.2 stack.n
--- modules/struct/stack.n 2000/05/31 00:00:03 1.2
+++ modules/struct/stack.n 2001/08/02 04:00:18
@@ -11,6 +11,8 @@
.SH NAME
::struct::stack \- Create and manipulate stack objects
.SH SYNOPSIS
+\fBpackage require Tcl 8.2\fR
+.sp
\fBpackage require struct ?1.0?\fR
.sp
\fB::struct::stack\fR \fIstackName\fR
Index: modules/struct/struct.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/struct.tcl,v
retrieving revision 1.4
diff -u -r1.4 struct.tcl
--- modules/struct/struct.tcl 2001/05/01 19:01:24 1.4
+++ modules/struct/struct.tcl 2001/08/02 04:00:18
@@ -1,3 +1,4 @@
+package require Tcl 8.2
package provide struct 1.1
source [file join [file dirname [info script]] graph.tcl]
source [file join [file dirname [info script]] queue.tcl]
Index: modules/struct/tree.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/tree.n,v
retrieving revision 1.10
diff -u -r1.10 tree.n
--- modules/struct/tree.n 2001/07/06 18:30:52 1.10
+++ modules/struct/tree.n 2001/08/02 04:00:18
@@ -11,6 +11,8 @@
.SH NAME
::struct::tree \- Create and manipulate tree objects
.SH SYNOPSIS
+\fBpackage require Tcl 8.2\fR
+.sp
\fBpackage require struct ?1.0?\fR
.sp
\fB::struct::tree\fR \fItreeName\fR
Index: modules/textutil/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/textutil/pkgIndex.tcl,v
retrieving revision 1.2
diff -u -r1.2 pkgIndex.tcl
--- modules/textutil/pkgIndex.tcl 2001/03/26 16:50:21 1.2
+++ modules/textutil/pkgIndex.tcl 2001/08/02 04:00:18
@@ -8,4 +8,5 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded textutil 0.2 [list source [file join $dir textutil.tcl]]
Index: modules/textutil/textutil.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/textutil/textutil.n,v
retrieving revision 1.4
diff -u -r1.4 textutil.n
--- modules/textutil/textutil.n 2001/07/06 18:30:52 1.4
+++ modules/textutil/textutil.n 2001/08/02 04:00:18
@@ -12,6 +12,9 @@
::textutil \- Procedures to manipulate texts and strings..
.SH SYNOPSIS
.BS
+\fBpackage require Tcl 8.2\fR
+.sp
+\fBpackage require textutil ?0.2?\fR
.sp
\fBtextutil::adjust\fR \fIstring args\fR
.sp
Index: modules/textutil/textutil.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/textutil/textutil.tcl,v
retrieving revision 1.4
diff -u -r1.4 textutil.tcl
--- modules/textutil/textutil.tcl 2001/03/26 16:50:21 1.4
+++ modules/textutil/textutil.tcl 2001/08/02 04:00:18
@@ -1,3 +1,4 @@
+package require Tcl 8.2
namespace eval textutil {
namespace export strRepeat
Index: modules/uri/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/uri/pkgIndex.tcl,v
retrieving revision 1.1
diff -u -r1.1 pkgIndex.tcl
--- modules/uri/pkgIndex.tcl 2000/06/13 17:48:06 1.1
+++ modules/uri/pkgIndex.tcl 2001/08/02 04:00:18
@@ -1 +1,2 @@
+if {![package vsatisfies [package provide Tcl] 8.2]} {return}
package ifneeded uri 1.0 [list source [file join $dir uri.tcl]]
Index: modules/uri/uri.n
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/uri/uri.n,v
retrieving revision 1.2
diff -u -r1.2 uri.n
--- modules/uri/uri.n 2000/07/04 02:28:58 1.2
+++ modules/uri/uri.n 2001/08/02 04:00:18
@@ -14,6 +14,10 @@
.SH NAME
uri \- URI utilities
.SH "SYNOPSIS"
+\fBpackage require Tcl 8.2\fR
+.sp
+\fBpackage require uri ?1.0?\fR
+.sp
\fB uri::split \fIurl\fR
\fB uri::join \fR?\fIkey\fR \fIvalue\fR?...
\fB uri::resolve \fIbase\fR \fIurl\fR
Index: modules/uri/uri.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/uri/uri.tcl,v
retrieving revision 1.6
diff -u -r1.6 uri.tcl
--- modules/uri/uri.tcl 2001/07/10 20:39:47 1.6
+++ modules/uri/uri.tcl 2001/08/02 04:00:18
@@ -11,6 +11,7 @@
#
# CVS: $Id: uri.tcl,v 1.6 2001/07/10 20:39:47 andreas_kupries Exp $
+package require Tcl 8.2
package provide uri 1.0
namespace eval uri {
