luke
/
OpenSTA
mirror of https://github.com/The-OpenROAD-Project/OpenSTA.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tcl/StaTcl.i
View File

@ -1380,6 +1380,16 @@ using namespace sta;
Tcl_SetObjResult(interp, obj); 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 { %typemap(out) PropertyValue {
PropertyValue value = $1; PropertyValue value = $1;
switch (value.type()) { switch (value.type()) {
@ -2739,6 +2749,12 @@ find_corner(const char *corner_name)
return Sta::sta()->findCorner(corner_name); return Sta::sta()->findCorner(corner_name);
} }
Corners *
corners()
{
return Sta::sta()->corners();
}
bool bool
multi_corner() multi_corner()
{ {