# man2help.tcl --

 #

 # This file defines procedures that work in conjunction with the

 # man2tcl program to generate a Windows help file from Tcl manual

 # entries.

 #

 # Copyright (c) 1996 by Sun Microsystems, Inc.

 #

 # RCS: @(#) $Id: man2help.tcl,v 1.13.2.1 2003/06/04 23:41:15 mistachkin Exp $

 # 

 #

 # PASS 1

 #

 set man2tclprog [file join [file dirname [info script]] man2tcl.exe]

 proc generateContents {basename version files} {

     global curID topics

     set curID 0

     foreach f $files {

 	puts "Pass 1 -- $f"

 	flush stdout

 	doFile $f

     }

     set fd [open [file join [file dirname [info script]] $basename$version.cnt] w]

     fconfigure $fd -translation crlf

     puts $fd ":Base $basename$version.hlp"

     foreach package [getPackages] {

 	foreach section [getSections $package] {

             if {![info exists lastSection]} {

                 set lastSection {}

             }

             if {[string compare $lastSection $section]} {

                 puts $fd "1 $section"

             }

             set lastSection $section

 	    set lastTopic {}

 	    foreach topic [getTopics $package $section] {

 		if {[string compare $lastTopic $topic]} {

 		    set id $topics($package,$section,$topic) 

 		    puts $fd "2 $topic=$id"

 		    set lastTopic $topic

 		}

 	    }

 	}

     }

     close $fd

 }

 #

 # PASS 2

 #

 proc generateHelp {basename files} {

     global curID topics keywords file id_keywords

     set curID 0

     foreach key [array names keywords] {

 	foreach id $keywords($key) {

 	    lappend id_keywords($id) $key

 	}

     }

     set file [open [file join [file dirname [info script]] $basename.rtf] w]

     fconfigure $file -translation crlf

     puts $file "\{\\rtf1\\ansi \\deff0\\deflang1033\{\\fonttbl\{\\f0\\froman\\fcharset0\\fprq2 Times New Roman\;\}\{\\f1\\fmodern\\fcharset0\\fprq1 Courier New\;\}\}"

     foreach f $files {

 	puts "Pass 2 -- $f"

 	flush stdout

 	initGlobals

 	doFile $f

 	pageBreak

     }

     puts $file "\}"

     close $file

 }

 # doFile --

 #

 # Given a file as argument, translate the file to a tcl script and

 # evaluate it.

 #

 # Arguments:

 # file -		Name of file to translate.

 proc doFile {file} {

     global man2tclprog

     if {[catch {eval [exec $man2tclprog [glob $file]]} msg]} {

 	global errorInfo

 	puts stderr $msg

 	puts "in"

 	puts $errorInfo

 	exit 1

     }

 }

 # doDir --

 #

 # Given a directory as argument, translate all the man pages in

 # that directory.

 #

 # Arguments:

 # dir -			Name of the directory.

 proc doDir dir {

     puts "Generating man pages for $dir..."

     foreach f [lsort [glob -directory $dir "*.\[13n\]"]] {

 	doFile $f

     }

 }

 # process command line arguments

 if {$argc < 3} {

     puts stderr "usage: $argv0 \[options\] projectName version manFiles..."

     exit 1

 }

 set arg 0

 if {![string compare [lindex $argv $arg] "-bitmap"]} {

     set bitmap [lindex $argv [incr arg]]

     incr arg

 }

 set baseName [lindex $argv $arg]

 set version [lindex $argv [incr arg]]

 set files {}

 foreach i [lrange $argv [incr arg] end] {

     set i [file join $i]

     if {[file isdir $i]} {

 	foreach f [lsort [glob -directory $i "*.\[13n\]"]] {

 	    lappend files $f

 	}

     } elseif {[file exists $i]} {

 	lappend files $i

     }

 }

 source [file join [file dirname [info script]] index.tcl]

 generateContents $baseName $version $files

 source [file join [file dirname [info script]] man2help2.tcl]

 generateHelp $baseName $files