commit cb105233f2f95af5eb9afe73ba267511b52d7f96 · anil.recoil.org/ocaml-mcp

+9 -7

bin/audio_example.ml

···

       126
       126
        
       

     

       127
       127
        
       (* Define startup and shutdown hooks *)

     

       128
       128
        
       let startup () =

     

       129
       129
       -
         Printf.printf "AudioExampleServer is starting up!\n";

     

       130
       130
       -
         flush stdout;

     

       129
       129
       +
         (* Use stderr for direct printing to avoid interfering with JSON-RPC protocol *)

     

       130
       130
       +
         Printf.fprintf stderr "AudioExampleServer is starting up!\n";

     

       131
       131
       +
         flush stderr;

     

       131
       132
        
         Log.info "AudioExampleServer is starting up!"

     

       132
       133
        
       

     

       133
       134
        
       let shutdown () =

     

       134
       134
       -
         Printf.printf "AudioExampleServer is shutting down. Goodbye!\n";

     

       135
       135
       -
         flush stdout;

     

       135
       135
       +
         Printf.fprintf stderr "AudioExampleServer is shutting down. Goodbye!\n";

     

       136
       136
       +
         flush stderr;

     

       136
       137
        
         Log.info "AudioExampleServer is shutting down. Goodbye!"

     

       137
       138
        
       

     

       138
       139
        
       (* Register the hooks *)

     
···

       306
       307
        
       

     

       307
       308
        
       (* Main function *)

     

       308
       309
        
       let () =

     

       309
       309
       -
         (* Print directly to ensure we see output *)

     

       310
       310
       -
         Printf.printf "Starting AudioExampleServer...\n";

     

       311
       311
       -
         flush stdout;

     

       310
       310
       +
         (* Use stderr for direct printing to avoid interfering with JSON-RPC protocol *)

     

       311
       311
       +
         Printf.fprintf stderr "Starting AudioExampleServer...\n";

     

       312
       312
       +
         flush stderr;

     

       313
       313
       +
         Log.info "Starting AudioExampleServer...";

     

       312
       314
        
         

     

       313
       315
        
         (* Configure the server with appropriate capabilities *)

     

       314
       316
        
         ignore (configure_server server ());

+9 -7

bin/capitalize_sdk.ml

···

       19
       19
        
       

     

       20
       20
        
       (* Define startup and shutdown hooks *)

     

       21
       21
        
       let startup () =

     

       22
       22
       -
         Printf.printf "CapitalizeServer is starting up!\n";

     

       23
       23
       -
         flush stdout;

     

       22
       22
       +
         (* Use stderr for direct printing to avoid interfering with JSON-RPC protocol *)

     

       23
       23
       +
         Printf.fprintf stderr "CapitalizeServer is starting up!\n";

     

       24
       24
       +
         flush stderr;

     

       24
       25
        
         Log.info "CapitalizeServer is starting up!"

     

       25
       26
        
       

     

       26
       27
        
       let shutdown () =

     

       27
       27
       -
         Printf.printf "CapitalizeServer is shutting down. Goodbye!\n";

     

       28
       28
       -
         flush stdout;

     

       28
       28
       +
         Printf.fprintf stderr "CapitalizeServer is shutting down. Goodbye!\n";

     

       29
       29
       +
         flush stderr;

     

       29
       30
        
         Log.info "CapitalizeServer is shutting down. Goodbye!"

     

       30
       31
        
       

     

       31
       32
        
       (* Register the hooks *)

     
···

       105
       106
        
       

     

       106
       107
        
       (* Main function *)

     

       107
       108
        
       let () =

     

       108
       108
       -
         (* Print directly to ensure we see output *)

     

       109
       109
       -
         Printf.printf "Starting CapitalizeServer...\n";

     

       110
       110
       -
         flush stdout;

     

       109
       109
       +
         (* Use stderr for direct printing to avoid interfering with JSON-RPC protocol *)

     

       110
       110
       +
         Printf.fprintf stderr "Starting CapitalizeServer...\n";

     

       111
       111
       +
         flush stderr;

     

       112
       112
       +
         Log.info "Starting CapitalizeServer...";

     

       111
       113
        
         

     

       112
       114
        
         (* Configure the server with appropriate capabilities *)

     

       113
       115
        
         ignore (configure_server server ());

+9 -7

bin/completion_example.ml

···

       19
       19
        
       

     

       20
       20
        
       (* Define startup and shutdown hooks *)

     

       21
       21
        
       let startup () =

     

       22
       22
       -
         Printf.printf "CompletionServer is starting up!\n";

     

       23
       23
       -
         flush stdout;

     

       22
       22
       +
         (* Use stderr for direct printing to avoid interfering with JSON-RPC protocol *)

     

       23
       23
       +
         Printf.fprintf stderr "CompletionServer is starting up!\n";

     

       24
       24
       +
         flush stderr;

     

       24
       25
        
         Log.info "CompletionServer is starting up!"

     

       25
       26
        
       

     

       26
       27
        
       let shutdown () =

     

       27
       27
       -
         Printf.printf "CompletionServer is shutting down. Goodbye!\n";

     

       28
       28
       -
         flush stdout;

     

       28
       28
       +
         Printf.fprintf stderr "CompletionServer is shutting down. Goodbye!\n";

     

       29
       29
       +
         flush stderr;

     

       29
       30
        
         Log.info "CompletionServer is shutting down. Goodbye!"

     

       30
       31
        
       

     

       31
       32
        
       (* Register the hooks *)

     
···

       156
       157
        
       

     

       157
       158
        
       (* Main function *)

     

       158
       159
        
       let () =

     

       159
       159
       -
         (* Print directly to ensure we see output *)

     

       160
       160
       -
         Printf.printf "Starting CompletionServer...\n";

     

       161
       161
       -
         flush stdout;

     

       160
       160
       +
         (* Use stderr for direct printing to avoid interfering with JSON-RPC protocol *)

     

       161
       161
       +
         Printf.fprintf stderr "Starting CompletionServer...\n";

     

       162
       162
       +
         flush stderr;

     

       163
       163
       +
         Log.info "Starting CompletionServer...";

     

       162
       164
        
         

     

       163
       165
        
         (* Set custom capabilities to indicate support for completions *)

     

       164
       166
        
         let capabilities = `Assoc [

+8 -7

bin/resource_template_example.ml

···

       19
       19
        
       

     

       20
       20
        
       (* Define startup and shutdown hooks *)

     

       21
       21
        
       let startup () =

     

       22
       22
       -
         Printf.printf "ResourceTemplateServer is starting up!\n";

     

       23
       23
       -
         flush stdout;

     

       22
       22
       +
         (* Use stderr for direct printing to avoid interfering with JSON-RPC protocol *)

     

       23
       23
       +
         Printf.fprintf stderr "ResourceTemplateServer is starting up!\n";

     

       24
       24
       +
         flush stderr;

     

       24
       25
        
         Log.info "ResourceTemplateServer is starting up!"

     

       25
       26
        
       

     

       26
       27
        
       let shutdown () =

     

       27
       27
       -
         Printf.printf "ResourceTemplateServer is shutting down. Goodbye!\n";

     

       28
       28
       -
         flush stdout;

     

       28
       28
       +
         Printf.fprintf stderr "ResourceTemplateServer is shutting down. Goodbye!\n";

     

       29
       29
       +
         flush stderr;

     

       29
       30
        
         Log.info "ResourceTemplateServer is shutting down. Goodbye!"

     

       30
       31
        
       

     

       31
       32
        
       (* Register the hooks *)

     
···

       163
       164
        
       

     

       164
       165
        
       (* Main function *)

     

       165
       166
        
       let () =

     

       166
       166
       -
         (* Print directly to ensure we see output *)

     

       167
       167
       -
         Printf.printf "Starting ResourceTemplateServer...\n";

     

       168
       168
       -
         flush stdout;

     

       167
       167
       +
         (* Instead of printing directly to stdout which messes up the JSON-RPC protocol,

     

       168
       168
       +
            use the logging system which sends output to stderr *)

     

       169
       169
       +
         Log.info "Starting ResourceTemplateServer...";

     

       169
       170
        
         

     

       170
       171
        
         (* Configure the server with appropriate capabilities *)

     

       171
       172
        
         ignore (configure_server server ());