#!/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 { \
		{ "dft_${name}_scan_mode_o" ${srcm}.scan_mode} \
		{ dft_${name}_scan_delay_scan_mode_o ${srcm}.scan_mode_atspeed_i} \
		{ 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"