Neptune supports named macros, though they are only lists of kind commands.

§1.

define MAX_KIND_MACRO_LENGTH 20 /* maximum number of commands in any one macro */

classdef kind_macro_definition {
    struct text_stream *kind_macro_name; /* including the sharp, e.g., "#UNIT" */
    int kind_macro_line_count;
    struct single_kind_command kind_macro_line[MAX_KIND_MACRO_LENGTH];
}

kind_macro_definition *current_km = NULL; /* the one now being recorded */

kind_macro_definition *NeptuneMacros::new(text_stream *name) {
    kind_macro_definition *tmd = CREATE(kind_macro_definition);
    tmd->kind_macro_line_count = 0;
    tmd->kind_macro_name = Str::duplicate(name);
    return tmd;
}

kind_macro_definition *NeptuneMacros::parse_name?Usage of NeptuneMacros::parse_name:
Neptune Syntax - §5.5.10
Kind Constructors - §11.1, §14, §15(text_stream *name) {
    kind_macro_definition *tmd;
    LOOP_OVER(tmd, kind_macro_definition)
        if (Str::eq(name, tmd->kind_macro_name))
            return tmd;
    return NULL;
}

int NeptuneMacros::recording?Usage of NeptuneMacros::recording:
Neptune Files - §1
Neptune Syntax - §5(void) {
    if (current_km) return TRUE;
    return FALSE;
}

void NeptuneMacros::begin?Usage of NeptuneMacros::begin:
Neptune Syntax - §5(text_stream *name, text_file_position *tfp) {
    if (NeptuneMacros::parse_name(name))
        NeptuneFiles::error(name, I"duplicate definition of kind command macro", tfp);
    else
        current_km = NeptuneMacros::new(name);
}

void NeptuneMacros::record_into_macro?Usage of NeptuneMacros::record_into_macro:
Neptune Files - §1(single_kind_command stc, text_file_position *tfp) {
    if (current_km == NULL)
        NeptuneFiles::error(NULL, I"kind macro not being recorded", tfp);
    else if (current_km->kind_macro_line_count >= MAX_KIND_MACRO_LENGTH)
        NeptuneFiles::error(current_km->kind_macro_name,
            I"kind macro contains too many lines", tfp);
    else current_km->kind_macro_line[current_km->kind_macro_line_count++] = stc;
}

void NeptuneMacros::end?Usage of NeptuneMacros::end:
Neptune Syntax - §5(text_file_position *tfp) {
    if (current_km == NULL) NeptuneFiles::error(NULL,
        I"ended kind macro outside one", tfp);
    current_km = NULL;
}

• The structure kind_macro_definition is private to this section.

void NeptuneMacros::play_back?Usage of NeptuneMacros::play_back:
Kind Commands - §1.1
Kind Constructors - §11.1, §14, §15(kind_macro_definition *macro,
    kind_constructor *con, text_file_position *tfp) {
    if (macro == NULL) NeptuneFiles::error(NULL, I"no such kind macro to play back", tfp);
    LOGIF(KIND_CREATIONS, "Macro %S on %S (%d lines)\n",
        macro->kind_macro_name, con->explicit_identifier, macro->kind_macro_line_count);
    LOG_INDENT;
    for (int i=0; i<macro->kind_macro_line_count; i++)
        KindCommands::apply(macro->kind_macro_line[i], con);
    LOG_OUTDENT;
    LOGIF(KIND_CREATIONS, "Macro %S ended\n", macro->kind_macro_name);
}