Fix the dune building process

gui.opam

+opam-version: "2.0"
+synopsis: "A Graphical User Interface for XXX"
+maintainer: "XXX"
+description: """
+sasa is a *Self-stabilizing Algorithms SimulAtor*. XXX
+"""
+authors: [ "XXX" ]
+license: "CeCILL"
+homepage: "https://gricad-gitlab.univ-grenoble-alpes.fr/verimag/synchrone/sasa"
+dev-repo: "https://gricad-gitlab.univ-grenoble-alpes.fr/verimag/synchrone/sasa.git"
+bug-reports: "https://gricad-gitlab.univ-grenoble-alpes.fr/verimag/synchrone/sasa/issues"
+build:  [make "build"]
+install:  [make "install"]
+depends: [
+  "lablgtk3"
+  "sasa"
+]
+depexts: [
+  ["graphviz" "emacs" "gnuplot" "zathura"]
+]
+post-messages: ["The last version can be obtained via (opam repo add) http://www-verimag.imag.fr/DIST-TOOLS/SYNCHRONE/opam-repository/ "]

tools/daemongui/dune

@@ -9,6 +9,6 @@
  (section bin)
  (package gui)
  (files
-  (daemongui.exe as daemongui)
+  (gui.exe as daemongui)
  )
 )

tools/daemongui/gui.ml

+
 open GMain
 open GdkKeysyms
 
@@ -92,7 +93,7 @@ let rdbg_count_nodes (): int =
 Extrait le nom et l'état des noeuds
 @return liste de tuples (nom, etat, activable)
 *)
-let rec rdbg_nodes_info (): (string * string * bool) list =
+let  rdbg_nodes_info (): (string * string * bool) list =
   (* récupère une liste qui dit si chaque état de chaque noeud est activable/pas activable *)
 
   let cmd = " String.concat \";\" (List.map (fun (n,v) -> Printf.sprintf \"%s=%s\" (String.sub n 5 (String.length n - 5)) (val_to_string string_of_float v)) (List.filter (fun (n,v) -> String.length n > 5 && String.sub n 0 5 = \"Enab_\") !e.data));;" in