Function FProcessSwitchFile

io.cpp:234–291

// handle, run through each line as a series of command switches.

flag FProcessSwitchFile(CONST char *szFile, FILE *file)
{
  char rgchLine[cchSzLine], *argv[MAXSWITCHES], *szLine = rgchLine, *szNew, ch;
  int argc, cchLine = cchSzLine, i;
  flag fHaveFile, fRet = fFalse;

  // Open a file if don't already have one.
  fHaveFile = (file != NULL);
  if (!fHaveFile) {
    file = FileOpen(szFile, 0, NULL);
    if (file == NULL)
      goto LDone;
  }
  is.fileIn = file;

  // All files have to begin with the -@ switch file type identifier.
  ch = getc(file); ungetc(ch, file);
  if (ch != '@') {
    sprintf(szLine,
      "The command file '%s' is not in any valid format (character %d).",
      szFile, (int)ch);
    PrintWarning(szLine);
    goto LDone;
  }

  // Read the file one line at a time.
  loop {
    while (!feof(file) && (ch = getbyte()) < ' ')
      ;
    if (feof(file))
      break;
    for (szLine[0] = ch, i = 1; !feof(file); i++) {
      if (i >= cchLine-1) {
        // Double the size of the buffer if the line overfills it.
        szNew = (char *)RgReallocate(szLine, cchLine, sizeof(char), cchLine*2,
          "line");
        if (szNew == NULL)
          goto LDone;
        if (szLine != rgchLine)
          DeallocateP(szLine);
        szLine = szNew;
        cchLine *= 2;
      }
      ch = getbyte();
      if (!((uchar)ch >= ' ' || ch == chTab))
        break;
      szLine[i] = ch;
    }
    if (ch != '\n')
      ch = getbyte();
    // Windows Notepad files sometimes have character 255 at end of file.
    if (i > 0 && (uchar)szLine[i-1] == 255)
      i--;
    szLine[i] = chNull;
    argc = NParseCommandLine(szLine, argv);
    if (!FProcessSwitches(argc, argv))
      goto LDone;
  }