# Copyright 2021 The University of Michigan
# Copyright 2022 Efabless Corporation
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#      http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

source $::env(SCRIPTS_DIR)/openroad/insert_buffer.tcl

proc move_to_dir {filenames dirname} {
    foreach filename $filenames {
        file rename $filename [file join $dirname [file tail $filename]]
    }
}

proc pause {{message "Press enter to continue ==> "}} {
    puts -nonewline $message
    flush stdout
    gets stdin
}

proc size_cell {inst_name new_master_name} {
    set db [ord::get_db]
    set new_master [$db findMaster $new_master_name]

    set block [ord::get_db_block]
    set inst [$block findInst $inst_name]
    $inst swapMaster $new_master
}

proc run_eco {args} {
    set cur_iter [expr $::env(ECO_ITER) == 0 ? 0 : expr {$::env(ECO_ITER) -1}]]
    # Uncomment to source the generated fix
    # Currently args in the fix tcl has some bugs:
    # 1st argument of insert_buffer (pin_name) not found
    source "$::env(eco_results)/fix/eco_fix_$cur_iter.tcl"

    # Run detailed placement
    detailed_placement

    # Destroy faulty connections
    set block [ord::get_db_block]
    set nets [$block getNets]

    foreach net $nets {
        set wire [$net getWire]
        if {$wire != "NULL"} {
            [odb::dbWire_destroy $wire]
        }
    }

}

foreach lib $::env(LIB_CTS) {
    read_liberty $lib
}

if { [info exists ::env(EXTRA_LIBS) ] } {
    foreach lib $::env(EXTRA_LIBS) {
        read_liberty $lib
    }
}

if {[catch {read_lef $::env(MERGED_LEF_UNPADDED)} errmsg]} {
    puts stderr $errmsg
    exit 1
}

set cur_iter [expr $::env(ECO_ITER) == 0 ? \
    0 : \
    [expr {$::env(ECO_ITER) -1}] \
]

if {[expr {$cur_iter == 0}]} {
    if {[catch {read_def $::env(CURRENT_DEF)} errmsg]} {
        puts stderr $errmsg
        exit 1
    }
} else {
    if {[catch {read_def \
        $::env(eco_results)/def/eco_$cur_iter.def} errmsg]} {
        puts stderr $errmsg
        exit 1
    }
}

read_sdc -echo $::env(CURRENT_SDC)
set_propagated_clock [all_clocks]

run_eco

write_verilog $::env(eco_results)/net/eco_$::env(ECO_ITER).v
write_def     $::env(eco_results)/def/eco_$::env(ECO_ITER).def