diff options
Diffstat (limited to 'tools/man2help.tcl')
| -rw-r--r-- | tools/man2help.tcl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl index 91fcb89..ca29226 100644 --- a/tools/man2help.tcl +++ b/tools/man2help.tcl @@ -5,15 +5,13 @@ # entries. # # Copyright (c) 1996 by Sun Microsystems, Inc. -# -# RCS: @(#) $Id: man2help.tcl,v 1.14 2003/06/04 23:40:18 mistachkin Exp $ -# # # PASS 1 # -set man2tclprog [file join [file dirname [info script]] man2tcl.exe] +set man2tclprog [file join [file dirname [info script]] \ + man2tcl[file extension [info nameofexecutable]]] proc generateContents {basename version files} { global curID topics @@ -38,7 +36,7 @@ proc generateContents {basename version files} { set lastTopic {} foreach topic [getTopics $package $section] { if {[string compare $lastTopic $topic]} { - set id $topics($package,$section,$topic) + set id $topics($package,$section,$topic) puts $fd "2 $topic=$id" set lastTopic $topic } |