Add tcl types (+ smallfixes)

This commit is contained in:
Akash Levy 2024-08-11 23:44:07 -07:00
parent acd43bdd8a
commit 2b45e5861d
2 changed files with 14 additions and 3 deletions

View File

@ -1353,7 +1353,7 @@ filter_lib_pins(const char *property,
} }
LibertyLibrarySeq LibertyLibrarySeq
filter_libs(const char *property, filter_liberty_libraries(const char *property,
const char *op, const char *op,
const char *pattern, const char *pattern,
LibertyLibrarySeq *libs) LibertyLibrarySeq *libs)
@ -1376,7 +1376,7 @@ filter_timing_arcs(const char *property,
const char *pattern, const char *pattern,
EdgeSeq *edges) EdgeSeq *edges)
{ {
return filter_objects<sta::Edge>(property, op, pattern, edges); return filter_objects<Edge>(property, op, pattern, edges);
} }
//////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////

View File

@ -528,6 +528,10 @@ using namespace sta;
seqTclList<LibertyCellSeq, LibertyCell>($1, SWIGTYPE_p_LibertyCell, interp); seqTclList<LibertyCellSeq, LibertyCell>($1, SWIGTYPE_p_LibertyCell, interp);
} }
%typemap(out) LibertyPortSeq * {
seqPtrTclList<LibertyPortSeq, LibertyPort>($1, SWIGTYPE_p_LibertyPort, interp);
}
%typemap(out) LibertyPortSeq { %typemap(out) LibertyPortSeq {
seqTclList<LibertyPortSeq, LibertyPort>($1, SWIGTYPE_p_LibertyPort, interp); seqTclList<LibertyPortSeq, LibertyPort>($1, SWIGTYPE_p_LibertyPort, interp);
} }
@ -746,6 +750,14 @@ using namespace sta;
Tcl_SetObjResult(interp, obj); Tcl_SetObjResult(interp, obj);
} }
%typemap(out) LibertyLibrarySeq* {
seqPtrTclList<LibertyLibrarySeq, LibertyLibrary>($1, SWIGTYPE_p_LibertyLibrary, interp);
}
%typemap(out) LibertyLibrarySeq {
seqTclList<LibertyLibrarySeq, LibertyLibrary>($1, SWIGTYPE_p_LibertyLibrary, interp);
}
%typemap(out) Pin* { %typemap(out) Pin* {
Tcl_Obj *obj = SWIG_NewInstanceObj($1, $1_descriptor, false); Tcl_Obj *obj = SWIG_NewInstanceObj($1, $1_descriptor, false);
Tcl_SetObjResult(interp, obj); Tcl_SetObjResult(interp, obj);
@ -755,7 +767,6 @@ using namespace sta;
seqPtrTclList<PinSeq, Pin>($1, SWIGTYPE_p_Pin, interp); seqPtrTclList<PinSeq, Pin>($1, SWIGTYPE_p_Pin, interp);
} }
%typemap(out) PinSeq { %typemap(out) PinSeq {
seqTclList<PinSeq, Pin>($1, SWIGTYPE_p_Pin, interp); seqTclList<PinSeq, Pin>($1, SWIGTYPE_p_Pin, interp);
} }