Function printModel

SRC/tcl/commands.cpp:2057–2142

int 
printModel(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)
{
  int currentArg = 1;
  int res = 0;

  int flag = OPS_PRINT_CURRENTSTATE;
  
  FileStream outputFile;
  OPS_Stream *output = &opserr;
  bool done = false;

  // if just 'print' then print out the entire domain
  if (argc == currentArg) {
    opserr << theDomain;
    return TCL_OK;
  }    

  while(done == false) {
    // if 'print ele i j k..' print out some elements
    if ((strcmp(argv[currentArg],"-ele") == 0) || (strcmp(argv[currentArg],"ele") == 0)) {
      currentArg++;
      res = printElement(clientData, interp, argc-currentArg, argv+currentArg, *output);    
      done = true;
    }
    // if 'print node i j k ..' print out some nodes
    else if ((strcmp(argv[currentArg],"-node") == 0) || (strcmp(argv[currentArg],"node") == 0)) {
      currentArg++;      
      res = printNode(clientData, interp, argc-currentArg, argv+currentArg, *output);
      done = true;
    }
  
    // if 'print integrator flag' print out the integrator
    else if ((strcmp(argv[currentArg],"integrator") == 0) || 
	     (strcmp(argv[currentArg],"-integrator") == 0)) {
      currentArg++;
      res = printIntegrator(clientData, interp, argc-currentArg, argv+currentArg, *output);  
      done = true;
    }

    // if 'print algorithm flag' print out the algorithm
    else if ((strcmp(argv[currentArg],"algorithm") == 0) || 
	     (strcmp(argv[currentArg],"-algorithm") == 0)) {
      currentArg++;
      res = printAlgorithm(clientData, interp, argc-currentArg, argv+currentArg, *output);    
      done = true;
    }

    else if ((strcmp(argv[currentArg],"-JSON") == 0)) {
      currentArg++;
      flag = OPS_PRINT_PRINTMODEL_JSON;
    }

    else {

      if ((strcmp(argv[currentArg],"file") == 0) || 
	  (strcmp(argv[currentArg],"-file") == 0)) 
	currentArg++;