TCL 在一个 proc 之后调用另一个 proc

Question

我有 2 个 procs，它们一个接一个地被调用。第一个过程使用diff 功能并创建file.txt。压缩文件后的proc。问题是当我运行脚本时，file.txt 是空的。当我注释掉压缩过程时，文件中印有差异。 我相信这是因为第二个 proc 没有等待第一个 proc 完成。

create_difference "file1" "file2" 
create_compress "path"

上述过程调用的顺序产生一个空文件.txt.gz

create_difference "file1" "file2" 
#create_compress "path"

上述过程调用的顺序创建了一个预期的差异文件。 在 procs 中，我尝试添加一个 return 语句（返回 1），这并没有什么不同。

我尝试使用wait 命令，如Waiting for background processes to finish before exiting script：

create_difference "file1" "file2" 
wait
create_compress "path"

但是脚本在那个时候挂起。

创建差异的过程：tcl: capture output from "exec diff" which returned non-zero

set dso1 [open file.txt w]
set status [catch {exec diff $file1 $file2} result]
if {$status == 0} {
   puts $dso1 "$file1 and $file2 are identical"
} elseif {$status == 1} {
   puts $dso1 "** $file1 and $file2 are different **"
   puts $dso1 "***************************************************************************"
   puts $dso1 ""
   puts $dso1 $result
   puts $dso1 ""
   puts $dso1 "***************************************************************************"
} else {
   puts stderr "** diff exited with status $status **"
   puts stderr "***********************************************************************"
   puts stderr $result
   puts stderr "***********************************************************************"
}

压缩文件的过程：

proc create_compress  {thepath} {
        catch {exec find ${thepath}/. -type f -exec gzip "{}" \; } result
        #return 1
}

那里还有一些其他文件需要压缩，这就是为什么我压缩文件夹中的每个文件，给定文件夹的路径。其他文件按预期压缩。

我对其进行了更多测试。似乎即使在调用并完成了 diff proc 之后，差异也仅在脚本结束后才写入 file.txt。直到脚本结束，Differences 文件被创建，但它的大小是 0。

Answer 1

没有写入差异文件的原因是它没有关闭。在我的 create_diff 过程中，我忘了包含命令：close $dso1 因此，一旦脚本完成运行，它才会写入文件。但是，在 diff proc 之后，我压缩了文件，由于它无法写入压缩文件，因此文件将为空。

Tldr;我没有关闭我正在写入差异的文件。

Answer 2

set status [catch {exec diff $file1 $file2} result]

“状态”不是diff的退出状态，是catch的退出状态。不一样。获取diff的退出状态：

if {$status == 1} {
    set err_type [lindex $::errorCode 0]
    if {$err_type eq "NONE"} {
        # diff exited with exit status 0 but printed something
        # to stderr
    } elseif {$err_type eq "CHILDSTATUS"} {
        # diff returned non-zero status
        set diff_exit_status [lindex $::errorCode end]
        if {$diff_exit_status == 1} {
            # diff results in $result
        } else {
            # diff had some kind of trouble
        }
    }
}