Function is_exact_language_binding

internal/cbm/extract_usages.c:812–860

}

static bool is_exact_language_binding(CBMExtractCtx *ctx, TSNode node, WalkState *state) {
    const char *kind = ts_node_type(node);
    switch (ctx->language) {
    case CBM_LANG_OCAML: {
        if (strcmp(kind, "value_pattern") != 0) {
            return false;
        }
        TSNode parameter = ts_node_parent(node);
        return !ts_node_is_null(parameter) && strcmp(ts_node_type(parameter), "parameter") == 0 &&
               field_contains_node(parameter, "pattern", node);
    }
    case CBM_LANG_SCSS: {
        if (strcmp(kind, "variable_name") != 0) {
            return false;
        }
        TSNode parameter = ts_node_parent(node);
        return !ts_node_is_null(parameter) && strcmp(ts_node_type(parameter), "parameter") == 0;
    }
    case CBM_LANG_FORM: {
        if (strcmp(kind, "parameter") != 0) {
            return false;
        }
        TSNode parameters = ts_node_parent(node);
        return !ts_node_is_null(parameters) &&
               strcmp(ts_node_type(parameters), "parameter_list") == 0;
    }
    case CBM_LANG_FUNC: {
        if (strcmp(kind, "parameter") != 0) {
            return false;
        }
        TSNode declaration = ts_node_parent(node);
        return !ts_node_is_null(declaration) &&
               strcmp(ts_node_type(declaration), "parameter_declaration") == 0 &&
               field_contains_node(declaration, "name", node);
    }
    case CBM_LANG_PERL:
        return is_perl_lexical_declaration_binding(node);
    case CBM_LANG_CMAKE:
        return is_cmake_function_parameter(node);
    case CBM_LANG_FISH:
        return is_fish_function_parameter(ctx, node, state);
    case CBM_LANG_TCL:
        return is_tcl_procedure_parameter(node);
    case CBM_LANG_CFML:
        return cfml_argument_tag_name_binding(ctx, node);
    default:
        return false;
    }
}

static bool ancestor_field_binds(TSNode node, const char *container_kind,
                                 const char *const *fields) {