diff --git a/makefile b/makefile index efca59bd8c86427e6a1f4a41cc5ab9e581b725fd..0e5edd201a25da191145e768a9f591b32cea2c9b 100644 --- a/makefile +++ b/makefile @@ -13,7 +13,7 @@ $(caml_file): cd script/src;ocamlopt $@.ml -o ../bin/$@.exe $(caml_need_csv): - cd script/src;ocamlopt csv.ml $@.ml -o ../bin/$@.exe + cd script/src;ocamlopt unix.cmxa csv.ml $@.ml -o ../bin/$@.exe complete_compile: @echo "\nAll caml programs compiled !\n" diff --git a/script/src/graph_export.ml b/script/src/graph_export.ml index 25320e9ce152db09e1b1feee0a009f05340e01de..fc5dcc91fc09001ede2a0bd31c34957729a95380 100644 --- a/script/src/graph_export.ml +++ b/script/src/graph_export.ml @@ -1,9 +1,10 @@ - let create_gexf path node_data edge_data = let oc = open_out path in - let date = "2025-04-08" in (*yyyy-mm-dd*) + let t = Unix.time () in + let tm = Unix.localtime t in + let date = Printf.sprintf "%4d-%02d-%02d" (tm.tm_year+1900) (tm.tm_mon+1) tm.tm_mday in (*yyyy-mm-dd*) (*Création de l'HEADER*) output_string oc "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"; output_string oc @@ -97,29 +98,3 @@ end - - - - - - - - - - - - - - - - - - - - - - - - - -