To translate the text in one folder into RTP pages in another.

§1. The translator. 

typedef struct translator_state {
    struct text_stream *current_text;
    struct text_stream *current_code;
    struct text_stream *current_title;
    struct text_stream *current_pcode;
    struct text_stream *font;
    struct text_stream *css;
    struct filename *model_to_follow;
    struct pathname *destination_folder;
    struct text_stream *write_to;
    int counter;
} translator_state;

void Translator::go(pathname *from_folder, pathname *to_folder, text_stream *font_setting, text_stream *css) {
    filename *texts = Filenames::in(from_folder, I"texts.txt");
    translator_state ts;
    ts.current_text = Str::new();
    ts.current_code = Str::new();
    ts.current_title = Str::new();
    ts.current_pcode = Str::new();
    ts.destination_folder = to_folder;
    ts.model_to_follow = NULL;
    ts.font = font_setting;
    ts.css = css;
    ts.counter = 0;
    TextFiles::read(texts, FALSE, "unable to read file of source text", TRUE,
        &Translator::go_helper, NULL, &ts);
    Translator::flush(&ts);
    PRINT("%d problem texts written\n", ts.counter);
}

§2. Thus, the following is called on each line in turn of the texts.txt file: 

void Translator::go_helper(text_stream *text, text_file_position *tfp, void *state) {
    translator_state *ts = (translator_state *) state;
    match_results mr = Regexp::create_mr(), mr2 = Regexp::create_mr();

    if (Regexp::match(&mr, text, L"--> *(%C+) *- *(%c*?) *")) {
        Translator::flush(ts);
        Str::clear(ts->current_text);
        Str::copy(ts->current_pcode, mr.exp[0]);
        Str::copy(ts->current_title, mr.exp[1]);
        if (Regexp::match(&mr2, ts->current_pcode, L"P%d+")) {
            Str::clear(ts->current_code);
            WRITE_TO(ts->current_code, "RTP_%S", ts->current_pcode);
        }
        else
            Str::copy(ts->current_code, ts->current_pcode);
    } else if (Regexp::match(&mr, text, L" *")) {
        ;
    } else if (Regexp::match(&mr, text, L" *model *= *(%c*?) *")) {
        ts->model_to_follow = Filenames::in(from_folder, mr.exp[0]);
    } else {
        WRITE_TO(ts->current_text, "%S", text);
    }

    Regexp::dispose_of(&mr);
    Regexp::dispose_of(&mr2);
}

§3. And this routine is called when we encounter either the start of a new problem text, or else the end of the file: that means that the individual text being read is now complete, and can be translated as HTML. 

void Translator::flush(translator_state *ts) {
    if (Str::len(ts->current_code) > 0) {
        TEMPORARY_TEXT(leaf)
        WRITE_TO(leaf, "%S.html", ts->current_code);
        filename *F = Filenames::in(ts->destination_folder, leaf);
        DISCARD_TEXT(leaf)
        Give any material in double-quotes a blue tint3.1;
        Translate the material out to HTML3.2;
        ts->counter++;
    }
}

§3.1. Give any material in double-quotes a blue tint3.1 = 

    match_results mr = Regexp::create_mr();
    while (Regexp::match(&mr, ts->current_text, L"(%c*?)\"(%c*?)\"(%c*)")) {
        Str::clear(ts->current_text);
        WRITE_TO(ts->current_text, "%S<span class=_QUOTE_indexdullblue_QUOTE_><b>%S</b></span>%S",
            mr.exp[0], mr.exp[1], mr.exp[2]);
    }
    while (Regexp::match(&mr, ts->current_text, L"(%c*?)_QUOTE_(%c*)")) {
        Str::clear(ts->current_text);
        WRITE_TO(ts->current_text, "%S\"%S",
            mr.exp[0], mr.exp[1]);
    }
    Regexp::dispose_of(&mr);

§3.2. Translate the material out to HTML3.2 = 

    ts->write_to = CREATE(text_stream);
    if (Streams::open_to_file(ts->write_to, F, UTF8_ENC) == FALSE)
        Errors::fatal_with_file("unable to write RTP page file", F);
    TextFiles::read(ts->model_to_follow, FALSE, "unable to read file of model HTML", TRUE,
        &Translator::flush_helper, NULL, ts);
    Streams::close(ts->write_to);

§4. 

void Translator::flush_helper(text_stream *text, text_file_position *tfp, void *state) {
    translator_state *ts = (translator_state *) state;
    Expand the asterisked escapes4.1;
    WRITE_TO(ts->write_to, "%S\n", text);
}

§4.1. Expand the asterisked escapes4.1 = 

    match_results mr = Regexp::create_mr();

    while (Regexp::match(&mr, text, L"(%c*?)%*1(%c*)")) {
        Str::clear(text);
        WRITE_TO(text, "%S%S%S", mr.exp[0], ts->current_pcode, mr.exp[1]);
    }
    while (Regexp::match(&mr, text, L"(%c*?)%*2(%c*)")) {
        Str::clear(text);
        WRITE_TO(text, "%S%S%S", mr.exp[0], ts->current_text, mr.exp[1]);
    }
    while (Regexp::match(&mr, text, L"(%c*?)%*3(%c*)")) {
        Str::clear(text);
        WRITE_TO(text, "%S%S%S", mr.exp[0], ts->current_title, mr.exp[1]);
    }
    while (Regexp::match(&mr, text, L"(%c*?)%*4(%c*)")) {
        Str::clear(text);
        WRITE_TO(text, "%S%S%S", mr.exp[0], ts->font, mr.exp[1]);
    }
    while (Regexp::match(&mr, text, L"(%c*?)%*5(%c*)")) {
        Str::clear(text);
        WRITE_TO(text, "%S%S%S", mr.exp[0], ts->css, mr.exp[1]);
    }
    Regexp::dispose_of(&mr);