Special sentences for creating new adjectives.

§1. This handles the special meaning "X is an adjective...".

<new-adjective-sentence-object>
    <indefinite-article> <new-adjective-sentence-object-unarticled> |
    <new-adjective-sentence-object-unarticled>

<new-adjective-sentence-object-unarticled>
    adjective |
    adjective implying/meaning <definite-article> <np-unparsed> |
    adjective implying/meaning <np-unparsed>

<adjective-definition-subject>
    in <natural-language> ... |
    ...

§2.

int NewAdjectiveRequests::new_adjective_SMF?Usage of NewAdjectiveRequests::new_adjective_SMF:
Booting Verbs - §1.1(int task, parse_node *V, wording *NPs) {
    wording SW = (NPs)?(NPs[0]):EMPTY_WORDING;
    wording OW = (NPs)?(NPs[1]):EMPTY_WORDING;
    switch (task) {  "In French petit is an adjective meaning..."
        case ACCEPT_SMFT:
            if (<new-adjective-sentence-object>(OW)) {
                parse_node *O = <<rp>>;
                if (O == NULL) { <np-unparsed>(OW); O = <<rp>>; }
                <np-unparsed>(SW);
                V->next = <<rp>>;
                V->next->next = O;
                return TRUE;
            }
            break;
        case PASS_1_SMFT: {
            wording W = Node::get_text(V->next);
            <adjective-definition-subject>(W);
            NATURAL_LANGUAGE_WORDS_TYPE *nl = <<rp>>;
            W = GET_RW(<adjective-definition-subject>, 1);
            if (!(<adaptive-adjective>(W))) Adjectives::declare(W, nl);
            break;
        }
    }
    return FALSE;
}