Revision: 72436
http://sourceforge.net/p/brlcad/code/72436
Author: brlcad
Date: 2019-02-14 02:47:37 +0000 (Thu, 14 Feb 2019)
Log Message:
-----------
simplify getting string result, but do the extra work like done elsewhere to
print results consistently with a newline
Modified Paths:
--------------
brlcad/trunk/src/mged/cmd.c
Modified: brlcad/trunk/src/mged/cmd.c
===================================================================
--- brlcad/trunk/src/mged/cmd.c 2019-02-13 23:34:20 UTC (rev 72435)
+++ brlcad/trunk/src/mged/cmd.c 2019-02-14 02:47:37 UTC (rev 72436)
@@ -160,8 +160,8 @@
* fine for now */
int ret;
int i;
- int len;
- char *result = NULL;
+ size_t len;
+ const char *result = NULL;
Tcl_DString script;
Tcl_DStringInit(&script);
@@ -172,13 +172,14 @@
for (i = 1; i < argc; ++i)
Tcl_DStringAppendElement(&script, argv[i]);
- ret =Tcl_Eval((Tcl_Interp *)userdata, Tcl_DStringValue(&script));
+ ret = Tcl_Eval((Tcl_Interp *)userdata, Tcl_DStringValue(&script));
Tcl_DStringFree(&script);
- result = Tcl_GetStringFromObj(Tcl_GetObjResult((Tcl_Interp *)userdata),
&len);
+ result = Tcl_GetStringResult((Tcl_Interp *)userdata);
+ len = strlen(result);
+ if (len > 0)
+ bu_log("%s%s", result, result[len-1] == '\n' ? "" : "\n");
- bu_log("%s", result);
-
Tcl_ResetResult((Tcl_Interp *)userdata);
return TCL_OK == ret;
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
