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

• §1. Main routine

§1. Main routine.

define PROGRAM_NAME "inrtps"
define DEFAULT_FONT_TEXT

pathname *from_folder = NULL;
pathname *to_folder = NULL;
int font_setting = TRUE;

int main(int argc, char **argv) {
    Foundation::start(argc, argv);
    Read the command line1.2;
    if (from_folder) {
        if (to_folder == NULL)
            Errors::fatal("usage: inrtps from-folder to-folder [options]");
        text_stream *f = NULL;
        if (font_setting)
            f = I"face='lucida grande,geneva,arial,tahoma,verdana,helvetica,helv'";
        Translator::go(from_folder, to_folder, f);
    }
    Foundation::end();
    return 0;
}

§1.1. We use Foundation to read the command line:

enum FONT_CLSW

§1.2. Read the command line1.2 =

    CommandLine::declare_heading(
        L"[[Purpose]]\n\n"
        L"usage: inrtps from-folder to-folder [options]\n");

    CommandLine::declare_boolean_switch(FONT_CLSW, L"font", 1,
        L"explicitly set sans-serif fonts by name", TRUE);

    CommandLine::read(argc, argv, NULL, &Main::option, &Main::bareword);

• This code is used in §1.

§2.

void Main::option?Usage of Main::option:
§1.2(int id, int val, text_stream *arg, void *state) {
    switch (id) {
        case FONT_CLSW: font_setting = val; break;
    }
}

void Main::bareword?Usage of Main::bareword:
§1.2(int id, text_stream *arg, void *state) {
    if (from_folder == NULL) from_folder = Pathnames::from_text(arg);
    else if (to_folder == NULL) to_folder = Pathnames::from_text(arg);
    else Errors::fatal("too many arguments given at command line");
}