Check-in [f5da0feb0b]
Not logged in
Home Help Timeline Files Branches Tags Forum Tickets Wiki More... Login
Overview
Comment:Fix comments, regenerate and sign the HTML documentation.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f5da0feb0b5ad59c41f5939f2d0892bfba8f1d03
User & Date: mistachkin on 2019-08-31 03:48:21
Other Links: manifest | tags
Context
2019-09-08
21:56
Stub in support for grabbing the package name out of the lookup metadata. check-in: ccfa024e3e user: mistachkin tags: trunk
2019-08-31
03:48
Fix comments, regenerate and sign the HTML documentation. check-in: f5da0feb0b user: mistachkin tags: trunk
2019-08-20
01:18
Add namespaces to the documentation. check-in: d8c0232ece user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified client/1.0/neutral/common.tcl from [0c7875cb97] to [777dc338d2].

︙︙
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

      puts -nonewline $channel $data
      close $channel
      return ""
    }
  }

  #
  # NOTE: This procedure was stolen from the "getEagle.tcl" script.  This
  #       procedure sets up the default values for all HTTP configuration
  #       parameters used by this package.  If the force argument is
  #       non-zero, any existing values will be overwritten and set back
  #       to their default values.
  #
  proc setupCommonVariables { force } {
    #








|








84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

      puts -nonewline $channel $data
      close $channel
      return ""
    }
  }

  #
  # NOTE: This procedure was stolen from the "common.tcl" script.  This
  #       procedure sets up the default values for all HTTP configuration
  #       parameters used by this package.  If the force argument is
  #       non-zero, any existing values will be overwritten and set back
  #       to their default values.
  #
  proc setupCommonVariables { force } {
    #
︙︙
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


    if {![info exists allowInsecureRedirect]} then {
      set allowInsecureRedirect false
    }
  }

  #
  # NOTE: This procedure was stolen from the "getEagle.tcl" script.  It is
  #       designed to emit a message to the console.  The channel argument
  #       is the channel where the message should be written.  The string
  #       argument is the content of the message to emit.  If the channel
  #       argument is an empty string, nothing is written.
  #
  proc pageOut { channel string } {
    if {[string length $channel] > 0} then {
      catch {
        puts -nonewline $channel $string; flush $channel
      }
    }
  }

  #
  # NOTE: This procedure was stolen from the "getEagle.tcl" script.  It is
  #       designed to emit a message to the HTTP client log.  The string
  #       argument is the content of the message to emit.  If the string
  #       argument is an empty string, nothing is written.
  #
  proc pageLog { string } {
    if {[string length $string] > 0} then {
      catch {
        tclLog [appendArgs \
            [pid] " : " [clock seconds] " : http : " $string]
      }
    }
  }

  #
  # NOTE: This procedure was stolen from the "getEagle.tcl" script.  It is
  #       designed to emit a progress indicator while an HTTP request is
  #       being processed.  The channel argument is the Tcl channel where
  #       the progress indicator should be emitted.  The type argument is
  #       the single-character progress indicator.  The milliseconds
  #       argument is the number of milliseconds to wait until the next
  #       periodic progress indicator should be emitted.  This procedure
  #       reschedules its own execution.








|














|














|








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


    if {![info exists allowInsecureRedirect]} then {
      set allowInsecureRedirect false
    }
  }

  #
  # NOTE: This procedure was stolen from the "common.tcl" script.  It is
  #       designed to emit a message to the console.  The channel argument
  #       is the channel where the message should be written.  The string
  #       argument is the content of the message to emit.  If the channel
  #       argument is an empty string, nothing is written.
  #
  proc pageOut { channel string } {
    if {[string length $channel] > 0} then {
      catch {
        puts -nonewline $channel $string; flush $channel
      }
    }
  }

  #
  # NOTE: This procedure was stolen from the "common.tcl" script.  It is
  #       designed to emit a message to the HTTP client log.  The string
  #       argument is the content of the message to emit.  If the string
  #       argument is an empty string, nothing is written.
  #
  proc pageLog { string } {
    if {[string length $string] > 0} then {
      catch {
        tclLog [appendArgs \
            [pid] " : " [clock seconds] " : http : " $string]
      }
    }
  }

  #
  # NOTE: This procedure was stolen from the "common.tcl" script.  It is
  #       designed to emit a progress indicator while an HTTP request is
  #       being processed.  The channel argument is the Tcl channel where
  #       the progress indicator should be emitted.  The type argument is
  #       the single-character progress indicator.  The milliseconds
  #       argument is the number of milliseconds to wait until the next
  #       periodic progress indicator should be emitted.  This procedure
  #       reschedules its own execution.
︙︙
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218

          $milliseconds]]]
    } else {
      unset -nocomplain afterForPageProgress
    }
  }

  #
  # NOTE: This procedure was stolen from the "getEagle.tcl" script.  It is
  #       designed to process a single HTTP request, including any HTTP
  #       3XX redirects (up to the specified limit), and return the raw
  #       HTTP response data.  It may raise any number of script errors.
  #
  # <public>
  proc getFileViaHttp { uri redirectLimit channel quiet args } {
    #








|








204
205
206
207
208
209
210
211
212
213
214
215
216
217
218

          $milliseconds]]]
    } else {
      unset -nocomplain afterForPageProgress
    }
  }

  #
  # NOTE: This procedure was stolen from the "common.tcl" script.  It is
  #       designed to process a single HTTP request, including any HTTP
  #       3XX redirects (up to the specified limit), and return the raw
  #       HTTP response data.  It may raise any number of script errors.
  #
  # <public>
  proc getFileViaHttp { uri redirectLimit channel quiet args } {
    #
︙︙

Modified client/1.0/neutral/common.tcl.asc from [8a93136c25] to [7c05327947]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2
Comment: Eagle Package Repository

iQIcBAABCAAGBQJdU5LuAAoJEFAslq9JXcLZCNIP+gOmRXU14f9Lna39qxq/96TF
K18uxKxDRnrRwA4ni5FW691zXQQdHz+DQ0I1sPGI23fGtbbDOc7jbLHqm0JMN3Td
MxBmkWflbidKm6i7tgCfl0itdsdabrJHR6i+vZyEAvhXaWiBZwpj5quaFQ6QT5s1
ncbbQeUeAj6HbTcTkPH3h9Yyl8c3KYjXNhRtDbFS1kawnoP9e8inQ782W5y52UHe
Ma39nwHwh4Jj7EpCn4qGLz2wr/VU5kBZr8/Tceishk+qmyNa3/PspqSLtbpAsOdF
gAR0cFvmNk3dQovoUnHPKcszYYNbqkj+YjZ7v0+hThHOawJaaRSkqXQ4pI3Plyp+
vfVeygadOQ4X+kjzrMAYh7GbLOb8LoFcOPsizySiARY1H0CqObn9hwljZwHo2YIZ
FZsn2ph3QXW7soKINX0teKtAqAU+J/akPSa5asT1cy0Up9b79VTdFUAsKLdGYWa3
7jQdZ9XM1Lt8K6xY3okDYp66UBXAulUWvhe5f004Qk7t9DDuk0sIlqnKnsBMl1Tc
gb2zYQc7t5/xJbgh1JVUtoKJPQzNfsosvdjZBwl+5g+raO+Q4bd1aI+QT8aDwcXo
tHE1xH3TIZOtMe+T4y0lNJGAAUuuBDZmfEOU9dIpVTq9poTy17d12gtl7NICg1I3
AZLZ88ZqlecpHvtelS+T
=LAil
-----END PGP SIGNATURE-----





|
|
|
|
|
|
|
|
|
|
|
|
|


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2
Comment: Eagle Package Repository

iQIcBAABCAAGBQJdae1rAAoJEFAslq9JXcLZltMQALMJcB5OEX4PNaEx6jldcjjh
n3vVMjEWyXVc0R2k2g1s+warifNrWZOQqULBctj7LlQ4TbM2IUvue/8ZGVjhWaCi
1+fVwRIdrCqETeMaofAW/1L+tALWaUW39i47I6080rpUGB9Ixo6+yfL34O2gkLUw
D0QM0mok7spztTY/+LE4kCRIYIlxpFR07lq4yx0SfzhYf0rPp2GqBGvVx4N2yUUx
A3lzT/GE7ye13Cx7byctHQYeLtKNf3PG2aogdHAQwKqRvkShfWbpXE0NrBqnRQBe
GUizMVBLFJKtuR/PnMwGKg0Eif+X6Xdp9brEKr+lJwmNRiXPY0CQpw27W5NLb0R7
bMKAaBta99wca67EbIc84aqQZdHUs1zz5OFqbqN1YsO96ez3k9vEQ+wlCR72x6PW
lQymB7ewfsK60iA+IEt4RmYdWCMD6viMlQsqg9tgO32FcEIldKpP3UzBR7IpQtnO
SNjKBJnCBHgUw0z0kLQ+6/mtGrW/jrSLYrfBR3QmeMpTAunND9dxttLXuscCRh0s
NC6VDRnmxAHBD24XK+rz2dR0ncQxWI42tbEHX2wUrCeemtRYVT1Jk4E1f1xFMblk
u5pxT777QqUHjB4rDqsVQi6CUgscIBCCR9lWxocdEvs0kZ9/j0w5LhZwXPQQf9GM
5p5ir83UUEIe62CmFdYt
=Fo7k
-----END PGP SIGNATURE-----

Modified doc/v1.html from [7b8d8a78cc] to [a53e28c193].

︙︙
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

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;quiet&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Optional argument list &quot;args&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;getEagle.tcl&quot; script.  It is<br>
designed to process a single HTTP request, including any HTTP<br>
3XX redirects (up to the specified limit), and return the raw<br>
HTTP response data.  It may raise any number of script errors.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=97">::Eagle::Tools::Common::setupCommonVariables</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;force&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;getEagle.tcl&quot; script.  This<br>
procedure sets up the default values for all HTTP configuration<br>
parameters used by this package.  If the force argument is<br>
non-zero, any existing values will be overwritten and set back<br>
to their default values.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=153">::Eagle::Tools::Common::pageOut</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;string&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;getEagle.tcl&quot; script.  It is<br>
designed to emit a message to the console.  The channel argument<br>
is the channel where the message should be written.  The string<br>
argument is the content of the message to emit.  If the channel<br>
argument is an empty string, nothing is written.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=167">::Eagle::Tools::Common::pageLog</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;string&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;getEagle.tcl&quot; script.  It is<br>
designed to emit a message to the HTTP client log.  The string<br>
argument is the content of the message to emit.  If the string<br>
argument is an empty string, nothing is written.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=186">::Eagle::Tools::Common::pageProgress</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;type&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;milliseconds&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;getEagle.tcl&quot; script.  It is<br>
designed to emit a progress indicator while an HTTP request is<br>
being processed.  The channel argument is the Tcl channel where<br>
the progress indicator should be emitted.  The type argument is<br>
the single-character progress indicator.  The milliseconds<br>
argument is the number of milliseconds to wait until the next<br>
periodic progress indicator should be emitted.  This procedure<br>
reschedules its own execution.<br>








|











|














|












|















|








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

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;quiet&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Optional argument list &quot;args&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;common.tcl&quot; script.  It is<br>
designed to process a single HTTP request, including any HTTP<br>
3XX redirects (up to the specified limit), and return the raw<br>
HTTP response data.  It may raise any number of script errors.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=97">::Eagle::Tools::Common::setupCommonVariables</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;force&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;common.tcl&quot; script.  This<br>
procedure sets up the default values for all HTTP configuration<br>
parameters used by this package.  If the force argument is<br>
non-zero, any existing values will be overwritten and set back<br>
to their default values.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=153">::Eagle::Tools::Common::pageOut</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;string&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;common.tcl&quot; script.  It is<br>
designed to emit a message to the console.  The channel argument<br>
is the channel where the message should be written.  The string<br>
argument is the content of the message to emit.  If the channel<br>
argument is an empty string, nothing is written.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=167">::Eagle::Tools::Common::pageLog</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;string&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;common.tcl&quot; script.  It is<br>
designed to emit a message to the HTTP client log.  The string<br>
argument is the content of the message to emit.  If the string<br>
argument is an empty string, nothing is written.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=186">::Eagle::Tools::Common::pageProgress</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;type&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;milliseconds&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;common.tcl&quot; script.  It is<br>
designed to emit a progress indicator while an HTTP request is<br>
being processed.  The channel argument is the Tcl channel where<br>
the progress indicator should be emitted.  The type argument is<br>
the single-character progress indicator.  The milliseconds<br>
argument is the number of milliseconds to wait until the next<br>
periodic progress indicator should be emitted.  This procedure<br>
reschedules its own execution.<br>
︙︙

Added doc/v1.html.asc version [fcf807d82c]. 







































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2
Comment: Eagle Package Repository

iQIcBAABCAAGBQJdae3PAAoJEFAslq9JXcLZHxYP/25j7mSSLvy6Wb/fAxCR1SO5
yaheakkLRrSKyZuK3z9jJe8dG7X6fqnHSxVMNFkSFWN9cUZlTwYL/YG6irudARxS
T2J1DtEzfXKB/HrVnuTB4EuWbeFOmI6phV7N/Y6x13KUzVD8LOLvfEX3K4zyEVmc
jpJDX2le9lNDBsdI/jwp6bU4nM1EQAB2u2OKiloQnBgX2oABcLPtOcAMgm+cp9Qp
TemzeaQjTpJi3YJHZdpcT6tF72RN+N8s1Vz/0JpVteAe/GBkhdIrzDOOdUE087Lx
VpuEmj2x25IUMy2UWrHCrBYL9SUNIcjduNPHQcbe3NlaCvcSvmAA08PfxRhVF3E4
5dK8y9KLFk75n3lE+cIOhJy4lMKd8yKTl+JcwESA5oX6VHEzzvqx6WsUPVLJCAAQ
lYcfzhe7Vpc5x8d5qodoLHqadVMHR5Ot0lAsd8pVQwtcHEBD84Sr8z0e9QIphwSm
NnFHPFmHSbIKubWzSpFZfYvmPgSRo9KUsysQu0aN6kXxNsovnYoDfogurcx67bJR
OtI1Y0xG3QM4e1oUXrSYYMurige7z2aHCcjmSUJfxDgIq9cC+z6Ubhv2i/AKFUNK
dDVGy7oxrbLt+abx4Yd+u4e4tBcOSKZPe2FxJql6ky37d6JWsbjPKdB6zh5z4Aw+
A3ExJ1ajxDjQ4S4ULgin
=5aK4
-----END PGP SIGNATURE-----

This page was generated in about 0.01s by Fossil version 2.20 Tcl version 8.6.12 [658547aa7c] 2022-10-09 01:11:55