Function Main

ppcc/src/ppcc.cc:309–338

});

void Main() {
  char *envDebug = getenv("DEBUG_PPCC");
  if (envDebug) {
    switch (envDebug[0]) {
      case '0': debug = 0; break;
      case '1': debug = 1; break;
      case '2': debug = 2; break;
      default:
        Error("invalid DEBUG_PPCC value, must be 0, 1, or 2");
        break;
    }
  }
  if (Args->len() >= 1 && Args->at(0)->eq(S("--test"))) {
    for (Int i = 1; i < Args->len(); i++) {
      Str *filename = Args->at(i);
      PrintLn(S("=== ")->add(filename));
      Print(TestPreProcessor(filename));
    }
    return;
  }
  if (getenv("RUN_PPCC")) {
    if (debug) {
      PrintLn(S("Args: ")->add(StrJoin(Args, " ")));
    }
    ParseArgs();
    ExecCompiler();
  } else {
    PassThroughCompiler();
  }
}