Function emit_header

internal/cbm/iris_export_xml.c:137–168

}

static void emit_header(UdlBuf *b, const char *cs, const char *ce) {
    char name[MAX_NAME];
    extract_attr(cs, ce, "name", name, sizeof(name));
    if (!name[0])
        return;
    ub_app(b, "Class ");
    ub_app(b, name);
    char sup[MAX_NAME * 4] = "";
    elem_content(cs, ce, "Super", sup, sizeof(sup));
    if (sup[0]) {
        if (strchr(sup, ',')) {
            ub_app(b, " Extends (");
            ub_app(b, sup);
            ub_app(b, ")");
        } else {
            ub_app(b, " Extends ");
            ub_app(b, sup);
        }
    }
    char pragma[64] = "";
    if (tag_is_one(cs, ce, "Abstract"))
        strncat(pragma, "Abstract,", sizeof(pragma) - strlen(pragma) - 1);
    if (tag_is_one(cs, ce, "Final"))
        strncat(pragma, "Final,", sizeof(pragma) - strlen(pragma) - 1);
    if (pragma[0]) {
        pragma[strlen(pragma) - 1] = '\0';
        ub_app(b, " [ ");
        ub_app(b, pragma);
        ub_app(b, " ]");
    }
    ub_app(b, "\n{\n\n");
}

static void emit_method(UdlBuf *b, const char *ms, const char *me) {
    char mn[MAX_NAME];