main.tcl

################################################################################
# Main tcl for the module
################################################################################

# ==============================================================================
proc init {} {

    # Configuration
    # TODO Follow FWK
    # variable quad_name
    # set quad_name X0Y4
}

# ==============================================================================
proc setSources {} {
  variable Vhdl

  # Generate VHDL package with modle version
  genModVerFile VHDL ../hdl/pkg_version.vhd

  lappend Vhdl ../hdl/combpm_protocol_electron.vhd
  lappend Vhdl ../hdl/top_combpm_electron.vhd
  lappend Vhdl ../others/gthe_common.vhd
  lappend Vhdl ../others/combpm_gtwizard_gthe4_common_wrapper.v
  lappend Vhdl ../others/gtwizard_ultrascale_v1_7_gthe4_common.v
}

# ==============================================================================
proc setAddressSpace {} {
    variable AddressSpace
    addAddressSpace AddressSpace "COMBPM" RDL {} ../rdl/COMBPM.rdl
}

# ==============================================================================
proc doOnCreate {} {
  variable Vhdl
  addSources Vhdl

  # TODO sould probably get that part number from the project configuration
  set fpga_part "xczu11eg-ffvc1760-2L-e"
  set_property part ${fpga_part} [current_project]
  set_property target_language VHDL [current_project]

  # Create GT wizard IP
  source ../tcl/combpm_gtwizard.tcl
}

# ==============================================================================
proc doOnBuild {} {
}

# ==============================================================================
proc setSim {} {
}