Function TclCommand_addNode

SRC/runtime/commands/modeling/nodes.cpp:39–238

#define G3_NUM_DOF_BUFFER 20

int
TclCommand_addNode(ClientData clientData, Tcl_Interp *interp, int argc,
                   TCL_Char ** const argv)
{
  assert(clientData != nullptr);

  BasicModelBuilder *builder = static_cast<BasicModelBuilder*>(clientData);

  Domain *theTclDomain = builder->getDomain();

  int ndm = builder->getNDM();
  int ndf = builder->getNDF();

  // make sure corect number of arguments on command line
  if (argc < 2 + 1) { // ndm) {
    opserr << OpenSees::PromptValueError 
           << "insufficient arguments"
           << OpenSees::SignalMessageEnd;
    return TCL_ERROR;
  }

  Node *theNode = nullptr;

  // read the node id
  int nodeId;
  if (Tcl_GetInt(interp, argv[1], &nodeId) != TCL_OK) {
    opserr << OpenSees::PromptValueError << "invalid nodeTag\n";
    opserr << "        Want: node nodeTag? [ndm coordinates?] <-mass [ndf values?]>\n";
    return TCL_ERROR;
  }


  Parameter* coord_params[3] = {nullptr, nullptr, nullptr};
  using namespace OpenSees::Parsing;

  // read in the coordinates and create the node
  double xLoc=0, yLoc=0, zLoc=0;
  if (ndm >= 1 && argc >= 3) {
    // create a node in 1d space
    if (GetDoubleParam(interp, *theTclDomain, argv[2], &xLoc, coord_params[0]) != TCL_OK) {
      opserr << OpenSees::PromptValueError 
             << "invalid coordinate " << argv[2] 
             << OpenSees::SignalMessageEnd;
      return TCL_ERROR;
    }
  }

  if (ndm >= 2 && argc >= 4) {
    if (Tcl_GetDouble(interp, argv[3], &yLoc) != TCL_OK) {
      opserr << OpenSees::PromptValueError 
             << "invalid 2nd coordinate " << argv[3]
             << OpenSees::SignalMessageEnd;
      return TCL_ERROR;
    }
  }

  if (ndm >= 3 && argc >= 5) {
    if (Tcl_GetDouble(interp, argv[4], &zLoc) != TCL_OK) {