summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--unix/mkLinks.tcl15
1 files changed, 7 insertions, 8 deletions
diff --git a/unix/mkLinks.tcl b/unix/mkLinks.tcl
index 166bc88..b0a4a6a 100644
--- a/unix/mkLinks.tcl
+++ b/unix/mkLinks.tcl
@@ -22,6 +22,7 @@ puts stdout \
# The script takes one argument, which is the name of the directory
# where the manual entries have been installed.
+ZIP=true
while true; do
case $1 in
-s | --symlinks )
@@ -42,7 +43,7 @@ if test $# != 1; then
exit 1
fi
-if test -n "$ZIP"; then
+if test "x$ZIP" != "xtrue"; then
touch TeST
$ZIP TeST
Z=`ls TeST* | sed 's/^[^.]*//'`
@@ -94,20 +95,18 @@ foreach file $argv {
set tstfi ""
}
lappend namelist $name$ext
- append rmOutput " $tst rm -f $name$ext $name$ext\$Z$tstfi\n"
- append lnOutput " $tst ln \$S $tail\$Z $name$ext\$Z$tstfi\n"
+ append rmOutput " $tst rm -f $name$ext $name$ext.* $tstfi\n"
+ append lnOutput " $tst ln \$S $tail\$Z $name$ext\$Z $tstfi\n"
}
}
- puts "if test -n \"\$ZIP\" -a -r $tail; then"
- puts " rm -f $tail\$Z"
+ puts "if test -r $tail; then"
+ puts " rm -f $tail.*"
puts " \$ZIP $tail"
- puts "fi"
if { [llength $namelist] } {
- puts "if test -r $tail\$Z; then"
puts -nonewline $rmOutput
puts -nonewline $lnOutput
- puts "fi"
}
+ puts "fi"
set state end
}
end {