Function calls_edge_between

tests/test_lang_contract.c:1235–1266

True if a CALLS edge exists whose source QN ends with `src_suffix` and * target QN ends with `tgt_suffix`. */

/* True if a CALLS edge exists whose source QN ends with `src_suffix` and
 * target QN ends with `tgt_suffix`. */
static int calls_edge_between(cbm_store_t *store, const char *project, const char *src_suffix,
                              const char *tgt_suffix) {
    cbm_edge_t *edges = NULL;
    int n = 0;
    if (cbm_store_find_edges_by_type(store, project, "CALLS", &edges, &n) != CBM_STORE_OK)
        return 0;
    int found = 0;
    size_t ssl = strlen(src_suffix);
    size_t tsl = strlen(tgt_suffix);
    for (int i = 0; i < n && !found; i++) {
        cbm_node_t s, t;
        if (cbm_store_find_node_by_id(store, edges[i].source_id, &s) != CBM_STORE_OK)
            continue;
        if (cbm_store_find_node_by_id(store, edges[i].target_id, &t) != CBM_STORE_OK) {
            cbm_node_free_fields(&s);
            continue;
        }
        const char *sq = s.qualified_name;
        const char *tq = t.qualified_name;
        if (sq && tq) {
            size_t sql = strlen(sq);
            size_t tql = strlen(tq);
            if (sql >= ssl && strcmp(sq + sql - ssl, src_suffix) == 0 && tql >= tsl &&
                strcmp(tq + tql - tsl, tgt_suffix) == 0)
                found = 1;
        }
        cbm_node_free_fields(&s);
        cbm_node_free_fields(&t);
    }
    cbm_store_free_edges(edges, n);
    return found;
}

/* #999: URLs in CI/tooling configs (.pre-commit-config.yaml, .github/
 * workflows) are repository references for TOOLING, not endpoints this