1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
|
[string tolower $language] $version $platform $fileNames
if {![commitPackageFiles \
$package $patchLevel [string totitle $language] $version \
checkin]} then {
error "failed to commit package files"
}
set script [createRepositoryScript \
"" $checkin [string tolower $language] $version $platform \
$fileNames [list]]
set scriptFileName [file join \
[::PackageRepository::getFileTempDirectory PKGR_UPLOAD_TEMP] \
[appendArgs pkgr_upload_ [::PackageRepository::getUniqueSuffix]]]
writeFile $scriptFileName $script
|
>
>
>
>
>
>
>
>
>
>
>
|
|
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
|
[string tolower $language] $version $platform $fileNames
if {![commitPackageFiles \
$package $patchLevel [string totitle $language] $version \
checkin]} then {
error "failed to commit package files"
}
#
# TODO: Is this the best heuristic here for figuring out that the
# platform should really be "automatic" in the repository?
#
if {$platform eq "neutral" || \
$platform eq [::PackageDownloader::getPlatform]} then {
set scriptPlatform ""
} else {
set scriptPlatform $platform
}
set script [createRepositoryScript \
"" $checkin [string tolower $language] $version $scriptPlatform \
$fileNames [list]]
set scriptFileName [file join \
[::PackageRepository::getFileTempDirectory PKGR_UPLOAD_TEMP] \
[appendArgs pkgr_upload_ [::PackageRepository::getUniqueSuffix]]]
writeFile $scriptFileName $script
|