Discussion :

[6-MarViN]

Bonjour,

J'essaye actuellement de coder un petit shell en Ocaml. Tout compile bien dans le meilleur des mondes mais quand je le lance , rien ne se passe (même pas l'affichage du prompt). Voici le code de mon main :

Code :

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

1
2
3
4
5
6
7
8
9
10
let main () =
  let env = ref (Unix.environment ())
  in let command_line = ref ""
  in while true do
      print_string "SHOcaml->";
      command_line := read_line ();
      env := Parseur.parse_command_line !env !command_line
    done
 
let _ = main

Merci de m'indiquer ou pourrait se trouver la source du probleme

[gasche]

`main` est une fonction qui prend l'argument `()` en paramètre. Comme

Code :

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

1
2
let f x =
  Printf.printf "x est %d\n"

, si tu ne lui donnes pas d'argument, il ne fait rien, il ne calcule pas. Quand tu écris "let foo = main", tu parles de la *fonction* main, elle n'est pas évaluée.

Donc il faut écrire non pas :

Code :

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

let _ = main

qui est un style incompréhensible et qui t'a efficacement caché ton erreur, mais

Code :

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

let () = main ()

, qui enverra une erreur de type si tu fais n'importe quoi, et qui va effectiver exécuter ta fonction main.