Instances and kinds are both referred to by nouns, and here we create corresponding inames for use in compiled Inter code, and identifiers for use in the index.

§1. noun objects are created in the linguistics module; the following attaches some compilation data to those.

define NOUN_COMPILATION_LINGUISTICS_CALLBACK NounIdentifiers::initialise_noun_compilation

typedef struct name_compilation_data {
    struct text_stream *nt_identifier;
    struct inter_name *nt_iname;  (which will have that identifier)
} name_compilation_data;

void NounIdentifiers::initialise_noun_compilation(noun *t) {
    if (t == NULL) internal_error("no noun");
    t->compilation_data.nt_identifier = Str::new();
    t->compilation_data.nt_iname = NULL;
}

• The structure name_compilation_data is private to this section.

§2. This records a textual identifier...

text_stream *NounIdentifiers::identifier(noun *t) {
    if (t == NULL) return I"nothing";
    return t->compilation_data.nt_identifier;
}

§3. ...and also an iname:

int NounIdentifiers::iname_set?Usage of NounIdentifiers::iname_set:
Kind Declarations - §5(noun *t) {
    if (t == NULL) return FALSE;
    if (t->compilation_data.nt_iname == NULL) return FALSE;
    return TRUE;
}

void NounIdentifiers::set_iname?Usage of NounIdentifiers::set_iname:
Kind Declarations - §5
Instances - §1(noun *t, inter_name *iname) {
    if (t->compilation_data.nt_iname == NULL) t->compilation_data.nt_iname = iname;
}

inter_name *NounIdentifiers::iname?Usage of NounIdentifiers::iname:
Kind Declarations - §5(noun *t) {
    if (t == NULL) return NULL;
    if (t->compilation_data.nt_iname == NULL) internal_error("no iname for noun");
    return t->compilation_data.nt_iname;
}

§4. If a noun is given an explicit Inter identifier — for example, if the player's avatar is given the identifier selfobj rather than, say, I_yourself — then we need to change the textual identifier, and also the translation of the iname. We also want it to be visible to the linker, and we know that the name will be unique in the global namespace, so we tell the linker not to mutate the name in order to achieve that uniqueness.

void NounIdentifiers::noun_set_translation(noun *t, text_stream *new) {
    if (t->compilation_data.nt_iname == NULL) internal_error("no instance iname yet");
    text_stream *ident = t->compilation_data.nt_identifier;
    Str::clear(ident);
    Str::copy(ident, new);
    if (Str::get_first_char(ident) == '"') Str::delete_first_character(ident);
    if (Str::get_last_char(ident) == '"') Str::delete_last_character(ident);
    inter_name *iname = t->compilation_data.nt_iname;
    if (iname) {
        InterNames::set_translation(iname, ident);
        InterNames::clear_flag(iname, MAKE_NAME_UNIQUE_ISYMF);
        Hierarchy::make_available(iname);
    }
}