mirror of
https://github.com/The-OpenROAD-Project/OpenSTA.git
synced 2026-08-22 05:57:30 +02:00
@@ -291,10 +291,6 @@ using namespace sta;
|
|||||||
Tcl_SetResult(interp, nullptr, TCL_STATIC);
|
Tcl_SetResult(interp, nullptr, TCL_STATIC);
|
||||||
}
|
}
|
||||||
|
|
||||||
%typemap(in) StringSeq* {
|
|
||||||
$1 = tclListSeqConstChar($input, interp);
|
|
||||||
}
|
|
||||||
|
|
||||||
%typemap(in) StdStringSet* {
|
%typemap(in) StdStringSet* {
|
||||||
$1 = tclListSetStdString($input, interp);
|
$1 = tclListSetStdString($input, interp);
|
||||||
}
|
}
|
||||||
@@ -312,26 +308,6 @@ using namespace sta;
|
|||||||
$1 = tclListSeqStdStringPtr($input, interp);
|
$1 = tclListSeqStdStringPtr($input, interp);
|
||||||
}
|
}
|
||||||
|
|
||||||
%typemap(out) StringSeq* {
|
|
||||||
StringSeq *strs = $1;
|
|
||||||
Tcl_Obj *list = Tcl_NewListObj(0, nullptr);
|
|
||||||
for (const char *str : *strs) {
|
|
||||||
Tcl_Obj *obj = Tcl_NewStringObj(str, strlen(str));
|
|
||||||
Tcl_ListObjAppendElement(interp, list, obj);
|
|
||||||
}
|
|
||||||
Tcl_SetObjResult(interp, list);
|
|
||||||
}
|
|
||||||
|
|
||||||
%typemap(out) StringSeq {
|
|
||||||
StringSeq &strs = $1;
|
|
||||||
Tcl_Obj *list = Tcl_NewListObj(0, nullptr);
|
|
||||||
for (const char *str : strs) {
|
|
||||||
Tcl_Obj *obj = Tcl_NewStringObj(str, strlen(str));
|
|
||||||
Tcl_ListObjAppendElement(interp, list, obj);
|
|
||||||
}
|
|
||||||
Tcl_SetObjResult(interp, list);
|
|
||||||
}
|
|
||||||
|
|
||||||
%typemap(in) StdStringSet* {
|
%typemap(in) StdStringSet* {
|
||||||
$1 = tclListSetStdString($input, interp);
|
$1 = tclListSetStdString($input, interp);
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user