Function is_policy_binding

internal/cbm/extract_usages.c:1018–1086

}

static bool is_policy_binding(CBMExtractCtx *ctx, TSNode node,
                              const CBMOccurrenceSpec *occurrence) {
    switch (occurrence->policy) {
    case CBM_OCCURRENCE_LISP_DEF:
        return is_lisp_def_binding(ctx, node);
    case CBM_OCCURRENCE_COMMONLISP_DEFUN:
        return is_commonlisp_defun_binding(node);
    case CBM_OCCURRENCE_FENNEL_FN:
        return is_fennel_fn_binding(ctx, node);
    case CBM_OCCURRENCE_ELIXIR_DEF:
        return is_elixir_def_binding(ctx, node);
    case CBM_OCCURRENCE_JULIA_FUNCTION:
        return is_first_named_part_of(node, "function_definition");
    case CBM_OCCURRENCE_WOLFRAM_SET:
        return is_wolfram_lhs(node);
    case CBM_OCCURRENCE_TYPST_LET:
        return is_first_named_part_of(node, "let");
    case CBM_OCCURRENCE_AGDA_FUNCTION:
        for (TSNode parent = ts_node_parent(node); !ts_node_is_null(parent);
             parent = ts_node_parent(parent)) {
            if (strcmp(ts_node_type(parent), "lhs") == 0) {
                return true;
            }
        }
        return false;
    case CBM_OCCURRENCE_TLAPLUS_OPERATOR:
        return is_tlaplus_binding(node);
    case CBM_OCCURRENCE_COBOL_MOVE:
        return is_cobol_move_destination(node);
    case CBM_OCCURRENCE_HCL_ATTRIBUTE:
        return is_hcl_attribute_binding(node);
    case CBM_OCCURRENCE_ELM_VALUE:
        return is_first_named_part_of(node, "value_declaration");
    case CBM_OCCURRENCE_RESCRIPT_LET:
        return is_first_named_part_of(node, "let_binding");
    case CBM_OCCURRENCE_PURESCRIPT_LHS:
        return is_first_named_part_of(node, "function");
    case CBM_OCCURRENCE_NICKEL_LET:
        return is_first_named_part_of(node, "let_binding") ||
               is_first_named_part_of(node, "pattern_fun");
    case CBM_OCCURRENCE_ERLANG_CLAUSE:
        return is_erlang_clause_binding(node);
    case CBM_OCCURRENCE_NIX_FUNCTION:
        return is_nix_function_binding(node);
    case CBM_OCCURRENCE_MATLAB_ARGUMENTS:
        return is_matlab_argument_binding(node);
    case CBM_OCCURRENCE_LEAN_BINDER:
        return is_lean_binder_name(node);
    case CBM_OCCURRENCE_PASCAL_PROC:
        return is_pascal_proc_binding(node);
    case CBM_OCCURRENCE_TEAL_FUNCTION:
        return is_teal_function_binding(node);
    case CBM_OCCURRENCE_VHDL_INTERFACE:
        return is_vhdl_interface_binding(node);
    case CBM_OCCURRENCE_PINE_FUNCTION:
        return is_pine_function_binding(node);
    case CBM_OCCURRENCE_LLVM_FUNCTION:
        for (TSNode parent = ts_node_parent(node); !ts_node_is_null(parent);