Module Temps (.ml)

module Temps: sig .. end
Projet Puzzle
Author(s): Lilian Besson <lilian.besson[AT]ens-cachan.fr>

exception Error_Annule of int
Pour gérer le code de retour d'un processus Unix lancé par la commande "Sys.command" en ocaml. Ce n'est pas très très propre de faire comme ca, mais ca marche bien.
val faire0 : string -> unit
Un peu de scripting en Ocaml. La fonction suivante execute la commande Unix contenue dans la chaine argument, en renvoyant une exception si la commande ne s'execute pas comme il faut (code d'erreur de retour unix non nul).
val wait_lourd : float -> unit
Pour attendre. Lourd car consomme 100% CPU juste pour .... attendre !
val wait : float -> unit
Plus intelligent. Utilise sleep ! Mais ne marche pas.
type temps = {
   heure : int;
   minute : int;
   seconde : int;
   milisec : int;
}
Représente un temps.
val convertir_temps : float -> temps
Convertit un nombre de secondes en temps.
val string_of_temps : temps -> string
Affiche un 'temps'.
val string_time : unit -> string
Donne une chaine représentant le temps courant.
type temps_full = {
   tmp : temps;
   se : float;
}
Mixte.
val temps_debut_chrono : temps_full Pervasives.ref
Référence globale pour le début du chronomètre .
val chronometre_est_actif : bool Pervasives.ref
Idem, pour savoir si un chrono est en cours.
val lancer_chrono : unit -> unit
Lance le chrono.
exception Chronometre_non_actif
Si on demande le temps du chronomètre sans qu'il soit actif !
val temps_chrono : unit -> string
Récupère une chaine donnant le temps écoulé depuis le dernier appel à lancer_chrono.
val stopper_chrono : unit -> unit
Stope le chrono.