请你写一个tcl脚本，当仿真挂死的时候执行改脚本可以把正在执行的verilog代码行输出到一个名为loop.log的文件中，同时解释你编写的脚本的每一行代码的作用

下面是一个简单的tcl脚本，可以在仿真挂死的时候输出正在执行的Verilog代码行到loop.log文件中：

set fp [open loop.log w]

proc log_loop {cmd} {
    global fp
    set filename [file normalize [lindex [split [lindex $::SigFile 0] " "] 0]]
    set lineno [lindex [split [lindex $::SigFile 0] " "] 1]
    puts $fp "[$filename:$lineno] $::SigFile"
}

onerror {set ::SigFile $::ErrorInfo}

解释：

1. `set fp [open loop.log w]`：打开loop.log文件，并将文件句柄赋值给fp变量。如果文件不存在，则会创建一个新的文件；如果文件已存在，则会清空文件内容。

2. `proc log_loop {cmd} {...}`：定义一个名为log_loop的过程，该过程将在仿真器执行每个命令时被调用。

3. `global fp`：声明fp变量为全局变量，以便在log_loop过程中访问。

4. `set filename [file normalize [lindex [split [lindex $::SigFile 0] " "] 0]]`：获取当前仿真执行的Verilog文件名，并将其赋值给filename变量。

5. `set lineno [lindex [split [lindex $::SigFile 0] " "] 1]`：获取当前仿真执行的Verilog行号，并将其赋值给lineno变量。

6. `puts $fp "[$filename:$lineno] $::SigFile"`：将当前仿真执行的Verilog文件名、行号和代码行输出到loop.log文件中。

7. `onerror {set ::SigFile $::ErrorInfo}`：在发生错误时，将错误信息保存到SigFile变量中，以便在log_loop过程中输出错误行号。

当仿真挂死时，执行该脚本会将正在执行的Verilog代码行输出到loop.log文件中，方便进行调试和分析。同时，由于tcl的onerror命令会在仿真错误时自动执行，因此也可以输出错误行号。