Tcl - Xilinx Tcl shell中是否有一种方法可以列出当前项目的所有可用属性?

问题描述

有没有办法生成可以为Project Navigator项目设置的所有选项的列表?

解决/修复方法

Project Navigator GUI中提供的所有项目流程属性都可以通过Tcl shell读取或设置。 Tcl中的属性名称与GUI中显示的属性名称相同。

要查看可用属性,请输入以下命令:

项目属性

对于以行分隔的可用属性列表,请输入以下命令:

对于每个道具[项目属性] {置入“$ prop”}

要获取特定流程属性的当前值,请输入“project get”<process name>“

例:

项目得到“宏搜索路径”

如果多个进程使用相同的属性名称,则还必须指定进程。

例:

项目得到“注册复制” - 进程“综合 - XST”

要从Tcl设置流程属性,请键入“project set <property_name> <property_value>”

例:

项目集“宏搜索路径”“c:/ Ip / netlist_directory”

有关这些或任何Xilinx Tcl命令的更多信息,请键入“help <command name>”

#!xtclsh

#ISE xtclsh的示例脚本。该脚本读取所有进程

来自开放ISE项目的#properties属性并创建两个文件:

#1. <项目名称> _process_properties.txt是一个人类可读的报告

#表中列出了所有属性及其值。

#2. <项目名称> _process_properties.csv旨在导入

#进入诸如Micorsoft Excel之类的扩展程序。

#3。<项目名称> _clone_script.tcl将创建一个Tcl脚本

#可用于将当前打开的项目克隆到另一个项目中

#project。

#要运行此脚本,项目必须是打开的,并且必须有一个或

#综合视图中的更多设计文件,如HDL,EDIF,NGO等。

#然后,使用source命令获取scipt:

#%source generate_process_property_report.tcl

#ISE的Tcl命令的文档可以在

#ISE 9.1i开发参考指南,第3章。

#可以在http://tcl.tk找到有关Tcl本机命令的文档。

#$ Id:generate_process_property_report.tcl,v 1.2 2007/06/07 22:45:28 hgebb Exp $

#proc get_properties

#构建存储进程,进程属性的变量,

#和他们的价值观。此数据结构是一个列表列表,看起来像

#{{proc1 {{prop1 val1} {prop2 val2}}} {proc2 {{prop1 val1}}}}

#参数:

#props_name:inout数据结构,用于存储进程属性值

#return:none

proc get_properties {props_name} {

upvar $ props_name道具

设置进程[project get_processes]

设置projName [项目获取名称]

把“从$ projName中读取流程属性”

foreach proc_iter $ processes {

把“$ proc_iter”

设置属性[项目属性-process $ proc_iter]

把“$ properties”; #DEBUG

foreach prop_iter $ properties {

把“$ prop_iter”;#DEBUG

set val [project get $ prop_iter -process $ proc_iter]

把“$ prop_iter $ val”; #DEBUG

lappend prop_list [list $ prop_iter $ val]

}

lappend props [list $ proc_iter $ prop_list]

unset prop_list

}

}

#proc create_text

#创建文本文件报告。

#参数:

#phoet:输入数据结构,持有进程属性。请参阅get_properties

#作为描述

#fileName:要创建的文件的输入名称。如果它存在,它将被覆盖。

#返回:无。

proc create_text {props fileName} {

设置fid [open $ fileName w]

设置name_len 0

设置val_len 0

foreach proc_iter $ props {

foreach prop_iter [lindex $ proc_iter 1] {

设置x [字符串长度[lindex $ prop_iter 0]]

if {$ x> $ name_len} {set name_len $ x}

设置x [字符串长度[lindex $ prop_iter 1]]

if {$ x> $ val_len} {set val_len $ x}

}

}

set majorDivide [string repeat“=”[expr $ name_len + $ val_len + 7]]

set majorDivide [string replace $ majorDivide 0 0“|”]

set majorDivide [string replace $ majorDivide end end“|”]

set minorDivide [string repeat“ - ”[expr $ name_len + $ val_len + 7]]

set minorDivide [string replace $ minorDivide 0 0“|”]

set minorDivide [string replace $ minorDivide end end“|”]

set lineTemplate“|”

追加lineTemplate [string repeat“”$ name_len]

追加lineTemplate“|”

追加lineTemplate [string repeat“”$ val_len]

追加lineTemplate“|”

设置name_start 2

set val_start [expr $ name_len + 5]

放入$ fid“版权所有(c)1995-2007 Xilinx,Inc。保留所有权利。\ n”

把$ fid“[时钟格式[时钟秒] - 格式%c \ n]”

put $ fid“INFO:处理ISE项目的属性值。”

put $ fid“1。<项目名称> _process_properties.txt文件(此文件)”

put $ fid“以人类可读的ASCII文本格式报告流程属性值。”

put $ fid“2.用于电子表格的<project name> _propcess_properties.csv文件”

把$ fid“程序,如MS Excel。\ n”

把$ fid“INPUT FILE:[project get name]”

put $ fid“OUTPUT FILE:$ fileName \ n”

foreach proc_iter $ props {

set proc_name [lindex $ proc_iter 0]

把$ fid $ majorDivide

设置行$ lineTemplate

set line [string replace $ line [expr $ name_len + 3] [expr $ name_len + 3]“”]

set line [string replace $ line $ name_start [expr $ name_start + [string length $ proc_name] - 1] $ proc_name]

把$ fid $ line

把$ fid $ minorDivide

foreach prop_iter [lindex $ proc_iter 1] {

set prop_name [lindex $ prop_iter 0]

set prop_val [lindex $ prop_iter 1]

设置行$ lineTemplate

set line [string replace $ line $ name_start [expr $ name_start + [string length $ prop_name] - 1] $ prop_name]

set line [string replace $ line $ val_start [expr $ val_start + [string length $ prop_val] - 1] $ prop_val]

把$ fid $ line

}

}

把$ fid $ majorDivide

关闭$ fid

将“生成的流程属性报告文件$ fileName”放入

}

#proc create_excel

#创建旨在导入电子表格程序的CSV文件。

#参数:

#phoet:输入数据结构,持有进程属性。请参阅get_properties

#作为描述

#fileName:要创建的文件的输入名称。如果它存在,它将被覆盖。

#返回:无。

proc create_excel {props fileName} {

设置fid [open $ fileName w]

放入$ fid“\#Copyright(c)1995-2007 Xilinx,Inc。保留所有权利。\ n \#”

把$ fid“\#[时钟格式[时钟秒] -format%c \ n ...

(更多...)
编辑 重设标签(回车键确认) 标为违禁 关闭 合并 删除

提问于 2018-08-18 20:26:37 +0800

这个帖子被标记为一个社区wiki

这个帖子是一个wiki(维基). 任何一个积分 >500的人都可以完善它