ethernet_transceiver_v1_0.tcl 3.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485
  1. # Definitional proc to organize widgets for parameters.
  2. proc init_gui { IPINST } {
  3. ipgui::add_param $IPINST -name "Component_Name"
  4. #Adding Page
  5. set Page_0 [ipgui::add_page $IPINST -name "Page 0"]
  6. ipgui::add_param $IPINST -name "ADDR_WIDTH" -parent ${Page_0}
  7. ipgui::add_param $IPINST -name "DATA_WIDTH" -parent ${Page_0}
  8. ipgui::add_param $IPINST -name "M_clk2_5mhz1" -parent ${Page_0}
  9. ipgui::add_param $IPINST -name "M_clk2_5mhz2" -parent ${Page_0}
  10. ipgui::add_param $IPINST -name "N" -parent ${Page_0}
  11. }
  12. proc update_PARAM_VALUE.ADDR_WIDTH { PARAM_VALUE.ADDR_WIDTH } {
  13. # Procedure called to update ADDR_WIDTH when any of the dependent parameters in the arguments change
  14. }
  15. proc validate_PARAM_VALUE.ADDR_WIDTH { PARAM_VALUE.ADDR_WIDTH } {
  16. # Procedure called to validate ADDR_WIDTH
  17. return true
  18. }
  19. proc update_PARAM_VALUE.DATA_WIDTH { PARAM_VALUE.DATA_WIDTH } {
  20. # Procedure called to update DATA_WIDTH when any of the dependent parameters in the arguments change
  21. }
  22. proc validate_PARAM_VALUE.DATA_WIDTH { PARAM_VALUE.DATA_WIDTH } {
  23. # Procedure called to validate DATA_WIDTH
  24. return true
  25. }
  26. proc update_PARAM_VALUE.M_clk2_5mhz1 { PARAM_VALUE.M_clk2_5mhz1 } {
  27. # Procedure called to update M_clk2_5mhz1 when any of the dependent parameters in the arguments change
  28. }
  29. proc validate_PARAM_VALUE.M_clk2_5mhz1 { PARAM_VALUE.M_clk2_5mhz1 } {
  30. # Procedure called to validate M_clk2_5mhz1
  31. return true
  32. }
  33. proc update_PARAM_VALUE.M_clk2_5mhz2 { PARAM_VALUE.M_clk2_5mhz2 } {
  34. # Procedure called to update M_clk2_5mhz2 when any of the dependent parameters in the arguments change
  35. }
  36. proc validate_PARAM_VALUE.M_clk2_5mhz2 { PARAM_VALUE.M_clk2_5mhz2 } {
  37. # Procedure called to validate M_clk2_5mhz2
  38. return true
  39. }
  40. proc update_PARAM_VALUE.N { PARAM_VALUE.N } {
  41. # Procedure called to update N when any of the dependent parameters in the arguments change
  42. }
  43. proc validate_PARAM_VALUE.N { PARAM_VALUE.N } {
  44. # Procedure called to validate N
  45. return true
  46. }
  47. proc update_MODELPARAM_VALUE.M_clk2_5mhz1 { MODELPARAM_VALUE.M_clk2_5mhz1 PARAM_VALUE.M_clk2_5mhz1 } {
  48. # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
  49. set_property value [get_property value ${PARAM_VALUE.M_clk2_5mhz1}] ${MODELPARAM_VALUE.M_clk2_5mhz1}
  50. }
  51. proc update_MODELPARAM_VALUE.M_clk2_5mhz2 { MODELPARAM_VALUE.M_clk2_5mhz2 PARAM_VALUE.M_clk2_5mhz2 } {
  52. # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
  53. set_property value [get_property value ${PARAM_VALUE.M_clk2_5mhz2}] ${MODELPARAM_VALUE.M_clk2_5mhz2}
  54. }
  55. proc update_MODELPARAM_VALUE.N { MODELPARAM_VALUE.N PARAM_VALUE.N } {
  56. # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
  57. set_property value [get_property value ${PARAM_VALUE.N}] ${MODELPARAM_VALUE.N}
  58. }
  59. proc update_MODELPARAM_VALUE.ADDR_WIDTH { MODELPARAM_VALUE.ADDR_WIDTH PARAM_VALUE.ADDR_WIDTH } {
  60. # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
  61. set_property value [get_property value ${PARAM_VALUE.ADDR_WIDTH}] ${MODELPARAM_VALUE.ADDR_WIDTH}
  62. }
  63. proc update_MODELPARAM_VALUE.DATA_WIDTH { MODELPARAM_VALUE.DATA_WIDTH PARAM_VALUE.DATA_WIDTH } {
  64. # Procedure called to set VHDL generic/Verilog parameter value(s) based on TCL parameter value
  65. set_property value [get_property value ${PARAM_VALUE.DATA_WIDTH}] ${MODELPARAM_VALUE.DATA_WIDTH}
  66. }