diff options
| author | stanton <stanton> | 1999-02-19 02:17:03 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-02-19 02:17:03 (GMT) |
| commit | c1ea1fac3d9e8068d1921cfc1dad655ef1d5af0c (patch) | |
| tree | b1b4dcd6e9dcb6e96d963958d8c2ddfd81ebac91 /tools/man2help.tcl | |
| parent | e1245c0d82dfcaa61d1280333b2c66472ced5d32 (diff) | |
| download | tcl-c1ea1fac3d9e8068d1921cfc1dad655ef1d5af0c.zip tcl-c1ea1fac3d9e8068d1921cfc1dad655ef1d5af0c.tar.gz tcl-c1ea1fac3d9e8068d1921cfc1dad655ef1d5af0c.tar.bz2 | |
changed so helpfile generation can work from the build environment
Diffstat (limited to 'tools/man2help.tcl')
| -rw-r--r-- | tools/man2help.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl index 50de53b..5b77fa8 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.3.2.1 1999/02/19 02:17:04 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 |