Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Modify test suite initialization to work without the 'object' command, if necessary. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
179f0629be5f99ccf4de9ca0fc45ff21 |
| User & Date: | mistachkin 2015-04-08 22:03:45 |
Context
|
2015-04-08
| ||
| 23:12 | Modify the test suite itself to work without the 'object' command, if necessary. check-in: 673875e370 user: mistachkin tags: trunk | |
| 22:03 | Modify test suite initialization to work without the 'object' command, if necessary. check-in: 179f0629be user: mistachkin tags: trunk | |
| 21:36 | Update Eagle script library in externals to the latest trunk code. check-in: 85b231175b user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Eagle1.0/vendor.eagle.
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
...
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
#
lappend ::env(EAGLELIBPATH) $dir2
#
# NOTE: Force Eagle to rebuild the auto-path list for the current
# interpreter right now.
#
object invoke Utility RefreshAutoPathList true
}
#
# NOTE: We are done, return success.
#
return true
}
................................................................................
#
# NOTE: Directory not found, return failure.
#
return false
}
proc setupInterpreterTestPath { channel dir quiet } {
set testPath [object invoke -flags +NonPublic Interpreter.GetActive \
TestPath]
if {$dir ne $testPath} then {
object invoke -flags +NonPublic Interpreter.GetActive TestPath $dir
if {!$quiet} then {
catch {
tqputs $channel [appendArgs \
"---- set interpreter test path to \"" $dir \"\n]
}
}
}
}
#
# NOTE: Check for any overridden settings that may have been specified via
|
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
|
|
|
|
|
|
>
>
>
>
>
>
>
|
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
...
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
|
#
lappend ::env(EAGLELIBPATH) $dir2
#
# NOTE: Force Eagle to rebuild the auto-path list for the current
# interpreter right now.
#
if {[catch {
object invoke Utility RefreshAutoPathList true
}]} then {
#
# NOTE: Ok, maybe the [object] command is not available. Rescan
# the package indexes using the [package scan] sub-command
# in that case. The directories within EAGLELIBPATH will
# not be added to the auto-path; however, all the package
# indexes and their associated packages will be available.
#
if {!$quiet} then {
catch {
tqputs $channel [appendArgs \
"---- unable to refresh auto-path list, scanning \"" \
$::env(EAGLELIBPATH) "\" instead...\n"]
}
}
eval package scan -host -normal -refresh -- $::env(EAGLELIBPATH)
}
}
#
# NOTE: We are done, return success.
#
return true
}
................................................................................
#
# NOTE: Directory not found, return failure.
#
return false
}
proc setupInterpreterTestPath { channel dir quiet } {
if {[llength [info commands object]] > 0} then {
set testPath [object invoke -flags +NonPublic Interpreter.GetActive \
TestPath]
if {$dir ne $testPath} then {
object invoke -flags +NonPublic Interpreter.GetActive TestPath $dir
if {!$quiet} then {
catch {
tqputs $channel [appendArgs \
"---- set interpreter test path to \"" $dir \"\n]
}
}
}
} else {
if {!$quiet} then {
catch {
tqputs $channel "---- cannot set interpreter test path\n"
}
}
}
}
#
# NOTE: Check for any overridden settings that may have been specified via
|