initial commit

adi_library/jesd204/jesd204_tx/xgui/jesd204_tx_v1_0.tcl

@@ -0,0 +1,104 @@
+
+# Loading additional proc with user specified bodies to compute parameter values.
+source [file join [file dirname [file dirname [info script]]] gui/jesd204_tx_v1_0.gtcl]
+
+# Definitional proc to organize widgets for parameters.
+proc init_gui { IPINST } {
+  ipgui::add_param $IPINST -name "Component_Name"
+  #Adding Page
+  set Page_0 [ipgui::add_page $IPINST -name "Page 0"]
+  ipgui::add_param $IPINST -name "LINK_MODE" -parent ${Page_0} -widget comboBox
+  ipgui::add_param $IPINST -name "DATA_PATH_WIDTH" -parent ${Page_0}
+  ipgui::add_param $IPINST -name "NUM_LANES" -parent ${Page_0}
+  ipgui::add_param $IPINST -name "NUM_LINKS" -parent ${Page_0}
+  ipgui::add_param $IPINST -name "NUM_OUTPUT_PIPELINE" -parent ${Page_0}
+  ipgui::add_param $IPINST -name "SYSREF_IOB" -parent ${Page_0}
+
+
+}
+
+proc update_PARAM_VALUE.DATA_PATH_WIDTH { PARAM_VALUE.DATA_PATH_WIDTH PARAM_VALUE.LINK_MODE } {
+	# Procedure called to update DATA_PATH_WIDTH when any of the dependent parameters in the arguments change
+	
+	set DATA_PATH_WIDTH ${PARAM_VALUE.DATA_PATH_WIDTH}
+	set LINK_MODE ${PARAM_VALUE.LINK_MODE}
+	set values(LINK_MODE) [get_property value $LINK_MODE]
+	set_property value [gen_USERPARAMETER_DATA_PATH_WIDTH_VALUE $values(LINK_MODE)] $DATA_PATH_WIDTH
+}
+
+proc validate_PARAM_VALUE.DATA_PATH_WIDTH { PARAM_VALUE.DATA_PATH_WIDTH } {
+	# Procedure called to validate DATA_PATH_WIDTH
+	return true
+}
+
+proc update_PARAM_VALUE.LINK_MODE { PARAM_VALUE.LINK_MODE } {
+	# Procedure called to update LINK_MODE when any of the dependent parameters in the arguments change
+}
+
+proc validate_PARAM_VALUE.LINK_MODE { PARAM_VALUE.LINK_MODE } {
+	# Procedure called to validate LINK_MODE
+	return true
+}
+
+proc update_PARAM_VALUE.NUM_LANES { PARAM_VALUE.NUM_LANES } {
+	# Procedure called to update NUM_LANES when any of the dependent parameters in the arguments change
+}
+
+proc validate_PARAM_VALUE.NUM_LANES { PARAM_VALUE.NUM_LANES } {
+	# Procedure called to validate NUM_LANES
+	return true
+}
+
+proc update_PARAM_VALUE.NUM_LINKS { PARAM_VALUE.NUM_LINKS } {
+	# Procedure called to update NUM_LINKS when any of the dependent parameters in the arguments change
+}
+
+proc validate_PARAM_VALUE.NUM_LINKS { PARAM_VALUE.NUM_LINKS } {
+	# Procedure called to validate NUM_LINKS
+	return true
+}
+
+proc update_PARAM_VALUE.NUM_OUTPUT_PIPELINE { PARAM_VALUE.NUM_OUTPUT_PIPELINE } {
+	# Procedure called to update NUM_OUTPUT_PIPELINE when any of the dependent parameters in the arguments change
+}
+
+proc validate_PARAM_VALUE.NUM_OUTPUT_PIPELINE { PARAM_VALUE.NUM_OUTPUT_PIPELINE } {
+	# Procedure called to validate NUM_OUTPUT_PIPELINE
+	return true
+}
+
+proc update_PARAM_VALUE.SYSREF_IOB { PARAM_VALUE.SYSREF_IOB } {
+	# Procedure called to update SYSREF_IOB when any of the dependent parameters in the arguments change
+}
+
+proc validate_PARAM_VALUE.SYSREF_IOB { PARAM_VALUE.SYSREF_IOB } {
+	# Procedure called to validate SYSREF_IOB
+	return true
+}
+
+
+proc update_MODELPARAM_VALUE.NUM_LANES { MODELPARAM_VALUE.NUM_LANES PARAM_VALUE.NUM_LANES } {
+	# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
+	set_property value [get_property value ${PARAM_VALUE.NUM_LANES}] ${MODELPARAM_VALUE.NUM_LANES}
+}
+
+proc update_MODELPARAM_VALUE.NUM_LINKS { MODELPARAM_VALUE.NUM_LINKS PARAM_VALUE.NUM_LINKS } {
+	# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
+	set_property value [get_property value ${PARAM_VALUE.NUM_LINKS}] ${MODELPARAM_VALUE.NUM_LINKS}
+}
+
+proc update_MODELPARAM_VALUE.NUM_OUTPUT_PIPELINE { MODELPARAM_VALUE.NUM_OUTPUT_PIPELINE PARAM_VALUE.NUM_OUTPUT_PIPELINE } {
+	# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
+	set_property value [get_property value ${PARAM_VALUE.NUM_OUTPUT_PIPELINE}] ${MODELPARAM_VALUE.NUM_OUTPUT_PIPELINE}
+}
+
+proc update_MODELPARAM_VALUE.LINK_MODE { MODELPARAM_VALUE.LINK_MODE PARAM_VALUE.LINK_MODE } {
+	# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
+	set_property value [get_property value ${PARAM_VALUE.LINK_MODE}] ${MODELPARAM_VALUE.LINK_MODE}
+}
+
+proc update_MODELPARAM_VALUE.DATA_PATH_WIDTH { MODELPARAM_VALUE.DATA_PATH_WIDTH PARAM_VALUE.DATA_PATH_WIDTH } {
+	# Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
+	set_property value [get_property value ${PARAM_VALUE.DATA_PATH_WIDTH}] ${MODELPARAM_VALUE.DATA_PATH_WIDTH}
+}
+