English version
Accueil     À propos     Téléchargement     Ressources     Contactez-nous    

Ce site est rarement mis à jour. Pour les informations les plus récentes, rendez-vous sur le nouveau site OCaml à l'adresse ocaml.org.

Browse thread
[Caml-list] The Makefile
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
Date: 2004-03-05 (03:25)
From: Vasili Galchin <vasiliocaml@y...>
Subject: [Caml-list] Test case syntax error

   I have added some functionality to the OCaml
run-time library and I am trying to test. I wrote test
case below that refuses to complile.

1) It gets a syntax error on the ending "done" for the
"while true". I have tried trimming down and still the
syntax error. I am sorry for something so elementary.
Can anyone help?

2) I am running on Linux. I did a "man ocamlc" to see
what kind of compiler switches there are. Is there a
compiler switch that gives a more verbose/helpful
error than simply "syntax error"?

Regards, vasili

----------------------------test case-----------------

(* The multicast listener *)
let listen ((my_addr_octet:string),
(multicast_addr_octet:string), multicast_port) =
    let descr = Unix.socket Unix.PF_INET
            (* Convert IP octet strings to IP addrs *)
            let my_addr = Unix.inet_addr_of_string
                multicast_addr =
Unix.inet_addr_of_string multicast_addr_octet in
            (* Open a UDP socket *)
            let sockaddr = Unix.ADDR_INET(my_addr,
               (* Bind the sock addr *)
               Unix.bind descr sockaddr;
               (* Set TTL for ipv4 *)
               (* TBD!!! *)
               (* Join the multicast group *)
               Unix.multicast_join descr my_addr

               (* Read loop *)
               while true do
                  let (buffer:string) = "" in
                     (* Do blocking read! *)
                     let (x, y) = Unix.recvfrom descr
buffer 0 128 [MSG_OOB]
             _ -> Printf.printf "%s\n" "blah";;     
listen ("", "", 12345);;

Do you Yahoo!?
Yahoo! Search - Find what you’re looking for faster

To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners