#!/usr/local/bin/tclsh8.6 proc req_path {src dest} { puts "require_path -from $src -to $dest" } proc check_ltcu_srcm_connection {ltcu_inst srcm name} { set all_paths [list \ [list "dft_${name}_scan_mode_o" ${srcm}.scan_mode] \ [list dft_${name}_scan_delay_scan_mode_o ${srcm}.scan_mode_atspeed_i] \ [list dft_${name}_scan_hatpg_src_en_o ${srcm}.scan_rst_byenb] \ ] foreach p $all_paths { puts $p req_path [lindex p 0] [lindex p 1] } } check_ltcu_srcm_connection 'path/to/ltcu/ltcu' 'p/to/src', 'bpss'