Function OPS_Parameter

SRC/interpreter/OpenSeesParameterCommands.cpp:50–350

#endif

int OPS_Parameter() {
  Domain *theDomain = OPS_GetDomain();
  #ifdef _RELIABILITY
    ReliabilityDomain *theReliabilityDomain = OPS_GetReliabilityDomain();
  #endif
  if (theDomain == 0) return -1;

  // check at least two arguments so don't segment fault on strcmp
  if (OPS_GetNumRemainingInputArgs() < 1) {
    opserr << "WARNING need to specify a parameter tag\n";
    opserr << "Want: parameter tag <specific parameter args> .. see "
              "manual for valid parameter types and arguments\n";
    return -1;
  }

  // Figure out which parameter we are dealing with
  int paramTag;
  int num = 1;
  if (OPS_GetIntInput(&num, &paramTag) < 0) {
    opserr << "WARNING: parameter - failed to get parameter tag\n";
    return -1;
  }

  // check existence
  Parameter *theParameter = theDomain->getParameter(paramTag);
  if (theParameter != 0) {
    opserr << "WARNNG: parameter " << paramTag << " already exists\n";
    return -1;
  }

  // First, check special case of a blank parameter
  if (OPS_GetNumRemainingInputArgs() == 0) {
    Parameter *newParameter = new Parameter(paramTag, 0, 0, 0);

    if (theDomain->addParameter(newParameter) == false) {
      opserr << "WARNING: failed to add parameter\n";
      return -1;
    }

    if (OPS_SetIntOutput(&num, &paramTag, true) < 0) {
      opserr << "WARNING: parameter - failed to set parameter tag\n";
      return -1;
    }

    return 0;
  }

  // Second, check special case of one parameter
  if (OPS_GetNumRemainingInputArgs() == 1) {
    Parameter *newParameter = new Parameter(paramTag, 0, 0, 0);

    double value;
    if (OPS_GetDoubleInput(&num, &value) < 0) {
      opserr << "WARNING: failed to get paramber value\n";
      return -1;
    }

    newParameter->setValue(value);