From 7e7ab963292c39a04f51f6eda6954860130c5594 Mon Sep 17 00:00:00 2001 From: James Cherry Date: Sun, 8 Mar 2026 15:25:02 -0700 Subject: [PATCH] rm StdString Signed-off-by: James Cherry --- tcl/StaTclTypes.i | 24 ------------------------ 1 file changed, 24 deletions(-) diff --git a/tcl/StaTclTypes.i b/tcl/StaTclTypes.i index 2bcb3fa0..7de25386 100644 --- a/tcl/StaTclTypes.i +++ b/tcl/StaTclTypes.i @@ -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); }