svk/projman
svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

changelog-gen.tcl: Добавлено создание резервной копии выходного файла. Исправлен вывод в файл.

Browse Source
This commit is contained in:
Sergey Kalinin 2024-08-22 13:12:28 +03:00
parent cb5c21c077
commit 2024aa86ba
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
changelog-gen.tcl
View File

@ -259,6 +259,17 @@ if [info exists args(--deb)] {
set outText [GenerateChangelogDEB] set outText [GenerateChangelogDEB]
if [info exists args(--out-file)] { if [info exists args(--out-file)] {
if [file exists $args(--out-file)] { if [file exists $args(--out-file)] {
file copy -force $args(--out-file) "$args(--out-file).tmp"
set origOutFile [open "$args(--out-file).tmp" "r"]
set origText [read $origOutFile]
close $origOutFile
set outFile [open $args(--out-file) "w"]
puts $outFile $outText
puts $outFile $origText
close $outFile
if [info exists args(--last)] { if [info exists args(--last)] {
set outFile [open $args(--out-file) "r+"] set outFile [open $args(--out-file) "r+"]
puts $outFile $outText puts $outFile $outText