File: mkwebpage.tcl

package info (click to toggle)
saods9 3.0.3-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 86,868 kB
  • ctags: 82,021
  • sloc: ansic: 663,637; tcl: 111,403; cpp: 52,727; sh: 27,784; makefile: 6,177; asm: 3,355; lex: 2,890; ada: 1,637; pascal: 1,621; xml: 1,221; yacc: 883; f90: 84; perl: 82; python: 33; fortran: 17; ruby: 13; sed: 12; php: 11
file content (195 lines) | stat: -rw-r--r-- 5,945 bytes parent folder | download | duplicates (5)
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
#!/usr/bin/tclsh
#
# Construct the web page for tkhtml
#
# @(#) $Id: mkwebpage.tcl,v 1.1.1.1 2002/06/20 21:19:40 joye Exp $
#

set p [open publish.sh w]
puts $p "#!/bin/sh"
puts $p "#"

set SendList {}

set f [open index.html w]
puts $f {
<html>
<head>
<title>An HTML Widget for Tcl/Tk</title>
</head>
<body bgcolor=white>
<h1 align=center>An HTML Widget For Tcl/Tk</h1>
}
puts $f "<p align=center><i>Last update: [clock format [clock seconds]]</i></p>"
puts $f {
<p>"Tkhtml" is a Tcl/Tk widget that displays HTML.  Tkhtml
is implemented in C.  It is a true widget, not a metawidget implemented
using the Text or Canvas widgets of the Tcl/Tk core.  Implementing
Tkhtml in C gives it a number of advantages:</p>

<p>
<ul>
<li> It runs fast and uses little memory.</li>
<li> It supports smooth scrolling.</li>
<li> It supports text wrap-around on images and tables.</li>
<li> It has a full implementation of tables. Complex pages (such as 
     <a href="http://www.scriptics.com/">http://www.scriptics.com/</a>)
     are displayed correctly.</li>
<li> Supports forms. </li>
<li> It supports the &lt;APPLET&gt;, &lt;SCRIPT&gt; and &lt;EMBED&gt;. 
     (Partially.  Full support is pending.) </li>
<li> Support for frames is planned. </li>
</ul>
</p>

<p>Tkhtml can be used with Tcl/Tk8.0 or later.
The shared libraries use the new stubs mechanism, so you
should be able to load Tkhtml with any version of "wish" beginning
with 8.0.6.</p>

<p>At the moment, there is not a lot of software that uses this
widget.  Tkhtml is not an application in and of itself.  It is only
a tool.  But applications are being built around tkhtml.  Check back
later for new developments.</p>

<h2>Mailing List!</h2>

<p><font color=red><b><i>New!</i></b></font>
   A mailing list has been started for users of tkhtml.
   Sign up if you want to recieve notifications of updates or
   ask questions about using tkhtml.</p>

<form method=GET action="http://www.egroups.com/subscribe">
<input type=hidden name="listname" value="tkhtml">
<input type=hidden name="SubmitAction" value="Subscribe">
<p>Enter your e-mail address below and click the button to
   sign up for the tkhtml mailing list:</p>

<p>
<table cellspacing=10>
<tr><td valign=center>
<input type=text name="emailaddr" value="your e-mail" size=21>
</td><td valign=center>
<input type=image border=0 alt="Click here to join tkhtml"
   name="Click here to join tkhtml" SRC="http://www.egroups.com/oems/default/languages/english/images/subscriptionBoxButton.gif">
</td></tr>
</table>
</p>

<p>You can also view the 
  <a href="http://www.egroups.com/group/tkhtml/">archives</a>
  for the mailing list.  To post to this mailing list, send a
  message to <a href="mailto:tkhtml@eGroups.com">tkhtml@eGroups.com</a>.
  The mailing list is hosted by
  <a href="http://www.egroups.com/">eGroups.com</A>
</p>
</form>


<h2>You Can Help!</h2>

<p>If you would like to help, please consider
contributing in the following ways:</p>

<p>
<ul>
<li> Try out tkhtml on your computer and report bugs to
     <a href="mailto:drh@acm.org">drh@acm.org</a>. </li>
<li> Fix bugs and send in patches.  (Write access to the
     CVS repository may be granted to anyone who is serious
     about this.)</li>
<li> Make suggestions for new features.  </li>
<li> Write applications that use tkhtml. </li>
<li> Improve the documentation. </li>
</ul>
</p>

<p>Any help you can provide is appreciated.</p>

<h2>Getting The Widget</h2>

<p>Visit the <a href="download.html">download</a> page for a list of
files available for immediate download.</p>

<p>You can now also obtain the latest tkhtml sources via anonymous CVS.
To access the anonymous CVS server, first install CVS on your system.
(See <a href="http://www.cyclic.com/">http://www.cyclic.com/</a> for 
additional information.)  Then login as follows:</p>

<blockquote><pre>
cvs -d :pserver:cvs@xoli.dyn.dhs.org:/home/cvs/cvsroot login
</pre></blockquote>

<p>You will be prompted for a password.  Use "<tt>cvs</tt>".  After
you get logged in successfully, you can check out the source tree
like this:</p>

<blockquote><pre>
cvs -d :pserver:cvs@xoli.dyn.dhs.org:/home/cvs/cvsroot checkout htmlwidget
</pre></blockquote>

<p>This command creates a directory named "<tt>htmlwidget</tt>" and
fills it with the latest version of the sources.</p>

</body>
</html>
}
close $f
lappend SendList index.html

set f [open download.html w]
puts $f {
<html>
<head>
<title>TkHtml Download Page</title>
</head>
<body bgcolor=white>
<h1 align=center>TkHtml Download Page</h1>
}
puts $f "<p align=center><i>Last update: [clock format [clock seconds]]</i></p>"
puts $f {

<p>The files shown below are available for download.  For the very
latest sources, visit the anonymous CVS server.  Instructions for 
reaching the anonymous CVS server are on the tkhtml 
<a href="index.html">homepage</a>.</p>

<ul>
}
foreach {file desc} {
  tkhtml.tar.gz   {A tarball containing all the latest source code}
  hv.tcl.gz       {The "Html Viewer" example application}
  spec.html       {A raw specification of how the tkhtml widget works}
  tkhtml.so.gz    {Shared library suitable for use on Linux}
  tkhtml.dll.zip  {A DLL suitable for use on Windows95/98/NT/2K}
} {
  if {![file readable $file]} continue
  lappend SendList $file
  puts $f "<li><p><a href=\"$file\">$file</a><br>"
  puts $f "Description: $desc<br>"
  puts $f "Size: [file size $file] bytes<br>"
  puts $f "Last modified: [clock format [file mtime $file]]"
  switch -glob -- $file {
    *.zip -
    *.gz {set access zcat}
    default {set access cat}
  }
  if {![catch {exec $access $file | ident | grep {$Id: }} ident]} {
    puts $f "<br>Version information:"
    puts $f "<pre>\n$ident</pre>"
  }
  puts $f "</p></li>\n"
}
puts $f {
</ul>

<p><a href="index.html">Back</a> to the tkhtml home page</p>

</body>
</html>
}
close $f
lappend SendList download.html

puts $p "scp [lsort $SendList] hwaci@oak.he.net:public_html/sw/tkhtml"
close $p