package require Vector package require dict ### trial test API namespace eval ::ATE::atpg_init { variable version 3.0 #namespace export atpg_init_ip } proc ::ATE::atpg_init::split_to_hiers {signal} { set hier_list [list] while {$signal ne ""} { if {[regexp {^(\\[\w\/]+ )(.*)} $signal match hier remainder]} { lappend hier_list $hier } elseif {[regexp {^(\w+)(.*)} $signal match hier remainder]} { lappend hier_list $hier } set signal [regsub {^[\.\/]} $remainder... Read More »
0 comments :