rm StdString
Signed-off-by: James Cherry <cherry@parallaxsw.com>
This commit is contained in:
parent
a1797918da
commit
7e7ab96329
|
|
@ -291,10 +291,6 @@ using namespace sta;
|
|||
Tcl_SetResult(interp, nullptr, TCL_STATIC);
|
||||
}
|
||||
|
||||
%typemap(in) StringSeq* {
|
||||
$1 = tclListSeqConstChar($input, interp);
|
||||
}
|
||||
|
||||
%typemap(in) StdStringSet* {
|
||||
$1 = tclListSetStdString($input, interp);
|
||||
}
|
||||
|
|
@ -312,26 +308,6 @@ using namespace sta;
|
|||
$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* {
|
||||
$1 = tclListSetStdString($input, interp);
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue