Function TclCommand_parameter

SRC/runtime/commands/domain/parameter.cpp:50–338

parameter tag

//  parameter tag <specific parameter args>
int
TclCommand_parameter(ClientData clientData, Tcl_Interp *interp, Tcl_Size argc,
                     TCL_Char ** const argv)
{
  assert(clientData != nullptr);
  Domain* domain = static_cast<Domain*>(clientData); 


  // ensure at least two arguments
  if (argc < 2) {
    opserr << "WARNING need to specify a parameter tag\n";
    return TCL_ERROR;
  }

  // Figure out which parameter we are dealing with
  int paramTag;
  if (Tcl_GetInt(interp, argv[1], &paramTag) != TCL_OK) {
    return TCL_ERROR;
  }

  Parameter *theParameter = domain->getParameter(paramTag);

  // First, check special case of a blank parameter
  if (argc == 2 && strcmp(argv[0], "parameter") == 0) {
    Parameter *newParameter = new Parameter(paramTag, 0, 0, 0);

    domain->addParameter(newParameter);

    char buffer[40];
    sprintf(buffer, "%d", paramTag);
    Tcl_SetResult(interp, buffer, TCL_VOLATILE);

    return TCL_OK;
  }

  // First, check special case of a blank parameter
  if (argc == 3 && strcmp(argv[0], "parameter") == 0) {
    Parameter *newParameter = new Parameter(paramTag, 0, 0, 0);

    double value;
    if (Tcl_GetDouble(interp, argv[2], &value) != TCL_OK)
      return TCL_ERROR;

    newParameter->setValue(value);

    domain->addParameter(newParameter);

    char buffer[40];
    sprintf(buffer, "%d", paramTag);
    Tcl_SetResult(interp, buffer, TCL_VOLATILE);

    return TCL_OK;
  }

  int eleTag = -1;
  bool isele = false;