1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
package require XOTcl 1 1.6
namespace import ::xotcl::*
@ @File {
description {
Documentation tool for the XOTcl distribution.<br>
Usage: 'makeDoc docdir filename ?filename ...?'<br>
Called by Makefile.
}
}
lappend auto_path [file dirname [info script]]
#package require xotcl::package
#package verbose 1
package require -exact xotcl::xodoc 1.0
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} [lsort -stride 2 $fileList] {
set dir .
regexp {^(.*)/[^/]*$} $f _ dir
if {$fb ne "langRef-xotcl"} {
set tail ", "
if {$dir != $filesDir} {
append filesHtml "<li> <b>Directory '$dir': </b><br>"
set filesDir $dir
set tail ""
}
append filesHtml "$tail<a HREF=\"./${fb}.html\">[file tail $f]</a>"
}
}
# <html>
# <head>
# <title>XOTcl - Documentation</title>
# </head>
# <body bgcolor=FFFFFF>
# <h1><IMG ALIGN=MIDDLE SRC = "./logo-100.jpg">Lanuage Reference - Index</h1>
set content {
The <EM>Extended Object Tcl (XOTcl)</EM> Documentation contains the
following parts:
<h2> XOTcl Language Documentation </h2>
<UL>
<LI>XOTcl Tutorial (<a href="tutorial.html">HTML</a>,
<a href="tutorial.pdf">PDF</a>)
<LI>Language Reference (<a href="langRef-xotcl.html">HTML</a>,
<a href="langRef-xotcl.pdf">PDF</a>)
<LI>If you have question, problems etc. you might check the
<a href="http://alice.wu-wien.ac.at/mailman/listinfo/xotcl">XOTcl
mailing list</a> (<a href="http://alice.wu-wien.ac.at:8000/xotcl-mailing-list/">archive 1</a>,
<a href="http://alice.wu-wien.ac.at/pipermail/xotcl/">archive 2</a>)
or you might check the XOTcl section of the
<a href="http://wiki.tcl.tk/XOTcl">Tcl wiki</a>.
</UL>
<h2>Package and Script Documentation</h2>
<center>
This section of the documentation is under work...
</center>
<ul>
$filesHtml
</ul>
<p>
<h2>Tcl Online Information </h2>
<ul>
<li>Online information for <a href="http://www.tcl.tk/man/">
Tcl manual pages</a>
</ul>
}
set content [subst -nobackslashes -nocommands $content]
set f [open $DOCDIR/index.html w]
puts $f $content
close $f
puts "Documentation finished"
|
