585
586
587
588
589
590
591
592
593
594
595
596
597
598
|
set formData [createMultipartFormData $boundary \
[list apiKey $apiKey package $package patchLevel \
$patchLevel language $language script $script \
certificate $certificate]]
if {[isEagle]} then {
if {![object invoke Eagle._Tests.Default \
TestHasScriptNewWebClientCallback ""]} then {
set error null
set code [object invoke Eagle._Tests.Default \
TestSetScriptNewWebClientCallback "" true true error]
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
|
set formData [createMultipartFormData $boundary \
[list apiKey $apiKey package $package patchLevel \
$patchLevel language $language script $script \
certificate $certificate]]
if {[isEagle]} then {
if {![info exists ::eagle_platform(compileOptions)]} then {
error "missing compile options from Eagle platform array"
}
if {[lsearch -exact -- \
$::eagle_platform(compileOptions) TEST] == -1} then {
error "cannot upload: library missing TEST compile-option"
}
if {[lsearch -exact -- \
$::eagle_platform(compileOptions) NETWORK] == -1} then {
error "cannot upload: library missing NETWORK compile-option"
}
if {![object invoke Eagle._Tests.Default \
TestHasScriptNewWebClientCallback ""]} then {
set error null
set code [object invoke Eagle._Tests.Default \
TestSetScriptNewWebClientCallback "" true true error]
|
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
|
#
setupUploadVars
setupCheckoutVars
#
# NOTE: Provide the package to the interpreter.
#
package provide Eagle.Package.Uploader 1.0.5
}
|
|
|
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
|
#
setupUploadVars
setupCheckoutVars
#
# NOTE: Provide the package to the interpreter.
#
package provide Eagle.Package.Uploader 1.0.6
}
|