Check-in [0b9b876081]
Not logged in
Home Help Timeline Files Branches Tags Forum Tickets Wiki More... Login
Overview
Comment:Add and improve comments in the common Tcl package.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 0b9b8760817df7464285b758e80379a7c36f983b
User & Date: mistachkin on 2017-02-09 23:11:54
Other Links: manifest | tags
Context
2017-02-09
23:52
Pickup comment changes from upstream for the common Tcl package. check-in: 0c128d5303 user: mistachkin tags: trunk
23:11
Add and improve comments in the common Tcl package. check-in: 0b9b876081 user: mistachkin tags: trunk
2017-02-08
03:42
Pickup upstream changes (refactoring) for the procedures stolen from the 'getEagle.tcl' script file. check-in: eb184f409f user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified client/1.0/neutral/common.tcl from [03f7c1566c] to [90122df276].

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

# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: $
#
###############################################################################





if {![package vsatisfies [package provide Tcl] 8.4]} then {
  error "need Tcl 8.4 or higher"
}





if {[catch {package present Eagle}] == 0} then {
  error "need native Tcl"
}

###############################################################################

namespace eval ::Eagle::Tools::Common {
  #
  # NOTE: *HACK* Skip defining this procedure if it is already defined.

  #
  if {[llength [info commands ::appendArgs]] == 0} then {
    #
    # 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.

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

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








>
>
>
>




>
>
>
>








|
>















|
>












|
>








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

# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: $
#
###############################################################################

#
# NOTE: This script file uses features that are only present in Tcl 8.4 or
#       higher (e.g. the "eq" operator for [expr], etc).
#
if {![package vsatisfies [package provide Tcl] 8.4]} then {
  error "need Tcl 8.4 or higher"
}

#
# NOTE: This script file uses features that are not available in Eagle (e.g.
#       the "http" and "tls" packages).
#
if {[catch {package present Eagle}] == 0} then {
  error "need native Tcl"
}

###############################################################################

namespace eval ::Eagle::Tools::Common {
  #
  # NOTE: *HACK* Skip defining this procedure if it is already defined in the
  #       global namespace.
  #
  if {[llength [info commands ::appendArgs]] == 0} then {
    #
    # 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.
︙︙

Modified client/1.0/neutral/common.tcl.asc from [56908bfefb] to [ee3a628b91]. 

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

iQIcBAABCAAGBQJYmodbAAoJEFAslq9JXcLZcd4QALETnIRwfNC8+PS0FeHsJCM4
X2+NlGn/BSaAm/c+cOuiTIapynUxB4EFXgz5aAgQgjWCOr8z19Zo+WPNXY/KUMMd
njuSK3Rx7dJqKpzLjEc2fYkCh6BeBfN//9J/S9uRfn4QEJe8ZG4QTIHK4+1fZPSJ
7aUuDW8H9HiMCASK+bv4/pzmuJjtZkL57Qv8nuSVCxpwZw8+by8mZw5pER3IP0x8
tP8HhF/qtSqJwngBLlsLMtAWdlZ/XPF5Sa5DUywCRuBmb0p4GBP8XqPIhxfnYm28
uhu8sTiaSmWJaOBQr55ASDoNxsblXCS/Gb2t06uf+AX/2sZyQswojIjOHc5agLBp
+rMX9R52+ifbDFQmcNOEdaEBevsZ6Mtqq9v9usAkCv/QYONOqq1Ng+wEpZ2NWc8O
ZOWTWd/0Aj/Hb++4ZE8WJ/cviX6tMyZsYW1lH5DA4zg/zIbIL+h20aE4xqRTIFkr
1KO1XJVNB+eGo6ciuXHs4SgmvFaxLBmUIGbFLLDxX8VzGQ3k93JQ4xPrC6cWPBxb
cBx5BywVPwT3z+Vbzy58sDpjIfn4arbj7g3rOL27jDkKWY4pHCMhXJ54mMmWmshq
F15qlIWevXAhfaHTTLaKlSrz8jdc1Hll58YtSD0xq0+gZsk5OZ3sgC6yYY6yBkhh
t50qvQGhkxxYuDssugMm
=jhWs
-----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

iQIcBAABCAAGBQJYnPcNAAoJEFAslq9JXcLZtuwP/jMzVMWZ9pEjPdPtVdQqeqX5
eZkLxFRMgGhuoEeOcNTTmdHfhTKPiiUArfXu7GShre4hDBVvwPhkIPJJQvwFATlL
DO0JVY1MLlZuKHWTTept7679mUCjk67M+QCDgFE0XpFnVYlaiIgHHFiE+PMc6WTd
pimdRC0QmCpiv1+ufQVpRgvo30w+rrAmEFhtu96/wtfetPVuCLLhAVgqTiYzI9+U
1u3TCzJub3Kt0epo4NIO0figMYnmjXGfpTOv+Yyf0Y63BCIT8YFbF/hKm+qycf/U
l6Zy8xYi7q7zd3B+tNRwUVqxFOAGfjsJKDzBQAXB/xGHKNtn0ObgCmyeZw8/XsX+
QYQszY6zxbQujxousJtyBSzashPfInsju+RjqLuCnnda5WrJWKPQT6mgeAukSc9F
nznq8hzz51SKHfgYKwF7yCNdjzlPCIZuiA3/b2IMBnk9Z3Xahs/Z79o4t5fOhZGC
kJddOqfYDEJLlFlJpYFykdqLuqSITxfA1MG68l108I3K61ISq1K1qgbEDAGvkGV9
Se6s6nzLGi7XCxWEbrZ/ImqmoY3f/y0XJTcjwYo+GN4kweZ5GF4dmWvxKB/ZqZef
wBKpgN0BNw3fZVpdndBsR3PyDoQF3jHTeFadBxs+kTcjTyeJbdodDR18qM5qVSmi
8oSkeAorMFsoU0kKZb85
=CAq0
-----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