[Grading::] Grading Adjectives.

To inflect adjectives into comparative and superlative forms.

@ 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 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;
}

@ 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;
}

@ 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;
}