# Copyright (C) 2017-2020  The Project X-Ray Authors
#
# Use of this source code is governed by a ISC-style
# license that can be found in the LICENSE file or at
# https://opensource.org/licenses/ISC
#
# SPDX-License-Identifier: ISC
source "$::env(XRAY_DIR)/utils/utils.tcl"

proc parse_csv {} {
    set fp [open "params.csv"]
    set file_data [read $fp]
    close $fp

    set file_data [split $file_data "\n"]

    set params_map [dict create]

    set is_first_line true
    foreach line $file_data {
        if { $is_first_line } {
            set is_first_line false
            continue
        }

        set parts [split $line ","]

        dict lappend params_map [lindex $parts 0] [lindex $parts 1]
    }

    puts $params_map
    return $params_map
}


proc route_through_delay {} {
    set params_map [parse_csv]
    set nets [get_nets]

    dict for { key value } $params_map {
        if { $value == 0 } {
            continue
        }

        if { $key == "" } {
            puts "Dictionary key is incorrect, continuing"
            continue
        }

        foreach net $nets {
            set wire [get_wires -of_objects $net -filter {TILE_NAME =~ "*PCIE_INT_INTERFACE*" && NAME =~ "*OUT0*"}]

            if { $wire == "" || ![regexp $key $wire] } {
                continue
            }

            set wire_parts [split $wire "/"]

            set pcie_int_tile [lindex $wire_parts 0]
            set node [get_nodes -of_object [get_tiles $pcie_int_tile] -filter { NAME =~ "*DELAY0" }]

            route_design -unroute -nets $net
            puts "Attempting to route net $net through $node."
            route_via $net [list $node]
        }
    }
}


proc run {} {
    create_project -force -part $::env(XRAY_PART) design design
    read_verilog top.v
    synth_design -top top

    set_property CFGBVS VCCO [current_design]
    set_property CONFIG_VOLTAGE 3.3 [current_design]
    set_property BITSTREAM.GENERAL.PERFRAMECRC YES [current_design]

    # Disable MMCM frequency etc sanity checks

    place_design
    route_design

    write_checkpoint -force design_pre_force_route.dcp

    route_through_delay

    write_checkpoint -force design.dcp
    write_bitstream -force design.bit
}

run