################################################################ # This is a generated script based on design: design_1 # # Though there are limitations about the generated script, # the main purpose of this utility is to make learning # IP Integrator Tcl commands easier. ################################################################ namespace eval _tcl { proc get_script_folder {} { set script_path [file normalize [info script]] set script_folder [file dirname $script_path] return $script_folder } } variable script_folder set script_folder [_tcl::get_script_folder] ################################################################ # Check if script is running in correct Vivado version. ################################################################ set scripts_vivado_version 2018.3 set current_vivado_version [version -short] if { [string first $scripts_vivado_version $current_vivado_version] == -1 } { puts "" catch {common::send_msg_id "BD_TCL-109" "ERROR" "This script was generated using Vivado <$scripts_vivado_version> and is being run in <$current_vivado_version> of Vivado. Please run the script in Vivado <$scripts_vivado_version> then open the design in Vivado <$current_vivado_version>. Upgrade the design by running \"Tools => Report => Report IP Status...\", then run write_bd_tcl to create an updated script."} return 1 } ################################################################ # START ################################################################ # To test this script, run the following commands from Vivado Tcl console: # source design_1_script.tcl # If there is no project opened, this script will create a # project, but make sure you do not have an existing project # <./myproj/project_1.xpr> in the current working folder. set list_projs [get_projects -quiet] if { $list_projs eq "" } { create_project project_1 myproj -part xc7a100tcsg324-1 } # CHANGE DESIGN NAME HERE variable design_name set design_name design_1 # If you do not already have an existing IP Integrator design open, # you can create a design using the following command: # create_bd_design $design_name # Creating design if needed set errMsg "" set nRet 0 set cur_design [current_bd_design -quiet] set list_cells [get_bd_cells -quiet] if { ${design_name} eq "" } { # USE CASES: # 1) Design_name not set set errMsg "Please set the variable to a non-empty value." set nRet 1 } elseif { ${cur_design} ne "" && ${list_cells} eq "" } { # USE CASES: # 2): Current design opened AND is empty AND names same. # 3): Current design opened AND is empty AND names diff; design_name NOT in project. # 4): Current design opened AND is empty AND names diff; design_name exists in project. if { $cur_design ne $design_name } { common::send_msg_id "BD_TCL-001" "INFO" "Changing value of from <$design_name> to <$cur_design> since current design is empty." set design_name [get_property NAME $cur_design] } common::send_msg_id "BD_TCL-002" "INFO" "Constructing design in IPI design <$cur_design>..." } elseif { ${cur_design} ne "" && $list_cells ne "" && $cur_design eq $design_name } { # USE CASES: # 5) Current design opened AND has components AND same names. set errMsg "Design <$design_name> already exists in your project, please set the variable to another value." set nRet 1 } elseif { [get_files -quiet ${design_name}.bd] ne "" } { # USE CASES: # 6) Current opened design, has components, but diff names, design_name exists in project. # 7) No opened design, design_name exists in project. set errMsg "Design <$design_name> already exists in your project, please set the variable to another value." set nRet 2 } else { # USE CASES: # 8) No opened design, design_name not in project. # 9) Current opened design, has components, but diff names, design_name not in project. common::send_msg_id "BD_TCL-003" "INFO" "Currently there is no design <$design_name> in project, so creating one..." create_bd_design $design_name common::send_msg_id "BD_TCL-004" "INFO" "Making design <$design_name> as current_bd_design." current_bd_design $design_name } common::send_msg_id "BD_TCL-005" "INFO" "Currently the variable is equal to \"$design_name\"." if { $nRet != 0 } { catch {common::send_msg_id "BD_TCL-114" "ERROR" $errMsg} return $nRet } set bCheckIPsPassed 1 ################################################################## # CHECK IPs ################################################################## set bCheckIPs 1 if { $bCheckIPs == 1 } { set list_check_ips "\ xilinx.com:ip:c_counter_binary:12.0\ xilinx.com:user:ethernet_transceiver2:1.0\ xilinx.com:ip:fifo_generator:13.2\ xilinx.com:ip:c_addsub:12.0\ user.org:user:packaging:3.0\ xilinx.com:user:segment:1.0\ xilinx.com:ip:xlconcat:2.1\ xilinx.com:ip:xlconstant:1.1\ xilinx.com:ip:xlslice:1.0\ " set list_ips_missing "" common::send_msg_id "BD_TCL-006" "INFO" "Checking if the following IPs exist in the project's IP catalog: $list_check_ips ." foreach ip_vlnv $list_check_ips { set ip_obj [get_ipdefs -all $ip_vlnv] if { $ip_obj eq "" } { lappend list_ips_missing $ip_vlnv } } if { $list_ips_missing ne "" } { catch {common::send_msg_id "BD_TCL-115" "ERROR" "The following IPs are not found in the IP Catalog:\n $list_ips_missing\n\nResolution: Please add the repository containing the IP(s) to the project." } set bCheckIPsPassed 0 } } if { $bCheckIPsPassed != 1 } { common::send_msg_id "BD_TCL-1003" "WARNING" "Will not continue with creation of design due to the error(s) above." return 3 } ################################################################## # DESIGN PROCs ################################################################## # Procedure to create entire design; Provide argument to make # procedure reusable. If parentCell is "", will use root. proc create_root_design { parentCell } { variable script_folder variable design_name if { $parentCell eq "" } { set parentCell [get_bd_cells /] } # Get object for parentCell set parentObj [get_bd_cells $parentCell] if { $parentObj == "" } { catch {common::send_msg_id "BD_TCL-100" "ERROR" "Unable to find parent cell <$parentCell>!"} return } # Make sure parentObj is hier blk set parentType [get_property TYPE $parentObj] if { $parentType ne "hier" } { catch {common::send_msg_id "BD_TCL-101" "ERROR" "Parent <$parentObj> has TYPE = <$parentType>. Expected to be ."} return } # Save current instance; Restore later set oldCurInst [current_bd_instance .] # Set parent object as current current_bd_instance $parentObj # Create interface ports # Create ports set anodes_0 [ create_bd_port -dir O -from 0 -to 7 anodes_0 ] set cathodes_0 [ create_bd_port -dir O -from 0 -to 7 cathodes_0 ] set clk_100MHz [ create_bd_port -dir I -type clk clk_100MHz ] set_property -dict [ list \ CONFIG.FREQ_HZ {100000000} \ ] $clk_100MHz set eth_crsdv_0 [ create_bd_port -dir IO eth_crsdv_0 ] set eth_mdc_0 [ create_bd_port -dir O eth_mdc_0 ] set eth_mdio_0 [ create_bd_port -dir IO eth_mdio_0 ] set eth_refclk_0 [ create_bd_port -dir O eth_refclk_0 ] set eth_rstn_0 [ create_bd_port -dir IO -type rst eth_rstn_0 ] set eth_rxd_0 [ create_bd_port -dir IO -from 1 -to 0 eth_rxd_0 ] set eth_rxerr_0 [ create_bd_port -dir IO eth_rxerr_0 ] set eth_txd_0 [ create_bd_port -dir IO -from 1 -to 0 eth_txd_0 ] set eth_txen_0 [ create_bd_port -dir IO eth_txen_0 ] set led16_b_0 [ create_bd_port -dir O led16_b_0 ] set led16_g_0 [ create_bd_port -dir O led16_g_0 ] set led16_r_0 [ create_bd_port -dir O led16_r_0 ] set led17_b_0 [ create_bd_port -dir O led17_b_0 ] set led17_g_0 [ create_bd_port -dir O led17_g_0 ] set led17_r_0 [ create_bd_port -dir O led17_r_0 ] set led_0 [ create_bd_port -dir O -from 15 -to 0 led_0 ] set reset_rtl_0 [ create_bd_port -dir I -type rst reset_rtl_0 ] set_property -dict [ list \ CONFIG.POLARITY {ACTIVE_LOW} \ ] $reset_rtl_0 set sw_0 [ create_bd_port -dir I -from 4 -to 0 sw_0 ] # Create instance: c_counter_binary_0, and set properties set c_counter_binary_0 [ create_bd_cell -type ip -vlnv xilinx.com:ip:c_counter_binary:12.0 c_counter_binary_0 ] set_property -dict [ list \ CONFIG.CE {true} \ CONFIG.Fb_Latency {2} \ CONFIG.Fb_Latency_Configuration {Automatic} \ CONFIG.Final_Count_Value {270F} \ CONFIG.Latency_Configuration {Automatic} \ CONFIG.Restrict_Count {true} \ CONFIG.SCLR {true} \ CONFIG.SSET {false} \ ] $c_counter_binary_0 # Create instance: c_counter_binary_1, and set properties set c_counter_binary_1 [ create_bd_cell -type ip -vlnv xilinx.com:ip:c_counter_binary:12.0 c_counter_binary_1 ] set_property -dict [ list \ CONFIG.CE {true} \ CONFIG.Fb_Latency {2} \ CONFIG.Fb_Latency_Configuration {Automatic} \ CONFIG.Final_Count_Value {270F} \ CONFIG.Latency_Configuration {Automatic} \ CONFIG.Restrict_Count {true} \ CONFIG.SCLR {true} \ CONFIG.SSET {false} \ ] $c_counter_binary_1 # Create instance: ethernet_transceiver2_0, and set properties set ethernet_transceiver2_0 [ create_bd_cell -type ip -vlnv xilinx.com:user:ethernet_transceiver2:1.0 ethernet_transceiver2_0 ] # Create instance: fifo_input, and set properties set fifo_input [ create_bd_cell -type ip -vlnv xilinx.com:ip:fifo_generator:13.2 fifo_input ] set_property -dict [ list \ CONFIG.Almost_Empty_Flag {false} \ CONFIG.Data_Count {false} \ CONFIG.Data_Count_Width {6} \ CONFIG.Empty_Threshold_Assert_Value {2} \ CONFIG.Empty_Threshold_Assert_Value_rach {1022} \ CONFIG.Empty_Threshold_Assert_Value_wach {1022} \ CONFIG.Empty_Threshold_Assert_Value_wrch {1022} \ CONFIG.Empty_Threshold_Negate_Value {3} \ CONFIG.Enable_Safety_Circuit {false} \ CONFIG.FIFO_Implementation_rach {Common_Clock_Distributed_RAM} \ CONFIG.FIFO_Implementation_wach {Common_Clock_Distributed_RAM} \ CONFIG.FIFO_Implementation_wrch {Common_Clock_Distributed_RAM} \ CONFIG.Fifo_Implementation {Common_Clock_Distributed_RAM} \ CONFIG.Full_Flags_Reset_Value {0} \ CONFIG.Full_Threshold_Assert_Value {62} \ CONFIG.Full_Threshold_Assert_Value_rach {1023} \ CONFIG.Full_Threshold_Assert_Value_wach {1023} \ CONFIG.Full_Threshold_Assert_Value_wrch {1023} \ CONFIG.Full_Threshold_Negate_Value {61} \ CONFIG.INTERFACE_TYPE {Native} \ CONFIG.Input_Data_Width {32} \ CONFIG.Input_Depth {64} \ CONFIG.Output_Data_Width {32} \ CONFIG.Output_Depth {64} \ CONFIG.Overflow_Flag {true} \ CONFIG.Performance_Options {Standard_FIFO} \ CONFIG.Programmable_Empty_Type {No_Programmable_Empty_Threshold} \ CONFIG.Programmable_Full_Type {No_Programmable_Full_Threshold} \ CONFIG.Read_Data_Count {false} \ CONFIG.Read_Data_Count_Width {6} \ CONFIG.Reset_Pin {true} \ CONFIG.Reset_Type {Synchronous_Reset} \ CONFIG.Underflow_Flag {false} \ CONFIG.Use_Dout_Reset {true} \ CONFIG.Use_Embedded_Registers {false} \ CONFIG.Use_Extra_Logic {false} \ CONFIG.Valid_Flag {false} \ CONFIG.Write_Data_Count {false} \ CONFIG.Write_Data_Count_Width {6} \ ] $fifo_input # Create instance: fifo_output, and set properties set fifo_output [ create_bd_cell -type ip -vlnv xilinx.com:ip:fifo_generator:13.2 fifo_output ] set_property -dict [ list \ CONFIG.Almost_Empty_Flag {false} \ CONFIG.Almost_Full_Flag {false} \ CONFIG.Data_Count {false} \ CONFIG.Data_Count_Width {9} \ CONFIG.Empty_Threshold_Assert_Value {2} \ CONFIG.Empty_Threshold_Assert_Value_rach {1022} \ CONFIG.Empty_Threshold_Assert_Value_wach {1022} \ CONFIG.Empty_Threshold_Assert_Value_wrch {1022} \ CONFIG.Empty_Threshold_Negate_Value {3} \ CONFIG.Enable_Safety_Circuit {false} \ CONFIG.FIFO_Implementation_rach {Common_Clock_Distributed_RAM} \ CONFIG.FIFO_Implementation_wach {Common_Clock_Distributed_RAM} \ CONFIG.FIFO_Implementation_wrch {Common_Clock_Distributed_RAM} \ CONFIG.Fifo_Implementation {Independent_Clocks_Distributed_RAM} \ CONFIG.Full_Flags_Reset_Value {1} \ CONFIG.Full_Threshold_Assert_Value {509} \ CONFIG.Full_Threshold_Assert_Value_rach {1023} \ CONFIG.Full_Threshold_Assert_Value_wach {1023} \ CONFIG.Full_Threshold_Assert_Value_wrch {1023} \ CONFIG.Full_Threshold_Negate_Value {508} \ CONFIG.INTERFACE_TYPE {Native} \ CONFIG.Input_Data_Width {32} \ CONFIG.Input_Depth {512} \ CONFIG.Output_Data_Width {32} \ CONFIG.Output_Depth {512} \ CONFIG.Overflow_Flag {true} \ CONFIG.Performance_Options {Standard_FIFO} \ CONFIG.Programmable_Empty_Type {No_Programmable_Empty_Threshold} \ CONFIG.Programmable_Full_Type {No_Programmable_Full_Threshold} \ CONFIG.Read_Data_Count {true} \ CONFIG.Read_Data_Count_Width {9} \ CONFIG.Reset_Pin {true} \ CONFIG.Reset_Type {Asynchronous_Reset} \ CONFIG.Underflow_Flag {false} \ CONFIG.Use_Dout_Reset {true} \ CONFIG.Use_Embedded_Registers {false} \ CONFIG.Use_Extra_Logic {false} \ CONFIG.Valid_Flag {false} \ CONFIG.Write_Data_Count {false} \ CONFIG.Write_Data_Count_Width {9} \ ] $fifo_output # Create instance: negate_0, and set properties set negate_0 [ create_bd_cell -type ip -vlnv xilinx.com:ip:c_addsub:12.0 negate_0 ] set_property -dict [ list \ CONFIG.A_Type {Unsigned} \ CONFIG.A_Width {1} \ CONFIG.Add_Mode {Add} \ CONFIG.B_Constant {true} \ CONFIG.B_Type {Unsigned} \ CONFIG.B_Value {1} \ CONFIG.B_Width {1} \ CONFIG.CE {false} \ CONFIG.Latency {1} \ CONFIG.Latency_Configuration {Automatic} \ CONFIG.Out_Width {1} \ ] $negate_0 # Create instance: packaging_1, and set properties set packaging_1 [ create_bd_cell -type ip -vlnv user.org:user:packaging:3.0 packaging_1 ] # Create instance: segment_0, and set properties set segment_0 [ create_bd_cell -type ip -vlnv xilinx.com:user:segment:1.0 segment_0 ] # Create instance: xlconcat_4, and set properties set xlconcat_4 [ create_bd_cell -type ip -vlnv xilinx.com:ip:xlconcat:2.1 xlconcat_4 ] set_property -dict [ list \ CONFIG.IN0_WIDTH {4} \ CONFIG.IN1_WIDTH {4} \ CONFIG.IN2_WIDTH {8} \ CONFIG.IN3_WIDTH {2} \ CONFIG.IN4_WIDTH {5} \ CONFIG.NUM_PORTS {3} \ ] $xlconcat_4 # Create instance: xlconcat_5, and set properties set xlconcat_5 [ create_bd_cell -type ip -vlnv xilinx.com:ip:xlconcat:2.1 xlconcat_5 ] set_property -dict [ list \ CONFIG.IN0_WIDTH {9} \ CONFIG.IN1_WIDTH {7} \ CONFIG.IN2_WIDTH {8} \ CONFIG.IN3_WIDTH {2} \ CONFIG.IN4_WIDTH {5} \ CONFIG.NUM_PORTS {2} \ ] $xlconcat_5 # Create instance: xlconstant_0, and set properties set xlconstant_0 [ create_bd_cell -type ip -vlnv xilinx.com:ip:xlconstant:1.1 xlconstant_0 ] set_property -dict [ list \ CONFIG.CONST_VAL {0} \ CONFIG.CONST_WIDTH {16} \ ] $xlconstant_0 # Create instance: xlconstant_1, and set properties set xlconstant_1 [ create_bd_cell -type ip -vlnv xilinx.com:ip:xlconstant:1.1 xlconstant_1 ] set_property -dict [ list \ CONFIG.CONST_VAL {0} \ CONFIG.CONST_WIDTH {7} \ ] $xlconstant_1 # Create instance: xlslice_0, and set properties set xlslice_0 [ create_bd_cell -type ip -vlnv xilinx.com:ip:xlslice:1.0 xlslice_0 ] set_property -dict [ list \ CONFIG.DIN_FROM {7} \ CONFIG.DIN_TO {0} \ CONFIG.DIN_WIDTH {16} \ CONFIG.DOUT_WIDTH {8} \ ] $xlslice_0 # Create interface connections connect_bd_intf_net -intf_net ethernet_transceiver2_0_fifo_read [get_bd_intf_pins ethernet_transceiver2_0/fifo_read] [get_bd_intf_pins fifo_output/FIFO_READ] connect_bd_intf_net -intf_net ethernet_transceiver2_0_fifo_write [get_bd_intf_pins ethernet_transceiver2_0/fifo_write] [get_bd_intf_pins fifo_input/FIFO_WRITE] connect_bd_intf_net -intf_net packaging_1_fifo_read [get_bd_intf_pins fifo_input/FIFO_READ] [get_bd_intf_pins packaging_1/fifo_read] connect_bd_intf_net -intf_net packaging_1_fifo_write [get_bd_intf_pins fifo_output/FIFO_WRITE] [get_bd_intf_pins packaging_1/fifo_write] # Create port connections connect_bd_net -net Net [get_bd_ports eth_rxd_0] [get_bd_pins ethernet_transceiver2_0/eth_rxd] connect_bd_net -net Net1 [get_bd_ports eth_txd_0] [get_bd_pins ethernet_transceiver2_0/eth_txd] connect_bd_net -net Net2 [get_bd_ports eth_crsdv_0] [get_bd_pins ethernet_transceiver2_0/eth_crsdv] connect_bd_net -net Net3 [get_bd_ports eth_txen_0] [get_bd_pins ethernet_transceiver2_0/eth_txen] connect_bd_net -net Net4 [get_bd_ports eth_rxerr_0] [get_bd_pins ethernet_transceiver2_0/eth_rxerr] connect_bd_net -net Net5 [get_bd_ports eth_mdio_0] [get_bd_pins ethernet_transceiver2_0/eth_mdio] connect_bd_net -net Net6 [get_bd_ports eth_rstn_0] [get_bd_pins ethernet_transceiver2_0/eth_rstn] connect_bd_net -net c_counter_binary_0_Q [get_bd_pins c_counter_binary_0/Q] [get_bd_pins segment_0/num2] connect_bd_net -net c_counter_binary_1_Q [get_bd_pins c_counter_binary_1/Q] [get_bd_pins segment_0/num1] connect_bd_net -net clk_wiz_clk_out1 [get_bd_ports clk_100MHz] [get_bd_pins c_counter_binary_0/CLK] [get_bd_pins c_counter_binary_1/CLK] [get_bd_pins ethernet_transceiver2_0/clk100mhz] [get_bd_pins fifo_input/clk] [get_bd_pins fifo_output/wr_clk] [get_bd_pins negate_0/CLK] [get_bd_pins packaging_1/clk] [get_bd_pins segment_0/clk] connect_bd_net -net ethernet_transceiver2_0_eth_mdc [get_bd_ports eth_mdc_0] [get_bd_pins ethernet_transceiver2_0/eth_mdc] connect_bd_net -net ethernet_transceiver2_0_eth_refclk [get_bd_ports eth_refclk_0] [get_bd_pins ethernet_transceiver2_0/eth_refclk] [get_bd_pins fifo_output/rd_clk] connect_bd_net -net ethernet_transceiver2_0_led16_b [get_bd_ports led16_b_0] [get_bd_pins ethernet_transceiver2_0/led16_b] connect_bd_net -net ethernet_transceiver2_0_led16_g [get_bd_ports led16_g_0] [get_bd_pins ethernet_transceiver2_0/led16_g] connect_bd_net -net ethernet_transceiver2_0_led16_r [get_bd_ports led16_r_0] [get_bd_pins ethernet_transceiver2_0/led16_r] connect_bd_net -net ethernet_transceiver2_0_led17_b [get_bd_ports led17_b_0] [get_bd_pins ethernet_transceiver2_0/led17_b] connect_bd_net -net ethernet_transceiver2_0_led17_g [get_bd_ports led17_g_0] [get_bd_pins ethernet_transceiver2_0/led17_g] connect_bd_net -net ethernet_transceiver2_0_led17_r [get_bd_ports led17_r_0] [get_bd_pins ethernet_transceiver2_0/led17_r] connect_bd_net -net fifo_input_overflow [get_bd_pins c_counter_binary_1/CE] [get_bd_pins fifo_input/overflow] connect_bd_net -net fifo_output_overflow [get_bd_pins c_counter_binary_0/CE] [get_bd_pins fifo_output/overflow] connect_bd_net -net fifo_output_rd_data_count [get_bd_pins fifo_output/rd_data_count] [get_bd_pins xlconcat_5/In0] connect_bd_net -net packaging_1_errorCode [get_bd_pins packaging_1/errorCode] [get_bd_pins xlconcat_4/In0] connect_bd_net -net packaging_1_stateOut [get_bd_pins packaging_1/stateOut] [get_bd_pins xlconcat_4/In1] connect_bd_net -net rst_clk_wiz_100M_peripheral_aresetn [get_bd_ports reset_rtl_0] [get_bd_pins ethernet_transceiver2_0/btn_reset] [get_bd_pins negate_0/A] [get_bd_pins packaging_1/rst] connect_bd_net -net segment_0_anodes [get_bd_ports anodes_0] [get_bd_pins segment_0/anodes] connect_bd_net -net segment_0_cathodes [get_bd_ports cathodes_0] [get_bd_pins segment_0/cathodes] connect_bd_net -net sw_0_1 [get_bd_ports sw_0] [get_bd_pins ethernet_transceiver2_0/ip] connect_bd_net -net xlconcat_4_dout [get_bd_ports led_0] [get_bd_pins xlconcat_4/dout] connect_bd_net -net xlconcat_5_dout [get_bd_pins ethernet_transceiver2_0/fifo_read_length] [get_bd_pins xlconcat_5/dout] [get_bd_pins xlslice_0/Din] connect_bd_net -net xlconstant_0_dout [get_bd_pins ethernet_transceiver2_0/udp_packet_checksum] [get_bd_pins xlconstant_0/dout] connect_bd_net -net xlconstant_1_dout [get_bd_pins xlconcat_5/In1] [get_bd_pins xlconstant_1/dout] connect_bd_net -net xlslice_0_Dout [get_bd_pins xlconcat_4/In2] [get_bd_pins xlslice_0/Dout] connect_bd_net -net xlslice_1_Dout [get_bd_pins c_counter_binary_0/SCLR] [get_bd_pins c_counter_binary_1/SCLR] [get_bd_pins fifo_input/srst] [get_bd_pins fifo_output/rst] [get_bd_pins negate_0/S] # Create address segments # Restore current instance current_bd_instance $oldCurInst validate_bd_design save_bd_design } # End of create_root_design() ################################################################## # MAIN FLOW ################################################################## create_root_design ""