restructure a bit so we can reuse docgen logic for the mcp

Author: zth

analysis/bin/main.ml

@@ -117,6 +117,12 @@ let main () =
     Mcp.IdentifierInfo.identifierInfo ~identifier ~path ~maybe_line:None
       ~maybe_col:None
     |> print_endline
+  | [_; "mcp"; "docs"; called_from; typ; identifier] -> (
+    match Mcp.Docs.docs_type_from_string typ with
+    | None ->
+      print_endline
+        "Not a valid type. Should be either 'ProjectFile' or 'Library'."
+    | Some typ -> Mcp.Docs.docs ~called_from ~typ ~identifier |> print_endline)
   | [_; "cache-project"; rootPath] -> (
     Cfg.readProjectConfigCache := false;
     let uri = Uri.fromPath rootPath in

analysis/src/Commands.ml

@@ -450,6 +450,18 @@ let test ~path =
               ~maybe_col:None
             |> print_endline;
             Sys.remove currentFile
+          | "mdp" ->
+            print_endline "MCP docs for project file";
+            let identifier = String.sub rest 3 (String.length rest - 3) in
+            let identifier = String.trim identifier in
+            Mcp.Docs.docs ~called_from:path ~typ:ProjectFile ~identifier
+            |> print_endline
+          | "mdl" ->
+            print_endline "MCP docs for library";
+            let identifier = String.sub rest 3 (String.length rest - 3) in
+            let identifier = String.trim identifier in
+            Mcp.Docs.docs ~called_from:path ~typ:Library ~identifier
+            |> print_endline
           | "xfm" ->
             let currentFile = createCurrentFile () in
             (* +2 is to ensure that the character ^ points to is what's considered the end of the selection. *)