#!/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_inst 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 { req_path([lindex p 0], [lindex p 1]) } } check_ltcu_srcm_connection 'path/to/ltcu/ltcu' 'p/to/src' 'bpss'