scripts/utils/deflef_utils.tcl

# Copyright (c) Efabless Corporation. All rights reserved.
# See LICENSE file in the project root for full license information.
#
proc padframe_extract_area {args} {
  set options {{-cfg required}}
  set flags {}
  parse_key_args "padframe_extract_area" args arg_values $options flags_map $flags
  set area [exec $::env(SCRIPTS_DIR)/padframe_extract_area.sh $arg_values(-cfg)]
  # puts $area
  return $area
}

proc remove_pins {args} {
  set options {{-input required}}
  set flags {}
  parse_key_args "remove_pins" args arg_values $options flags_map $flags
  try_catch $::env(SCRIPTS_DIR)/remove_pins.sh $arg_values(-input)
}

proc remove_empty_nets {args} {
  set options {{-input required}}
  set flags {}
  parse_key_args "remove_empty_nets" args arg_values $options flags_map $flags
  try_catch $::env(SCRIPTS_DIR)/remove_empty_nets.sh $arg_values(-input)
}


proc add_lefs {args} {
  set options {{-src required} \
     \
  }
  set flags {}
  parse_key_args "merge_lefs" args arg_values $options flags_map $flags
  exec $::env(SCRIPTS_DIR)/mergeLef.py -i $::env(MERGED_LEF) {*}$arg_values(-src) -o $::env(MERGED_LEF).new
  exec $::env(SCRIPTS_DIR)/mergeLef.py -i $::env(MERGED_LEF_UNPADDED) {*}$arg_values(-src) -o $::env(MERGED_LEF_UNPADDED).new
  exec mv $::env(MERGED_LEF).new $::env(MERGED_LEF)
  exec mv $::env(MERGED_LEF_UNPADDED).new $::env(MERGED_LEF_UNPADDED)
}

proc merge_components {args} {
  set options {{-input1 required} \
    {-input2 required} \
    {-output required} \
  }
  set flags {}
  parse_key_args "merge_components" args arg_values $options flags_map $flags
  try_catch $::env(SCRIPTS_DIR)/merge_components.sh $arg_values(-input1) $arg_values(-input2) $arg_values(-output)
}


proc move_pins {args} {
  set options {{-from required} \
    {-to required} \
  }
  set flags {}
  parse_key_args "move_nets" args arg_values $options flags_map $flags
  try_catch $::env(SCRIPTS_DIR)/mv_pins.sh $arg_values(-from) $arg_values(-to)
}