if { $::argc > 0 } {
	set PDN_CFG [lindex $::argv 0]
} else {
	puts "no command line argument passed"
	exit
}
set dir $::env(SCRIPTS_DIR)/pdn/src/scripts
source $dir/pkgIndex.tcl

package require pdn

set db [dbDatabase_create]
odb_import_db $db $::env(pdn_tmp_file_tag).odb

set block [[$db getChip] getBlock]
pdn apply $block $PDN_CFG

odb_write_def $block $::env(pdn_result_file_tag).def DEF_5_6