page about wowcamldebug
[homepage.git] / hacking / software / wowcamldebug / wowtell.ml
1 (*
2  * Copyright (C) <2003-2004> Stefano Zacchiroli <zack@bononia.it>
3  *
4  * WOWcamldebug - WOnderful (g)Vim oCAML DEBUGger
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  * 
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  * 
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  *)
20
21 let send msg file =
22   let fd = Unix.socket Unix.PF_UNIX Unix.SOCK_DGRAM 0 in
23   Unix.connect fd (Unix.ADDR_UNIX file);
24   ignore (Unix.send fd msg 0 (String.length msg) [])
25
26 let _ =
27   try
28     send (Sys.argv.(1) ^ "\n") Sys.argv.(2)
29   with Invalid_argument "Array.get" ->
30     print_endline "Usage: wowtell <ocd_command> <wow_socket>";
31     exit 1
32