#$Id: makeDoc.xotcl,v 1.3 2004/12/02 00:01:20 neumann Exp $
package require XOTcl
namespace import ::xotcl::*
@ @File {
description {
Documentation tool for the XOTcl distribution.
Usage: 'makeDoc docdir filename ?filename ...?'
Called by Makefile.
}
}
lappend auto_path [file dirname [info script]]
package require xotcl::package
package verbose 1
package require xotcl::xodoc
set fileList ""
puts "XOTcl Documentation Tool"
puts "------------------------"
if {$argc > 1} {
set DOCDIR [lindex $argv 0]
puts "Documenting to directory $DOCDIR:"
if {![file isdirectory $DOCDIR]} {
file mkdir $DOCDIR
}
set files [lrange $argv 1 end]
foreach file $files {
puts "...$file"
if {[catch {XODoc documentFileAsHTML $file $DOCDIR} fb]} {
puts stderr "\terror processing $file:\n[string replace $::errorInfo 400 end ...]"
} else {
lappend fileList $file $fb
}
}
} else {
error "usage: xodoc docdir filename ?filename ...?"
}
set filesHtml ""
set filesDir ""
## write index page
foreach {f fb} $fileList {
set dir .
regexp {^(.*)/[^/]*$} $f _ dir
if {$fb != "langRef-xotcl"} {
set tail ", "
if {$dir != $filesDir} {
append filesHtml "