#!/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')