cqs 1.26.0

Code intelligence and RAG for AI agents. Semantic search, call graphs, impact analysis, type dependencies, and smart context assembly — in single tool calls. 54 languages + L5X/L5K PLC exports, 91.2% Recall@1 (BGE-large), 0.951 MRR (296 queries). Local ML, GPU-accelerated.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

(* Calculator module *)
module Calculator = struct
  let add x y = x + y

  let multiply x y = x * y

  let factorial n =
    let rec aux acc = function
      | 0 -> acc
      | n -> aux (acc * n) (n - 1)
    in
    aux 1 n
end

(* Variant type for colors *)
type color = Red | Green | Blue

(* Record type for 2D points *)
type point = {
  x : float;
  y : float;
}

(* Type alias *)
type name = string

let greet name =
  Printf.printf "Hello, %s!\n" name

let distance p1 p2 =
  let dx = p1.x -. p2.x in
  let dy = p1.y -. p2.y in
  sqrt (dx *. dx +. dy *. dy)