tcl sta::corners

This commit is contained in:
James Cherry 2021-04-06 13:47:53 -07:00
parent edeba84c36
commit c08019d635
1 changed files with 16 additions and 0 deletions

View File

@ -1380,6 +1380,16 @@ using namespace sta;
Tcl_SetObjResult(interp, obj);
}
%typemap(out) Corners* {
Tcl_Obj *list = Tcl_NewListObj(0, nullptr);
Corners *corners = $1;
for (Corner *corner : *corners) {
Tcl_Obj *obj = SWIG_NewInstanceObj(corner, SWIGTYPE_p_Corner, false);
Tcl_ListObjAppendElement(interp, list, obj);
}
Tcl_SetObjResult(interp, list);
}
%typemap(out) PropertyValue {
PropertyValue value = $1;
switch (value.type()) {
@ -2739,6 +2749,12 @@ find_corner(const char *corner_name)
return Sta::sta()->findCorner(corner_name);
}
Corners *
corners()
{
return Sta::sta()->corners();
}
bool
multi_corner()
{