1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
|
verifyPersistentRootDirectory
set persistentDirectory $persistentRootDirectory
}
set persistent [string is true -strict \
[getDictionaryValue $options -persistent]]
set usePgp [string is true -strict \
[getDictionaryValue $options -usePgp]]
set useAutoPath [string is true -strict \
[getDictionaryValue $options -useAutoPath]]
set allowUpdate [string is true -strict \
|
>
>
>
|
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
|
verifyPersistentRootDirectory
set persistentDirectory $persistentRootDirectory
}
set persistent [string is true -strict \
[getDictionaryValue $options -persistent]]
set overwrite [string is true -strict \
[getDictionaryValue $options -overwrite]]
set usePgp [string is true -strict \
[getDictionaryValue $options -usePgp]]
set useAutoPath [string is true -strict \
[getDictionaryValue $options -useAutoPath]]
set allowUpdate [string is true -strict \
|
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
|
$directory(temporary) $fileNameOnly]]
if {[file exists $downloadFileName]} then {
error [appendArgs \
"temporary file name \"" $downloadFileName \
"\" already exists"]
}
file mkdir [file dirname $downloadFileName]
downloadOneFile $language $version $platform \
$fileName $downloadFileName $usePgp
lappend downloadedFileNames [list \
|
>
>
>
>
>
>
>
>
>
>
>
|
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
|
$directory(temporary) $fileNameOnly]]
if {[file exists $downloadFileName]} then {
error [appendArgs \
"temporary file name \"" $downloadFileName \
"\" already exists"]
}
if {$persistent || $viaInstall} then {
if {!$overwrite} then {
set persistentFileName [file normalize [file join \
$directory(persistent) $fileNameOnly]]
if {[file exists $persistentFileName]} then {
continue
}
}
}
file mkdir [file dirname $downloadFileName]
downloadOneFile $language $version $platform \
$fileName $downloadFileName $usePgp
lappend downloadedFileNames [list \
|