The top level, which decides what is to be done and then carries this plan out.

• §1. Main routine

§1. Main routine. This is basically simple. We work out what project the user wants us to test; we look through the command line to configure things and read some testing commands, and then we carry them out.

What makes it a little more elaborate is that Intest does unusual things with its command line, preserving a command history, allowing substitution of parameters and so on. It's almost a little shell language of its own. This work of rewriting the command line is mostly done by a part of Intest called the "historian", which manages the command history.

pathname *home_project = NULL;
pathname *installation = NULL;

int main(int argc, char **argv) {
    Basics::start(argc, argv);
    installation = Pathnames::installation_path("INTEST_PATH", I"intest");

    int ts_argc = 0, extension_mode = FALSE; text_stream **ts_argv = NULL;

    Soak up the command line contents1.1;
    Work out what the home project is1.2;

    pathname *home = home_project;
    if (extension_mode == FALSE) {
        home = Pathnames::down(home, I"Tests");
        if (Directories::exists(home) == FALSE) {
            text_stream *D = Pathnames::directory_name(home_project);
            if (Str::includes_at(D, Str::len(D)-3, I"Kit")) {
                extension_mode = TRUE; home = Pathnames::up(home);
            }
        }
    }
    Log::set_debug_log_filename(Filenames::in(home, I"intest-debug-log.txt"));
    filename *history = Filenames::in(home, I"intest-history.txt");
    Historian::research(history, &ts_argc, &ts_argv);

    if (problem_count == 0) {
        int write_up = FALSE;
        Read the now-final command line and act upon it1.3;
        if ((write_up) && (extension_mode == FALSE)) Historian::write_up(history);
    }

    Basics::end();
    return (problem_count == 0)?0:1;
}

§1.1. We will need to modify the command-line tokens, so we have to get them out of their locale-encoded null-terminated C strings, in argv[], and into proper Unicode text_stream strings, in ts_argv[].

Note that if the tester specifies nothing at all at the command line, we invent -help. It follows that ts_argc will always be at least 2.

Soak up the command line contents1.1 =

    ts_argc = argc;
    if (argc == 1) ts_argc = 2;
    ts_argv = Memory::calloc(argc, sizeof(text_stream *), COMMAND_HISTORY_MREASON);
    for (int i=0; i<argc; i++) {
        char *p = argv[i];
        if ((p[0] == '-') && (p[1] == '-')) p++;  allow a doubled-dash as equivalent to a single
        ts_argv[i] = Str::new_from_locale_string(p);
    }
    if (argc == 1) ts_argv[1] = I"-help";

• This code is used in §1.

§1.2. Intest was originally designed for testing Inform 7, so it defaults to that as the project under test. Everybody else has to specify -from P, where P is the project location, at the front of the command line. Note that we remove those two tokens if we do find them.

(They are token numbers 1 and 2, not 0 and 1, because token 0 will be the shell command used to invoke Intest. We simply ignore token 0.)

We enter extension mode only if the directory name for the project ends in .i7xd, meaning that our "project" is in fact an Inform extension stored in directory format.

Work out what the home project is1.2 =

    if ((Str::eq(ts_argv[1], I"-from")) && (ts_argc >= 3)) {
        home_project = Pathnames::from_text(ts_argv[2]);
        ts_argc -= 2; ts_argv += 2;
    } else if (Str::get_first_char(ts_argv[1]) != '-') {
        home_project = Pathnames::from_text(ts_argv[1]);
        ts_argc--; ts_argv++;
    }
    text_stream *D = Pathnames::directory_name(home_project);
    if (Str::includes_at(D, Str::len(D)-5, I".i7xd")) extension_mode = TRUE;

• This code is used in §1.

§1.3. Read the now-final command line and act upon it1.3 =

    Globals::create_platform(home);
    Globals::create_internal();
    intest_instructions args = Instructions::read(ts_argc, ts_argv, home, extension_mode);

    if ((home_project) && (problem_count == 0)) {
        if (args.version_switch) printf("%s\n", INTEST_BUILD);
        if (args.purge_switch) Tester::purge_all_work_areas(args.threads_available);
        if (args.verbose_switch) { Shell::verbose(); Tester::verbose(); }
        Differ::set_colour_usage(args.colours_switch);
        if (args.crash_switch) Errors::enter_debugger_mode();
        write_up = args.history_switch;
        if (args.verbose_switch) {
            PRINT("Platform is '%s'\n", PLATFORM_STRING);
            PRINT("Installation path is %p\n", installation);
            Locales::write_locales(STDOUT);
            PRINT("Available core count: %d\n", Platform::get_core_count());
        }
        Globals::create_workspace(args.workspace, args.internal_path);

        text_stream results;
        if (args.results_file) {
            if (args.internal_path == NULL)
                Errors::fatal("if '-results' is used, so must '-internal' be");
            args.results_stream = &results;
            text_stream *OUT = args.results_stream;
            if (STREAM_OPEN_TO_FILE(OUT, args.results_file, UTF8_ENC) == FALSE)
                Errors::fatal_with_file("unable to open results file: %f",
                    args.results_file);
            pathname *models = Pathnames::down(args.internal_path, I"HTML");
            HTML::header(OUT, I"Testing",
                Main::filename_by_platform(models, I"platform.css"),
                Main::filename_by_platform(models, I"main.css"),
                Main::filename_by_platform(models, I"main.js"),
                NULL,
                NULL);
            HTML_OPEN("h1");
            WRITE("Intest Report");
            HTML_CLOSE("h1");
        }
        Actions::perform(STDOUT, &args);
        if (args.results_file) {
            HTML::footer(args.results_stream);
            STREAM_CLOSE(args.results_stream);
        }
    }

• This code is used in §1.

§2. This utility has been borrowed from Inform's html module:

filename *Main::filename_by_platform?Usage of Main::filename_by_platform:
§1.3(pathname *models, text_stream *leafname) {
    TEMPORARY_TEXT(variation)
    WRITE_TO(variation, "%s-%S", PLATFORM_STRING, leafname);
     NB: PLATFORM_STRING is a C string, so that %s is correct
    filename *F = Filenames::in(models, variation);
    if (TextFiles::exists(F) == FALSE) F = Filenames::in(models, leafname);
    DISCARD_TEXT(variation)
    return F;
}