summaryrefslogtreecommitdiffstats
path: root/tools/man2help.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tools/man2help.tcl')
-rw-r--r--tools/man2help.tcl4
1 files changed, 3 insertions, 1 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl
index 50de53b..e86e78b 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.3 1998/12/02 01:42:39 welch Exp $
+# RCS: @(#) $Id: man2help.tcl,v 1.4 1999/02/19 02:14:56 stanton Exp $
#
#
@@ -23,6 +23,7 @@ proc generateContents {basename version files} {
doFile $f
}
set fd [open "$basename$version.cnt" w]
+ fconfigure $fd -translation crlf
puts $fd ":Base $basename$version.hlp"
foreach package [getPackages] {
foreach section [getSections $package] {
@@ -56,6 +57,7 @@ proc generateHelp {basename files} {
}
set file [open "$basename.rtf" w]
+ fconfigure $file -translation crlf
puts $file "\{\\rtf1\\ansi \\deff0\\deflang1033\{\\fonttbl\{\\f0\\froman\\fcharset0\\fprq2 Times New Roman\;\}\}"
foreach f $files {
regsub -all -- {-} [file tail $f] {} curFile