summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2000-11-24 14:17:11 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2000-11-24 14:17:11 (GMT)
commit64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4 (patch)
tree0ac877e19d760b7a3384a0a566b904f74ff11f77 /tools
parentb3278ac1c032713c88c6f082112ce0f9c7d2588b (diff)
downloadtcl-64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4.zip
tcl-64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4.tar.gz
tcl-64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4.tar.bz2
Missed a few spots with the previous checkin. Now only
tools/tcltk-man2html.tcl is left unfixed, but that file is sufficiently complex that I don't dare touch it without understanding exactly what all of the supposed directory separators are doing there. In any case, this file is probably not going to be used by ordinary users; developers can put up with a few more "pointless restrictions"...
Diffstat (limited to 'tools')
-rw-r--r--tools/man2help.tcl6
-rw-r--r--tools/man2html.tcl2
2 files changed, 4 insertions, 4 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl
index 60914a5..130fde2 100644
--- a/tools/man2help.tcl
+++ b/tools/man2help.tcl
@@ -6,7 +6,7 @@
#
# Copyright (c) 1996 by Sun Microsystems, Inc.
#
-# RCS: @(#) $Id: man2help.tcl,v 1.6 1999/12/22 22:59:59 hobbs Exp $
+# RCS: @(#) $Id: man2help.tcl,v 1.7 2000/11/24 14:17:12 dkf Exp $
#
#
@@ -98,7 +98,7 @@ proc doFile {file} {
proc doDir dir {
puts "Generating man pages for $dir..."
- foreach f [lsort [glob [file join $dir *.\[13n\]]]] {
+ foreach f [lsort [glob -directory $dir "*.\[13n\]"]] {
do $f
}
}
@@ -116,7 +116,7 @@ set files {}
foreach i [lrange $argv 2 end] {
set i [file join $i]
if {[file isdir $i]} {
- foreach f [lsort [glob [file join $i *.\[13n\]]]] {
+ foreach f [lsort [glob -directory $i "*.\[13n\]"]] {
lappend files $f
}
} elseif {[file exists $i]} {
diff --git a/tools/man2html.tcl b/tools/man2html.tcl
index cb60887..6f44aaa 100644
--- a/tools/man2html.tcl
+++ b/tools/man2html.tcl
@@ -75,7 +75,7 @@ proc footer {packages} {
# dir - Name of the directory.
proc doDir dir {
- foreach f [lsort [glob $dir/*.\[13n\]]] {
+ foreach f [lsort [glob -directory $dir "*.\[13n\]"]] {
do $f ;# defined in man2html1.tcl & man2html2.tcl
}
}