tcl 脚本在 git bash 中出现 LF 警告后停止

Question

我有以下脚本用于将文件添加到 git。 当我尝试运行脚本时，我使用 tclsh 在 git bash 上运行它

proc git_add {file_ext file_type folder} {
  try {
    set results [exec git add $file_ext]
  } trap CHILDSTATUS {results options} {
    puts "Warning: No $file_type files update has been found in $folder"
  }
}

  puts "Files will be added to git now "
  set path "src"
  cd $path
  git_add "*.vhd" "Project" $path
  git_add "*.v" "Project" $path
  git_add "*.sv" "Project" $path

，如果文件有 LF 而不是 CRLF，它会发出警告并停止。

错误如下：

文件将立即添加到 git 警告：LF 将被 CRLF 替换 英特尔/fpgas/fpga_link2/rtl/prbstest.vhd。该文件将有其 工作目录中的原始行结尾。

执行“exec git add $file_ext”时

（过程“git_add”第 2 行）

从“git_add *.vhd”VHD”$path”中调用

如何解决这个问题？

Answer 1

默认情况下，Tcl 将标准错误通道上的输出视为错误。 git 命令的警告很可能出现在 stderr 上。不幸的是，这种情况不会产生可以通过 try 命令捕获的有用错误代码。因此，您要么需要使用 on error 子句捕获一般错误，要么将 -ignorestderr 选项添加到 exec 命令中以禁用此功能行为。

set results [exec -ignorestderr git add $file_ext]

Answer 2

exec 命令在两种情况下抛出错误：

1. 如果管道（通常只是一个进程）以非零错误退出。
2. 如果管道写入标准错误并且 exec 捕获该错误。

这是你遇到的第二个案例。您需要决定您希望通过该消息发生什么。

一种简单的选择是重定向它，以便用户可以在终端中看到它。

proc git_add {file_ext file_type folder} {
  try {
    set results [exec git add $file_ext 2>@stdout]
  } trap CHILDSTATUS {results options} {
    puts "Warning: No $file_type files update has been found in $folder"
  }
}

此（2>@stderr）将其重定向到 Tcl stdout 通道（任何通道都可以，只要它具有操作系统文件描述符）。

---

如果您使用 open | 启动管道并有权访问其输入和/或输出，则当您关闭 通道时会引发错误。 exec 大约是这样的（除了更多的错误处理并且它是用 C 编写的）：

proc exec args {
    set f [open |$args]
    set data [read $f]
    close $f
    return $data
}