#!/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_scrm_connection('path/to/ltcu/ltcu', 'p/to/src', 'bpss')