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

§1. Main routine. 

    enum SILENCE_CLSW
    enum VERBOSE_CLSW
    enum PROBLEMS_CLSW

    pathname *path_to_inpolicy = NULL;  where we are installed
    pathname *path_to_inpolicy_workspace = NULL;  the materials pathname
    int return_happy = TRUE, silence_mode = FALSE, verbose_mode = FALSE;

    int main(int argc, char **argv) {
        Foundation::start();

        CommandLine::declare_heading(
            L"[[Purpose]]\n\n"
            L"usage: inpolicy [options]\n");

        CommandLine::declare_switch(PROBLEMS_CLSW, L"check-problems", 1,
            L"check problem test case coverage");

        CommandLine::declare_boolean_switch(SILENCE_CLSW, L"silence", 1,
            L"print nothing unless there's something wrong", FALSE);
        CommandLine::declare_boolean_switch(VERBOSE_CLSW, L"verbose", 1,
            L"explain what inpolicy is doing", FALSE);

        CommandLine::read(argc, argv, NULL, &Main::respond, &Main::disallow);

        path_to_inpolicy = Pathnames::installation_path("INPOLICY_PATH", I"inpolicy");
        path_to_inpolicy_workspace = Pathnames::subfolder(path_to_inpolicy, I"Workspace");
        if (verbose_mode) PRINT("Installation path is %p\n", path_to_inpolicy);

        Foundation::end();
        if (return_happy) return 0; else return 1;
    }

    void Main::disallow(int id, text_stream *arg, void *state) {
        Errors::fatal("no arguments are allowed at the command line");
    }

§2. 

    define RUNTEST(Routine)
        path_to_inpolicy = Pathnames::installation_path("INPOLICY_PATH", I"inpolicy");
        path_to_inpolicy_workspace = Pathnames::subfolder(path_to_inpolicy, I"Workspace");
        if (silence_mode) {
            if (Routine(NULL) == FALSE) { return_happy = FALSE; Routine(STDERR); }
        } else {
            if (Routine(STDOUT) == FALSE) return_happy = FALSE;
        }

    void Main::respond(int id, int val, text_stream *arg, void *state) {
        switch (id) {
            case PROBLEMS_CLSW: RUNTEST(Coverage::check); break;
            case SILENCE_CLSW: silence_mode = val; break;
            case VERBOSE_CLSW: verbose_mode = val; break;
        }
    }