Function OpenSees_putsCommand

SRC/runtime/commands/interpreter.cpp:84–155

revised puts command to send to stderr

// revised puts command to send to stderr
//
static int
OpenSees_putsCommand(ClientData dummy, Tcl_Interp *interp, Tcl_Size objc,
                     Tcl_Obj *const objv[])
{
  // Tcl_Channel chan;           // The channel to puts on.
  Tcl_Obj *string;            /* String to write. */
  Tcl_Obj *chanObjPtr = NULL; /* channel object. */
  int newline;                /* Add a newline at end? */

  switch (objc) {
  case 2: /* [puts $x] */
    string = objv[1];
    newline = 1;
    break;

  case 3: /* [puts -nonewline $x] or [puts $chan $x] */
    if (strcmp(Tcl_GetString(objv[1]), "-nonewline") == 0) {
      newline = 0;
    } else {
      newline = 1;
      chanObjPtr = objv[1];
    }
    string = objv[2];
    break;

  case 4: /* [puts -nonewline $chan $x] or [puts $chan $x nonewline] */
    newline = 0;
    if (strcmp(Tcl_GetString(objv[1]), "-nonewline") == 0) {
      chanObjPtr = objv[2];
      string = objv[3];
      break;

    } else if (strcmp(Tcl_GetString(objv[3]), "nonewline") == 0) {
      /*
       * The code below provides backwards compatibility with an old
       * form of the command that is no longer recommended or
       * documented. See also [Bug #3151675]. Will be removed in Tcl 9,
       * maybe even earlier.
       */
      chanObjPtr = objv[1];
      string = objv[2];
      break;
    }
    /* Fall through */
  default:
    /* [puts] or [puts some bad number of arguments...] */
    Tcl_WrongNumArgs(interp, 1, objv, "?-nonewline? ?channelId? string");
    return TCL_ERROR;
  }

  if (chanObjPtr == NULL) {
    G3_Runtime *rt;
    if ((rt = G3_getRuntime(interp))) {
      if (newline == 0)
        fprintf(rt->streams[1], "%s", Tcl_GetString(string));
      else
        fprintf(rt->streams[1], "%s\n", Tcl_GetString(string));