proc pehl {args} {
set ops(-from) ""
set ops(-to) ""
set ops(-through) ""
set ops(-group) ""
set ops(-unconstrained) ""
parse_proc_arguments -args $args ops
set cmd ""
foreach op [array names ops] {
if {$ops($op)!="" && $op !="-unconstrained"} {
set cmd [concat $cmd "$op $ops($op)"]
}
}
if {$ops(-unconstrained)==1} {
eval "report_timing $cmd -unconstrained -output_format gtd > ./tmp.mtarpt"
} else {
eval "report_timing $cmd -output_format gtd > ./tmp.mtarpt"
}
read_timing_debug_report ./tmp.mtarpt
gui_gtd_highlight_timing_report -append -in_file ./tmp.mtarpt -paths 1
}
define_proc_arguments pehl \
-info "## ZBJ timing debug highlight" \
-define_args {
{-from "startpoint" "" string optional}
{-to "endpoint" "" string optional}
{-through "through middle point" "" string optional}
{-group "path group" "" string optional}
{-unconstrained "uncons" "" boolean optional}
}
05-20
933

06-14
2311

02-28
6770

04-28
9053
