Check-in [04f6077d26]
Not logged in
Home Help Timeline Files Branches Tags Forum Tickets Wiki More... Login
Overview
Comment:Initial work on Tcl'2019 conference materials. Cleanup for documentation comment extractor.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 04f6077d261caa9dd6a8a52e84ff7fe2ae297318
User & Date: mistachkin on 2019-08-14 04:51:51
Other Links: manifest | tags
Context
2019-08-15
05:33
Fix issue with client version validation (slightly incorrect regular expression). check-in: 75034612c0 user: mistachkin tags: trunk
2019-08-14
04:51
Initial work on Tcl'2019 conference materials. Cleanup for documentation comment extractor. check-in: 04f6077d26 user: mistachkin tags: trunk
2019-05-20
19:58
Use the full sub-command name for 'file isdirectory'. check-in: de59098f84 user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified client/1.0/neutral/common.tcl from [3398d77383] to [0c7875cb97].

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

    #
    # NOTE: This procedure was stolen from the "auxiliary.eagle" script.
    #       This procedure accepts an any number of arguments.  The arguments
    #       are appended into one big string, verbatim.  The resulting string
    #       is returned.  Normally, this procedure is used to avoid undesired
    #       string interpolation operations.
    #

    proc appendArgs { args } {
      eval append result $args
    }
  }

  #
  # NOTE: *HACK* Skip defining this procedure if it is already defined in the
  #       global namespace.
  #
  if {[llength [info commands ::makeBinaryChannel]] == 0} then {
    #
    # NOTE: This procedure was stolen from the "file1.eagle" script.  This
    #       procedure reconfigures the specified channel to full binary mode.
    #

    proc makeBinaryChannel { channel } {
      fconfigure $channel -encoding binary -translation binary; # BINARY DATA
    }
  }

  #
  # NOTE: *HACK* Skip defining this procedure if it is already defined in the
  #       global namespace.
  #
  if {[llength [info commands ::writeFile]] == 0} then {
    #
    # NOTE: This procedure was stolen from the "file1.eagle" script.  This
    #       procedure writes all data to the specified binary file and returns
    #       an empty string.  Previous data contained in the file, if any, is
    #       lost.
    #

    proc writeFile { fileName data } {
      set channel [open $fileName {WRONLY CREAT TRUNC}]
      makeBinaryChannel $channel
      puts -nonewline $channel $data
      close $channel
      return ""
    }








>














>
















>








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

    #
    # NOTE: This procedure was stolen from the "auxiliary.eagle" script.
    #       This procedure accepts an any number of arguments.  The arguments
    #       are appended into one big string, verbatim.  The resulting string
    #       is returned.  Normally, this procedure is used to avoid undesired
    #       string interpolation operations.
    #
    # <ignore>
    proc appendArgs { args } {
      eval append result $args
    }
  }

  #
  # NOTE: *HACK* Skip defining this procedure if it is already defined in the
  #       global namespace.
  #
  if {[llength [info commands ::makeBinaryChannel]] == 0} then {
    #
    # NOTE: This procedure was stolen from the "file1.eagle" script.  This
    #       procedure reconfigures the specified channel to full binary mode.
    #
    # <ignore>
    proc makeBinaryChannel { channel } {
      fconfigure $channel -encoding binary -translation binary; # BINARY DATA
    }
  }

  #
  # NOTE: *HACK* Skip defining this procedure if it is already defined in the
  #       global namespace.
  #
  if {[llength [info commands ::writeFile]] == 0} then {
    #
    # NOTE: This procedure was stolen from the "file1.eagle" script.  This
    #       procedure writes all data to the specified binary file and returns
    #       an empty string.  Previous data contained in the file, if any, is
    #       lost.
    #
    # <ignore>
    proc writeFile { fileName data } {
      set channel [open $fileName {WRONLY CREAT TRUNC}]
      makeBinaryChannel $channel
      puts -nonewline $channel $data
      close $channel
      return ""
    }
︙︙
206
207
208
209
210
211
212

213
214
215
216
217
218
219


  #
  # 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.
  #

  proc getFileViaHttp { uri redirectLimit channel quiet args } {
    #
    # NOTE: This global variable is used to check the running version of
    #       Tcl.
    #
    global tcl_version









>








209
210
211
212
213
214
215
216
217
218
219
220
221
222
223


  #
  # 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 } {
    #
    # NOTE: This global variable is used to check the running version of
    #       Tcl.
    #
    global tcl_version
︙︙

Modified client/1.0/neutral/common.tcl.asc from [89e1456290] to [8a93136c25]. 

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

iQIcBAABCAAGBQJZUyBQAAoJEFAslq9JXcLZ4I8QAJpIEuvMdWeYrQlXutuLmLmW
DmhQUs7XvpCDkXm2ldyU+6X7LvH3M/QzqcvAfbBvRYhLtLqsD0Vo8g9km7PNkz8w
pBaVtI0af7C3Fa92vfJT9qnxVrHmhNIS4kQq7FWdEh/HOajsP9umXbD2dr/sLqfm
UZCKOi7kCS2JdbPTLw2AC3Sb5x/Jl5LTptjxjCrTj+fRyHTzg6xIxGgrN0/sdq7S
ATH14YuGfI4R11sTqWpoMI31wPn1XNkrXTbDSrgfAIlCGApauElWIjfGTRrsFZpA
buzgpwWwcWcRvE0AzeLONW6HVryXgKt6caAVQG2j/KnTCPeQ5Xo/g5yeEl+sU+96
MzGZweSHIG7N8BpZlqH1BQo6GNu+pQo90pPJlR0s2XT5NTIYPORKQBbAJs9+BWf7
SdJ7Fbzuh9sgN2ZbcHFo5ScHMPZJGrjbX2pSsuqVIZ+PCSHRp5NYzDZNMTwK/jFP
/Ln2taIKHwDpZYA2pH0zHMgyez8H9/guNMUmaRfZAF0A+gVfLNMTvUDE77ebeVQ1
uSMUxduqI9iwEwMC/bCZ0r6JRzC2AttGmxPgAdC4D/YgZhGGQs2a0cuyyJyESuYK
KmGR/uKs2pkeGGUPE4TF5rzchEL0aoZckzvqx5+vfFzefarDN9zs8ruEj3pLwquv
YaWsC2SK6589k/87lFY+
=9Nm0
-----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

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

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