Function nodeDOFs

SRC/runtime/commands/domain/nodes.cpp:859–904

int
nodeDOFs(ClientData clientData, Tcl_Interp *interp, Tcl_Size argc, TCL_Char ** const argv)
{
  assert(clientData != nullptr);
  Domain *the_domain = (Domain*)clientData;

  if (argc != 2) {
    opserr << OpenSees::PromptValueError 
           << "Missing required arguments"
           << OpenSees::SignalMessageEnd;
    return TCL_ERROR;
  }

  int tag;
  if (Tcl_GetInt(interp, argv[1], &tag) != TCL_OK) {
    opserr << OpenSees::PromptValueError << "nodeDOFs nodeTag?\n";
    return TCL_ERROR;
  }


  Node *theNode = the_domain->getNode(tag);
  if (theNode == nullptr) {
    opserr << OpenSees::PromptValueError 
           << "node with tag " << tag << " not found" 
           << OpenSees::SignalMessageEnd;
    return TCL_ERROR;
  }

  int numDOF = theNode->getNumberDOF();
  DOF_Group *theDOFgroup = theNode->getDOF_GroupPtr();
  if (theDOFgroup == nullptr) {
    opserr << OpenSees::PromptValueError
           << "nodeDOFs DOF group null" 
           << OpenSees::SignalMessageEnd;
    return -1;
  }

  char buffer[40];
  const ID &eqnNumbers = theDOFgroup->getID();
  for (int i = 0; i < numDOF; ++i) {
    sprintf(buffer, "%d ", eqnNumbers(i));
    Tcl_AppendResult(interp, buffer, NULL);
  }

  return TCL_OK;
}