To inflect adjectives into comparative and superlative forms.

§1. In English, the comparative of an adjective can generally be formed by suffixing the inflected form with "than"; thus, "big" to "bigger than". The following does the suffixing:

<comparative-construction> ::=
    ... than

• This is Preform grammar, not regular C code.

§2. This is essentially a wrapper function for the trie <adjective-to-comparative>.

wording Grading::make_comparative(wording W, NATURAL_LANGUAGE_WORDS_TYPE *nl) {
    TEMPORARY_TEXT(comprised)
    TEMPORARY_TEXT(transformed)
    if (*(Lexer::word_text(Wordings::first_wn(W))) == '\"')
        WRITE_TO(comprised, "some-long-text");
    else
        WRITE_TO(comprised, "%N", Wordings::first_wn(W));
    nl = DefaultLanguage::get(nl);
    match_avinue *comp_trie =
        PreformUtilities::define_trie(<adjective-to-comparative>, TRIE_END,
            DefaultLanguage::get(nl));
    Inflect::suffix(transformed, comp_trie, comprised);
    wording PW = Feeds::feed_text(transformed);
    word_assemblage merged =
        PreformUtilities::merge(<comparative-construction>, 0,
            WordAssemblages::from_wording(PW));
    PW = WordAssemblages::to_wording(&merged);
    LOGIF(CONSTRUCTED_PLURALS, "[Comparative of %W is %W]\n", W, PW);
    DISCARD_TEXT(transformed)
    DISCARD_TEXT(comprised)
    return PW;
}

§3. This is essentially a wrapper function for the trie <adjective-to-superlative>.

wording Grading::make_superlative(wording W, NATURAL_LANGUAGE_WORDS_TYPE *nl) {
    TEMPORARY_TEXT(comprised)
    TEMPORARY_TEXT(transformed)
    if (*(Lexer::word_text(Wordings::first_wn(W))) == '\"')
        WRITE_TO(comprised, "some-long-text");
    else
        WRITE_TO(comprised, "%N", Wordings::first_wn(W));
    nl = DefaultLanguage::get(nl);
    match_avinue *comp_trie =
        PreformUtilities::define_trie(<adjective-to-superlative>, TRIE_END,
            DefaultLanguage::get(nl));
    Inflect::suffix(transformed, comp_trie, comprised);
    wording PW = Feeds::feed_text(transformed);
    LOGIF(CONSTRUCTED_PLURALS, "[Superlative of %W is %W]\n", W, PW);
    DISCARD_TEXT(transformed)
    DISCARD_TEXT(comprised)
    return PW;
}

§4. This is essentially a wrapper function for the trie <adjective-to-quiddity>. There has to be a better term than "quiddity" for this grammatical concept (it is some sort of morphological nominalisation) but what I mean is the property of which the given adjective makes a comparison: for instance, "tallness" for "tall", or "steeliness" for "steely".

wording Grading::make_quiddity(wording W, NATURAL_LANGUAGE_WORDS_TYPE *nl) {
    TEMPORARY_TEXT(comprised)
    TEMPORARY_TEXT(transformed)
    if (*(Lexer::word_text(Wordings::first_wn(W))) == '\"')
        WRITE_TO(comprised, "some-long-text");
    else
        WRITE_TO(comprised, "%N", Wordings::first_wn(W));
    nl = DefaultLanguage::get(nl);
    match_avinue *comp_trie =
        PreformUtilities::define_trie(<adjective-to-quiddity>, TRIE_END,
            DefaultLanguage::get(nl));
    Inflect::suffix(transformed, comp_trie, comprised);
    wording PW = Feeds::feed_text(transformed);
    LOGIF(CONSTRUCTED_PLURALS, "[Quiddity of %W is %W]\n", W, PW);
    DISCARD_TEXT(transformed)
    DISCARD_TEXT(comprised)
    return PW;
}