Function parseOutputOption

SRC/runtime/commands/domain/recorder.cpp:286–374

static int
parseOutputOption(OutputOptions *options, Tcl_Interp* interp, int argc, TCL_Char ** const argv)
{
    OutputOptions::Mode eMode = OutputOptions::MODE_UNSPECIFIED;

    int loc = 0;
    if (strcmp(argv[loc], "-precision") == 0) {
      if (++loc >= argc || Tcl_GetInt(interp, argv[loc], &options->precision) != TCL_OK)
        return -1;
      loc++;
    }
 
    else if (strcmp(argv[loc], "-scientific") == 0) {
      options->doScientific = true;
      loc++;
    }

    else if (strcmp(argv[loc], "-closeOnWrite") == 0) {
      options->closeOnWrite = true;
      loc++;
    }

    else if (strcmp(argv[loc], "-buffer") == 0 ||
             strcmp(argv[loc], "-bufferSize") == 0) {
      loc++;
      if (loc >= argc || Tcl_GetInt(interp, argv[loc], &options->writeBufferSize) != TCL_OK)
        return -1;
      loc++;
    }
 
    else {
      // pick out filename
      if ((strcmp(argv[loc], "-file") == 0) ||
          (strcmp(argv[loc], "-txt")  == 0))
        eMode = OutputOptions::DATA_STREAM;

      else if (strcmp(argv[loc], "-fileAdd") == 0)
        eMode = OutputOptions::DATA_STREAM_ADD;

      else if ((strcmp(argv[loc], "-fileCSV") == 0) ||
               (strcmp(argv[loc], "-csv") == 0))
        eMode = OutputOptions::DATA_STREAM_CSV;

      else if ((strcmp(argv[loc], "-nees") == 0) ||
               (strcmp(argv[loc], "-xml")  == 0)) {
        eMode = OutputOptions::XML_STREAM;
      } 
      else if ((strcmp(argv[loc], "-binary") == 0)) {
        eMode = OutputOptions::BINARY_STREAM;
      }
      else if ((strcmp(argv[loc], "-TCP") == 0) ||
               (strcmp(argv[loc], "-tcp") == 0)) {
        options->inetAddr = argv[loc + 1];
        if (Tcl_GetInt(interp, argv[loc + 2], &options->inetPort) != TCL_OK) {
          ;
        }
        eMode = OutputOptions::TCP_STREAM;
        loc += 3;