A lightweight structure to record uses of an adjective, either positively or negatively.

§1. We store this as a linguistic constant, which points to the adjective and also records its sense, i.e., positive or negative:

typedef struct unary_predicate {
    lcon_ti lcon;
} unary_predicate;

• The structure unary_predicate is private to this section.

§2.

unary_predicate *UnaryPredicates::new?Usage of UnaryPredicates::new:
Constants and Descriptions - §10
Verbal and Relative Clauses - §9.1
Terms - §9
Atomic Propositions - §20(adjective *aph, int pos) {
    unary_predicate *au = CREATE(unary_predicate);
    au->lcon = Stock::to_lcon(aph->in_stock);
    if (pos) au->lcon = Lcon::set_sense(au->lcon, POSITIVE_SENSE);
    else au->lcon = Lcon::set_sense(au->lcon, NEGATIVE_SENSE);
    return au;
}

unary_predicate *UnaryPredicates::copy?Usage of UnaryPredicates::copy:
Constants and Descriptions - §11(unary_predicate *au_from) {
    unary_predicate *au = CREATE(unary_predicate);
    au->lcon = au_from->lcon;
    return au;
}

§3. Logging:

void UnaryPredicates::log?Usage of UnaryPredicates::log:
Core Module - §5, §6.6(unary_predicate *au) {
    adjective *aph = UnaryPredicates::get_adj(au);
    if (Lcon::get_sense(au->lcon) == NEGATIVE_SENSE) LOG("~");
    wording W = Adjectives::get_nominative_singular(aph);
    LOG("<adj:%W>", W);
}

§4. Access:

adjective *UnaryPredicates::get_adj?Usage of UnaryPredicates::get_adj:
§3
Refine Parse Tree - §6
Assertions - §6.3.13
Implications - §4.2.3, §7.1
Constants and Descriptions - §13
Terms - §8
Atomic Propositions - §25.1
Binding and Substitution - §18
Tree Conversions - §7.2
Type Check Propositions - §10
Assert Propositions - §9.10, §13.1, §14.2
Compile Atoms - §6.6
Descriptions - §8
Dash - §11.9.1.1.5.1.2(unary_predicate *au) {
    if (au == NULL) return NULL;
    return Adjectives::from_lcon(au->lcon);
}

int UnaryPredicates::get_parity?Usage of UnaryPredicates::get_parity:
Refine Parse Tree - §6
Implications - §7.1
Atomic Propositions - §25.1
Tree Conversions - §7.2
Assert Propositions - §9.10, §14.2
Compile Atoms - §6.6
Descriptions - §8(unary_predicate *au) {
    if (au == NULL) internal_error("null adjective tested for positivity");
    if (Lcon::get_sense(au->lcon) == NEGATIVE_SENSE) return FALSE;
    return TRUE;
}

§5. And this is the only non-trivial thing one can do with an adjective use: reverse its sense.

void UnaryPredicates::flip_parity?Usage of UnaryPredicates::flip_parity:
Constants and Descriptions - §11(unary_predicate *au) {
    if (au == NULL) internal_error("null adjective flipped");
    if (Lcon::get_sense(au->lcon) == NEGATIVE_SENSE)
        au->lcon = Lcon::set_sense(au->lcon, POSITIVE_SENSE);
    else
        au->lcon = Lcon::set_sense(au->lcon, NEGATIVE_SENSE);
}