Xilinx TCL Shell在哪里发出结果？

Question

我正在尝试围绕Xilinx ISE TCL Shell开发基于Python的包装器xtclsh.exe。如果可行，我将添加对其他Shell的支持，例如PlanAhead或Vivado ...

那么，总体情况如何？我有一个构成IP核心的VHDL源文件列表。我想打开一个现有的ISE项目，搜索丢失的VHDL文件，并在必要时添加它们。由于IP内核具有重叠的文件依赖关系，所以项目可能已经包含一些文件，因此我只在寻找丢失的文件。

示例用户Python 3.x和subprocess管道。将xtclsh.exe启动，并将命令逐行发送到外壳。监视输出结果。为了简化示例，我将STDERR重定向到STDOUT。虚拟输出POC_BOUNDARY插入命令流中，以指示已完成的命令。

可以通过设置示例ISE项目（包含一些VHDL源文件）来测试随附的示例代码。

我的问题是显示了INFO，WARNING和ERROR消息，但是脚本无法读取TCL命令的结果。

search *.vhdl -type file在xtclsh.exe中手动执行会导致：

% search *.vhdl -type file
D:/git/PoC/src/common/config.vhdl
D:/git/PoC/src/common/utils.vhdl
D:/git/PoC/src/common/vectors.vhdl

执行脚本会导致：

....
press ENTER for the next step
sending 'search *.vhdl -type file'
stdoutLine='POC_BOUNDARY
'
output consumed until boundary string
....

问题：

• xtclsh写入哪里？
• 如何从TCL命令读取结果？

顺便说一句：提示符号%对我的脚本也不可见。

---

Python代码重现此行为：

import subprocess

class XilinxTCLShellProcess(object):
  # executable = "sortnet_BitonicSort_tb.exe"
  executable = r"C:\Xilinx\14.7\ISE_DS\ISE\bin\nt64\xtclsh.exe"
  boundarString = "POC_BOUNDARY"
  boundarCommand = bytearray("puts {0}\n".format(boundarString), "ascii")

  def create(self, arguments):
    sysargs = []
    sysargs.append(self.executable)

    self.proc = subprocess.Popen(sysargs, stdin=subprocess.PIPE, stdout=subprocess.PIPE, stderr=subprocess.STDOUT)
    self.sendBoundardCommand()

    while(True):
      stdoutLine = self.proc.stdout.readline().decode()
      if (self.boundarString in stdoutLine):
        break
    print("found boundary string")

  def terminate(self):
    self.proc.terminate()

  def sendBoundardCommand(self):
    self.proc.stdin.write(self.boundarCommand)
    self.proc.stdin.flush()

  def sendCommand(self, line):
    command = bytearray("{0}\n".format(line), "ascii")
    self.proc.stdin.write(command)
    self.sendBoundardCommand()

  def sendLine(self, line):
    self.sendCommand(line)

    while(True):
      stdoutLine = self.proc.stdout.readline().decode()
      print("stdoutLine='{0}'".format(stdoutLine))
      if (stdoutLine == ""):
        print("reached EOF in stdout")
        break
      elif ("vhdl" in stdoutLine):
        print("found a file name")
      elif (self.boundarString in stdoutLine):
        print("output consumed until boundary string")
        break

def main():
  print("creating 'XilinxTCLShellProcess' instance")
  xtcl = XilinxTCLShellProcess()

  print("launching process")
  arguments = []
  xtcl.create(arguments)

  i = 1
  while True:
    print("press ENTER for the next step")
    from msvcrt import getch
    from time import sleep
    sleep(0.1)  # 0.1 seconds

    key = ord(getch())
    if key == 27:    # ESC
      print("aborting")
      print("sending 'exit'")
      xtcl.sendLine("exit")
      break
    elif key == 13: # ENTER
      if (i == 1):
        #print("sending 'project new test.xise'")
        #xtcl.sendLine("project new test.xise")
        print("sending 'project open PoCTest.xise'")
        xtcl.sendLine("project open PoCTest.xise")
        i += 1
      elif (i == 2):
        print("sending 'lib_vhdl get PoC files'")
        xtcl.sendLine("lib_vhdl get PoC files")
        i += 1
      elif (i == 3):
        print("sending 'search *.vhdl -type file'")
        xtcl.sendLine("search *.vhdl -type file")
        i += 1
      elif (i == 4):
        print("sending 'xfile add ../../src/common/strings.vhdl -lib_vhdl PoC -view ALL'")
        xtcl.sendLine("xfile add ../../src/common/strings.vhdl -lib_vhdl PoC -view ALL")
        i += 16
      elif (i == 20):
        print("sending 'project close'")
        xtcl.sendLine("project close")
        i += 1
      elif (i == 21):
        print("sending 'exit'")
        xtcl.sendCommand("exit")
        break

  print("exit main()")
  xtcl.terminate()

  print("the end!")

# entry point
if __name__ == "__main__":
  main()

Answer 1

我在 Linux 上尝试了几种方法，但似乎 xtclsh 检测标准输入是否连接到管道或（伪）终端。如果它连接到管道，xtclsh 会抑制通常写入标准输出的任何输出（提示输出、命令结果）。我想，这同样适用于Windows。

即使输入连接到管道，标准错误上打印的消息（无论是信息性的、警告性的还是错误性的）仍然会出现在那里。

要在标准输出上打印消息，您可以使用puts始终在标准输出上打印的 tcl 命令。也就是说，puts [command]获取标准输出command并将其始终打印到标准输出。

示例：假设我们有一个test.xise包含两个文件的项目： 中的顶级实体test.vhd和 中的测试平台test_tb.vhd。并且，我们希望使用此 tcl 脚本 ( ) 列出项目中的所有文件commands.tcl：

puts [project open test]
puts "-----------------------------------------------------------------------"
puts [search *.vhd]
exit

然后调用xtclsh < commands.tcl 2> error.log将其打印在标准输出上：

test
-----------------------------------------------------------------------
/home/zabel/tmp/test/test.vhd
/home/zabel/tmp/test/test_tb.vhd

这打印在标准错误上（到文件中error.log）：

INFO:HDLCompiler:1061 - Parsing VHDL file "/home/zabel/tmp/test/test.vhd" into
   library work
INFO:ProjectMgmt - Parsing design hierarchy completed successfully.