Discussion :

[theo7]

Bonjour,

j'ai fais un petit programme qui se connecte à un serveur IRC, le seul problème ( pour l'instant ) est que je n'arrive pas à répondre aux ping, mon code me renvoye une erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  try
    Str.search_forward (Str.regexp "^PING :") r 0; (* Ligne 26 *)
    let pong_answer = List.hd (Str.split (Str.regexp "PING :") r) in
    output_string oc "PONG :"^ pong_answer  ^"\n"; (* Ligne 28 *)
    print_string "\n\nPING -> PONG\n\n"
  with Not_found -> ();

Me donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 $ ocaml unix.cma str.cma irc.ml
[...]
File "Lilith.ml", line 26, characters 4-49:
Warning S: this expression should have type unit.
File "Lilith.ml", line 28, characters 4-29:
This expression has type unit but is here used with type string

Quelqu'un aurais une solution ?
Merci .

[fgjdfgjdgj]

# Str.search_forward ;;
- : Str.regexp -> string -> int -> int = <fun>
(** ..... Return the position of the first character of the matched substring ... *)

let pos = Str.search_forward (Str.regexp "^PING :") r 0 in

et si tu n'as pas besoin du résultat pos, utilise :
let _ = Str.search_forward (Str.regexp "^PING :") r 0 in
ou
ignore(Str.search_forward (Str.regexp "^PING :") r 0);

===============================

il faut entourer de parenthèses le résultat de concaténation de chaînes :

output_string oc ("PONG :"^ pong_answer ^"\n");

souvent quand tu as une erreur dans un fichier tu peux vérifier plus simplement en recopiant la ligne dans le top-level, et le top-level te soulignera l'endrois de l'erreur :

Code ocaml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
# let oc = stdout ;;
val oc : out_channel = <abstr>
# output_string oc "PONG :"^ pong_answer  ^"\n";;
This expression has type unit but is here used with type string
# output_string oc ("PONG :"^ pong_answer  ^"\n") ;;
PONG :HELLO
- : unit = ()

comme tu le vois l'expression est comprise comme si les parenthèses étaient comme ceci :

(output_string oc "PONG :") ^ pong_answer ^"\n";

[theo7]

Merci .

[LLB]

souvent quand tu as une erreur dans un fichier tu peux vérifier plus simplement en recopiant la ligne dans le top-level, et le top-level te soulignera l'endrois de l'erreur :

Mieux encore : on peut utiliser un véritable environnement de développement. Par exemple Emacs te permet de compiler (fonction "compile"), de surligner l'erreur dans ton code et de déplacer ton curseur là où il faut (fonctions "next-error" et "previous-error").